如果单元为空，做出提示，并停止运行宏怎么写代码？

aimin0221

先给各位版主及会员拜个年，新年快乐。
问题如标题，我在vba其实很简单的第84页，学到  If Range("c3").Value = "" Then MsgBox "请输入供货单位" 这一句，但只能做出提示，提示关闭后宏还继续运行。怎样停止宏，待修改后单元格后，再重新启动宏。

aimin0221

感谢楼上的回复，
你可能理解错了我的意思，我是想在C3单元格为空时，弹出提示并停止宏运行。
如果C3单元格已填写内容，则不会出现提示，宏还继续向下运行，我下面还有40多句呢。

aimin0221

朱荣兴 发表于 2014-2-3 21:07
那你这样不就行了
sub tishi()
If Range("c3").Value = "" Then MsgBox "请输入供货单位"

感谢你在假日中两次给我的帮助，但你的语句显示“else没有if”
我昨晚自己突然想到，既然没有找到“如果..........那么......并且”那我就用重复两次“如果.......那么”来编写不就行了。我使用了下面的语句，居然成功了。感觉能够优化为一句吧。
If Range("c3").Value = "" Then MsgBox "请输入供货单位", , "提示"
If Range("c3").Value = "" Then End

锋速668

Private Sub 单元格_输入对话器()
        Dim 供货单位
            供货单位 = InputBox("请输入供货单位：", "供货单位录入器", Range("c3").Value)
            Range("c3").Value = 供货单位
            If 供货单位 = "" Then
                Exit Sub
            Else
                MsgBox Range("c3").Value, 0, "供货单位："
            End If
End Sub

锋速668

Private Sub 单元格_输入对话器()
        Dim 选择, 供货单位, 提示
            If Range("c3").Value = "" Then
                选择 = MsgBox("当前的供货单位为：“”" & vbCrLf & "是否需要输入供货单位？", 36, "提示")
            Else
                选择 = MsgBox("当前的供货单位为：" & Range("c3").Value & vbCrLf & "是否需要修改供货单位？", 36, "提示")
            End If

            If 选择 = 6 Then
                供货单位 = InputBox("请输入供货单位：", "供货单位录入器", Range("c3").Value)
                Range("c3").Value = 供货单位
                If 供货单位 = "" Then
                    Exit Sub
                Else
                    MsgBox Range("c3").Value, 0, "供货单位："
                End If
            End If
End Sub

aimin0221

太感谢了！
抱歉这些天拜年，出门，没有时间研究你的代码。
比我下面这两句虽然多了好多，但如没有输入内容，可以提示，并显示输入框，在填写后可以继续执行宏。
If Range("c3").Value = "" Then MsgBox "请输入供货单位", , "提示"
If Range("c3").Value = "" Then End
但我在使用中，因为下面的代码有清除C3内容的代码，所以我不需要，当C3已输入内容时做出更改提示。所以我不需要下面这句。
选择 = MsgBox("当前的供货单位为：" & Range("c3").Value & vbCrLf & "是否需要修改供货单位？", 36, "提示")
我在前面加了单引号后，运行正常，
再次感谢，我又学到了一些知识。