Скачать или смотреть Highlight Selected Row or Column All Sheet

add-in file
https://drive.google.com/file/d/1MNY2...
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = True
End Sub


Sub Remove_all_SelectedSheets()
Dim sh As Worksheet
Dim fc As FormatCondition
For Each sh In ActiveWindow.SelectedSheets
For Each fc In sh.[a:az].FormatConditions
If fc.Formula1 = "=OR(ROW()=CELL(""" & "row" & """),COLUMN()=CELL(""col""))" Then
fc.Delete
End If
Next
Next sh
End Sub


Sub Apply_To_Multiple_Sheets()
Dim sh As Worksheet
Dim fc As FormatCondition
Call Remove_all_SelectedSheets
For Each sh In ActiveWindow.SelectedSheets
With sh.[a:az].FormatConditions 'address
With .Add(Type:=xlExpression, Formula1:="=OR(ROW()=CELL(""row""),COLUMN()=CELL(""col""))", Formula2:="=vattanak")
.Interior.Color = vbYellow 'color
' .Font.Bold = True 'fonts
' .Borders.Color = vbWhite 'Border
End With
End With
Next sh
End Sub





--------------------------------------------------------------------------------------------------------------------------
Subscribe for more Video
Leave a Comment Thanks For Watching My Videos