hehehe...
[oalah mbok yao di copas-ken hasil gantinya dimari kan ya enak mbayanginnya]
masih ingat baris kode yang ada bunyi Now (hasilpenggantian Time) tadi.
Coba ganti menjadi :
Range("a1").value=Now
lalu atur format cellnya di A1 sesuai kebutuhan.
script miss Jan membatasi diri untuk tulis sesuatu kalau cell D2 kebawah
yang berubah nilai
kalau pengen nulis di A1 si saat ini tersebut (Now) akibat ada pengubahan
nilai dimana saja, berarti pembatas dari miss Jan dihapus.
(ijin dihapus ya miss Jan)
bagian yang dihapus bagian ini :
if .column=4 blablabla
dan baris
end if
pertama setelah baris penulisan tadi.
Nah, karena sudah ndak dibatasi lagi, maka bisa jadi penulisan di A1 akan
membuat masalah baru karena termasuk kegiatan menulis data juga. Maka
sebelum baris kode penulisan (yang baris =Now tadi) diberi :
Application.enableevents = FALSE
lalu di baris sesudah kode penulisan diberi :
Application.enableevents = TRUE
Perintah Application.enableevents ini digunakan untuk mengatur status
tentang boleh (TRUE) tidaknya (FALSE) suatu prosedur event dijalankan oleh
Excel.
Wassalam,
Kid.
2013/5/3 Amri Salman Rizal <[email protected]>
> **
>
>
> oke berhasil Mr Kid,, Terima kasih,,
> sekarang jika saya ingin waktu update tersimpan di salah satu cell,
> misalkan A1
> dan data yang berubah bisa acak di cell mana saja, apa yang harus saya
> ubah Mr. Kid??
>
>
> On 5/3/2013 1:40 PM, Mr. Kid wrote:
>
>
> Coba bagian script berbunyi Time diganti dengan Now
>
> Wassalam,
> Kid.
>
>
>
>
> 2013/5/3 Amri Salman Rizal <[email protected]>
>
>>
>>
>> salam,
>>
>> maaf nyelip ya Ms Jan dan Pak Yan,
>> saya tertarik sama topik ini,
>> saya coba format waktunya ditambahkan dengan tanggal yang asalnya "hh:mm
>> AM/PM" menjadi "dd-mmm-yy hh:mm".
>> nah, untuk format tanggal dan jam nya sudah sesuai keinginan, hanya saja
>> tanggal yang muncul bukan tanggal hari ini, melainkan 30-Dec-99.
>> entah mungkin saya yang kurang ilmu atau memang kurang ilmu, jadi mohon
>> pembelajarannya ya rekan2.
>> terima kasih.
>>
>>
>> -------- Original Message -------- Subject: Re: [belajar-excel] Isi
>> data waktu otomatis saat pengetikkan Date: Fri, 3 May 2013 10:52:37
>> +0700 From: Jan Raisin
>> <[email protected]><[email protected]> Reply-To:
>> [email protected] To: [email protected]
>>
>>
>>
>> ups.. maaf, ada yang terlewat
>>
>> 6. save as file tersebut sebagai excel macro-enabled workbook atau
>> excel binary workbook (ekstensi .xlsm atau .xlsb pada excel 2007 ke atas)
>>
>> # sampaikan masalah yang sering anda temui saat menggunakan Excel pada
>> pooling berikut
>>
>> http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
>>
>> Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
>> berharga untuk Be-Exceler yang lain
>>
>> Wassalam,
>>
>> -Miss Jan Raisin-
>>
>> *>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan
>> Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
>> pertanyaan yang diajukan;*
>> *>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
>> [email protected];*
>> *>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
>> dengan orang-orang yang sabar QS 2:153;*
>>
>>
>> Pada 3 Mei 2013 10.47, Jan Raisin <[email protected]> menulis:
>>
>>> kasus ini tidak bisa diselesaikan dengan formula, hanya bisa dengan
>>> menggunakan VBA
>>> coba cara berikut:
>>> 1. pada lembar kerja, tekan tombol [Alt] [F11] sehingga berpindah ke VBE
>>> (Visual Basic Editor)
>>> 2. pada VBA Project, double klik nama sheetnya
>>> 3. pindah ke layar sebelah kanan, pada dropdown, ganti General menjadi
>>> Worksheet
>>> 4. ganti even pada dropdown list menjadi Change
>>> 5. copas script berikut diatara script yang sudah terbentuk pada nomor 4
>>> di atas
>>>
>>> ' bekerja pada range yang diubah isinya
>>> With Target
>>>
>>> ' jika jumlah cell yang berubah = 1 maka
>>> If .Cells.Count = 1 Then
>>>
>>> ' jika kolom yang berubah = 4 (kolom D) dan nilai baris > 1
>>> (karena baris 1 = header) maka
>>> If .Column = 4 And .Row > 1 Then
>>>
>>> ' 1 kolom di sebelah kanan diisi dengan waktu perubahan
>>> ' dengan format cell "h:mm AM/PM"
>>> .Offset(, 1).Value = Format(Time, "h:mm AM/PM")
>>>
>>> ' akhir pengecekan letak baris dan kolom yang berubah
>>> End If
>>>
>>> ' akhir pengecekan dari jumlah kolom yang berubah
>>> End If
>>>
>>> ' akhir bekerja pada range yang berubah
>>> End With
>>>
>>> # sampaikan masalah yang sering anda temui saat menggunakan Excel pada
>>> pooling berikut
>>>
>>> http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
>>>
>>> Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
>>> berharga untuk Be-Exceler yang lain
>>>
>>> Wassalam,
>>>
>>> -Miss Jan Raisin-
>>>
>>> *>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan
>>> Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
>>> pertanyaan yang diajukan;*
>>> *>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
>>> [email protected];*
>>> *>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
>>> dengan orang-orang yang sabar QS 2:153;*
>>>
>>>
>>> Pada 3 Mei 2013 10.24, Yan Novianto <[email protected]> menulis:
>>>
>>>
>>>>
>>>> Be excel
>>>>
>>>> Pusing jk tidak bertanya
>>>>
>>>> Misalkan begini :
>>>>
>>>> Saya mengetikkan data di colom B2 nah mau saya setiap saya mengetikkan
>>>> data di colom B2 sampai ke bawah, maka secara otomatis di colom D2 sampai
>>>> ke bawah, otomatis teridi waktu keika saya sudah menekan enter
>>>> Saya pernah gunakan =if(B2="","",now()):
>>>> Kalo saya gunakan formula itu, akan secara otomatis sih muncul, tapi ya
>>>> otomatis juga berubah mwngikuti waktu yang berjalan hehehe
>>>> Tolong di bantu biar formula yg di gunakan bisa mengisi waktu otomatis
>>>> tapi tdk mengikuti update :-)
>>>>
>>>> Terimakasih
>>>>
>>>
>>>
>>
>>
>>
>
>
>
