Re: [Programmer-VB] Nama warna

[nurfirman]

Bisa juga..... maksudku agak lain dkit nih saya ada data dari excell di datanya dibedakan dengan warna jadi saya mau kalo data aslinya warnanya merah di tampil merah bukan 255 contoh script Sub Macro1()     Range("c" & n).Select     If ActiveCell.Font.Color = vbRed Then         a = ActiveCell.Row         B = ActiveCell.Column         Cells(a, B + 1) = ActiveCell.Font.Color     Else         a = ActiveCell.Row         B = ActiveCell.Column         Cells(a, B + 1) = ActiveCell.Font.Color     End If End Sub klo haslnya pasti tampilnya 0 kalo hitam 255 kalo merah karena saya tangkepnya pake perintah ActiveCell.Font.Color Oh iya maap applikasi yang saya gunakan pake VBAnya Excell tapi saya mau rubah ke VBnya Bambang Hartoko wrote: gunakan konstanta, letakkan pada bagian paling atas dari modul, supaya semua prosedur dapat mengenali,   CONST Black = 0 CONST Red = 255     penggunaannya     Sub Command1_Click()     Text1.BackGround = "">     Text1.ForeGround = Black End Sub     Semoga bermanfaat.   Salam, BH.   Bambang Hartoko Research Centre for Biology The Indonesian Institute of Sciences Jl. Ir. H. Juanda 18 Bogor 16002, Indonesia Phone +62-251-321038 Fax +62-251-325854 Url http://www.biologi.lipi.go.id http://www.biologi.lipi.go.id/nbin http://www.biologi.lipi.go.id/jica Yahoo! Sports Rekindle the Rivalries. Sign up for Fantasy Football Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.