在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獲得在A列最後一行（只有這樣，我們不走以往任何我們需要的數據和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中根據列值加粗一行

回答

相關問題