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 > > > > > > > > >
