Excel VBA取消input框不返回假/退出子

我的Excel工作表上有一个命令button，它打开一个application.inputbox，预装了当前选定的范围，并将该范围内的单元格内容附加到对这些单元格的注释中。

我正在使用一个if / else语句来检查取消button是否被单击，但它不退出子; 代码运行是否我单击确定或取消。 我认为取消button不是返回'假'或我的if语句被破坏。

这里是代码：

Private Sub CommentLogButton_Click() 'This Sub Appends Cell Contents to Cell Comment Dim rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "Range to Log" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) If WorkRng = False Then Exit Sub Else For Each rng In WorkRng rng.NoteText Text:=rng.NoteText & rng.Value & ", " rng.Value = "" Next End If End Sub 

Answer 1

WorkRng已被声明为范围。

更改

 If WorkRng = False Then 

至

 If WorkRng is nothing Then 

改变你的代码

 Private Sub CommentLogButton_Click() 'This Sub Appends Cell Contents to Cell Comment Dim rng As Range, WorkRng As Range Dim rngAddress As String xTitleId = "Range to Log" '~~> Check if what the user selected is a valid range If TypeName(Selection) <> "Range" Then MsgBox "Select a range first." Exit Sub End If rngAddress = Application.Selection.Address On Error Resume Next Set WorkRng = Application.InputBox("Range", xTitleId, rngAddress, Type:=8) On Error GoTo 0 If WorkRng Is Nothing Then Exit Sub Else For Each rng In WorkRng rng.NoteText Text:=rng.NoteText & rng.Value & ", " rng.Value = "" Next End If End Sub 

Answer 2

 Dim sRange As String sRange = Application.InputBox("Range", xTitleId, Application.Selection.Address) Is sRange = "" Then Exit Sub Else Set WorkRng = Range(sRange) End If