problem solved
terima kasih tunggu pertanyaan soal makro berikutnya.(lagi mulai belajar).


wassalam


________________________________
Dari: Haps <[email protected]>
Kepada: [email protected]
Dikirim: Minggu, 30 Oktober 2011 19:18
Judul: Re: [belajar-excel] menginput formula otomatis dengan macro


  
mungkin seperti ini

** ditulis di Module sheet1 (sheet di mana data akan dituliskan)
** memanfaatkan Event_Sheet_Change (makro dijalankan otomatis jika 
   ada cell (Target) berubah nilainya

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Cells.Count = 1 Then
      If Len(Target(1, 1).Value) > 0 Then
         If Not Target(1, 1).HasFormula Then
            Application.EnableEvents = False
            Target(2, 1).Formula = "=jumlah"
            Target(3, 1).Formula = "=jumlah"
            Application.EnableEvents = True
         End If
      End If
   End If
End Sub

di sini agak berbeda dengan permintaan pak ghozi
(*) ketika terjadi event, makro bukan menuliskan KONSTANTA (nilai tetap / bukan 
formula)
    melainkan menulisan FORMULA (dimana kebetulan formula berupa NAME of 
formula)

pembatasan yg sengaja dibuat atas jalannya makro
- jika cell yg berubah saat ni hanya cell tunggal 
     (perbahan rangea sekaligus tidak mengotomatiskan makro)
- cell yg berubah berisi data 
     (jika len = 0, makro tidak dijalankan)
- cell y gberubah tidak berisi formula 
     (jika cell yg berubah karena diisi formula, makro tidak dijalankan)
- tidak ada pembatasan area 
      (di manapun ada perubahan di sheet1) makro akan jalan
     (kecuali jikatercegah oleh t syarat di atas)



2011/10/30 ghozi alkatiri <[email protected]>

 
>saya mempunyai konstanta formula yang saya beri nama" jumlah "yang berfungsi 
>untuk menghitung jumlah lembar barang dan jumlah berat barang dari deret nilai 
>baris (range) data.  
>bagaimana code makro untuk menginput  konstanta formula tersebut secara 
>otomatis pada baris ke satu dan ke dua setelah input data.
>
>misalkan saya menginput data pada cell A1 maka setelah enter  otomatis cell A2 
>dan A3 akan berisi konstanta formula 
>tersebut.
>dan ketika saya lanjutkan dengan mereplace A2 yang sudah berisi formula 
>sebelumnya (hasil macro) dengan intput manual maka secara otomatis  cell A3 
>dan A4 akan berisi konstanta formula demikian pula seterusnya .
>dan ini akan berlaku relatif di manapun kolom dan barisnya berada 
>
>untuk lebih jelasnya lihat attachment 
>
>wassalam
>
>Ghozi
 Alkatiri
>
>
>
 

Kirim email ke