Siang Bu, Kalau boleh add in nya bisa dibikin untuk range secara horisontal (Kolom) tidak cuma vertikal (baris). Contoh range nya B3:G3. Terima kasih banyak atas penjelasannya.
Thank's Yohanes --- On Fri, 1/15/10, siti Vi <[email protected]> wrote: From: siti Vi <[email protected]> Subject: Re: ]] XL-mania [[ Bagaimana cara break down penjumlahan? To: "yohanes tannu" <[email protected]> Date: Friday, January 15, 2010, 4:06 AM mungkin cara mengENTERNYA salah array formula ada dua jenis: 1. ditulis di satu cell 2. ditulis di bannyak cell (range) sekaligus. menulis array formula di beberapa cells sekaligus yaitu di B3:B8 (workbook dari siti) itu ada cara yg khas... select dulu B3:B8 atau boleh lebih misal B3:B10 tulis formulanya di FORMULA BAR: =SUKU(A3) jangan di enter dulu tekan Ctrl , dengan ibu jari tangan kiri; tahan tekan Shift, dengan jari telunjuk tangan kiri; tahan tekan ENTER !! ----- Original Message ----- From: yohanes tannu To: siti Vi Sent: Friday, January 15, 2010 11:04 AM Subject: Re: ]] XL-mania [[ Bagaimana cara break down penjumlahan? Siang Bu, saya sudah mencoba untuk menjadikan add in tapi gagal, bahkan membuat rumus di cell B22 "=SUKU(A22)" dengan cell A22 berisi formula "=12+5+72-24*9/5" langsung di file ctv_UDF_Suku.xls tetapi hasilnya di cell B22 adalah "12" terus di B23 dan seterusnya tidak muncul angka sama sekali. kalau boleh minta petunjuk lebih detail lagi bagaimana caranya agar add in ini bisa dipakai. maaf kalau merepotkan ! Thank's Yohanes --- On Tue, 1/12/10, siti Vi <[email protected]> wrote: From: siti Vi <[email protected]> Subject: Re: ]] XL-mania [[ Bagaimana cara break down penjumlahan? To: "yohanes tannu" <[email protected]> Date: Tuesday, January 12, 2010, 2:02 PM mengapa pertanyaan ini tidak dikirim ke milis buatlah sebuah prosedur fungsi di module umum Function SUKU(D As Range) Dim Operators, Formo As String, i As Integer, sArr, nArr() Set D = D(1, 1) Operators = Split("+ - * / ^") If D.HasFormula Then Formo = Replace(D.Formula, "=", "") For i = 0 To UBound(Operators) Formo = Replace(Formo, Operators(i), "\") Next sArr = Split(Formo, "\") ReDim nArr(UBound(sArr)) For i = 0 To UBound(sArr) nArr(i) = Val(sArr(i)) Next i SUKU = WorksheetFunction.Transpose(nArr) Else SUKU = "" End If End Function kalau ingin dijadikan Add-In : workbooknya di Save-As UDF_Suku.XLA ----- Original Message ----- From: yohanes tannu To: [email protected] Sent: Tuesday, January 12, 2010 12:30 PM Subject: Re: ]] XL-mania [[ Bagaimana cara break down penjumlahan? Siang Bu, Maaf kalau mengganggu, kalau boleh saya minta add in nya yang sudah siap digunakan sebab saya tidak bisa membuatnya hanya tahu cara pakainya walaupun sudah dikasih formulanya tapi tetap tidak jadi. Sebagai tambahan apakah berlaku juga untuk pengurangan, perkalian atau pembagian ? Thanks, Yohanes
