关于EXCEL中VB的提问

来源：百度知道 编辑：UC知道 时间：2024/05/22 12:36:46
我在EXCEL中写了一段代码
Dim c As Long
c=Val(Sheet1.cells(1,1).Value)
MsBox "成功删除"+c+"条数据",vbOKOonly
我是想弹出一个对话框,说已成功删除多少条数据,怎么无法运行,请问要怎么样写最后一句代码??
如何让弹出的对话框中的文本换行？

如果显示完全没必要转成数值，
Dim c As String
c=Sheet1.cells(1,1).Value
MsgBox "成功删除"+c+"条数据",vbOKOnly '这句 错误1msgbox 2，vbokonly

因为执行 "成功删除"+c+"条数据" 时 程序还有 把C转换成String，所以干什么多此一举呢

补充：msgbox中文本换行
msgbox "字符串1" & vbCrLf & "字符串2"

最有一句改为：
MsgBox "成功删除" & c & "条数据", vbOKOonly

貌似Sheet1.cells(1,1).Value是 第一格中的内容

你的删除命令是什么?

最后一句本身没有问题，错误是不是出在了Sheet1.cells(1,1).Value的值无法被转换成数值，包括那个格里面是空的情况。
文本换行是vbCrLf。
一般情况下，能用&来连接字符串，就尽量不用+。

最后一句 少打了个字母G

数据类型最好也要统一 转成字符串.

MsBox "成功删除"+c+"条数据",vbOKOonly

改成

MsgBox "成功删除" + CStr(c) + "条数据", vbOKOonly