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
>
>
>
code macro input formula otomatis_.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
