Asalamualaikum Warahmatullah, Mas Kid, masih belum mudeng dengan pernyataan:
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 Maksudnya penggabungan teks dengan index match, atau hanya match saja? jika menggunakan match (,,0) hanya akan menghasilkan 1 data walaupun array data Terima kasih mas Kid Wasalam NangAgus 2014-09-26 17:38 GMT+07:00 'Mr. Kid' [email protected] [belajar-excel] < [email protected]>: > > > 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 >>> >>> >>> >>> >>> >>> >>> >>> >> > >
