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
