- ©«¤l
- 552
- ¥DÃD
- 3
- ºëµØ
- 0
- ¿n¤À
- 578
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-2-8
- ³Ì«áµn¿ý
- 2024-2-26
|
¦^´_ 1# david1216jp
2Ӥ覡¡A·íCÄ椤ªº¤º®e§ïÅÜ®É(³æ¤@Àx¦s®æ)©M§å¦¸Åܧó- Option Explicit
- '·íCÄ椤ªº¤º®e§ïÅÜ®É(³æ¤@Àx¦s®æ)
- Private Sub Worksheet_Change(ByVal Target As Range)
- If Target.Count = 1 Then
- If Target.Row > 1 And Target.Column = 3 Then
- Select Case Target Mod 3 '¨D¾l¼Æ
- Case 1 '·í¾l¼Æ¬°1®É¡ARng©Ò¦b¦æªºA¨ìDÄ欰'²L¶À(«á±¨Ì¦¹Ãþ±À)
- Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 13434879 '²L¶À
- Case 2
- Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 13434828 '²Lºñ
- Case 0
- Range(Cells(Target.Row, 1), Cells(Target.Row, 4)).Interior.Color = 16777164 '¤ÑÂÅ
- End Select
- End If
- End If
- End Sub
- '§å¦¸Åܧó
- Sub Ex()
- Dim Rng As Range
- With Sheets("Color")
- Set Rng = .Cells(2, 3)
- Do While Rng <> ""
- Select Case Rng Mod 3 '¨D¾l¼Æ
- Case 1 '·í¾l¼Æ¬°1®É¡ARng©Ò¦b¦æªºA¨ìDÄ欰'²L¶À(«á±¨Ì¦¹Ãþ±À)
- .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 13434879 '²L¶À
- Case 2
- .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 13434828 '²Lºñ
- Case 0
- .Range(.Cells(Rng.Row, 1), .Cells(Rng.Row, 4)).Interior.Color = 16777164 '¤ÑÂÅ
- End Select
- Set Rng = Rng.Offset(1) '²¾¨ì¤U¤@Àx¦s®æ
- Loop
- Rng.Select
- End With
- End Sub
½Æ»s¥N½X |
|