如何用宏vba实现，关闭excel表格时，弹出msgbox对话框，引用某单元格的数值。

Posted 2023-04-05

例如：单元格A1中的数据为30%
关闭时msgbox显示：现在的完成率为30%。
谢谢！

参考技术A Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox 现在的完成率为" & sheet1.cells(1,1) '具体是哪个工作表的A1，请修改工作表名即可。
End Sub本回答被提问者采纳 参考技术B Private Sub Workbook_BeforeClose(Cancel As Boolean)
MsgBox 现在的完成率为" & [A1]
End Sub

在excel中如何用VBA取得每页的行数?

我想用VBA取得excel表每页的行数,但不知如何实现,请高手帮忙,谢谢.
我是说的每一页所包含的行数,比如第一页是25行,第三页是27行,第十五页为30行.
上面说的不符合我的意思,我指的是打印时每页包含的记录数有多少,我要设置每页的行数不等可以实现吗?

\'在工作薄的最前面插入一工作表
\'在新表的A1、B1分别输入：表名、行数
\'选定A1，运行下面的宏
Public Sub hang()

For i = 2 To Sheets.Count
r = Sheets(i).Cells.SpecialCells(xlCellTypeLastCell).Row
n = Sheets(i).Name
ActiveCell.Offset(i, 0) = n
ActiveCell.Offset(i, 1) = r
Next
End Sub 参考技术A http://www.okexcel.com.cn/bbs/viewthread.php?tid=26&extra=page%3D2

看这个！ 参考技术B Range("A65536").End(xlUp).Row