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 ? > ------------ > > > > > > > > > >
