未受保护Excel工作表出现Runtime 1004错误：无法设置Range的NumberFormat

核心排查方向与修复代码 #

• 指定目标工作表，避免活动表歧义
  默认Range("E18")会操作当前活动工作表，而非按钮所在工作表，这是触发错误的常见原因。修改代码为：

  Private Sub ToggleButtonLB_Click()
      If ToggleButtonLB.Value = True Then
          ToggleButtonLB.Caption = "kg"
          Me.Range("E18").NumberFormat = "0.0 kg" 'Me代表按钮所在工作表
      Else
          ToggleButtonLB.Caption = "lb"
          Me.Range("E18").NumberFormat = "0.0 lb"
      End If
  End Sub
  

• 捕获具体错误信息
  若上述修改后仍报错，添加错误捕获代码获取精准错误信息，方便定位问题：

  Private Sub ToggleButtonLB_Click()
      On Error GoTo ErrCatch
      If ToggleButtonLB.Value = True Then
          ToggleButtonLB.Caption = "kg"
          Me.Range("E18").NumberFormat = "0.0 kg"
      Else
          ToggleButtonLB.Caption = "lb"
          Me.Range("E18").NumberFormat = "0.0 lb"
      End If
      Exit Sub
  ErrCatch:
      MsgBox "错误编号：" & Err.Number & vbNewLine & "错误内容：" & Err.Description
  End Sub
  

• 排查单元格锁定与公式冲突

  • 即使工作表未保护，单元格默认可能处于锁定状态，可先解锁再设置格式：Me.Range("E18").Locked = False
  • 暂时清空E18的公式，单独测试格式设置代码，若正常则排查公式是否触发计算类错误（如循环引用）

内容的提问来源于stack exchange，提问作者Aragorn2001