我是希望当a45这个单元格等于0时，才可以保存，不等于0时提示保存失败，但是判断条件好像不对，请各位大佬帮忙修改一下，谢谢啦 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 我是希望当a45这个单元格等于0时，才可以保存，不等于0时提示保存失败，但是判断条件好像不对，请各位大佬帮忙修改一下，谢谢啦

标题：我是希望当a45这个单元格等于0时，才可以保存，不等于0时提示保存失败，但是 ...

只看楼主

清风明细

等　级：新手上路
帖　子：5
专家分：0
注　册：2021-5-11
结帖率：0

楼主

已结贴√ 问题点数：20 回复次数：3

我是希望当a45这个单元格等于0时，才可以保存，不等于0时提示保存失败，但是判断条件好像不对，请各位大佬帮忙修改一下，谢谢啦

Private Sub 保存_Click()
Dim a
Sheet = 1
fpSpread1.Row = 45
fpSpread1.Col = 1
fpSpread1.CellType = Number
a = fpSpread1.Text
If a = 0 Then
MsgBox "保存成功"
If a <> 0 Then
MsgBox "保存失败"
End If
End If
End Sub

搜索更多相关主题的帖子: 失败　 If　End　等于　保存　

2021-08-28 18:50

luzhan_6

等　级：新手上路
帖　子：1
专家分：7
注　册：2021-8-29

第 2 楼

得分:7

end if位置不对

2021-08-29 16:13

cwa9958

等　级：贵宾
威　望：67
帖　子：247
专家分：1228
注　册：2006-6-25

第 3 楼

得分:7

Private Sub 保存_Click()
Dim a
Sheet = 1
fpSpread1.Row = 45
fpSpread1.Col = 1
fpSpread1.CellType = Number
a = fpSpread1.Text
If a = 0 Then
    MsgBox "保存成功"
  else
    MsgBox "保存失败"
End If
End Sub

2021-08-30 16:37

you157827715