未受保护的Excel工作表运行时1004错误-无法设置范围的数字格式

slsn1g29  于 2023-06-07  发布在  其他
关注(0)|答案(1)|浏览(216)

我有一个运行在togglebutton click上的简单子程序,作为一个更大的vba项目的一部分。工作簿或工作表都不受保护。我想设置输出单元格的格式(E18与按钮位于同一工作表上),以匹配公式计算所用的单位。错误发生在注解掉的行上。如果没有格式行,子项目和大项目都可以正常工作。

Private Sub ToggleButtonLB_Click()

If ToggleButtonLB.Value = True Then
    ToggleButtonLB.Caption = "kg"
    'Range("E18").NumberFormat = "0.0 kg"
    
    Else
    ToggleButtonLB.Caption = "lb"
    'Range("E18").NumberFormat = "0.0 lb"
End If
End Sub

任何帮助将不胜感激!

1dkrff03

1dkrff031#

如果运行宏记录器并将单元格更改为所需的格式,则会得到:

Selection.NumberFormat = "0.0 ""kg"""

在你的代码中,尝试:

Private Sub ToggleButtonLB_Click()

If ToggleButtonLB.Value = True Then
    ToggleButtonLB.Caption = "kg"
    Range("E18").NumberFormat = "0.0 ""kg"""
    
    Else
    ToggleButtonLB.Caption = "lb"
    Range("E18").NumberFormat = "0.0 ""lb"""
End If
End Sub

相关问题