Я использую пользовательскую форму, чтобы ввести данные в таблицу.

Я хотел бы использовать флажок, чтобы выделить весь ряд таблицы.

Пример кода:

Private Sub AddModifyAtRow(ByVal lRow As Long)
cIndex = 0
If CheckBox_NewBuild = True Then cIndex = 37
Dim ws As Worksheet
Set ws = Worksheets("Address")
With ws
     'This is the line I'd like to use to highlight row if Checkbox is True
    .Cells(lRow, 1).EntireRow.Interior.ColorIndex = cIndex

     'Enter the rest of the data from the UserForm into the Table
    .Cells(lRow, 1).Value = TxBox_Building.Text
    .Cells(lRow, 2).Value = TxBox_BTS.Text
End With

Я также пытался использовать эту строку:

.Range("Table5[lRow,[#ALL]]").Interior.ColorIndex = cIndex

1 ответ1

2

Вы были почти там с вашей попыткой -

[Table5].Rows(lrow).Interior.ColorIndex = cIndex

при условии, что ваша lrow является целым числом. Просто настройте имя таблицы под свою таблицу.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .