Excel VB中改变字体的If语句

Excel VB中改变字体的If语句,excel,vba,Excel,Vba,我正在处理一个宏,如果最初设置的字体小于10,我希望在按下按钮后将部分字体更改为10。我已经让它大部分工作正常,但是If语句似乎不起作用,即使它在逻辑上是合理的,并且没有抛出任何错误。该函数的所有其他部分都正常工作,因此我相信下面这一行就是问题所在,但我对VB还不够熟悉,无法弄清楚是什么。我想得到一些帮助,谢谢 下面是有问题的代码: 如果.Cells.Font.Size

我正在处理一个宏,如果最初设置的字体小于10,我希望在按下按钮后将部分字体更改为10。我已经让它大部分工作正常,但是If语句似乎不起作用,即使它在逻辑上是合理的,并且没有抛出任何错误。该函数的所有其他部分都正常工作,因此我相信下面这一行就是问题所在,但我对VB还不够熟悉,无法弄清楚是什么。我想得到一些帮助,谢谢

下面是有问题的代码:
如果.Cells.Font.Size<10,那么.Cells.Font.Size=10

我猜您的问题是什么,因为我不知道您的With声明引用了什么,或者您的布局是什么:

如果Font.Size在多单元格范围内不一致,则Font.Size返回Null

如果需要,您可以在单元格中循环,或者根据布局检查一个单元格的大小


为了简化,您可以先检查IsNull.Cells.Font.Size是否为空,以验证是否确实需要循环或其他逻辑。

答案将取决于您的引用内容。您应该发布所有相关代码。我怀疑您引用的工作表与您想象的不同,或者稍后代码中的字体被更改。啊,我明白了。非常感谢。