Untuk Looping yang berisi kata "baik" pada sampai "kurang" pada (yang
tadinya terdapat 4 loop diganti dengan satu loop (for e ). cekript
selengkapnya :
For e = 1 To 4
bagian = ""
For c = 1 To 6
If (anu(c) >= batasb(e) And anu(c) < batasa(e)) Then *bagian =
kata(e)*
Next c
...
Next e
terdapat 4 kali loop pada e. ( e = 1 to 4)
e = 1 adalah untuk kata(1) = Sangat baik
e = 2 adalah untuk kata(2) = Baik
e = 3 adalah untuk kata(3) = Cukup
e = 4 adalah untuk kata(4) = Kurang
Wasalam
Agoez
2014-10-07 15:08 GMT+07:00 fatimah nazmy [email protected]
[belajar-excel] <[email protected]>:
>
>
>
> Wa'alaikumussalam Wr. Wb.
> terima kasih pada Nang Agus yang telah mengingatkan, jadi pelajaran
> penting kalau file itu berisi code VBA.
> dan terima kasih juga atas udf concatenatenya nang agus yang sudah sesuai
> dengan keinginan. (setelah diliat-liat coding udf yang ini lalu saya
> bandingkan dengan yang saya utak atik ternyata sangat banyak yang harus
> saya pelajari). coding udf yang semula ada berisi :
>
> Sub aku()
> bagian = ""
> For c = 1 To 5
> If (anu(c) >= 2.84 And anu(c) < 3.18) Then bagian = "Cukup pada: "
> Next c
> a = 0
> For b = 1 To 5
> If (anu(b) >= 2.84 And anu(b) < 3.18) Then
> a = a + 1
> If a = 1 Then
> bagian = bagian & kado(b)
> Else
> bagian = bagian & ", " & kado(b)
> End If
> End If
> Diskripsi = Diskripsi & bagian
> Next b
>
> For c = 1 To 5
> If anu(c) < 1 Then bagian = "Kurang pada: "
> Next c
> a = 0
> For b = 1 To 5
> If anu(b) < 1 Then
> a = a + 1
> If a = 1 Then
> bagian = bagian & kado(b)
> Else
> bagian = bagian & ", " & kado(b)
> End If
> End If
> Diskripsi = Diskripsi & bagian
> Next b
>
> End Sub
>
> tapi di coding udf yang ini itu tidak ada lagi atau saya yang nggak tau
> itu dipindah kemana, mohon penjelasan Nang Agus untuk pembelajaran ....
>
>
> On Monday, October 6, 2014 7:08 PM, fatimah nazmy <
> [email protected]> wrote:
>
>
> Wah, Minta Maaf Nih yang sebesar-besarnya kepada Nang Agus. Terima kasih
> kepada Nang Agus yang membuat rumus udf Concatenate yang ketemunya di
> file Combine.Txt yang memunculkan inspirasi penilaian ini. sangat
> bermanfaat sekali.
> Tidak lupa pula kepada Mr. Kid yang menjelaskan secara detail tahapan
> rumus UDF JoinGroupText yang juga sangat bermanfaat sekali (seperti
> pembukaan pidato). moga-moga dapat ide baru lagi, siapa tau seluruh
> simpanan UDF Mr. Kid di kerahkan semua, he..he..he....
>
>
> On Monday, October 6, 2014 7:04 AM, "'Mr. Kid' [email protected]
> [belajar-excel]" <[email protected]> wrote:
>
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Hai Fatimah,
>
> UDF CobaDeskripsi dan UDF Deskripsi sepertinya buatan mas Nang Agus. Ada
> HAKI nya loh... Jadi mas Nang Agus yang berhak mendapatkan apresiasi.
>
> File terlampir memanfaatkan UDF JoinGroupText [hehehe... yang ini by Mr.
> Kid].
> UDF JoinGroupText bisa dilihat lebih detil dalam file yang ada disini
> <https://app.box.com/s/k4o6y3bz9preybu0rnu4>.
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
>
> 2014-10-06 18:02 GMT+11:00 fatimah nazmy [email protected]
> [belajar-excel] <[email protected]>:
>
>
> Assalamu 'alaikum Wr.Wb.
>
> nyontek rumus mr kid di file combine.txt (karena keterbatasan jadi
> belum bisa memahami alur rumusnya) jadi coba utak atik buat rumus sendiri
> ternyata blum jg berhasil malah eror. mohon bantuan rekan2 milis atas
> masalah ini. file terlampir
>
>
> On Sunday, October 5, 2014 11:57 PM, fatimah nazmy wrote:
>
>
>
>
>
>
>
>
>
>
>
