ไปยังเนื้อหาหลัก

จะป้อนวันที่โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์ได้อย่างไร?

doc auto date เมื่อป้อนข้อมูล 1

เมื่อทำงานกับแผ่นงานคุณต้องการให้วันที่และเวลาปัจจุบันถูกป้อนลงในคอลัมน์ B โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์ A ดังภาพหน้าจอต่อไปนี้ ใน Excel คุณจะพยายามแก้ปัญหานี้ด้วยวิธีแก้ปัญหาที่ง่ายและรวดเร็วได้อย่างไร

ป้อนวันที่โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์ด้วยรหัส VBA

ลูกศรสีฟ้าฟองขวา ป้อนวันที่โดยอัตโนมัติเมื่อป้อนข้อมูลในคอลัมน์ด้วยรหัส 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

doc auto date เมื่อป้อนข้อมูล 2

2. จากนั้นบันทึกและปิดหน้าต่างรหัสนี้กลับไปที่แผ่นงานตอนนี้เมื่อคุณป้อนข้อมูลในคอลัมน์ A เซลล์ที่เกี่ยวข้องในคอลัมน์ B จะป้อนวันที่และเวลาปัจจุบันโดยอัตโนมัติในครั้งเดียว

หมายเหตุ: ในโค้ดด้านบน A2: A15 คือเซลล์ที่คุณต้องการป้อนค่า

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (5)
No ratings yet. Be the first to rate!
Maira
Maira
This comment was minimized by the moderator on the site
Hola como fijo fecha cuando inserte un dato especifico en otro celda. por ejemplo cuando en la celda A Inserte Cerrado, en la celda B se fije la fecha actual.
Reply
0
0
laurent
laurent
This comment was minimized by the moderator on the site
comment étendre ce code VBA sur plusieurs colonnes en même temps ?

exemple conne A -> B et F->G et m ->N

MERCI
Reply
0
0
skyyang
skyyang     laurent
This comment was minimized by the moderator on the site
Hello, laurent

To apply this code to multiple ranges, please use the below code:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("A2:A15")) Is Nothing) Or (Not Intersect(Target, Range("F2:F15")) Is Nothing) Or (Not Intersect(Target, Range("M2:M15")) Is Nothing) Then
        With Target(1, 2)
        .Value = Date & " " & Time
        .EntireColumn.AutoFit
        End With
    End If
End Sub


Tips: If there are more ranges you want to use, you just need to use Or to join this Not Intersect(Target, Range("A2:A15") script. Change the cell reference A2:A15 to other range reference.

Please try, hope it can help you!
Reply
Report
0
0
laurent
laurent     skyyang
This comment was minimized by the moderator on the site
Merci pour ta réponse je l'essaye et je vous tiens au courant
Reply
0
0
Will
Will
This comment was minimized by the moderator on the site
Hi i was wondering if there was any way to make it input the date in the column before the data, like if i type in B the date appears in A, also more importantly, if there was any way to apply the code to multiple columns at once
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations