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
*_hanya_*ke belajar-excel@yahoogroups.com
<mailto: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
<mailto: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
*_hanya_*ke belajar-excel@yahoogroups.com
<mailto: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
<mailto: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,
------------------------------------------------------------------------
