File terlampir adalah contoh penggunaan UDF JoinText. Input parameter UDF yang bisa menerima array akan membuat UDF tersebut menjadi lebih fleksibel untuk digunakan pada berbagai kasus. Jadi UDF akan lebih bersifat universal.
Tentu pernah mengerjakan berbagai kasus yang menggunakan fungsi Match, LookUp, atau Index bukan ? Beberapa varian penggunaan Match antara lain : =Match( A1 , Z1:Z10 , 0 ) =Match( A1 & B1 , Z1:Z10 & Y1:Y10 , 0 ) lalu di CSE Match bisa menerima inputan berupa range, array, dan suatu nilai. UDF JoinText adalah sebuah fungsi untuk menggabungkan teks (concatenating) banyak teks. UDF ini bisa menerima data berupa array. UDF ini bisa diatur untuk menyusun hasil penggabungan dengan teks delimiter tertentu. Juga bisa diatur untuk mengabaikan data inputan yang NULL atau NULLSTRING. Lebih detil tentang UDF JoinText, bisa diunduh disini <https://app.box.com/s/k4o6y3bz9preybu0rnu4>. Wassalam, Kid. 2014-09-26 12:38 GMT+10:00 Nang Agus [email protected] [belajar-excel] < [email protected]>: > > > Asalamualaikum, Mas Zainul > > Terima kasih > > Sesuai yang diinginkan > > > 2014-09-26 9:25 GMT+07:00 'zainul_ulum[at]yahoo[dot]com' > [email protected] [belajar-excel] <[email protected]>: > > >> >> Mas Nang, >> >> Apakah yang dimaksud mengumpulkan nama sesuai yang memunyai nilai di >> bawah batas? >> >> Kalo ya, bisa dicoba fungsi ini: >> >> >> >> >> >> Public Function RemidiNilai(batas As Double, rgData As Range) As String >> >> Const colNilai As Integer = 3, colNama As Integer = 2 >> >> Dim rg As Range >> >> Dim sNama As String >> >> sNama = vbNullString >> >> For Each rg In rgData.Columns(colNilai).Cells >> >> If rg.Value <= batas Then >> >> sNama = sNama & rg.Offset(, colNama - colNilai) & "," >> >> End If >> >> Next rg >> >> RemidiNilai = Left(sNama, Len(sNama) - 1) >> >> End Function >> >> >> >> Mohon maaf kalo tidak sesuai harapan. >> >> thanks >> >> -zainul >> >> >> >> *From:* [email protected] [mailto: >> [email protected]] >> *Sent:* Friday, September 26, 2014 8:59 AM >> *To:* BExcel >> *Subject:* Re: [belajar-excel] Variabel VBA [1 Attachment] >> >> >> >> >> >> Asalamualaikum, >> >> Mas Zainul, >> >> Saya belajar membuat UDF apakah variabel dapat berubah secara dinamis >> menggunakan loop? >> >> Public Function remidi(batas As Single, var1 As Single, nama1 As String, >> var2 As Single, nama2 As String, var3 As Single, nama3 As String, var4 As >> Single, nama4 As String) As String >> Dim a As Single >> Dim hasil As String >> >> For a = 1 To 4 >> If *var1* < batas Then hasil = *nama1* >> remidi = remidi & hasil >> Next a >> End Function >> >> maunya var1 dan nama1 dapat berubah sesuai dengan a, >> >> Terima kasih >> >> Wasalamualaikum warahmatullah >> >> >> >> >> >> 2014-09-26 8:10 GMT+07:00 'zainul_ulum[at]yahoo[dot]com' >> [email protected] [belajar-excel] <[email protected]>: >> >> >> >> Mas NangAgus, >> >> ada contohnya input dan hasilnya? >> >> terus terang saya kurang mengerti yang dimaksud. >> >> >> >> wassalaamu’alaikum warahmatullahi wabarakaatuh… >> >> -zainul >> >> >> >> *From:* [email protected] [mailto: >> [email protected]] >> *Sent:* Friday, September 26, 2014 7:16 AM >> *To:* BExcel >> *Subject:* Re: [belajar-excel] Variabel VBA >> >> >> >> >> >> Asalamualaikum warahmatullah. >> >> >> >> Terima kasih pak Hendrik, sudah sesuai dengan kebutuhan, hanya saja >> variabel yang dapat diganti dengan "Var" & a adalah variabel tang bertype >> numerik saja, untuk variabel yang bertype String tidak bisa. >> >> >> >> Untuk pak Lukman, saya sedang belajar untuk membuat loop dengan variabel >> bernomor bertype string. variabel tersebut akan diambil sesuai dengan >> nomornya. adakah caranya membuat variabel bernomor untuk tipe data string? >> atau dapatkah menggunakan tanda kurung misalnya Var(a) >> >> >> >> For a = 1 to 40 >> >> IF "nilai" & 1 > 3 THEN >> >> Range("E" & a).Value = var*1* >> >> ELSE >> >> Range("E" & a).Value = "Salah" >> >> Next a >> >> >> >> Terima kasih >> >> >> >> Wasalamualaikum warahmatullah >> >> >> >> NangAgus >> >> >> >> 2014-09-25 13:29 GMT+07:00 lkm jktind [email protected] >> [belajar-excel] <[email protected]>: >> >> >> >> Pak Agus . >> >> Kalau bertanya soal looping . ada kemungkinan saya dapat memjawab. >> >> Tapi tolong kasih contohnya . (yg dinamakan Var 1 dst itu apa ? ) >> >> Tapi bila pertanyaan ini untuk digunakan menyelesaikan soal dari pak >> syamsudin ? >> >> maka pertama looping yg masuk kriteria sangat baik . ---------- bila >> hasilnya lebih dari satu --- apakah harus dicari yg paling tinggi atau di >> abaikan . >> >> bertahap selanjutnya , Baik -- dan seturusnya . >> >> Salam >> >> Lukman >> >> NB : banyak istilah yg tidak saya ingat atau tau . >> >> maklum saja . bisanya hanya untuk praktek . >> >> >> >> >> >> >> >> >> >> 2014-09-25 13:06 GMT+07:00 Nang Agus [email protected] [belajar-excel] < >> [email protected]>: >> >> >> >> >> >> Asalamualaikumwarahmatullah, >> >> >> >> Salam sejahtera untuk seluruh milis B-Excel, >> >> >> >> Saya memiliki beberapa variabel yang saya beri nama var1, var2 var3, var4 >> dst. >> >> saya berkeinginan untuk membandingkan masing masing variabel menggunakan >> Loop. bagaimana cara penulisan syntax di VBA? >> >> >> >> For a = 1 to 40 >> >> IF var1 > 3 THEN Range("E" & a).Value = var1 >> >> Range("E" & a).Value = "Salah" >> >> Next a >> >> >> >> >> >> Bagaimana caranya agar var1 (angka 1 nya dapat berubah mengikuti a)? saya >> coba dengan var & a tidak bisa. >> >> >> >> Terima kasih >> >> Wasalam >> >> >> >> NangAgus >> >> >> >> >> >> >> >> > >
re-belajar.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
