Excel中运行时错误

问题描述：

“运行时error'3' 返回，无的GoSub”Excel中运行时错误

以上是我呈现时，我尝试运行我的Excel程序错误代码。

Sub Button3_Click() 
    If Range("G1").Value = "hot" Then 
     Call hotjuly17_macro 
    ElseIf Range("G1").Value = "cold" Then 
     Call coldjuly17_macro 
    Else 
     Return 
    End If 
End Sub

我选择了Debug选项，并且显示“Return”作为错误突出显示。我想要做的是添加另一个隐藏/取消隐藏我在Excel中选择的行的复选框。我已经在这个电子表格上使用了一个复选框，但是由于某种原因，第二个复选框不起作用。代码几乎与行隐藏/取消隐藏以及放置值的例外情况相同。（例如，对于这个复选框，我正在尝试修复的值为G1和G1，但工作复选框的值在E1中。我想我会提到的）

我不明白问题可能是什么，如果有人需要查看它，我会很高兴发布任何代码。

'Return'不是VBA中的东西。你的'If'中的最后一个子句不是必需的 - 它基本上是一个“什么也不做”的'Else'（或者如果Return不会导致它错误） – 2015-02-09 17:46:41

它应该是什么样子？（我删除了回报，但是你指的是哪个“如果”？）请你输入它吗？ – 2015-02-09 18:00:52

答

Sub Button3_Click() 
    If Range("G1").Value = "hot" Then 
     Call hotjuly17_macro 
    ElseIf Range("G1").Value = "cold" Then 
     Call coldjuly17_macro 
    End If 
End Sub

为了使代码更好地工作，可能需要添加一个简短的解释。 – ravron 2015-02-10 01:06:11

Excel中运行时错误

相关推荐