จะ Link Cell ในสูตร VBA ทำยังไงครับ

[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 186 times

[puriwutpokin]

ควรแนบไฟล์มาให้สมาชิกท่าน ได้ตรวจสอบดูครับ ว่าติดต้องไหน เอาแค่ไฟล์ตัวอย่างก็ได้ครับถ้าไฟล์ใหญ่ครับ

[bpond]

ขอโทษด้วยครับผม

แนบไฟล์ตัวอย่างเพิ่มเติมครับ

ขอบคุณล่วงหน้าครับผม ^^

[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

[bpond]

ลองเอาสูตร VBA ที่คุณ snasui ช่วยแนะนำไปลองแล้วครับ

ตั้งเวลาให้ Record ทุกๆ 1 นาที พอกด Start รอสักพัก พอมันเริ่ม Record ปุ๊บ มันรัวเลยครับ

ที่อยากได้คือ ให้มันหน่วงไว้ทุกๆ 1 นาที หรือตามที่กำหนดไว้ใน Cell
แล้วค่อย record ตามเวลาที่ตั้งไปเรื่อยๆน่ะครับ

ไฟล์แนบที่เปลี่ยน Code VBA แล้วครับ

Auto Record.xlsm

(23.79 KiB) Downloaded 10 times

[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

[bpond]

ขอบคุณมากครับ คุณ snasui

เท่าที่ลอง code ในไฟล์ตัวอย่าง ผลเป็นไปอย่างที่ต้องการเลยครับ

เดี๋ยวผมไปประกอบร่างกับไฟล์จริง แล้วจะมาแจ้งผลอีกทีครับ ^^

[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 จะเป็นอย่างไรครับ

ขอบคุณล่วงหน้าครับ ^^

[bpond]

ตอบข้อ 1. ที่ผมถามนะครับ

ผมแก้ปัญหาโดยการทำ Drop down list ครับ โดยกำหนดรูปแบบ Format Cell เลือกเป็น Custom
แล้วกำหนดให้เป็น 00 จากนั้นทำ Drop down list โดยกำหนดค่าให้เลือกเป็น 00, 01, 05... ก็ใช้ได้ดีเลยครับ ^^

ที่ต้องทำ Drop down list เพราะถ้าให้เป็นแบบใส่ตัวเลขเอง แล้วผู้ใช้งานดันลืมใส่จะขึ้น error ทันทีครับ

-/|\-

[snasui]

ให้ลองปรับมาเองก่อนครับ ติดตรงไหนค่อยถามกันต่อและเป็นเช่นนี้เสมอครับ