Tecnologia, programação e muito Visual FoxPro.

quinta-feira, 24 de junho de 2010

RE: ]] XL-mania [[ Row aktif berwarna

 

Dimodif dikit jadinya seperti ini :

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   'codedBy: siti©Vi

   Static OldTarget As Range

   If Not OldTarget Is Nothing Then _

     OldTarget.EntireRow.Interior.ColorIndex = xlNone

     If Not OldTarget Is Nothing Then _

     OldTarget.EntireColumn.Interior.ColorIndex = xlNone

     

   With Target.EntireRow.Interior

      .ColorIndex = 6

      .Pattern = xlSolid

   End With

   With Target.EntireColumn.Interior

      .ColorIndex = 6

      .Pattern = xlSolid

   End With

   With Target.Cells.Interior

      .ColorIndex = 17

      .Pattern = xlSolid

   End With

   Set OldTarget = Target

End Sub

 

Thanks Buat Bu Siti, tabelku sekarang jadi lebih user friendly... J

 

 

From: XL-mania@yahoogroups.com [mailto:XL-mania@yahoogroups.com] On Behalf Of stdev(i)
Sent: 23 Juni 2010 15:48
To: XL-mania@yahoogroups.com
Subject: Re: ]] XL-mania [[ Row aktif berwarna

 

 

genee kaleee...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   'codedBy: siti©Vi
   Static OldTarget As Range
   If Not OldTarget Is Nothing Then _
     OldTarget.EntireRow.Interior.ColorIndex = xlNone
     
   With Target.EntireRow.Interior
      .ColorIndex = 6
      .Pattern = xlSolid
   End With
   Set OldTarget = Target
End Sub



2010/6/23 Roji Bahaudin <dagmedt@gmail.com>


Dear Pakar2 Excel
Saya lagi punya masalah, beberapa kali ngutek-utek macro belum berhasil.
Saya pingin ketika klik sebuah kolom, maka row-nya menjadi warna kuning,

saat pindah kolom maka row yg tidak aktif warnanya kembali normal.

Akan tetapi tidak mempengaruhi warna kolom jika sudah ada warnanya.
pada file lampiran, row bisa berwarna kuning, tetapi saat pindah kolom

warna row yang tidak aktif tetap kuning, kira2 giman ya scriptnya...
Mohon bantuannya

 

__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| momod akan terdampar seminggu lagi, moderasi akan lemodmod...     |
| hidup tanpa google dan fesbuk dan yahuuuu... ampun dehhh...       |
| 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

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.


Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Hobbies & Activities Zone: Find others who share your passions! Explore new interests.

.

__,_._,___

Nenhum comentário:

Arquivo do blog