Coba ke VBE -> double click nama sheet di VBProject Explorer -> di code window -> combobox object pilih Worksheet -> combobox prosedur dan event pilih Change -> terbentuk blok prosedur sub event -> copas script ke dalam blok tersebut.
Wassalam, Kid. 2013/10/9 adendum...@yahoo.com <adendum...@yahoo.com> > ** > > > Dear Mr. kid saya coba aplikasikan rumus VBA ke data tanggal, tapi karena > saya masih awam di VBA apa yang saya lakukan? saya coba untuk mencopy paste > rumus dari mr. Kid ke VBA Sheet, tapi tidak terjadi perubahan, yang saya > butuhkan adalah created date, rumus today akan terus bergerak sesuai dengan > tanggal hari ini, sementara yang saya perlukan hanya mengunci ketika > tanggal dimana saya menginput. > > Terima kasih > > Salam Hormat > > > Aden S > > Sent from Windows Mail > > *From:* Mr. Kid > *Sent:* October 9, 2013 12:32 AM > *To:* BeExcel > > *Subject:* Re: [belajar-excel] Tanggal Automatis > > > > eh lupa... > > Tambahan : > jika last modified yang dibutuhkan adalah hanya terhadap kolom A sampai E > saja, maka tetap VBA yang menulis di kolom F yang dipakai, dan formula Pak > Hendrik digunakan untuk kepentingan lainnya. > > Wassalam, > Kid. > > > > 2013/10/9 Mr. Kid <mr.nm...@gmail.com> > >> hehehehe... >> >> Case-nya dibuka lagi ya... >> >> Yang ini pakai VBA. >> Memanfaatkan event worksheet change, jadi letakkan di event worksheet >> change sheet input tersebut. >> Misal yang akan menjadi trigger untuk menulis tanggal adalah kolom A >> sampai E, lalu tanggal ditulis di kolom F sebagai last modified dan ditulis >> di G sebagai created date. Baris yang boleh diinput setelah baris header >> yang ada di baris 1 (alias mulai baris 2 excel). Jadi, tanggal pertama kali >> isi ada di kolom G. Editan terakhir dilakukan oleh user ditunjukkan tanggal >> di kolom F. Nah tanggal di kolom F ini bisa juga diisi dengan formula dari >> Pak Hendrik. >> >> Tapi, jika tanggal yang diinginkan adalah created date, maka VBA yang >> menulis di kolom G yang digunakan. >> >> application.enableevents=false >> with target >> if .count=1 then 'cuma 1 cell yang berubah isi >> if .row>1 then 'yang berubah dibaris 2 keatas >> if .column<6 then 'yang berubah adalah salah satu dari kolom >> A sampai E >> if len(activesheet.cells(.row,6).value)=0 then 'kolom F >> nya masih kosong, maka tulis created date di kolom G >> activesheet.cells(.row,7).value=date >> 'tulis created date >> endif >> activesheet.cells(.row,6).value=date 'tulis >> last modified (bisa dihapus dan di cell diisi formula Pak Hendrik) >> endif >> endif >> endif >> end with >> application.enableevents=true >> >> *** sorry ya kalau maksa dikit untuk dibuka lagi *** >> coba tanggal komputer diganti menjadi 3 hari lalu, lalu ubah nilai >> sembarangan di sheet lain. Kemudian lihat efeknya di sheet input. >> >> Wassalam, >> Kid. >> >> >> 2013/10/9 adendum...@yahoo.com <adendum...@yahoo.com> >> >>> ** >>> >>> >>> >>> Terima kasih Pak Hendrik atas pencerahannya >>> >>> Case Closed >>> >>> Sent from Windows Mail >>> >>> *From:* hendrik karnadi >>> *Sent:* October 8, 2013 7:56 PM >>> >>> *To:* belajar-excel@yahoogroups.com >>> *Subject:* Re: [belajar-excel] Tanggal Automatis >>> >>> >>> >>> >>> Bisa. >>> Coba ketik formula ini di sel D5 >>> =IF(ISNUMBER(C5),TODAY(),"") >>> >>> Salam, >>> HK >>> >>> ------------------------------ >>> *From:* "adendum...@yahoo.com" <adendum...@yahoo.com> >>> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com> >>> *Sent:* Tuesday, 8 October 2013, 19:12 >>> *Subject:* [belajar-excel] Tanggal Automatis [1 Attachment] >>> >>> >>> Dear Exceller, >>> >>> Apakah di excel dapat membuat rumus secara otomatis untuk pengisian >>> tanggal, sebagai contoh di kolom pembayaran kita input 50rb, di kolom >>> tanggal akan terisi otomatis disaat kita mengisi kolom pembayaran, untuk >>> lebih detailnya saya lampirkan contoh table. >>> >>> >>> Terima kasih atas bantuannya >>> >>> Salam Hormat >>> >>> Aden S >>> >>> Sent from Windows Mail >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >>> >> >> > > > >
