Wa’alaikum salam warhmatullaahi wa barakaatuh…
aku rubah sedikit fungsi nya menjadi
Public Function rumus_abc(a As Long, b As Long) As Double()
Dim rumusb As Double
Dim rumusc As Double
Dim rumusd As Double
rumus = a + b
rumusb = a - b
rumusc = a * b
If b = 0 Then
rumusd = 0
Else
rumusd = a / b
End If
Dim Hasil(4) As Double
Hasil(0) = rumus
Hasil(1) = rumusb
Hasil(2) = rumusc
Hasil(3) = rumusd
rumus_abc = Hasil
End Function
Jika input ada di cell A1 dan B1
di cell C1 =rumus_abc(A1,B1)
kemudian block C1:F1, tekan F2 lalu control+shift+enter.
semoga membantu
#Nang Agus, bulan mei aku mau mudik ke kudus, kopi darat di opor sunggingan
yukkkk
Wassalam
=zainul
From: [email protected] [mailto:[email protected]]
Sent: Monday, April 27, 2015 12:42 PM
To: BExcel
Subject: [belajar-excel] UDF 4 multiple Cell
Asalamualaikum warahmatullah.
Dear member B-Excel.
mohon bantuannya.
Dapatkah dibuat sebuah UDF yang hasilnya dapat diletakkan pada 4 cell?
misalnya saya pasang Rumus UDF di cell C1, nanti hasilnya ada di cell D1, E1,
F1.
Public Function rumus(a as long, b as long) as long
dim rumusb as long
dim rumusc as long
dim rumusd as long
rumus = a + b
rumusb = a - b
rumusc = a*b
rumusd = a/b
end function
bagaimana caranya agar rumusb diletakkan di D1, rumusc di E1 dan rumusd di F1
terima kasih
wasalamualaikum warahmatullah
