我有一个运行在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
任何帮助将不胜感激!
1条答案
按热度按时间1dkrff031#
如果运行宏记录器并将单元格更改为所需的格式,则会得到:
在你的代码中,尝试: