Page 1 of 1
จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Wed Jun 07, 2017 9:04 am
by bpond
สวัสดีครับ
ผม Link Cell แบบ Value ปกติ โดยกำหนด .Range("$A$1").Value ก็ใช้งานได้น่ะครับ
แต่พอ Link Cell ใน Function อีกที กลับขึ้น Error น่ะครับ
ผมควรจะเขียนสูตรแทนค่าใน Cell D2, E2, F2 โดยแยกเป็น ชั่วโมง, นาที, วินาที จะกำหนดใน VBA ยังไงครับ
ขอบคุณล่วงหน้านะครับ ^^
VBA ที่ต้องการจะ Link น่ะครับ
Sub StartTimer()
dTime = Now + TimeValue("00:00:05")
Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub
- VBA - Link Cell ในรูปของเวลา.jpg (184.08 KiB) Viewed 170 times
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Wed Jun 07, 2017 10:40 am
by puriwutpokin
ควรแนบไฟล์มาให้สมาชิกท่าน ได้ตรวจสอบดูครับ ว่าติดต้องไหน เอาแค่ไฟล์ตัวอย่างก็ได้ครับถ้าไฟล์ใหญ่ครับ
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Wed Jun 07, 2017 2:28 pm
by bpond
ขอโทษด้วยครับผม
แนบไฟล์ตัวอย่างเพิ่มเติมครับ
ขอบคุณล่วงหน้าครับผม ^^
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Thu Jun 08, 2017 7:05 am
by snasui
เซลล์ G5:I5 กรอกตัวเลขอย่างไรบ้างครับ
ตัวอย่าง Code หากกรอกไว้เป็นตัวเลขจำนวนเต็มครับ
Code: Select all
Sub StartTimer()
Dim t As Date
t = Range("g5").Value / 24 + Range("h5").Value / 60 / 24 + Range("i5").Value / 60 / 60 / 24
dTime = Now + t
End Sub
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Thu Jun 08, 2017 3:50 pm
by bpond
ลองเอาสูตร VBA ที่คุณ snasui ช่วยแนะนำไปลองแล้วครับ
ตั้งเวลาให้ Record ทุกๆ 1 นาที พอกด Start รอสักพัก พอมันเริ่ม Record ปุ๊บ มันรัวเลยครับ
ที่อยากได้คือ ให้มันหน่วงไว้ทุกๆ 1 นาที หรือตามที่กำหนดไว้ใน Cell
แล้วค่อย record ตามเวลาที่ตั้งไปเรื่อยๆน่ะครับ
ไฟล์แนบที่เปลี่ยน Code VBA แล้วครับ
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Thu Jun 08, 2017 5:39 pm
by snasui
อีกตัวอย่าง Code ครับ
Code: Select all
Sub StartTimer()
Dim t As String
With Sheets("Mainpage")
t = Format(.Range("g5").Value, "00")
t = t & ":" & Format(.Range("h5").Value, "00")
t = t & ":" & Format(.Range("i5").Value, "00")
End With
dTime = Now + TimeValue(t)
Application.OnTime dTime, "ValueStore", Schedule:=True
End Sub
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Thu Jun 08, 2017 8:10 pm
by bpond
ขอบคุณมากครับ คุณ snasui
เท่าที่ลอง code ในไฟล์ตัวอย่าง ผลเป็นไปอย่างที่ต้องการเลยครับ
เดี๋ยวผมไปประกอบร่างกับไฟล์จริง แล้วจะมาแจ้งผลอีกทีครับ ^^
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Fri Jun 09, 2017 9:42 am
by bpond
ใช้งานได้แล้วครับ ขอบคุณมากครับ
แต่ผมมีคำถามเพิ่มเติมครับ
1. สมมุติเราใส่ค่า 5 ใน Cell "I5" เซลเดียวเพื่อให้ทำการ Record ทุกๆ 5 วินาที
และไม่ใส่ค่าในช่อง "G5", "H5" ใดๆเลย พอกด Start Record มันขึ้น Error ครับ ประมาณว่า Type mismatch
แล้วก็เรียก VBA Debug ขึ้นมา แล้ว Highlight สีเหลืองที่ dTime = Now + TimeValue(t)
จะแก้ยังไงดีครับ หรือเราสามารถให้ Cell G5, H5 ขึ้นเลข 0 เป็น Default เลยได้ไหมครับ
2. และถ้าเราจะเปลี่ยนแปลง VBA code ให้ตัด Cell แรกที่เป็นค่าตัวแปร "ชั่วโมง" ออก
ให้เหลือแต่ "นาที" กับ "วินาที" จะได้ไหมครับ Code จะเป็นอย่างไรครับ
ขอบคุณล่วงหน้าครับ ^^
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Fri Jun 09, 2017 1:34 pm
by bpond
ตอบข้อ 1. ที่ผมถามนะครับ
ผมแก้ปัญหาโดยการทำ Drop down list ครับ โดยกำหนดรูปแบบ Format Cell เลือกเป็น Custom
แล้วกำหนดให้เป็น 00 จากนั้นทำ Drop down list โดยกำหนดค่าให้เลือกเป็น 00, 01, 05... ก็ใช้ได้ดีเลยครับ ^^
ที่ต้องทำ Drop down list เพราะถ้าให้เป็นแบบใส่ตัวเลขเอง แล้วผู้ใช้งานดันลืมใส่จะขึ้น error ทันทีครับ
-/|\-
Re: จะ Link Cell ในสูตร VBA ทำยังไงครับ
Posted: Fri Jun 09, 2017 9:03 pm
by snasui
ให้ลองปรับมาเองก่อนครับ ติดตรงไหนค่อยถามกันต่อและเป็นเช่นนี้เสมอครับ
