Input sel untuk memanggil makro di sel yang berdekatan

Isu

Saya memiliki skenario yang saya ingin otomatis. Skenarionya adalah sebagai berikut

Jika saya memasukkan nilai di sel mana pun di kolom tertentu, saya ingin waktu sistem dimasukkan dalam sel yang berdekatan. Saat ini saya telah menggunakan perintah ini dalam makro untuk melakukannya, tetapi ini adalah proses manual (ActiveCell.Value = Waktu) dan saya harus mengklik sel yang berdekatan dan kemudian tekan tombol pintas untuk melakukannya setiap waktu.

Contoh:

Jika saya memasukkan 123 di sel A2, maka saya ingin waktu sistem (mis. 6:59:33 PM) ditangkap dalam sel B2. Saya ingin terus memasukkan nilai dalam kolom 'A' di bawah yang lain dengan waktu sistem secara otomatis dimasukkan ke yang kedua di sel yang berdekatan di kolom 'B'. Apakah ini mungkin, akan luar biasa jika seseorang dapat membantu saya.

Larutan

Terapkan kode ini pada lembar kerja yang Anda inginkan (klik kanan pada tab lembar kerja, klik pada kode tampilan):

 Sub Lembar Kerja Swasta_Perubahan (Rentang Target Sebagai ByVal) ActiveCell.Offset (-1, 1) = Sub Akhir Waktu 

Setiap kali Anda memasukkan sesuatu ke dalam sel dan menekan ENTER, waktu sistem saat ini diletakkan di sel yang berdekatan di sebelah kanan.

Catatan

CATATAN bahwa Anda harus mengonfirmasi entri Anda dengan menekan ENTER dan tidak menggunakan panah atau TAB.

Terima kasih Trowa untuk tip ini di forum.