saya memang tidak terlalu familiar dengan VBA Exel, tapi perintah semacam Cells(a, B + 1) = ActiveCell.Font.Color, tentunya akan memasukkan nilai warna (dalam bentuk angka) ke dalam sel tersebut.
Jika dipadankan dengan perintah VB, untuk memberi warna sel atau teks di dalam sel berdasarkan warna pada sel yang aktif mungkin (sekali lagi mungkin) perintahnya Cells(a, B + 1).Color = ActiveCell.Font.Color, atau yang sejenisnya, yang pasti tidak mungkin Cells = nilai.
Mungkin teman-teman yang lain lebih tahu, mudah-mudahan bisa membantu.
Salam,
BH.
nurfirman <[EMAIL PROTECTED]> wrote:
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
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
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.
