ชุมชนความรู้ Excel และ Microsoft 365 สำหรับการทำงานจริง ตั้งแต่สูตร ฟังก์ชัน VBA, Power Query, PivotTable, Dashboard และ AI จนถึงการวิเคราะห์ข้อมูลและพัฒนาระบบงานในองค์กร
https://snasui.com/
ที่เขียนมาเองแล้วชื่อ Procedure อะไร ติดขัดบรรทัดใคครับCode: Select all
Sub mytime()
Worksheets(“Sheet1”).Cells(1,2).Value = Format(Now,”h:mm:ss”)
End SubCode: Select all
Sub mytime()
Worksheets("Sheet1").Range("B1") = Now()
End SubCode: Select all
Private Sub Workbook_Open()
Call mytime
End Subliveday wrote:สูตรใช้ได้แล้วครับตอนเปิดไฟล์ อยากถามเพิ่มว่าเราสามารถให้เวลาทำงานเดินต่อไปได้อีกหรือเปล่าครับแบบเป็น real time ครับ ขอบคุณครับ
ได้ครับ ลองเขียนโค๊ดมาดูกันครับCode: Select all
Private Sub Workbook_Open()
UpdateClock
End SubCode: Select all
Sub UpdateClock()
With Sheets("Sheet1").Range("B1")
.FormulaR1C1 = "=NOW()"
.NumberFormat = "dd/mm/yyyy h:mm:ss"
End With
Application.OnTime Now() + TimeValue("00:00:01"), "UpdateClock"
End Sub