Проблемы с моим SelectionChange - PullRequest
Новая
       7

Проблемы с моим SelectionChange

0 голосов
/ 04 февраля 2012

Я не могу заставить его работать правильно 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim LastRow As Long
If Not Intersect(Target, Range("C7,D7,E7,F7,G7,C8,D8,E8,F8,G8,C9,D9,E9,F9,G9,C10,D10,E10,F10,G10,C11,D11,E11,F11,G11")) Is Nothing Then
Application.EnableEvents = False
    With Selection.Borders(xlDiagonalDown)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
        Application.EnableEvents = True
    End With
    With Selection.Borders(xlDiagonalUp)
        .LineStyle = xlContinuous
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
        .Weight = xlThick
   End With
    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = -0.249977111117893
    End With
    End If
End Sub

1 Ответ

2 голосов
/ 06 февраля 2012

Ваш код работает (или, по крайней мере, скажите нам, что не работает).

Пожалуйста, не забудьте поместить этот код в модуль рабочего листа:

  • Выберите рабочую таблицу, к которой вы хотите применить код
  • Щелкните правой кнопкой мыши по имени рабочей таблицы
  • Нажмите Просмотр кода ...
  • Вставьте код

[РЕДАКТИРОВАТЬ] Вы, вероятно, должны активировать События в конце вашего кода: 

Application.EnableEvents = True
...