Mr Kid,
Ada beberapa Function dalam Worksheet, mis. Transpose, yang harus didahului 
dengan WorksheetFunction (ditulis WorksheetFunction.Transpose() ), sedangkan 
Replace (contoh Mr. Kid) tidak diahului dengan WorksheetFunction (pake $ cukup).


Pertanyaannya:
Waktu nulis VBA di VBE sheet, bagaimana kita mengetahui apakah suatu Function 
harus didahului dengan WorksheetFunction atau tidak atau harus pake $ atau 
tidak ?

Terima ksaih.

Salam,
HK



________________________________
 From: Mr. Kid <mr.nm...@gmail.com>
To: BeExcel <belajar-excel@yahoogroups.com> 
Sent: Thursday, 1 August 2013, 20:32
Subject: Re: [belajar-excel] Fungsi Excel dalam Macro
 


  
Hai Ahmad,

Ganti :
    Range("D" & lRow) = sht.Range("A2")
dengan 
    Range("D" & lRow).value = Replace$(sht.Range("A2") , "Laporan 
",vbnullstring)
(sorry, saya masuk aliran yang tidak suka menggunakan default property, 
agar tingkat ketertukaran dengan bahasa pemrograman lain bisa lebih 
tinggi karena mudah dikonversi ke dalam bahasa pemrograman lain)

Wassalam,
Kid.





2013/8/2 Ahmad Syaifullah Lubis <syaiful...@hotmail.com>

 
>  
>Mr De Premor & Excellers,
>Mohon dibantu ya,
>saya ingin belajar langsung praktek dari hasil macro Mr De Premor kirimkan 
>tempo hari mengenai rekap nama2 workbook.
>bagaimana ya cara mempergunakan fungsi excel di dalam macro.
>sebagai contoh : Mr De Premor menuliskan dalam macro sbb : Range("D" & lRow) = 
>sht.Range("A2") -> ini adalah untuk mengisi jenis laporan. Sehingga hasilnya 
>adalah "Laporan Mandiri".
>pertanyaannya : bagaimana caranya agar yang diisi jenis laporan itu hanyalah 
>nama banknya saja, jadi kata Laporan dibuang. bagaimana caranya agar fungsi 
>TRIM(RIGHT(D6;LEN(D6)-7)) yang akan membuang kata : "Laporan" dalam macro tsb. 
>Dengan kata lain saya tidak bisa menggabungkan penulisan macro dari Range("D" 
>& lRow) = sht.Range("A2") digabungkan dengan funsi dari 
>TRIM(RIGHT(D6;LEN(D6)-7)) yang mana yang saya tahu fungsi dari trim(right(len) 
>akan membuang 7 karakter di depannya.
>Terima Kasih.
>ASL.
>
>
>

 

Kirim email ke