Question

以下是我的问题：如果其中一列的值等于“星期六”和“星期六”，我希望将电子表格的整行加粗。或者＆＃39;星期天＆＃39;我找到了加粗细胞的方法，但不是整行。有人可以帮忙吗？哦，我也希望根据相同的条件将字体从10增加到12。谢谢！

Answer 1

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

Answer 2

所以...我有点无聊并为你做了这个

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

简要说明，LastRow获取A列中的最后一行（这是必需的，因此我们不会超过我们需要的任何数据并进入空白单元格（将列字母更改为您需要的列））

循环For cRow = 1 To LastRow（cRow将为每个Next cRow +1）将对细胞进行倒计时，直至达到LastRow

If Cells(cRow, 1) = "Saturday" Or Cells(cRow, 1) = "Sunday" Then将检查单元格，如果单元格中有值，则会将其更改为粗体和大小为12的字体

如果您在代码中有任何不清楚的地方，请告诉我，我会尽力澄清

根据列值在Excel中加粗行

2 个答案: