Hot Fox: Re: ]] XL-mania [[ sederhanakan select case

quarta-feira, 2 de setembro de 2009

Re: ]] XL-mania [[ sederhanakan select case

sekalian mau tanya :

mengapa harus FUNGSI ??

Public Function berwarna(vString) As String
With vString
    .Interior.Color = RGB(0, 0, 255)
    .Font.Color = RGB(255, 255, 255)
    .Font.Bold = True
End With
End Function

HASIL fungsi yg dideclare sbg "As String" itu pun juga tidak pernah diberikan.
Hal yg dimanfaatkan hanyalah 3 TINDAKAN (bolding dan pewarnaan) saja.

menurutku cukup dengan
Private Sub berwarna(vString)
With vString
    .Interior.Color = RGB(0, 0, 255)
    .Font.Color = RGB(255, 255, 255)
    .Font.Bold = True
End With
End sub

karena di VBA, katanya, sebuah prosedur (Function maupun Sub) defaultnya
adalah Public, jadi tidak perlu dikatakan sbg Public dia sudah Public.
Karena pemanggilnya ada di module yg sama, dengan Private sudah cukup.

2009/8/31 Puthut Wibowo <puthut_vai@yahoo.com>
>
> Om om om .....
>
> karena hasil CASE nya semua sama karakternya, maka dibikin fungsi yang bisa dipanggil aja oom......
> ' FUNGSI
> Public Function berwarna(vString) As String
> With vString
>     .Interior.Color = RGB(0, 0, 255)
>     .Font.Color = RGB(255, 255, 255)
>     .Font.Bold = True
> End With
> End Function
>
> sehingga casenya
> ' EXAMPLE
>
> Case "TN-A"
>    Call berwarna(c) ' --- > MEMANGGIL FUNGSI dengan identifikasi variabel nilai c
> Case "TN-B"
>     Call berwarna(c)
> Case "TN-D"
>     Call berwarna(c)
> Case "TN-E"
>     Call berwarna(c)
>
> Filenya terlampir oomm...
>
> Thanks
> Puthut Wibowo
> Pengguna VB6 bukan EXCEL
>
> --- On Sat, 8/29/09, Sandy Warsito <mank_ujank@yahoo.com> wrote:
>
> From: Sandy Warsito <mank_ujank@yahoo.com>
> Subject: ]] XL-mania [[ sederhanakan select case
> To: XL-mania@yahoogroups.com
> Date: Saturday, August 29, 2009, 8:07 AM
>
> Dear Suhu-suhu Excel yang budiman,
>
> Saya telah menulis code seperti di bawah dan sudah bekerja dengan baik, namun dengan listing seperti ini sepertinya akan kesulitan jika suatu saat nanti perlu mengedit case-case nya. Please help untuk menyederhanakannya sehingga mengedit case akan lebih mudah.
>
> Makasih.

__._,_.___

Messages in this topic (7) Reply (via web post) | Start a new topic

Messages

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| Selamat menjalankan ibadah puasa...                               |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf          |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Mom Power: Discover the community of moms doing more for their families, for the world and for each other