[已解决]求VBA多层判断并用窗体显示信息

龙送农

T列有abc三种信息，当T列只有a信息时，窗体显示a；当T列只有b信息时，窗体显示b；当T列只有c信息时，窗体显示c；当T列只有ab信息时，窗体显示ab；当T列只有bc信息时，窗体显示bc；当T列只有abc信息时，窗体显示abc；当T列无信息时，窗体显示“无信息”。

最佳答案

月排行榜 / 总排行榜

爱疯

2016-2-25 16:39

Sub test()
    Dim d, A, rng, str$
    Set d = CreateObject("scripting.dictionary")
    For Each rng In [t1:t30]
        d(rng.Value) = ""
    Next rng
    str = Join(d.keys)
    If Len(str) Then str = VBA.Replace(str, " ", "") Else str = "无信息"
    MsgBox str, , "提示"
End Sub

跳转到最佳答案楼层

爱疯

建议上传附件。窗体显示a是什么效果

龙送农

爱疯 发表于 2016-2-25 12:05
建议上传附件。窗体显示a是什么效果

刚上附件，请老师帮看！

龙送农

龙送农 发表于 2016-2-25 12:14
刚上附件，请老师帮看！

刚上附件，请各位老师来帮看！

爱疯

窗体显示附件2.rar (15.53 KB, 下载次数: 3)

2016-2-25 16:08 上传

点击文件名下载附件

是要这样？





Sub test()
    Dim d, A, rng
    Set d = CreateObject("scripting.dictionary")
    For Each rng In [t1:t30]
        d(rng.Value) = ""
    Next rng
    MsgBox VBA.Replace(Join(d.keys), " ", ""), , "提示"
End Sub

龙送农

爱疯 发表于 2016-2-25 16:08
是要这样？

file:///C:\Documents and Settings\Administrator\Application Data\Tencent\Users\987400506\QQ\WinTemp\RichOle\67`3PSZNN)@%XXB@%F`$ELA.png
爱疯老师：
您写的代码基本达到目的，麻烦您帮改进一下代码，达到：
t1:t30改为循环的整列
当T列无信息时，窗体显示“无信息”。

爱疯

Sub test()
    Dim d, A, rng, str$
    Set d = CreateObject("scripting.dictionary")
    For Each rng In [t1:t30]
        d(rng.Value) = ""
    Next rng
    str = Join(d.keys)
    If Len(str) Then str = VBA.Replace(str, " ", "") Else str = "无信息"
    MsgBox str, , "提示"
End Sub