จะป้อนวันที่โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์ได้อย่างไร?
เมื่อทำงานกับแผ่นงานคุณต้องการให้วันที่และเวลาปัจจุบันถูกป้อนลงในคอลัมน์ B โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์ A ดังภาพหน้าจอต่อไปนี้ ใน Excel คุณจะพยายามแก้ปัญหานี้ด้วยวิธีแก้ปัญหาที่ง่ายและรวดเร็วได้อย่างไร
ป้อนวันที่โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์ด้วยรหัส VBA
อาจจะไม่มีวิธีโดยตรงที่เราจะจัดการกับงานนี้ใน Excel แต่รหัส VBA ต่อไปนี้สามารถช่วยคุณได้โปรดทำดังนี้:
1. เลือกแท็บแผ่นงานที่คุณต้องการแทรกวันที่โดยอัตโนมัติจากนั้นคลิกขวาเลือก ดูรหัส จากเมนูข้อความจากนั้นจะโผล่ออกมา Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางรหัสต่อไปนี้ลงในโมดูล:
รหัส VBA: ป้อนวันที่โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์อื่น:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("A2:A15")) Is Nothing Then
With Target(1, 2)
.Value = Date & " " & Time
.EntireColumn.AutoFit
End With
End If
End Sub
2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้กลับไปที่แผ่นงานตอนนี้เมื่อคุณป้อนข้อมูลในคอลัมน์ A เซลล์ที่เกี่ยวข้องในคอลัมน์ B จะป้อนวันที่และเวลาปัจจุบันโดยอัตโนมัติในครั้งเดียว
หมายเหตุ: ในโค้ดด้านบน A2: A15 คือเซลล์ที่คุณต้องการป้อนค่า
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!