Sub Макрос1()
'
' Макрос1 Макрос
'
' Сочетание клавиш: Ctrl+к
'
Range("C7").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 16777215
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
я сделал компонент
code_31379.txt
подскажите все верно ??
------------ Дoбавленo в 06.22:
Забыл заменить заменить конструкцию вида Range("F8").Select на Cells(8,6).Select
Add(VBScript,356459,301,350)
{
WorkPoints=#8:hi_pozic|8:hi_color|
Script=#13:Sub Макрос1()|1:'|16:' Макрос1 Макрос|1:'|26:' Сочетание клавиш: Ctrl+к|1:'|28: Cells("hi_pozic").Select|27: With Selection.Interior|26: .Pattern = xlSolid|40: .PatternColorIndex = xlAutomatic|25: .Color = hi_color|25: .TintAndShade = 0|32: .PatternTintAndShade = 0|12: End With|7:End Sub|
}
Поиск
Друзья
Администрация