Question

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

'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

确保Sheets("Sheet1")

之前有Range().Font.Bold = True

Answer 2

以下是工作代码：

Sheets("Sheet1").Select

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

您可以在一个范围内选择所有细胞。

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

Excel VBA格式的文本

3 个答案: