อินพุตเซลล์เพื่อเรียกแมโครในเซลล์ที่อยู่ติดกัน
ปัญหา
ฉันมีสถานการณ์ที่ฉันต้องการแบบอัตโนมัติ สถานการณ์มีดังนี้
หากฉันป้อนค่าในเซลล์ใด ๆ ในคอลัมน์ใดคอลัมน์หนึ่งฉันต้องการให้เวลาของระบบในเซลล์ที่อยู่ติดกัน ขณะนี้ฉันได้ใช้คำสั่งนี้ในแมโครเพื่อทำ แต่เป็นกระบวนการแบบแมนนวล (ActiveCell.Value = Time) และฉันต้องคลิกที่เซลล์ที่อยู่ติดกันแล้วกดปุ่มทางลัดเพื่อทำมันทุกครั้ง
ตัวอย่าง:
หากฉันป้อน 123 ในเซลล์ A2 ดังนั้นฉันต้องการเวลาของระบบ (เช่น 6:59:33 PM) ในเซลล์ B2 ฉันต้องการป้อนค่าในคอลัมน์ 'A' ด้านล่างอีกรายการหนึ่งโดยเวลาของระบบจะถูกป้อนลงไปที่สองในเซลล์ที่อยู่ติดกันในคอลัมน์ 'B' โดยอัตโนมัติ เป็นไปได้หรือไม่ถ้ามีใครสามารถช่วยฉันได้
สารละลาย
ใช้รหัสนี้บนแผ่นงานที่คุณต้องการให้ทำงาน (คลิกขวาที่แท็บแผ่นงานคลิกที่รหัสดู):
แผ่นย่อยส่วนบุคคล _ เปลี่ยน (เป้าหมายเป็นช่วงเป็นช่วง) ActiveCell.Offset (-1, 1) = ย่อยสิ้นสุดเวลา
เมื่อใดก็ตามที่คุณใส่อะไรลงในเซลล์และกด ENTER เวลาของระบบปัจจุบันจะถูกใส่ในเซลล์ที่อยู่ติดกันทางด้านขวา
บันทึก
โปรดทราบว่าคุณต้องยืนยันรายการของคุณโดยกดปุ่ม ENTER และไม่ใช้ลูกศรหรือ TAB
ขอบคุณ Trowa สำหรับเคล็ดลับนี้ในฟอรัม