谁能美化下我的代码

hanyu286613818 · 发表于 2013-1-25 08:47

本帖最后由 hanyu286613818 于 2013-1-25 08:48 编辑

Sub 取值()
Dim x As Integer
Dim imsg As String
For x = 5 To 500
If IsDate(Cells(x, 13)) = True Then
If Month(Cells(x, 13)) = Month(Now()) Then
imsg = imsg & Cells(x, 4) & Space(5) & Cells(x, 9) & Space(5) & Cells(x, 13) & Space(5)
imsg = imsg & Chr(10)
End If
End If
Next x
MsgBox "本月生日的有" & Chr(10) & imsg
End Sub

复制代码

，我想要的是 MSGBOX每一列，左对齐，最后再帮我加个计数共多少人

香川群子 · 发表于 2013-1-25 10:51

本帖最后由香川群子于 2013-1-25 10:54 编辑

你的代码比较初级，如果要美化，那么很多地方要改，几乎是重写：

Sub 取本月生日()
rw = [a65536].End(3).Row - 4 '获取数据表最大行位置，并减去前面4行
arr = [a5].Resize(rw, 13) '第5行开始的原始数据读入VBA内存数组arr （这样速度快效率高）
m = Month(Now()) '获取本月月份常量（事先存入变量，比以后循环中反复计算Month(Now())效率高）
For i = 1 To rw '遍历数据表各行（数组的1-rw行，相当于实际工作表的第5行开始）
If IsDate(arr(i, 13)) Then '如果第13列M列是日期
If Month(arr(i, 13)) = m Then '并且该生日是本月
cnt = cnt + 1 '计数值+1
msgtxt = msgtxt & arr(i, 4) & vbTab & arr(i, 9) & vbTab & arr(i, 13) & vbCr
'合并有效数据，中间用Tab分隔，而不是用5个空格，这样可以自动对齐
End If
End If
Next
MsgBox "本月生日的有 " & cnt & "人：" & vbCr & msgtxt & "以上"
End Sub

复制代码

香川群子 · 发表于 2013-1-25 11:22

考虑到有时候部门或姓名里还有超长字符，那么就用两个Tab对齐好了。

msgtxt = msgtxt & arr(i, 4) & vbTab & IIf(Len(arr(i, 4)) > 4, "", vbTab) & arr(i, 9) & vbTab & IIf(Len(arr(i, 9)) > 4, "", vbTab) & arr(i, 13) & vbCr

hanyu286613818 · 发表于 2013-1-25 13:12

香川群子发表于 2013-1-25 11:22
考虑到有时候部门或姓名里还有超长字符，那么就用两个Tab对齐好了。

msgtxt = msgtxt & arr(i, 4) & vbT ...

谢谢实在感谢啊，后来我用了这个代码

Sub 取本月生日()
rw = [a65536].End(3).Row - 4 '获取数据表最大行位置，并减去前面4行
arr = [a5].Resize(rw, 13) '第5行开始的原始数据读入VBA内存数组arr （这样速度快效率高）
m = Month(Now()) '获取本月月份常量（事先存入变量，比以后循环中反复计算Month(Now())效率高）
For i = 1 To rw '遍历数据表各行（数组的1-rw行，相当于实际工作表的第5行开始）
If IsDate(arr(i, 13)) Then '如果第13列M列是日期
If Month(arr(i, 13)) = m Then '并且该生日是本月
cnt = cnt + 1 '计数值+1
msgtxt = msgtxt & arr(i, 4) & Space(5) & Chr(9) & arr(i, 9) & Space(5) & Chr(9) & arr(i, 13) & Space(5) & Chr(9) '合并有效数据，中间用Tab分隔，而不是用5个空格，这样可以自动对齐
msgtxt = msgtxt & Chr(10)
End If
End If
Next
MsgBox "本月生日的有 " & cnt & "人：" & msgtxt & "以上"
End Sub

复制代码

怎么下面有几个没有显示出来啊

hanyu286613818 · 发表于 2013-1-25 13:20

本帖最后由 hanyu286613818 于 2013-1-25 13:21 编辑

香川群子发表于 2013-1-25 11:22
考虑到有时候部门或姓名里还有超长字符，那么就用两个Tab对齐好了。

msgtxt = msgtxt & arr(i, 4) & vbT ...

用你的代码实现的是图片这样的

香川群子 · 发表于 2013-1-25 13:31

你还是上个附件吧。

为了保密，可以把除生日以外的信息用随便什么文字代替。

hanyu286613818 · 发表于 2013-1-25 13:42

本帖最后由 hanyu286613818 于 2013-1-25 13:52 编辑

香川群子发表于 2013-1-25 13:31
你还是上个附件吧。

为了保密，可以把除生日以外的信息用随便什么文字代替。

好的你等等重要的是;如果部门为4个字的话，后面就不对齐了！

hanyu286613818 · 发表于 2013-1-25 14:06

香川群子发表于 2013-1-25 13:31
你还是上个附件吧。

为了保密，可以把除生日以外的信息用随便什么文字代替。

我用“& Space(4) & Chr(9）”代替里你的一个VBTAB实现了！

hanyu286613818 · 发表于 2013-1-25 14:43

香川群子发表于 2013-1-25 13:31
你还是上个附件吧。

为了保密，可以把除生日以外的信息用随便什么文字代替。

我后来更改了下代码，但是如果超过40人当月生日就显示不出来了！怎么回事呢？

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

复制代码

香川群子 · 发表于 2013-1-25 16:11

呵呵，VBA对话框有大小容量限制的吧。

		自动登录	找回密码
密码			免费注册

[求助] 谁能美化下我的代码