excel的VBA进度查询求助！小弟在此感激涕零

Question

做了一个数据库查询的界面通过第1步选择数据源然后在查询内容中输入序号点击序号查询右边会显示出查询的内容想实现的是如果字段压力时间在数据库中是空的没有内容就不显示这个文字，同理如果包装时间、出库时间、物流时间都是空的那么下方的文字都不显示如果哪个字段不为空那么就显示这个文字，说的明确直白点就是我想通过这几个字段做一下进度跟踪。奈何知识有限特求大神出手支援，小弟不胜感激涕零
资源链接：http://pan.baidu.com/s/1ntJ6vTB

Answer 1

你要用VBA？
函数就能解决了

追问

VBA

Answer 2

文件有密码

追问

密码kaiwen

追答

Private Sub ListBox1_Change()
    arr = ListBox1.List
    For i = 0 To UBound(arr)
        If arr(0, i) = "压力时间" Then
            If arr(1, i) = "" Then
                Label29.Caption = ""
            Else
                Label29.Caption = "压力"
            End If
        End If
        If arr(0, i) = "包装时间" Then
            If arr(1, i) = "" Then
                Label30.Caption = ""
            Else
                Label30.Caption = "包装"
            End If
        End If
        If arr(0, i) = "出库时间" Then
            If arr(1, i) = "" Then
                Label31.Caption = ""
            Else
                Label31.Caption = "出库"
            End If
        End If
        If arr(0, i) = "物流时间" Then
            If arr(1, i) = "" Then
                Label35.Caption = ""
            Else
                Label35.Caption = "物流"
            End If
        End If
    Next
End Sub

追问

有附件么，我填入了怎么没有效果，谢谢大神么么哒

追答

追问

为什么在我电脑上会提示下标越界

本回答被提问者采纳