Dake

原文请参见：http://club.excelhome.net/thread-873348-1-1.html我这里只是做个转载常规情况下无法区分用户是点击了取消按钮还是用户未作任何输入直接点击了确定按钮---因为这两种情况下它都会返回一个空字符串。其实这里可以用 StrPtr 函数来判断，StrPtr在VBA帮助里查找不到，应该算一个隐藏的函数，它主要用来返回真正的UNICODE字

Sub 水电费统计() AllTest Dim roomNum As String '宿舍号 Dim name As String '姓名 Dim waterUsed As String '水 实用 分表 Dim waterFree As String '水 保底 Dim eleUsed As String '电