Maaf Lampirannya tertinggal.
From: zainul_ulum[at]yahoo[dot]com [mailto:[email protected]] Sent: Friday, September 26, 2014 9:26 AM To: '[email protected]' Subject: RE: [belajar-excel] Variabel VBA [1 Attachment] 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 = var1 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
BelajarRemidi.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
