Airman

Àx¦s®æ¦â±m¥N½X.rar (6.59 KB)

¤U¸ü¦¸¼Æ: 2

2015-11-15 17:29

½Ð±Ð¦U¦ì¤j®v

§Ú·Q­n¨Ì"¤½¥q²M³æ"³o­Ósheet¸Ì¦Cªº¤½¥q,Åý"³]³Æ¦Cªí"³o­Ósheet¸Ì­±ªº³]³Æ¦Û°Ê¾ã¦CÅܦ⦨¬° ...
leirex1201 µoªí©ó 2015-5-8 18:27

¦UÃC¦â¥N½X~
¦bA1¶ñ¤WÃC¦â¡A·Æ¹«Â÷¶}A1²¾¦Ü¥ô¤@Àx¦s®æ«á¡AB1¥iÅã¥Ü¸ÓA1ÃC¦âªº¥N½X¡C

Q1¡JW7¬°¦UÃC¦â¥N½X¤@Äýªí¡C

¶È¨Ñ°Ñ¦Ò¡C

hcm19522

http://blog.xuite.net/hcm19522/twblog/354838322

luhpro

·PÁÂluhpro¤j®v¦^ÂÐ

½Ð°Ý­n¶K¨ìwookbook¶Ü?ÁÂÁÂ
leirex1201 µoªí©ó 2015-5-11 10:00

Private Sub cbGetColor_Click()
§Ú¬O¥Î«ö¶s¨Æ¥ó¨ÓÅX°Ê,
¨C«ö¤@¦¸´N°õ¦æÃC¦âÀˮֻPÅܧó.

lpk187

¦^´_ 13# leirex1201

¤£¥ÎºÙ§Ú¤j®v¡A§Ú¤]¬Oªì¾ÇªÌ¡I

    »¡¹ê¦bªº¥H¤Wªºµ{¦¡½X¡A§Ú¤]¬O¬Ý¨ì§Aªº°ÝÃD¤§«á¥h°µ¥¨¶°¡AµM«á·Q¥X¨Óªº¡A¦Ó§Ú§ä¨ìªº¤èªk³£¨S¿ìªk¹ïÀ³¨ìRGB
¦ý¥i¥H¥ÎRGB¶ñ¤J¦â±m¡A¬O§_¯à¹ïÀ³¨ìRGB¦â½X¡A´N­n½Ð±Ð¨ä¥L¤j¤j­Ì¤F¡I§Ú§ä¨ìªº¥u¦³¥H¤Uµ{¦¡½X
Sub ¥¨¶°1()
Range("A1:A2").Interior.Color = RGB(0, 255, 1)'A1:A2Àx¦s®æ¶ñ¤J¦â±m
Range("B1") = Range("A1").Interior.Color  '¶Ç¦^A1ª«¥óªº¥D­n¦â±m
Range("B2") = Range("A2").Interior.ColorIndex    '¶Ç¦^A2¥Nªí¤º´º¦â±m
End Sub

leirex1201

¦^´_  leirex1201

¬O¥u­nAÄæ©MBÄ榳­È¡AµM«á±q½s¿èªº¨º¤@¦æA¨ìK³£Åܦâ¹ï¶Ü¡H¥u­n§ï¬õ¦rªº³¡¥÷´N¥i¥H¤F
...
lpk187 µoªí©ó 2015-5-11 13:15

¹ï¤F,§Ñ¤F½Ð°Ýlpk187¤j®v
§Ú¥»¨­¹ïÃC¦â¿ëÃѸû®z,
¦pªG¨S¦³¬Û¹ïÀ³ªº¦â½X,¤Ó¬Û¦üªºÃC¦â¤À¤£¤Ó²M·¡
¦³¿ìªk¦Û°Ê¼Ð¥Ü¬Û¹ïÀ³ªº¦â½X¶Ü...¨Ò¦pRGB©ÎCMYK©ÎHTMLªºFFFFFF

ÁÂÁ¤j®v

leirex1201

¦^´_  leirex1201

¬O¥u­nAÄæ©MBÄ榳­È¡AµM«á±q½s¿èªº¨º¤@¦æA¨ìK³£Åܦâ¹ï¶Ü¡H¥u­n§ï¬õ¦rªº³¡¥÷´N¥i¥H¤F
...
lpk187 µoªí©ó 2015-5-11 13:15

·PÁÂlpk187¤j®v

´ú¸Õ¤w¥i¥H¨Ï¥Î,§Ú§â³Ì¤U­±ªºelse if®³±¼¤F,¤£µM½s¿è½d³ò¥H¥~ªºÀx¦s®æ³£·|Åܦ¨"¥Õ©³¦â"
¦A¦¸·PÁÂlpk187¤j®vªº¥Î¤ßÀ°¦£,·P®¦

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 11 And Target.Row > 1 And Cells(Target.Row, "B") <> "" And Cells(Target.Row, "A") <> "" Then
    Set col = Sheets("¤½¥q²M³æ").Columns(2).Find(Cells(Target.Row, 2), , , , , 2)
        AA = col.Offset(0, 1).Interior.Color
    Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Interior.Color = _
    col.Offset(0, 1).Interior.Color
End If
End Sub

lpk187

¦^´_ 10# leirex1201

¬O¥u­nAÄæ©MBÄ榳­È¡AµM«á±q½s¿èªº¨º¤@¦æA¨ìK³£Åܦâ¹ï¶Ü¡H¥u­n§ï¬õ¦rªº³¡¥÷´N¥i¥H¤F
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 And Target.Row > 1 And Cells(Target.Row, "B") <> "" And Cells(Target.Row, "A") <> "" Then
    Set col = Sheets("¤½¥q²M³æ").Columns(2).Find(Cells(Target.Row, 2), , , , , 2)
        AA = col.Offset(0, 1).Interior.Color
    Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Interior.Color = _
    col.Offset(0, 1).Interior.Color
Else
    Range(Cells(Target.Row, 1), Cells(Target.Row, 11)).Interior.Color = 16777215
End If
End Sub

leirex1201

¦^´_  lpk187

§ï¦¨¤U¦Cªº¸Ü¡A¥u­nAÄæ©MBÄæ¨ä¤¤¤@­ÓµL­Èªº¸Ü¦^´_ªÅ¥Õ
lpk187 µoªí©ó 2015-5-11 11:41

·PÁ lpk187 ¤j®v¦A¦¸À°¦£

¤£¦n·N«ä,§Ú¥i¯àÁÙ¬O¨Sªí¹F²M·¡,§Ú°µ¤F¹Ï¤ù¦p¤U
§Ú·Q­n¹F¦¨¦p¤U¹Ï³o¼Ë¤l,¤£ºÞ§Ú¦b­þ¤@column½s¿è,¥u­ncolumn(B)ªº­È¬O²Å¦X"¤½¥q²M³æ"sheetªº­È,¨ºrow(A2:K10)³£Åܦâ
¦A¦¸·PÁÂ^^

¤U¸ü (152.34 KB)

2015-5-11 12:54

lpk187

¦^´_ 8# lpk187

§ï¦¨¤U¦Cªº¸Ü¡A¥u­nAÄæ©MBÄæ¨ä¤¤¤@­ÓµL­Èªº¸Ü¦^´_ªÅ¥Õ

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column < 3 And Target.Row > 1 And Cells(Target.Row, "B") <> "" And Cells(Target.Row, "A") <> "" Then
   
3.     Set col = Sheets("¤½¥q²M³æ").Columns(2).Find(Cells(Target.Row, 2), , , , , 2)
   
4.         AA = col.Offset(0, 1).Interior.Color
   
5.     Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.Color = _
   
6.     col.Offset(0, 1).Interior.Color
   
7. Else
   
8.     Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.Color = 16777215
   
9. End If
   
10. End Sub

½Æ»s¥N½X

lpk187

¦^´_ 7# leirex1201

¶â¡I¨º´N§ï¦¨¤U¦C

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column < 3 And Target.Row > 1 And Cells(Target.Row, "B") <> "" And Cells(Target.Row, "A") <> "" Then
   
3.     Set col = Sheets("¤½¥q²M³æ").Columns(2).Find(Cells(Target.Row, 2), , , , , 2)
   
4.     Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.Color = _
   
5.     col.Offset(0, 1).Interior.Color
   
6. End If
   
7. End Sub

½Æ»s¥N½X