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 <[email protected]>
>
> 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 <[email protected]> wrote:
>
> From: Sandy Warsito <[email protected]>
> Subject: ]] XL-mania [[ sederhanakan select case
> To: [email protected]
> 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.
