信息提示设置，帮忙改下代码

蝴蝶兰2017

期望达成目标：当单击按钮时，可以一次性显示出所有符合条件的信息。如：
姓名：齐恒，签到时间：8:50:00；迟到：00:05:00
姓名：燕云飞，签到时间：8:49:00；迟到：00:04:00
……
是不是可以不用msgbox显示？用什么显示合适呢？
新手，求指点！ book.rar (16.5 KB, 下载次数: 4)

2018-8-9 09:46 上传

点击文件名下载附件

liulang0808

1. Sub chidao()
   
2. 
   
3.     Dim s As Date, dk As Date, t As Date, ch As Date
   
4.    
   
5.     Dim i As Integer, xm As String, n As Long
   
6.    
   
7.     n = Application.WorksheetFunction.CountA(Range("A:A"))
   
8.    
   
9.     dk = TimeValue("8:30:00")
   
10.    
    
11.     t = TimeValue("0:15:00")
    
12.    
    
13.      For i = 2 To n
    
14.         
    
15.            s = Cells(i, 2)
    
16.         
    
17.            xm = Cells(i, 1)
    
18.         
    
19.            ch = s - dk - t
    
20.         
    
21.           If s > dk And ch > 0 Then
    
22.         
    
23.                 str1 = str1 & Chr(13) & "姓名：" & xm & "，签到时间为：" & s & "；迟到：" & ch
    
24.         
    
25.           End If
    
26.    
    
27.      Next
    
28. 
    
29.     If Len(str1) > 0 Then MsgBox Mid(str1, 2)
    
30. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

蝴蝶兰2017

谢谢，效果很完美。

但是，str1  这个看不太懂，能不能详细解释下，谢谢！

凌空一羽

book.zip (16.8 KB, 下载次数: 6)

2018-8-9 10:18 上传

点击文件名下载附件