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

 

Kirim email ke