Полужирный ряд в excel, основанный на значении столбца

Вот моя проблема: я хочу выделить целые строки моей таблицы, если значение одного из столбцов равно либо «суббота», либо «воскресенье». Я нашел способы смело выделить ячейки, но не всю строку. Кто-то может помочь? О, я также хотел бы увеличить шрифт от 10 до 12, исходя из того же состояния. Спасибо!Полужирный ряд в excel, основанный на значении столбца

источник

2016-03-11 RobD64

'Selection.Font.Bold = True' и' Selection.Font.Size = 12' поможет вам тогда. Поскольку вы не вставляли свой код, я не знаю, куда вы его поместите, но если вы вставляете код, я могу помочь больше –

Является ли значение фактически чем-то кем-то, введенным как * Суббота * или это дата, отформатированная * dddd * ? – Jeeped

Это что-то напечатано, а не дата, отформатированная dddd – RobD64

Итак ... Я получил немного скучно, и сделал это для вас

Sub Test() 

Dim cRow as Long 
Dim rRow As Range 
Dim LastRow As Long 

'Gets the last row with data in it 
LastRow = [A65000].End(xlUp).Row 

'the look to move down the cells 
For cRow = 1 To LastRow 

'if statment so catch the values that are wanted 
If Cells(cRow, 1) = "Saturday" Or Cells(cRow, 1) = "Sunday" Then 

'the changes made to the rows 
Rows(cRow).Font.Bold = True 
Rows(cRow).Font.Size = 12 

End If 

Next cRow 


End Sub

Краткая explincation, то LastRow получает последнюю строку в колонке А (это необходимо, так мы не пройти любой данных нам нужны и intoblank клетки (Изменение буквы столбца, к которому когда-либо столбцу вам нужно))

петля For cRow = 1 To LastRow (ворона будет +1 для каждого Next cRow) будет отсчитывать клетки, пока она reachs в LastRow

If Cells(cRow, 1) = "Saturday" Or Cells(cRow, 1) = "Sunday" Then проверит клетку и, если он имеет значение в ячейке будет затем изменить его смелое и размер 12 шрифта

Если есть все, что вы либо не ясно в коде, дайте мне знать, и я попробует уточнить

источник

2016-03-11 14:51:43

Mr.Burns, спасибо, что сделал именно то, что мне было нужно, до – RobD64

Нет проблем, принимайте это как anwser, нажав на галочку слева от ответов, чтобы показать, что вопрос был ответил –

Private TurnRowToBold() 
lLastRow = Cells(Rows.Count, 1).End(xlUp).Row 
For i = 1 To lLastRow 
    If (Worksheets("MySheet").Cells(i, 1) = "Saturday" or Worksheets("MySheet").Cells(i, 1) = "Sunday") Then 
     Worksheets("MySheet").Rows(i).Font.Bold = True 
     Worksheets("MySheet").Rows(i).Font.Size = 12 
    End If 
Next 
End Sub

источник

2016-03-11 13:59:10 CMArg

Полужирный ряд в excel, основанный на значении столбца

ответ

Смежные вопросы