可以用表单控件替换我的msgbox

hanyu286613818

代码如下

1. Sub 取本月生日()
   
2. rw = [m65536].End(3).Row - 4     '获取数据表最大行位置，并减去前面4行
   
3. arr = [a5].Resize(rw, 23)        '第5行开始的原始数据读入VBA内存数组arr （这样速度快效率高）
   
4. m = Month(Now())                 '获取本月月份常量 （事先存入变量，比以后循环中反复计算Month(Now())效率高）
   
5. For i = 1 To rw                  '遍历数据表各行（数组的1-rw行，相当于实际工作表的第5行开始）
   
6. If IsDate(arr(i, 13)) Then       '如果第13列M列是日期
   
7. If Month(arr(i, 13)) = m Then    '并且该生日是本月
   
8. cnt = cnt + 1                    '计数值+1
   
9. msgtxt = msgtxt & arr(i, 4) & Space(4) & Chr(9) & arr(i, 9) & vbTab & IIf(Len(arr(i, 9)) > 4, "", Chr(9)) & arr(i, 13) & Chr(9) & Chr(9) & Chr(10)
   
10. 
    
11. End If
    
12. End If
    
13. Next
    
14. MsgBox msgtxt & "以上", 1 + 64, "杨林认识系统提示您:本月生日的有" & cnt & "人"
    
15. End Sub
    

复制代码

msgbox最多显示1024个字符，谁能用表单控件替换下呢！

李甲

用LISTBOX啦                          

hanyu286613818

李甲 发表于 2013-1-26 16:56
用LISTBOX啦

怎么使用啊，我不是很会！