­ã´£³¡ªL

§Q¥Î®æ¦¡±ø¥óÅܦâ//«O¯d­ì¦³®æ¦¡

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xB As Range, X As Range, R&
Set xA = [AR212:AR219,AX212:AZ219]
Set xB = [AJ212:AJ219]
With Target
     If xB.FormatConditions.Count Then xB.FormatConditions.Delete
     If .Count > 1 Then Exit Sub
     Set X = Intersect(.Cells, xA)
     If X Is Nothing Then Exit Sub
     R = X.Row - xA.Item(1).Row + 1
     With xB.Item(R).FormatConditions
          .Add Type:=xlCellValue, Operator:=xlNotEqual, Formula1:="=""^_^"""
          .Item(1).Interior.ColorIndex = 6
     End With
End With
End Sub

­ã´£³¡ªL

¦^´_ 1# coafort


µo°Ý®É, ½Ð¤W¶ÇÀɮרüÒÀÀµ²ªG, ­YµLªk¤W¶ÇÀÉ®×, ¤]¥i¶K¹Ï¤W¨Ó!!!
°ÝÃD´y­z¤@©w­n§¹¾ã¥B¨ì¦ì, ¤£­nÅý¸ÑµªªÌ¤@§ï¦A§ï, ªá¶O¤Ó¦h®É¶¡~~

­ã´£³¡ªL

¦^´_ 32# coafort

Set xB = [AF212:AG219]

With xB.Rows(R).FormatConditions