n7822123

¦^´_ 10# Hyuan

¬O³o¼Ë¶Ü? ¬õ¦â¦r³¡¤À½Ð¦Û¦æ§ó§ï!
§Ú¨S¦³¥Î¨ì©w¸q¦WºÙªº³¡¤À

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set ½d³ò = [C4:H10]   '½Ð¦Û¦æ§ó§ï­nÅܦâ½d³ò¡A¤U­±µ{¦¡ªºÃC¦â¤]¦Û¦æ§ó§ï
If Intersect(Target, ½d³ò) Is Nothing Then Exit Sub '¿ï¨ú½d³ò»P³]©w½d³òµL¥æ¶°«hÂ÷¶}
½d³ò.Interior.ColorIndex = -4142 '¥ý«ì´_µLÃC¦â
For Each rg In Target  '³v¤@½T»{¿ï¨úªº½d³ò¡A­Y¦b³]©w½d³ò¤º«h¾ã¦CÅܦâ(¿ï¨úªº½d³ò¦³¥i¯à¦b³]©w½d³ò¥~)
  If Not Intersect(rg, ½d³ò) Is Nothing Then Cells(rg.Row, ½d³ò(1).Column).Resize(, ½d³ò.Columns.Count).Interior.Color = RGB(100, 255, 255)
Next
Intersect(Target, ½d³ò).Interior.Color = RGB(255, 0, 0) '³v¤@½T»{¿ï¨úªº½d³ò¡AµM«áÅܦâ
End Sub

Àx¦s®æÅܦâ.rar (11.11 KB)

¤U¸ü¦¸¼Æ: 2

2018-12-9 15:42

n7822123

¦^´_ 14# Hyuan

¬õ¦â¦r³¡¤À¡A¥i¦Û¦æ§ó§ï

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set ½d³ò = [I7:O18]   '½Ð¦Û¦æ§ó§ï­nÅܦâ½d³ò¡A¤U­±µ{¦¡ªºÃC¦â¤]¦Û¦æ§ó§ï
If Intersect(Target, ½d³ò) Is Nothing Then Exit Sub '¿ï¨ú½d³ò»P³]©w½d³òµL¥æ¶°«hÂ÷¶}
½d³ò.Interior.ColorIndex = -4142 '¥ý«ì´_µLÃC¦â
For Each rg In Target  '³v¤@½T»{¿ï¨úªº½d³ò¡A­Y¦b³]©w½d³ò¤º«h¾ã¦CÅܦâ(¿ï¨úªº½d³ò¦³¥i¯à¦b³]©w½d³ò¥~)
  If Not Intersect(rg, ½d³ò) Is Nothing Then Cells(rg.Row, ½d³ò(1).Column).Resize(, ½d³ò.Columns.Count).Interior.Color = RGB(255, 255, 0)
  If Not Intersect(rg, ½d³ò) Is Nothing Then Cells(½d³ò(1).Row, rg.Column).Resize(½d³ò.Rows.Count).Interior.Color = RGB(255, 255, 0)
Next
Intersect(Target, ½d³ò).Interior.Color = RGB(255, 0, 0) '½T»{¿ï¨úªº½d³ò¡AµM«áÅܦâ
End Sub

TT20170225-02(¿ï¨úÀx¦s®æ,¦CÅܦâ)+1.rar (9.18 KB)

¤U¸ü¦¸¼Æ: 6

2018-12-9 20:23

n7822123

¦^´_ 16# Hyuan


  ¤w¦^ÂЧA¤F¡A¤W¤W¼Ó