Note: The other languages of the website are Google-translated. Back to English
English English
  • เอกสาร
  • Excel
  • วิธีเติมข้อมูลวันที่ในเซลล์โดยอัตโนมัติเมื่อมีการอัปเดตเซลล์ที่อยู่ติดกันใน Excel

วิธีเติมข้อมูลวันที่ในเซลล์โดยอัตโนมัติเมื่อมีการอัปเดตเซลล์ที่อยู่ติดกันใน Excel

บางครั้งเมื่ออัปเดตเซลล์ในคอลัมน์ใดคอลัมน์หนึ่งคุณอาจต้องการทำเครื่องหมายวันที่ล่าสุดเกี่ยวกับการอัปเดต บทความนี้จะแนะนำวิธี VBA เพื่อแก้ปัญหานี้ เมื่อเซลล์ได้รับการอัปเดตเซลล์ที่อยู่ติดกันจะถูกเติมอัตโนมัติด้วยวันที่ปัจจุบันทันที

เติมข้อมูลวันที่ปัจจุบันในเซลล์โดยอัตโนมัติเมื่อเซลล์ที่อยู่ติดกันได้รับการอัปเดตด้วยรหัส VBA


เติมข้อมูลวันที่ปัจจุบันในเซลล์โดยอัตโนมัติเมื่อเซลล์ที่อยู่ติดกันได้รับการอัปเดตด้วยรหัส VBA

สมมติว่าข้อมูลที่คุณต้องการอัปเดตอยู่ในคอลัมน์ B และเมื่อมีการอัปเดตเซลล์ในคอลัมน์ B วันที่ปัจจุบันจะถูกเติมในเซลล์ที่อยู่ติดกันของคอลัมน์ A ดูภาพหน้าจอ:

คุณสามารถเรียกใช้รหัส VBA ต่อไปนี้เพื่อแก้ปัญหานี้

1. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการเติมข้อมูลวันที่โดยอัตโนมัติตามเซลล์ที่อัปเดตที่อยู่ติดกันจากนั้นคลิก ดูรหัส จากเมนูคลิกขวา

2. ในหน้าต่าง Microsoft Visual Basic for Applications โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่าง Code

รหัส VBA: เติมข้อมูลวันที่ปัจจุบันในเซลล์โดยอัตโนมัติเมื่อมีการอัปเดตเซลล์ที่อยู่ติดกัน

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    If (Target.Count = 1) Then
        If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
            Target.Offset(0, -1) = Date
        Application.EnableEvents = False
        Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
        If (Not xRg Is Nothing) Then
            For Each xCell In xRg
                xCell.Offset(0, -1) = Date
            Next
        End If
        Application.EnableEvents = True
    End If
End Sub

หมายเหตุ:

1). ในรหัส B: B หมายความว่าข้อมูลที่อัปเดตอยู่ในคอลัมน์ B
2). -1 ระบุว่าวันที่ปัจจุบันจะถูกเติมทางด้านซ้ายหนึ่งคอลัมน์ของคอลัมน์ B หากคุณต้องการให้วันที่ปัจจุบันอยู่ในคอลัมน์ C โปรดเปลี่ยน -1 เป็น 1

3 กด อื่น ๆ + Q ในเวลาเดียวกันเพื่อปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

จากนี้ไปเมื่ออัปเดตเซลล์ในคอลัมน์ B เซลล์ที่อยู่ติดกันในคอลัมน์ A จะถูกเติมด้วยวันที่ปัจจุบันทันที ดูภาพหน้าจอ:


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (46)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ. สิ่งนี้ช่วยได้มาก แต่เมื่อฉันลบแถวหรือเพิ่มแถว จะทำให้เกิดข้อผิดพลาดรันไทม์ 13 ประเภทไม่ตรงกัน วิธีจัดการกับปัญหานี้ คาดว่าจะกลับคืนโดยเร็ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เรียน คุณจิษณุ
ปัญหาที่คุณกล่าวถึงไม่ปรากฏในกรณีของฉัน โปรดระบุเวอร์ชัน Office ของคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันมีชุดเวิร์กชีต Excel ชื่อวันจันทร์ วันอังคาร วันพุธ ฯลฯ ฉันต้องใส่วันที่เริ่มต้นในวันจันทร์ในเซลล์ a1 และใส่วันที่ถัดไปสำหรับวันอังคารถึงวันศุกร์ในเซลล์ a1 ในแต่ละแผ่นงาน ฉันไม่รู้รหัสเลย ฉันแค่ต้องรู้ว่าสูตรง่ายๆ ที่ฉันสามารถใส่เข้าไปได้คืออะไร :) ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ลีอาห์ที่รัก
คุณเพียงแค่ต้องใช้สูตร =monday!A1+1 ในชีต tuesday, =tuesday!A1+1 ในชีตวันพุธ และอื่นๆ...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สามารถทำได้ในเซลล์ที่มีสูตรหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
แทมมี่ที่รัก
รหัสได้รับการปรับปรุง สามารถทำได้ในเซลล์ที่มีสูตรอยู่แล้ว ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ มันใช้งานได้ดี แต่เมื่อต้องปิดและบันทึก ฉันได้รับข้อผิดพลาดว่าคุณลักษณะ "โครงการ VB" ไม่สามารถบันทึกในสมุดงานที่ไม่มีมาโครได้ ขอคำแนะนำด้วยค่ะ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณ มันใช้งานได้ดี แต่เมื่อต้องปิดและบันทึก ฉันได้รับข้อผิดพลาดว่าคุณลักษณะ "โครงการ VB" ไม่สามารถบันทึกในสมุดงานที่ไม่มีมาโครได้ ขอคำแนะนำด้วยค่ะ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณเพียงแค่ต้อง "บันทึกเป็น" สมุดงานที่เปิดใช้งานมาโคร excel....
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถใช้ฟังก์ชันนี้สองครั้งบนแผ่นงานเดียวกันได้หรือไม่ คือถ้าฉันต้องการสร้างรายการในคอลัมน์ B ไปยังคอลัมน์การประทับเวลา A และใส่รายการในคอลัมน์ D ไปยังคอลัมน์การประทับเวลา C ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันทำให้มันใช้งานได้โดยทำสิ่งต่อไปนี้:


แผ่นงานย่อยส่วนตัว_เปลี่ยน (ByVal กำหนดเป้าหมายเป็น Excel.Range)
'ปรับปรุงโดย Extendoffice 2017 / 10 / 12
Dim xRg เป็นช่วง xCell เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า (Target.Count = 1) แล้ว
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("B:B")) คือ Nothing) แล้ว _
Target.Offset(0, -1) = วันที่
Application.EnableEvents = เท็จ
ตั้งค่า xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
ถ้า (ไม่ใช่ xRg คือไม่มีอะไร) แล้ว
สำหรับแต่ละ xCell ใน xRg
xCell.Offset(0, -1) = วันที่
ต่อไป
End If
Application.EnableEvents = จริง
End If


เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า (Target.Count = 1) แล้ว
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("D:D")) คือ ไม่มีอะไร) แล้ว _
Target.Offset(0, -1) = วันที่
Application.EnableEvents = เท็จ
ตั้งค่า xRg = Application.Intersect(Target.Dependents, Me.Range("D:D"))
ถ้า (ไม่ใช่ xRg คือไม่มีอะไร) แล้ว
สำหรับแต่ละ xCell ใน xRg
xCell.Offset(0, -1) = วันที่
ต่อไป
End If
Application.EnableEvents = จริง
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

มีใครแนะนำรหัสเมื่อฉันป้อนตัวเลขในคอลัมน์ A และคอลัมน์ B และในคอลัมน์ CI เก็บสูตรเช่นคอลัมน์ A + คอลัมน์ B ตอนนี้ฉันต้องการรหัส vba ที่สามารถให้เวลาและวันที่ในคอลัมน์ D ทุกครั้งที่มีการเปลี่ยนแปลงคอลัมน์ C ไม่เมื่อใส่ตัวเลขในคอลัมน์ A และ B
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอให้เป็นวันที่ดี,
คำถามใดๆ เกี่ยวกับ Excel โปรดอย่าลังเลที่จะโพสต์ในฟอรัมของเรา: https://www.extendoffice.com/forum.html.
คุณจะได้รับการสนับสนุนเพิ่มเติมเกี่ยวกับ Excel จากผู้เชี่ยวชาญ Excel ของเรา
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี - ใหม่สำหรับ VBA - ฉันต้องการวนซ้ำรหัส - รหัส VBA: เติมวันที่ปัจจุบันในเซลล์โดยอัตโนมัติเมื่อมีการอัปเดตเซลล์ที่อยู่ติดกัน เพื่อที่ว่าหลังจากเซลล์ได้รับการอัปเดตด้วยวันที่แล้ว ให้พูดว่า "J:J" และอัปเดต K ด้วยวันที่แล้วทำอีก 2 ครั้ง ไม่แน่ใจว่าเป็น loop หรือ for? ขอขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่เป็นไร...ฉันลองคำตอบของ John ด้านล่างแล้วได้ผล - ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้รหัสนี้เพื่อเติมคอลัมน์อัตโนมัติ และตอนนี้ต้องการเติมคอลัมน์อัตโนมัติมากขึ้นตามวันที่ที่ป้อนลงในคอลัมน์ H กล่าวคือ เมื่อป้อนวันที่แล้ว ฉันสามารถเติมคอลัมน์อัตโนมัติเพื่อเพิ่มวันที่ 90, 60 และ 30 วันได้หรือไม่ ?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเทรซี่
รหัส VBA ต่อไปนี้สามารถช่วยคุณแก้ปัญหานี้ได้ ได้โปรดลองดู

แผ่นงานย่อยส่วนตัว_เปลี่ยน (ByVal กำหนดเป้าหมายเป็น Excel.Range)
Dim xRg เป็นช่วง xCell เป็นช่วง
Dim xRgAddress เป็นสตริง
xRgAddress = "ส:ส"
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า (Target.count = 1) แล้ว
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range(xRgAddress)) คือ Nothing) แล้ว
Target.Offset(0, 1) = วันที่ + 90
Target.Offset(0, 2) = วันที่ + 60
Target.Offset(0, 3) = วันที่ + 30
End If
Application.EnableEvents = เท็จ
ตั้งค่า xRg = Application.Intersect(Target.Dependents, Me.Range(xRgAddress))
ถ้า (ไม่ใช่ xRg คือไม่มีอะไร) แล้ว
สำหรับแต่ละ xCell ใน xRg
xCell.Offset(0, 1) = วันที่ + 90
xCell.Offset(0, 2) = วันที่ + 60
xCell.Offset(0, 3) = วันที่ + 30
ต่อไป
End If
Application.EnableEvents = จริง
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี. ฉันกำลังพยายามใช้ "เติมวันที่ปัจจุบันในเซลล์โดยอัตโนมัติเมื่อเซลล์ที่อยู่ติดกันอัปเดตด้วยรหัส VBA" ใช้งานได้กับชีต 1 แต่ฉันมีอีก 11 แผ่นงานที่ฉันต้องการโค้ดเพื่อใช้งาน กรุณาแนะนำ ฉันไม่เก่ง VBA เลย ดังนั้นฉันขอขอบคุณสำหรับความช่วยเหลือใด ๆ ที่ทำได้!

ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีเกวน
โปรดทำซ้ำขั้นตอนเพื่อคัดลอกรหัสไปยังแผ่นงานอื่น มันอาจจะน่าเบื่อ แต่ก็ได้ผล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันต้องการความช่วยเหลือ ฉันกำลังพยายามเติมวันที่ปัจจุบันลงในคอลัมน์ A หากมีการแก้ไขเซลล์ B ถึง N ออฟเซ็ตกำลังขว้างฉันออกไป สามารถเขียนโค้ดนี้เพื่อเติมวันที่ในคอลัมน์ A โดยอัตโนมัติได้หรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โจ hi,
รหัส VBA ด้านล่างสามารถช่วยคุณแก้ปัญหาได้ โปรดลองและขอขอบคุณสำหรับความคิดเห็นของคุณ

แผ่นงานย่อยส่วนตัว_เปลี่ยน (ByVal กำหนดเป้าหมายเป็น Excel.Range)
'ปรับปรุงโดย Extendoffice 20190924
Dim xRg เป็นช่วง xCell เป็นช่วง
Dim xInt เป็นจำนวนเต็ม
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า (Target.Count = 1) แล้ว
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("B:N")) คือ ไม่มีอะไร) แล้ว
Application.EnableEvents = เท็จ
xInt = Target.Row
Me.Range("A" & xInt).Value = Date
Application.EnableEvents = จริง
End If
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันสามารถตั้งค่าวันที่และเวลาที่จะเติมได้หรือไม่?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแอบบี
ในโค้ดด้านบนนี้ โปรดแทนที่บรรทัดนี้
"xCell.Offset(0, -1) = วันที่"
กับ
"xCell.Offset(0, -1) = Format(Now(), "yyyy-MM-dd hh:mm:ss")"
หวังว่าฉันจะช่วยได้ ขอบคุณสำหรับความคิดเห็นของคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
นี่ไม่ได้เพิ่มเวลาใน... มีวิธีอื่นอีกไหม?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณต้องเปลี่ยน 2 ตำแหน่ง หากคุณเห็นรหัสต้นฉบับ วันที่อยู่ที่ 2 ตำแหน่ง ให้เปลี่ยนทั้งคู่ด้วย Format(Now(), "yyyy-MM-dd hh:mm:ss")
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี มีวิธีทำให้คอลัมน์ (A) เติมข้อมูลวันที่โดยอัตโนมัติเมื่อป้อนค่าลงในเซลล์ในแถวเดียวกันหรือไม่
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีแฮร์รี่
รหัส VBA ด้านล่างสามารถช่วยคุณแก้ปัญหาได้ โปรดระบุช่วงให้มากที่สุดในรหัส ขอบคุณสำหรับความคิดเห็นของคุณ.

แผ่นงานย่อยส่วนตัว_เปลี่ยน (ByVal กำหนดเป้าหมายเป็น Excel.Range)
'ปรับปรุงโดย Extendoffice 20191017
Dim xRg เป็นช่วง xCell เป็นช่วง
Dim xInt เป็นจำนวนเต็ม
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า (Target.Count = 1) แล้ว
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("B:BP")) ไม่มีอะไร) แล้ว
Application.EnableEvents = เท็จ
xInt = Target.Row
Me.Range("A" & xInt).Value = Date
Application.EnableEvents = จริง
End If
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันคิดว่าจำเป็นต้องเปลี่ยนแปลงบรรทัดที่ 7 เช่นกัน...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มีใครรู้ว่ามีวิธีเติมและล็อคอัตโนมัติเพื่อป้องกันไม่ให้ผู้ป้อนข้อมูลเปลี่ยนวันที่หรือไม่? เมื่อฉันล็อคเซลล์และปกป้องเอกสาร เซลล์จะไม่ถูกเติมเลย
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันไม่ต้องการป้อนวันที่แต่เป็นค่าคงที่ในเซลล์ เช่น ตัวเลขหรือสตริงข้อความ โปรดแนะนำการเปลี่ยนแปลงรหัสเหมือนกัน
ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี หากคุณต้องการป้อนตัวเลข โปรดแทนที่ข้อความ วันที่ กับ จำนวน ในรหัสโดยตรง สำหรับการป้อนสตริงข้อความ โปรดแทนที่ text วันที่ ในรหัสด้วย "คุณสตริงข้อความ" (รวมเครื่องหมายคำพูดคู่)
แผ่นงานย่อยส่วนตัว_เปลี่ยน (ByVal กำหนดเป้าหมายเป็น Excel.Range)
'ปรับปรุงโดย Extendoffice 2020 / 09 / 28
Dim xRg เป็นช่วง xCell เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า (Target.Count = 1) แล้ว
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("B:B")) คือ Nothing) แล้ว _
Target.Offset(0, -1) = "a text string" 'หรือป้อนตัวเลขโดยตรง
Application.EnableEvents = เท็จ
ตั้งค่า xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
ถ้า (ไม่ใช่ xRg คือไม่มีอะไร) แล้ว
สำหรับแต่ละ xCell ใน xRg
xCell.Offset(0, -1) = "a text string" 'หรือป้อนตัวเลขโดยตรง
ต่อไป
End If
Application.EnableEvents = จริง
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันกำลังป้อนรหัสนี้ในสมุดงาน excel ของฉัน และไม่มีอะไรเกิดขึ้น ใครก็ได้โปรดช่วย? ตามหลักการแล้ว ฉันต้องการเมื่อบางสิ่งถูกใส่ลงในคอลัมน์ A เวลาจะถูกใส่ลงในคอลัมน์ B
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี chapo ลองรหัสด้านล่าง หวังว่าฉันสามารถช่วย แผ่นงานย่อยส่วนตัว_เปลี่ยน (ByVal กำหนดเป้าหมายเป็น Excel.Range)
'ปรับปรุงโดย Extendoffice 2020 / 10 / 12
Dim xRg เป็นช่วง xCell เป็นช่วง
เกี่ยวกับข้อผิดพลาดต่อไป
ถ้า (Target.Count = 1) แล้ว
ถ้า (ไม่ใช่ Application.Intersect(Target, Me.Range("A:A")) ไม่มีอะไร) แล้ว _
Target.Offset(0, 1) = เวลา
Application.EnableEvents = เท็จ
ตั้งค่า xRg = Application.Intersect(Target.Dependents, Me.Range("A:A"))
ถ้า (ไม่ใช่ xRg คือไม่มีอะไร) แล้ว
สำหรับแต่ละ xCell ใน xRg
xCell.Offset(0, 1) = เวลา
ต่อไป
End If
Application.EnableEvents = จริง
End If
ย่อยสิ้นสุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี ฉันกำลังใช้รหัสของคุณเป็นข้อมูลอ้างอิง อยากจะถามว่าเป็นไปได้ไหมที่จะมีดังต่อไปนี้:1. ป้องกันรายการวันที่ซ้ำกัน2 มีอินพุตมาโคร 2 รายการพร้อมกัน: Target.Offset(0,-1), Target,Offset(0,1)3 เป็นไปได้ไหมที่จะแทรกรูปภาพลงในเซลล์โดยอัตโนมัติ?
กำลังพยายามคิดออกเอง แต่ไม่พบแหล่งข้อมูลออนไลน์ที่สามารถช่วยฉันได้
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี สูตรนี้ใช้ดีมาก อย่างไรก็ตาม มีวิธีการตั้งค่าให้อัปเดตเฉพาะเซลล์ในคอลัมน์ A หากว่างเปล่าหรือไม่  
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี Matt ขอโทษ ฉันไม่ค่อยเข้าใจสิ่งที่คุณหมายถึง คุณช่วยระบุคำถามให้เจาะจงมากขึ้นหรือให้ภาพหน้าจอของสิ่งที่คุณพยายามทำได้ไหม
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL