Mungkin diubah menjadi : dim dblTB(1 to *2*) as double 'ganti yang *dibiru *dengan jumlah textbox yang diolah -- variable ini jadi wadah hasil kalkulasi For N = 1 To jmlbrs If rng.Cells(N, 3).Value = UserForm4.ComboBox11.Value And rng.Cells(N, 14).Value = UserForm4.Label31.Caption And rng.Cells(N, 17).Value = "Ditabung" Then dbltb(1) = WorksheetFunction.Sum(rng.Cells(N, 10), dbltb(1)) dbltb(2) = WorksheetFunction.Sum(rng.Cells(N, 13), dbltb(2))
'bla..bla... next n UserForm4.TextBox79.Value = format$( dbltb(1) , "#,###" ) 'atau format apa saja yang anda inginkan 'bla-bla Wassalam, Kid. 2012/1/29 Irwan didi <[email protected]> > ** > > > Dear Mr.Kid > > ini contoh scriptnya : > > UserForm4.TextBox79.Value = 0 > UserForm4.TextBox80.Value = 0 > Set rng = Sheets("database").Range("A1:A" & > WorksheetFunction.CountA(Sheets("database").Range("A:A"))) > jmlbrs = rng.Rows.Count > For N = 1 To jmlbrs > If rng.Cells(N, 3).Value = UserForm4.ComboBox11.Value And rng.Cells(N, > 14).Value = UserForm4.Label31.Caption And rng.Cells(N, 17).Value = > "Ditabung" Then > UserForm4.TextBox79.Value = Format(WorksheetFunction.Sum(rng.Cells(N, 10), > UserForm4.TextBox79.Value), "#,##") > UserForm4.TextBox80.Value = Format(WorksheetFunction.Sum(rng.Cells(N, 13), > UserForm4.TextBox80.Value), "#,##") > > tidak semua parameter yang di ubah melalui combobox11 itu muncul error > message 1004, hanya 3 data saja untuk lainya ok, kira2 ada yang salah or > kurang tepat dengan script saya itu? > > Thanks & Regards > R. Irwan DS > > ------------------------------ > *From:* Kid Mr. <[email protected]> > *To:* [email protected] > *Sent:* Sunday, January 29, 2012 6:01 AM > *Subject:* Re: [belajar-excel] Error 1004 > > > Hai Irwan, > > Coba cek dulu penulisannya dan tipe data yang menjadi input parameter > fungsi terkait. Siapa tahu Anda memberikan inputan berupa data bertipe teks. > Sebaris atau dua baris kode yang di-paste-kan ke forum yang sebagai baris > penyebab error akan memudahkan BeExceller untuk segera turut andil > mencarikan penyebab dan solusinya. > > Wassalam, > Kid. > > On Sun, Jan 29, 2012 at 00:05, Irwan didi <[email protected]> wrote: > > ** > > Dear master, > > mohon info bagaimana mengatasi error 1004 unable to get sum property of > worksheetfunction class? > > salam > one > > > > > > >
