วิธีตั้งค่า Excel (เอ็กเซล) ให้เพิ่มวันเวลาอัตโนมัติด้วยสคลิป VBA
การใช้สคลิปเข้ามาช่วยให้โปรแกรม Excel ทำงานง่ายยิ่งขึ้นเป็นวิธีการที่ดีปกติแล้วจะต้องใช้วิธีการคัดลอกหรือลากวัน เวลา เพื่อให้มันรันเวลาปัจจุบันทำให้เกิดความล่าช้าและอาจจะเกิดข้อผิดพลาด สคลิปตัวนี้จะเป็นโค้ดที่กำหนดให้คอลัมน์หนึ่งสร้างวันเวลาให้แบบอัตโนมัติ โดยมีเงื่อนไขเมื่อมีการกรอกข้อมูลตามช่องอื่นๆคบในช่องวันที่ เวลา ก็จะถูกสร้างให้เอง สามารถกำหนดช่องแสดงและเงื่อนไขอื่นได้ด้วยการปรับโค้ด
โค้ดสำหรับเพิ่มวันเวลาอัตโนมัติเมื่อแก้ไขช่อง
รายละเอียด
ถ้ามีการป้อนแก้ไขคอลัมน์ A B C และ D ให้เพิ่มวัน เวลา ในช่อง E โดยมีรูปแบบ m/d/yyyy h:mm AM/PM
Private Sub Worksheet_Change(ByVal Target As Range)
'Using the keyword Dim for Dimension we declare a variable i of data type integer
Dim i As Integer
'Next we use a looping process 'We start the loop from row 2 because our worksheet has headers in row 1 For i = 2 To 100
'Now we define a condition that only if there is data under the headers ItemID, Description, Quantity and Price then alone enter a date under the Date & Time header
If Cells(i, "A").Value <> "" And Cells(i, "B").Value <> "" And Cells(i, "C").Value <> "" And Cells(i, "D").Value <> "" And Cells(i, "E").Value = "" Then
Cells(i, "E").Value = Date & " " & Time
'Note that this format also sohws the seconds in the time
Cells(i, "E").NumberFormat = "m/d/yyyy h:mm AM/PM"
End If
Next
Range("E:E").EntireColumn.AutoFit
End Sub
วิธีการใช้งานและการตั้งค่าเพิ่มวันเวลาอัตโนมัติด้วยสคลิป VBA
ขั้นตอนที่ 1 : เมื่อเปิดโปรแกรม Excel แล้วสร้างคอลัมน์สำหรับทดสอบ A B C D E
ขั้นตอนที่ 2 : ในช่องที่จะให้กำหนดวันเวลาให้พิมพ์คำสั่ง =NOW() จะได้วันเวลาปัจจุวัน หากไม่มีเวลาให้ทำการตั้งค่า
ขั้นตอนที่ 3 : คลิกขวาที่ช่องนั้น Format Cells > Number > Date และเลือกรูปแบบตามต้องการ
ขั้นตอนที่ 4 : ทำการบันทึกหนึ่งครั้ง
ขั้นตอนที่ 5 : ตอนนี้ก็ได้รูปแบบตามต้องการแล้ว ต่อไปจะทำการสร้างโค้ดให้เพิ่มวัน เวลา อัตโนมัติเลือก Developer > Visual Basic
ขั้นตอนที่ 6 : และนำโค้ดจากด้านบนมาใส่ สามารถปรับเปลี่ยนโค้ดหรือช่องสำหรับแก้ไขเองได้
ขั้นตอนที่ 7 : ตัวอย่างการนำโค้ดมาใส่
ขั้นตอนที่ 8 : เพียงเท่านี้ก็เสร็จเรียบร้อยแล้ว เงี่อนไข เมื่อเราได้เพิ่ม แก้ไข คอลัมน์ A B C D จะทำให้ช่อง E สร้างวันเวลาให้อัตโนมัติ
ข้อมูลจาก : http://familycomputerclub.com/