ให้เรตสมาชิก: 5 / 5

ดาวใช้งานดาวใช้งานดาวใช้งานดาวใช้งานดาวใช้งาน
 

 

วิธีตั้งค่า 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

เปิดโปรแกรม Excel
เปิดโปรแกรม Excel

 

ขั้นตอนที่ 2 : ในช่องที่จะให้กำหนดวันเวลาให้พิมพ์คำสั่ง =NOW() จะได้วันเวลาปัจจุวัน หากไม่มีเวลาให้ทำการตั้งค่า 

กำหนดวันเวลาปัจจุบัน
กำหนดวันเวลาปัจจุบัน

 

ขั้นตอนที่ 3 : คลิกขวาที่ช่องนั้น Format Cells > Number > Date และเลือกรูปแบบตามต้องการ

รูปแบบวัน เวลา
รูปแบบวัน เวลา

 

ขั้นตอนที่ 4 : ทำการบันทึกหนึ่งครั้ง

บันทึก Excel
บันทึก Excel

 

ขั้นตอนที่ 5 : ตอนนี้ก็ได้รูปแบบตามต้องการแล้ว ต่อไปจะทำการสร้างโค้ดให้เพิ่มวัน เวลา อัตโนมัติเลือก Developer > Visual Basic 

สร้างโค้ดให้เพิ่มวัน เวลา อัตโนมัติ
สร้างโค้ดให้เพิ่มวัน เวลา อัตโนมัติ

 

ขั้นตอนที่ 6 : และนำโค้ดจากด้านบนมาใส่ สามารถปรับเปลี่ยนโค้ดหรือช่องสำหรับแก้ไขเองได้

สามารถปรับเปลี่ยนโค้ด
สามารถปรับเปลี่ยนโค้ด

 

ขั้นตอนที่ 7 : ตัวอย่างการนำโค้ดมาใส่

ตัวอย่างการนำโค้ดมาใส่
ตัวอย่างการนำโค้ดมาใส่

 

ขั้นตอนที่ 8 : เพียงเท่านี้ก็เสร็จเรียบร้อยแล้ว เงี่อนไข เมื่อเราได้เพิ่ม แก้ไข คอลัมน์ A B C D จะทำให้ช่อง E สร้างวันเวลาให้อัตโนมัติ

สร้างวันเวลาให้อัตโนมัติ Excel
สร้างวันเวลาให้อัตโนมัติ Excel 

 

ข้อมูลจาก : http://familycomputerclub.com/ 

กระทู้ล่าสุดจากเว็บบอร์ด
หัวข้อกระทู้
ตอบ
เปิดดู
ล่าสุด
argparse คืออะไร
โดย jirawoot พฤ 16 ก.ค. 2020 12:43 pm บอร์ด Python Knowledge
0
6
พฤ 16 ก.ค. 2020 12:43 pm โดย jirawoot
เวอร์ชั่นใหม่มาแล้ว Joomla 3.9.20 อัพเดทความปลอดภัยหลายจุด
โดย tsukasaz พ 15 ก.ค. 2020 1:45 pm บอร์ด MindPHP News & Feedback
0
16
พ 15 ก.ค. 2020 1:45 pm โดย tsukasaz
วิธีการ การลิ้งค์ข้อมูลข้าม Sheet ใน Google Sheet คู่มือ บทความสอน
โดย Phakakrong อ 14 ก.ค. 2020 6:03 pm บอร์ด Microsoft Office Knowledge & line & Etc
0
19
อ 14 ก.ค. 2020 6:03 pm โดย Phakakrong
c# read excel .xlsx
โดย jataz2 อ 14 ก.ค. 2020 2:50 pm บอร์ด Programming - C/C++ & java & Python
0
15
อ 14 ก.ค. 2020 2:50 pm โดย jataz2
การเทสแป้นพิมพ์
โดย natthanit.r2538 อ 14 ก.ค. 2020 1:43 pm บอร์ด Share Knowledge
0
11
อ 14 ก.ค. 2020 1:43 pm โดย natthanit.r2538
c# example format digit
โดย jataz2 อ 14 ก.ค. 2020 10:29 am บอร์ด Programming - C/C++ & java & Python
0
40
อ 14 ก.ค. 2020 10:29 am โดย jataz2
c# example read csv file
โดย jataz2 อ 14 ก.ค. 2020 10:20 am บอร์ด พูดคุยเรื่องทั่วไป จับฉ่าย
0
13
อ 14 ก.ค. 2020 10:20 am โดย jataz2
งานประจำวันที่ 14 กรกฏาคม 2563
โดย Phakakrong อ 14 ก.ค. 2020 9:36 am บอร์ด M105 - ผกากรอง กุสาวดี
2
25
อ 14 ก.ค. 2020 7:26 pm โดย Phakakrong
การเขียนโพสต์แชร์ในบอร์ดด้วยรูปแบบที่ถูกต้อง
โดย Phakakrong จ 13 ก.ค. 2020 5:33 pm บอร์ด Share Knowledge
0
27
จ 13 ก.ค. 2020 5:33 pm โดย Phakakrong
วิธีการทำ Logged Calls รับ / โทรออก
โดย Phakakrong จ 13 ก.ค. 2020 2:52 pm บอร์ด M105 - ผกากรอง กุสาวดี
0
21
จ 13 ก.ค. 2020 2:52 pm โดย Phakakrong
ขอความช่วยเหลือ ดู Code สไลด์ แบบมีลูกศรกดด้านข้างครับ
โดย dzjp จ 13 ก.ค. 2020 2:43 pm บอร์ด Programming - PHP
0
18
จ 13 ก.ค. 2020 2:43 pm โดย dzjp
ร่วมใจให้ชุมชนดีเด่นกับโครงการธนาคารเห็ด
โดย medalezga จ 13 ก.ค. 2020 12:12 pm บอร์ด พูดคุยเรื่องทั่วไป จับฉ่าย
1
50
พ 15 ก.ค. 2020 9:58 am โดย Sirayu
การนำเอาข้อมูลหลายๆ Sheet(Excel ) มารวมกันด้วย Power Query
โดย Phakakrong จ 13 ก.ค. 2020 11:37 am บอร์ด Microsoft Office Knowledge & line & Etc
0
31
จ 13 ก.ค. 2020 11:37 am โดย Phakakrong
งานประจำวันที่ 13 กรกฏาคม 2563
โดย Phakakrong จ 13 ก.ค. 2020 9:43 am บอร์ด M105 - ผกากรอง กุสาวดี
4
64
จ 13 ก.ค. 2020 7:03 pm โดย Phakakrong
ถ้าต้องการจะส่งเมล เเล้วแนบไฟล์ไปด้วยใน phpbb ทำยังไงคะ
โดย thatsawan ส 11 ก.ค. 2020 11:33 am บอร์ด Programming - PHP
7
113
อ 14 ก.ค. 2020 2:09 pm โดย thatsawan
การเพิ่มกรอบจอโทรศัพท์มือถือบน Google Chrome
โดย natthanit.r2538 ส 11 ก.ค. 2020 10:41 am บอร์ด Share Knowledge
0
26
ส 11 ก.ค. 2020 10:41 am โดย natthanit.r2538
งานประจำวันที่ 11 กรกฏาคม 2563
โดย Phakakrong ส 11 ก.ค. 2020 9:22 am บอร์ด M105 - ผกากรอง กุสาวดี
3
24
ส 11 ก.ค. 2020 6:48 pm โดย Phakakrong
ถ้าต้องการเช็คค่าว่าง select ให้ alert ก่อนก่อนปุ่มอื่นๆ ทำยังไงได้บ้างคะ
โดย thatsawan ศ 10 ก.ค. 2020 4:18 pm บอร์ด JavaScript & Jquery Ajax
1
72
ศ 10 ก.ค. 2020 4:59 pm โดย tsukasaz
งานประจำวันที่ 10 กรกฏาคม 2563
โดย Phakakrong ศ 10 ก.ค. 2020 9:35 am บอร์ด M105 - ผกากรอง กุสาวดี
5
24
ศ 10 ก.ค. 2020 7:58 pm โดย Phakakrong
Google Sheet : วิธีการเปลี่ยนภาษา (ไทย เป็น อังกฤษ)
โดย Phakakrong พฤ 09 ก.ค. 2020 6:34 pm บอร์ด Share Knowledge
0
49
พฤ 09 ก.ค. 2020 6:34 pm โดย Phakakrong