ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Àx¦s¦U¨ú±oµJÂI«á¬Y¤@Äæ¦ìÅܦâ

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ...
­ã´£³¡ªL µoªí©ó 2024-2-3 10:35


«D±`ÁÂÁ­㴣¤j¤j
«D±`ÁÂÁ¦w­}¤j¤j
¤U¦¸§ï¶i:'(

TOP

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ...
­ã´£³¡ªL µoªí©ó 2024-2-3 10:35


¨ä¹ê¬O¤pªº§âÄæ¦ì·d¿ù¤F
¯uªº¬O«D±`©êºp
¹ê»Ú¤WÀ³¸Ó¬O
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xB As Range, X As Range, R&
Set xA = [AR212:AR219,AX212:AX219]
Set xB = [AG212:AG219]
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


   ½Ð°Ý¤j¤j
¦pªGAF212:AF219¤]­n¤@°_Åܦâ
¸Ó¦p¦ó¥[¤J©O¡H
§Ú§ï¦¨¥H¤U³o¼Ë¥u¦³AF¦³§@¥Î¦ý¬OAG¨S§@¥Î
ÁÂÁ¤j¤j

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xA As Range, xB As Range, X As Range, R&
Set xA = [AR212:AR219,AX212:AX219]
Set xB = [AF212:AF219,AG212:AG219]
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

TOP

¦^´_ 32# coafort

Set xB = [AF212:AG219]

With xB.Rows(R).FormatConditions

TOP

¦^´_  coafort

Set xB = [AF212:AG219]

With xB.Rows(R).FormatConditions
­ã´£³¡ªL µoªí©ó 2024-2-4 15:01


«D±`ÁÂÁ­ã¤j¤j
¥i¥H¤F:D

TOP

(·j´M¿é¤J½s¸¹12626) googleºô§}:https://hcm19522.blogspot.com/
google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD