Изменить цвет и размер символов выбранных ячеек (и вернуться в исходное состояние, если не выбран) - PullRequest
0 голосов
/ 13 ноября 2018

Я пытаюсь разработать небольшой макрос с событием worksheet_selectionChange, чтобы при выборе ячейки мне хотелось, чтобы символы внутри стали немного больше, а цвет ячейки - зеленым.Затем, когда я отменяю выбор ячейки, чтобы выбрать другую ячейку, я хотел бы, чтобы невыбранная ячейка возвращалась в исходное состояние (это означает отсутствие цвета, размер символов, как до выбора ячейки) ... очевидно, мой макрос делает точночто я хочу для размера символа (размер символов изменяется, когда я выбираю ячейку и когда я отменяю ее выбор, размер символов ячейки возвращается точно так же, как это было до выделения).Однако для цвета он работает не так, как хотелось бы, действительно макрос изменяет цвет ячейки (зеленым), когда я выбираю его, но когда я отменяю выбор (чтобы выбрать другую ячейку), цвет остается внутри ячейки ..Пожалуйста, найдите мой код VBA ниже (PS: я разместил этот код только на одном листе моего файла Excel (Sheet1), потому что я хотел бы, чтобы этот код применим только к этому листу в моем файле, заранее спасибо за вашу помощь. Xavi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    LargeSize = FontSize * 1.2
    Cells.Font.Size = FontSize
    ActiveCell.Font.Size = LargeSize
    ActiveCell.Font.Size = LargeSize

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 49407
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

1 Ответ

0 голосов
/ 13 ноября 2018

Попробуйте это.

Const FontSize As Integer = 12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    LargeSize = FontSize * 1.2
    With Cells
        .Font.Size = FontSize
        .Interior.Color = xlNone
    End With
    With Target
        .Font.Size = LargeSize
        .Interior.Color = 49407
    End With

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...