Excel VBA格式的文本

我有打印文本到一组给定的单元格的代码，如下所示：

'SAMPLE Sheets("Sheet1").Range("A11") = "B. TEST SAMPLES" Sheets("Sheet1").Range("B12") = "SS" Sheets("Sheet1").Range("C12") = "PART NO." Sheets("Sheet1").Range("C12:H12").Merge Sheets("Sheet1").Range("C12:H12").HorizontalAlignment = xlCenter Sheets("Sheet1").Range("I12") = "VALVE CODE" Sheets("Sheet1").Range("I12:M12").Merge Sheets("Sheet1").Range("I12:M12").HorizontalAlignment = xlCenter Sheets("Sheet1").Range("N12") = "TYPE" Sheets("Sheet1").Range("N12:P12").Merge Sheets("Sheet1").Range("N12:P12").HorizontalAlignment = xlCenter Sheets("Sheet1").Range("Q12") = "TA/SEALED" Sheets("Sheet1").Range("Q12:T12").Merge Sheets("Sheet1").Range("Q12:T12").HorizontalAlignment = xlCenter Sheets("Sheet1").Range("U12") = "Qt" Sheets("Sheet1").Range("V12") = "Spring" Sheets("Sheet1").Range("V12:X12").Merge Sheets("Sheet1").Range("V12:X12").HorizontalAlignment = xlCenter Sheets("Sheet1").Range("Y12") = "DESCRIPTION" 

它是完美的，现在我想大胆的顶部细胞。 我写下面的代码来实现这一点：

 'FORMATTING Range("B12").Font.Bold = True Range("C12").Font.Bold = True Range("I12").Font.Bold = True Range("N12").Font.Bold = True Range("Q12").Font.Bold = True Range("U12").Font.Bold = True Range("V12").Font.Bold = True Range("Y12").Font.Bold = True 

我没有看到这个代码有什么问题，语法看起来不错，但格式不会改变。 即。 我想要粗体的单元格保持未受保护的状态。

任何人都可以提供一些见解，为什么会发生这种情况，以及如何解决这个问题？

Answer 1

确保在Range().Font.Bold = True之前有Sheets("Sheet1") Range().Font.Bold = True

Answer 2

这是工作代码：

 Sheets("Sheet1").Select Range("B12","C12","I12","N12","Q12","U12","V12","Y12").Font.Bold = True 

您可以select一个范围内的所有单元格。

Answer 3

是否有理由不使用表（“”）

 'FORMATTING Sheets("Sheet1").Range("B12").Font.Bold = True Sheets("Sheet1").Range("C12").Font.Bold = True Sheets("Sheet1").Range("I12").Font.Bold = True Sheets("Sheet1").Range("N12").Font.Bold = True