Coba juga cara ke 4, Cells(5, 11).FormulaR1C1 = "=Sum(RC[-6] : RC[-3])"
Salam, HK ________________________________ From: "[email protected]" <[email protected]> To: [email protected] Sent: Monday, 15 April 2013, 10:58 Subject: Re: [belajar-excel] Menjumlahkan dengan R1C1 style dengan parameter yang kita berikan Alhamdulillahi Robbil Alamin. Terima kasih Mr. Kid dan Miss. Jan atas jawaban yang memuaskan. Semoga Allah SWT membalas kebaikan Mr dan Miss berdua dengan pahala yang jauh lebih baik. Ini modif dari file saya yang sudah berhasil. Sekedar info, sebelum saya lempar ke milis, saya sudah coba berjam-jam tapi tidak berhasil. Terima kasih sekali lagi. Wassalam, Tio "Mr. Kid" <[email protected]> Sent by: [email protected] 04/15/2013 09:57 AM Please respond to belajar-excel To: BeExcel <[email protected]> cc: Subject: Re: [belajar-excel] Menjumlahkan dengan R1C1 style dengan parameter yang kita berikan Pada prosedur : Private Sub cmdJml2_Click() Dim xFormula, xFormula2, xFormula3, xFormula4 As Integer xFormula = RC & Cells(5, 5).Column xFormula2 = RC & Cells(5, 8).Column xFormula3 = RC & Cells(5, 5).Row xFormula4 = RC & Cells(5, 8).Row Cells(5, 11).FormulaR1C1 = "=Sum(R" & xFormula3 & "C" & xFormula: R" & xFormula4 & "C " & xFormula2)" End Sub 1. deklarasi berbunyi : Dim xFormula, xFormula2, xFormula3, xFormula4 As Integer menghasilkan variabel : xFormula, xFormula2, xFormula3memiliki tipe data Variant xFormula4 memiliki tipe data Integer jika ingin semua variabel memiliki tipe data Integer, deklarasikan dengan : Dim xFormula as integer, xFormula2 as integer, xFormula3 as integer, xFormula4 As Integer 2. variabel bernama RC dalam baris-baris : xFormula = RC & Cells(5, 5).Column xFormula2 = RC & Cells(5, 8).Column xFormula3 = RC & Cells(5, 5).Row xFormula4 = RC & Cells(5, 8).Row memiliki tipe data variant dan tidak ada isinya (empty) karena seluruh variabel xFormula sudah dideklarasikan dengan cara baru di nomor 1 pasti memiliki tipe data Integer, maka pengisian nilai variabel xFormula adalah : xFormula = Cells(5, 5).Column xFormula2 = Cells(5, 8).Column xFormula3 = Cells(5, 5).Row xFormula4 = Cells(5, 8).Row 3. kesalahan penulisan data string yang akan dimasukkan dalam properti bernama Formula milik suatu cell di baris script : Cells(5, 11).FormulaR1C1 = "=Sum(R" & xFormula3 & "C" & xFormula: R" & xFormula4 & "C " & xFormula2)" dimana : Cells(5, 11).FormulaR1C1adalah benda disisi kiri tanda sama dengan (=) yang berarti akan diisi sesuatu. dan bunyi : "=Sum(R" & xFormula3 & "C" & xFormula: R" & xFormula4 & "C " & xFormula2)" terletak di sisi kanan sama dengan (=) yang berarti sebagai nilai data yang akan dimasukkan (disimpan) dalam wadah disisi kiri sama dengan (=) dan bagian ini salah dalam penulisannya. misal bunyi formula di dalam cell (jika Anda tulis di worksheet pada sebuah cell) berbunyi : =SUM(R5C5:R5C8) maka tahap paling mudah dalam menuangkannya dibaris pengisian formula dalam VBA adalah : 1. tulis barisnya dengan formula yang apa adanya lebih dulu : (perhatikan perbedaan warnanya) Cells(5, 11).FormulaR1C1 = =SUM(R5C5:R5C8) 2. karena bunyi formula apa adanya harus dimasukkan kedalam suatu wadah sebagai nilai data string (teks), maka perlu diapit petik dua (") : Cells(5, 11).FormulaR1C1 = "=SUM(R5C5:R5C8)" 3. setiap angka dibelakang R atau dibelakang C akan diganti dengan suatu variabel, maka data string berbunyi "=SUM(R5C5:R5C8)" harus dipisah-pisah, sehingga setiap angka memiliki jarak dari yang bukan angka, menjadi : Cells(5, 11).FormulaR1C1 = "=SUM(R 5 C 5 :R 5 C 8 )" 4. Setiap sebelumsebuah angka diberi notasi petik dua diikuti spasi lalu ampersand diakhiri spasi [ " & ] dengan petik dua rapat ke teks dikiri angka menjadi : Cells(5, 11).FormulaR1C1 = "=SUM(R" & 5 C" & 5 :R" & 5 C" & 8 )" 5. Setiap sesudahsebuah angka diberi notasi spasi diikuti ampersand lalu spasi diakhiri petik dua [ & " ] dengan petik dua rapat ke teks dikanan angka menjadi : Cells(5, 11).FormulaR1C1 ="=SUM(R" & 5 & "C" & 5 & ":R" & 5 & "C" & 8 & ")" 6. Ganti setiap angka dengan nama variabel yang sesuai, misal : A. angka 5 pertama dari kiri diganti variabel bernama xFormula3 B. angka 5 kedua dari kiri diganti variabel bernama xFormula C. angka 5 ketiga dari kiri diganti variabel bernama xFormula4 D. angka 8 diganti variabel bernama xFormula2 menjadi : (sebagai 1 baris utuh) Cells(5, 11).FormulaR1C1 ="=SUM(R" & xFormula3& "C" & xFormula& ":R" & xFormula4& "C" & xFormula2& ")" 7. Didapat hasil akhir berbunyi : Cells(5, 11).FormulaR1C1 ="=SUM(R" & xFormula3 & "C" & xFormula & ":R" & xFormula4 & "C" & xFormula2 & ")" Untuk kasus serupa lainnya dalam topik ini juga demikian. Wassalam, Kid. 2013/4/15 <[email protected]> Dear BeExceller, Mau tanya, bagaimana menjumlahkan range tertentu dengan R1C1 style dengan parameter yang kita berikan. Contoh terlampir : Terima kasih, Wassalam, Tio
