Trimakasih pencerahannya mas DP
Setelah diputer2 sak mumete akhirnya ketemu juga, alhasil pake modul terbilang
menjadi
Frm1.lblTerbilang.Caption =
TERBILANG(Application.WorksheetFunction.Sum(.Range("h2:h50")))
Trimakasih sekali lagi hehehe
Wassalam,
________________________________
From: De Premor <d...@premor.net>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 28, 2013 9:42 PM
Subject: Re: [belajar-excel] Fungsi Sum pada VBA
Dh,
Perkenanken saya menjelasken sak bisone ya, fungsi2 pada
application.worksheetfunction yang ada hanyalah fungsi2 builtin
punya excel yang digunakan worksheet, bukan pada vba, jadi fungsi2
UDF tidak akan nongol di listnya worksheetfunction itu.
Jadi solusinya, jika fungsi terbilang masih dalam 1 ffile excel
dengan yang sedang kita bahas saat ini, bisa langsung dipanggil
namanya saja, misal msgbox terbilang(100)
Jika berbeda file, solusi paling mudah ya dicopy saja ke file
sekarang, hehehe. baru dipanggil seperti cara diatas.
Rgds,
[dp]
Pada 28/06/2013 18:43, lapendosol opik menulis:
>Sekali lagi mohon bantuannya rekan2 Be-Excel menindak lanjuti pertanyaan
>tentang fungsi pada VBA
>Saya udah membuat fungsi TERBILANG dengan membuat module
baru
>Ketika dijalankan di workbook sih berfungsi sebagaimana
mestinya misal =TERBILANG(100)
>Tapi ketika dimasukkan ke VBA kok tidak muncul fungsi
TERBILANG nya ya?
>
>Frm1.lblTerbilang.Caption =
Application.WorksheetFunction.TE (ga muncul fungsi yang
udah dibuat)
>
>Sekali lagi mohon bantuannya
>Terimakasih
>Wassalam,
>
>
>
>
>
>
>________________________________
> From: Jan Raisin <miss.jan.rai...@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Friday, June 28, 2013 4:50 PM
>Subject: Re: [belajar-excel] Fungsi Sum pada VBA
>
>
>
>
>ups.. ada yang salah..
>Jan hari ini lagi agak error jadi salah menempatkan salam
>
>
>semoga scriptnya gak ikutan salah karena gak dites dulu..
>
>
>Wassalam,
>
>
>
>
>-Miss Jan Raisin-
>
>
> * Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake
> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member
> milis;
>
> * Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;
>
> * Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
> memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa
> on line setiap saat;
>
> * Semoga semangat berbagi dan membantu semakin meningkat di kalangan
> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
> اَمِين يَا رَبَّ الْعَالَمِيْن
>
>
>
>Pada 28 Juni 2013 16.41, Jan Raisin <miss.jan.rai...@gmail.com> menulis:
>
>Wassalamu'alaikum,
>>
>>
>>coba ubah scriptnya jadi begini:
>>
>>
>>with thisworkbook.sheets("bantuan2")
>> frm1.lblsubtotal.caption = _
>> application.worksheetfunction.sum(.range("h2:h50"))
>>end with
>>
>>
>>Wa'alaikumsalam wr. wb.,
>>
>>
>>
>>-Miss Jan Raisin-
>>
>>
>> * Untuk kepentingan belajar bersama, pertanyaan harap ditujukan hanyake
>> belajar-excel@yahoogroups.com bukan dikirim japri ke email pribadi member
>> milis;
>>
>> * Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
>> dengan orang-orang yang sabar QS 2:153;
>>
>> * Harap dipahami bersama bahwa solusi diberikan oleh Be-Exceller yang
>> memiliki waktu untuk on line, mengetahui solusi atas pertanyaan yang
>> ditanyakan, mau dan berani untuk membantu, tanpa mengharap imbalan dari
>> Thread Starter (TS) atau Post Starter (PS), selain itu Be-Excelller juga
>> memiliki kewajiban yang harus dipenuhi di dunia nyata jadi tidak selalu bisa
>> on line setiap saat;
>>
>> * Semoga semangat berbagi dan membantu semakin meningkat di kalangan
>> Be-Exceller dan menjadi amalan yang baik untuk tabungan di akhirat nanti.
>> اَمِين يَا رَبَّ الْعَالَمِيْن
>>
>>
>>
>>Pada 28 Juni 2013 16.11, lapendosol opik <lapendo...@yahoo.com> menulis:
>>
>>
>>
>>>Trimakasih Miss,
>>>Saya coba terapkan
tapi kayanya masih
salah dalam
penulisannya
>>>With
Application.WorksheetFunction
>>>Frm1.lblSubTotal.Caption
=
.Sum("bantuan2!H2:H50")
>>>End With
>>>
>>>
>>>
>>>Mohon dikoreksi Miss
>>>Terimakasih sekali lagi
>>>Wassalam,
>>>
>>>
>>>
>>>
>>>________________________________
>>>
>>
>
>
>
