ให้เรตสมาชิก: 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/ 

กระทู้ล่าสุดจากเว็บบอร์ด
หัวข้อกระทู้
ตอบ
เปิดดู
ล่าสุด
สอบถามครับ เชื่อมฐานข้อมูล Wordpress ไม่ได้ครับ
โดย chatee supasand ส 19 ต.ค. 2019 4:07 pm บอร์ด ปัญหาการใช้ phpBB3, SMF, Joomla, Wordpress, CMS CRM
2
10
ส 19 ต.ค. 2019 4:17 pm โดย chatee supasand
วิธีการสร้าง logfile ในภาษา Python ด้วย logging
โดย jirawoot ศ 18 ต.ค. 2019 1:21 pm บอร์ด Python Knowledge
1
181
ส 19 ต.ค. 2019 4:25 am โดย mindphp
เปิดโพย รวมมิตรไอโฟนตกรุ่น เริ่ม 900.-
โดย promotion ศ 18 ต.ค. 2019 11:42 am บอร์ด พูดคุยเรื่องทั่วไป จับฉ่าย
0
21
ศ 18 ต.ค. 2019 11:42 am โดย promotion
ทำยังไงถึงจะ upload file เข้าไปอยู่ในโฟร์เดอร์ได้ครับ
โดย jamepiyawat พฤ 17 ต.ค. 2019 6:27 pm บอร์ด Programming - PHP
1
55
พฤ 17 ต.ค. 2019 6:30 pm โดย tsukasaz
สร้างไฟล์ PDF ด้วยภาษา PHP
โดย kkk_k พฤ 17 ต.ค. 2019 1:08 am บอร์ด Programming - PHP
1
72
พฤ 17 ต.ค. 2019 1:23 am โดย mindphp
ถามเรื่องเช็คตัวเลขว่ามีเลขที่มากกว่า 10 เเต่น้อยกว่า 20 กี่ตัวยังไงครับ
โดย Golff Sinlapachai พ 16 ต.ค. 2019 6:19 pm บอร์ด Programming - PHP
1
50
พ 16 ต.ค. 2019 6:25 pm โดย mindphp
ฐานข้อมูลค่ะ
โดย sopida พ 16 ต.ค. 2019 3:37 pm บอร์ด Programming - PHP
1
43
พ 16 ต.ค. 2019 3:53 pm โดย thatsawan
replace หลายจุด และหลาย pattern พร้อมกันจบในการรันคำสั่งครั้งเดียว
โดย jataz2 พ 16 ต.ค. 2019 3:17 pm บอร์ด Programming - C/C++ & java & Python
0
36
พ 16 ต.ค. 2019 3:17 pm โดย jataz2
อัพเดพตัว Build Windows 10 แอพ Your Phone รับสายเรียกเข้า-โทรออกจาก สมาร์ทโฟนได้แล้ว
โดย chatee supasand อ 15 ต.ค. 2019 12:18 pm บอร์ด Microsoft Office Knowledge & line & Etc
0
52
อ 15 ต.ค. 2019 12:18 pm โดย chatee supasand
ตัวอย่างการสร้าง Service odoo13 บน Ubuntu 16.04
โดย mindphp ส 12 ต.ค. 2019 1:35 am บอร์ด Linux - Web Server
0
96
ส 12 ต.ค. 2019 1:35 am โดย mindphp
MJupgrade Joomla 1.5.26 > 3.9 ขึ้น Error: Could not connect to MySQL server.
โดย เห็ด อินโมชั่น ศ 11 ต.ค. 2019 3:30 pm บอร์ด Joomla Development
3
81
ศ 11 ต.ค. 2019 5:14 pm โดย เห็ด อินโมชั่น
MJupgrade Joomla 1.5.26 > 3.9 ขึ้น Error: Could not connect to MySQL server.
โดย เห็ด อินโมชั่น ศ 11 ต.ค. 2019 4:59 pm บอร์ด ปัญหาการใช้ phpBB3, SMF, Joomla, Wordpress, CMS CRM
7
2221
ส 12 ต.ค. 2019 3:35 am โดย mindphp
อยากทราบวิธีนับจำนวน id ที่ซ้ำกัน ครับ
โดย jamepiyawat ศ 11 ต.ค. 2019 5:06 pm บอร์ด SQL - Database
3
171
ศ 11 ต.ค. 2019 6:20 pm โดย jamepiyawat
การ Search ค้นหาข้อมูลของบอร์ด phpBB
โดย aninthana พฤ 10 ต.ค. 2019 6:46 pm บอร์ด Wordpress user Guide Knowledge
0
131
พฤ 10 ต.ค. 2019 6:46 pm โดย aninthana
ทำป้าย PopUp ด้วย Modal ใน Bootstrap เวอร์ชั่น 4
โดย jamepiyawat พฤ 10 ต.ค. 2019 5:20 pm บอร์ด Booststap Knowledge
0
138
พฤ 10 ต.ค. 2019 5:20 pm โดย jamepiyawat
ทำยังไงถึงจะไม่ให้แสดงเลข ID หน้า Alias ได้ครับ
โดย jamepiyawat พฤ 10 ต.ค. 2019 4:03 pm บอร์ด Joomla Development
1
58
พฤ 10 ต.ค. 2019 6:02 pm โดย tsukasaz
ทำไมผมถึงดึงข้อมูลชื่อหมวดหมู่ออกมาแสดงหน้าตั้งค่า module ไม่ได้ครับ
โดย jamepiyawat พฤ 10 ต.ค. 2019 3:47 pm บอร์ด Joomla Development
2
64
พฤ 10 ต.ค. 2019 6:36 pm โดย jamepiyawat
ตัวเลขด้านหน้าข้อความที่เราตั้ง Alias คืออะไรครับ
โดย jamepiyawat พฤ 10 ต.ค. 2019 11:36 am บอร์ด Joomla Development
5
143
พฤ 10 ต.ค. 2019 2:46 pm โดย mindphp
แก้ปัญหา Error Ignoring file '50unattended-upgrades.ucf-old' in directory บน Ubunto 16.04 ติดตั้ง apt-get
โดย mindphp พฤ 10 ต.ค. 2019 5:42 am บอร์ด Linux - Web Server
0
110
พฤ 10 ต.ค. 2019 5:42 am โดย mindphp
Q - สอบถามวิธี Upload file html ไปยัง web service โดยใช้คำสั่ง curl ใน PHP
โดย birdkritsna พ 09 ต.ค. 2019 3:42 pm บอร์ด Programming - PHP
6
155
พฤ 10 ต.ค. 2019 2:07 pm โดย birdkritsna