Блог

Главная - Вопросы по программированию - Перед щелчком мыши: Выберите полный диапазон при нажатии на случайную ячейку

Перед щелчком мыши: Выберите полный диапазон при нажатии на случайную ячейку

#excel #vba

Вопрос:

Как я отношусь к диапазону как к одному выделению, когда перед этим нажимаю кнопку. Теперь я должен щелкнуть каждую отдельную ячейку в соответствующем диапазоне me., однако я хотел бы раскрасить, например, всю ячейку B11:K13, щелкнув случайную ячейку в этом диапазоне.

 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Not Intersect(Target, Me.Range("B11:K13;B26:K39;B42:K45")) Is Nothing Then
    Target.Interior.Color = vbRed
    Exit Sub
    End If
    If Not Intersect(Target, Me.Range("L8:L44")) Is Nothing Then
    Target.Interior.Color = vbBlue
    End If
    
    
End Sub

Комментарии:

1. Используйте запятые вместо точек с запятой при построении диапазона: Me.Range("B11:K13,B26:K39,B42:K45")) -Это сработало, когда я их изменил.

2. Еще раз привет @braX большое спасибо!

Метки: