Waalaikumussalam Wr. Wb.
Misal punya formula di cell D27 yang bisa di-copy ke range D27:AH35.
Cara pasang formula di range D27:AH35 dengan VBA adalah :
sheets("nama sheetnya").range("d27:ah35").formula = "=formulanya"
Cara membuat sebuah sheet agar dikalkulasi :
sheets("nama sheetnya").calculate
Cara mem-values-kan range berformula tadi :
sheets("nama sheetnya").range("d27:ah35").value = sheets("nama
sheetnya").range("d27:ah35").value
Tiga baris itu disusun dalam sebuah prosedur, misal namanya PasangFormulaKu.
Public Sub PasangFormulaKu()
'semua perintah kerja diletakkan disini
'misal yang 3 perintah di-biru diatas
End Sub
Prosedur inilah yang sering disebut Macro.
Prosedur ini diletakkan pada sebuah module (lembar penulisan bahasa
pemrograman).
Cara buat module :
1. Ke VBE (tekan ALT F11)
2. menu Insert -> pilih Module
3. mulai buat prosedur (baris Public bla sampai End bla)
4. tulis baris-baris perintah (misal yang biru) didalam prosedur
5. kembali ke Worksheet (tekan ALT F11)
6. save as workbook (tekan ALT F A) -> beri nama -> ganti save as type
dengan .xlsm atau .xlsb atau .xls
7. coba jalankan prosedur (Macro) dengan tekan ALT F8 -> pilih nama
prosedurnya (misal PasangFormulaKu) -> tekan Run
Jika ingin proses menjalankannya dengan cara klik sebuah shape :
1. buat sebuah shape di worksheet, misal Insert -> Shape -> pilih Rectangle
-> gambar kotak di worksheet
2. klik kanan shape yang baru dibuat -> pilih Assign Macro -> pilih nama
prosedurnya (misal PasangFormulaKu)
3. klik sebuah cell -> kemudian coba klik si shape
Wassalam,
Kid.
2012/10/22 Titis Ardiyana Wulandari <[email protected]>
> **
>
>
> Assalamu'alaikum
>
> Mr. Kid,
> inshaAllah saya sudah paham dengan sumproduct yg Bapak jelaskan, sekarang
> saya mau melangkah memasuki VBA, minta penjelasan mengenai rumus terkait
> bila menggunakan VBA?
>
> Terimakasih banyak
>
> ------------------------------
> *From:* Kid Mr. <[email protected]>
> *To:* [email protected]
> *Sent:* Thursday, August 30, 2012 8:23 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Masya Allah,
> ternyata lampirannya ketinggalan...
>
> Maafkan daku...
>
> Wassalam,
> Kid.
>
> 2012/8/30 Kid Mr. <[email protected]>
>
> mbak Wulan,
>
> file terlampir tidak menggunakan VBA untuk menyusun rekap tersebut.
> Perhatikan susunan formulanya, peletakan tanda $ dalam merujuk cell,
> penyusunan nilai-nilai kriteria dalam dataset output.
>
> Jika sudah memahami duduk perkara cara mengkalkulasi dengan formula, maka
> formula tersebut bisa dipasang dengan VBA seperti contoh yang pernah
> dilampirkan tempo hari.
>
> Wassalam,
> Kid.
>
>
> 2012/8/30 Titis Ardiyana Wulandari <[email protected]>
>
> **
>
> Pak Hendrik & Pak Kid,
>
> ini contoh nya, saya ingin menggunakan rumus seperti contoh diatas, tapi
> menggunakan macro bagaimana penulisan rumusnya?
>
> terimakasih banyak sebelumnya..
>
> ------------------------------
> *From:* hendrik karnadi <[email protected]>
> *To:* "[email protected]" <[email protected]>
> *Sent:* Wednesday, August 29, 2012 10:57 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Dear Mbak Titis,
> Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.
>
> Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat
> terstruktur, mis,
> If Condition Then
> bla bla bla
> Else
> la la la
> End If
>
> Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda
> maksud dengan :
> "apakah bisa rumus diatas di sum dengan rumus dibawah ini"
>
> Salam,
> Hendrik Karnadi
>
> ------------------------------
> *From:* Titis Ardiyana Wulandari <[email protected]>
> *To:* "[email protected]" <[email protected]>
> *Sent:* Wednesday, 29 August 2012, 22:12
> *Subject:* Re: [belajar-excel] MACRO
>
>
> terimakasih untuk jawabannya Mr.Kid,
> tanya lagi..
> kalau saya punya rumus dibawah ini:
>
> Sub coba1()
>
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F7") = "D" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F7") = "N" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 0
> End If
> End If
> End If
> End Sub
>
> apakah bisa rumus diatas di sum dengan rumus dibawah ini:
>
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F8") = "D" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> If Range("F8") = "N" Then
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 1
> Else
> Range("F135").Select
> ActiveCell.FormulaR1C1 = 0
> End If
> End If
> End If
>
> ------------------------------
> *From:* Kid Mr. <[email protected]>
> *To:* [email protected]
> *Sent:* Wednesday, August 29, 2012 9:41 PM
> *Subject:* Re: [belajar-excel] MACRO
>
>
> Koreksi Mods...
> Formula :
> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
> adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula
> :
> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
> dan di-copy ke cell lain.
>
> Wassalam,
> Kid.
>
>
> 2012/8/29 Titis Ardiyana Wulandari <[email protected]>
>
> **
>
> salam kenal.
>
> terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
> langsung saja.
> saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
> =SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>
> bagaimana menuliskanya di macro?
> dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana
> menuliskannya di macro?
>
> terimaksih banyak atas bantuannya
>
> --- Mods ---
> Selamat bergabung dengan milis Belajar-Excel.
>
> File lampiran dapat membantu BeExceller yang ingin turut berbagi
> alternatif solusi.
>
> Dari penjelasan mbak Wulan di atas :
> Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan
> dipasang pada cells lain yang pada range A3:G10.
>
> Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu
> penyusunan alternatif solusi. Jika formula di A3 disalin ke G10 akan
> menjadi :
> =SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
> Apakah benar formula di G10 akan berbunyi demikian ?
> ------------
>
>
>
>
>
>
>
>
>
>
>
>
>
>
