作业帮 > 综合 > 作业

excel vba 让messagebox显示:Information on data Number of data r

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/06/30 13:14:34
excel vba 让messagebox显示:Information on data Number of data raw:2000 No of firm:281
excel vba 让messagebox显示:Information on data Number of data r
这样?
Sub aa()
MsgBox "Information on data Number of data raw:2000 No of firm:281"
End Sub
再问: 你这样显示出来时一行。。我想要这样显示: 一行显示这个Information on data 一行显示这个Number of data raw: 2000 一行显示这个No of firm: 281
再答: 那试试看下面的代码吧! Sub aa() MsgBox "Information on data" & Chr(13) & "Number of data raw: 2000" & Chr(13) & "No of firm: 281" End Sub
再问: 高手,那要怎么样做一个提示框自动显示数据的,就是根据data的改变提示框的number 2000能自动变化,比如变成1999.
再答: 首先声明:我不是高手 其次,有几个问题希望楼主回答下: data怎么改变?在哪里取值? number和data的关系是怎么样的?
再问: 比如说那个number of data raw 有2000,如果我删除一个data raw, 那应该是只有1999, 能否让提示框自动变化从2000 变到1999
再答: 关键是这个2000是怎么得到的? 计算单元格的个数?
再问: 我重新说下, 就是我做的这个数据比如有281个公司,然后用messagebox显示是281个, 如果我删除一个公司就剩下280个公司,怎么样能让messagebox自动变成280. 怎么去编这个代码
再答: 我明白你的意思,就是不知道这281个公司是不是写在单元格中呢?如果是,是在A列吗? 其实,就是不知道你281这个数字是怎么取得的,你说删除,是删除单元格的内容?
再问: 恩 是你说的这个意思,这样的话要怎么做。
再答: 试试看吧! P.S. 设计时,A列有标题行;如果没有标题行,把“-1”去掉即可 Sub aa() MsgBox "Information on data" & Chr(13) & "Number of data raw: 2000" & Chr(13) & "No of firm:" & Cells(Rows.Count, 1).End(3).Row - 1 End Sub