Andy2483

¦^´_ 5# coafort

¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
   If Replace(Split(.Address, "$")(1), ":", "") = "AR" Then
      .Offset(, -11).Interior.ColorIndex = 6
      '¡ô¥O¤@¶}©l¿ï¨ú®æ¬OARÄæÀx¦s®æ½d³òªº¥ª°¼11ÄæÀx¦s®æ©³¦â¬O¶À¦â
   End If
End With
End Sub

coafort

¦^´_  coafort



¦^´_ 1# coafort
¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_Sel ...
Andy2483 µoªí©ó 2024-2-1 18:29

ÁÂÁ¤j¤j
½Ð°Ý¦³¿ìªk«O¯d­ì¦³Ä檺ÃC¦â¶Ü¡H

Andy2483

¦^´_ 3# coafort

¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
   If Replace(Split(.Address, "$")(1), ":", "") = "AR" Then
      .Offset(, -11).EntireColumn.Interior.ColorIndex = xlNone
      '¡ô¥OAGÄæ¾ãÄ橳¦â¬°µL¦â
      .Offset(, -11).Interior.ColorIndex = 6
      '¡ô¥O¤@¶}©l¿ï¨ú®æ¬OARÄæÀx¦s®æ½d³òªº¥ª°¼11ÄæÀx¦s®æ©³¦â¬O¶À¦â
   End If
End With
End Sub

coafort

¦^´_  coafort
¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Targ ...
Andy2483 µoªí©ó 2024-2-1 14:23

½Ð°Ý¤j¤j
¥Î¤F¤§«á­ì¨ÓªºÃC¦â³£¨S¤F
ÁÂÁÂ

Andy2483

¦^´_ 1# coafort
¤u§@ªí¼Ò²Õ¤U´Ó¤J:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
   If Replace(Split(.Address, "$")(1), ":", "") = "AR" Then
      Me.UsedRange.EntireColumn.Interior.ColorIndex = xlNone
      '¡ô¥O¥»ªí¨Ï¥Î®æªº¾ãÄ橳¦â¬°µL¦â
      .Offset(, -11).Interior.ColorIndex = 6
      '¡ô¥O¤@¶}©l¿ï¨ú®æ¬OARÄæÀx¦s®æ½d³òªº¥ª°¼11ÄæÀx¦s®æ©³¦â¬O¶À¦â
   End If
End With
End Sub