g1=true
g2=false
g3=true
g4=true查找g1 ,g2,g3,g4中有几个true
谢了

解决方案 »

  1.   

    也不知道你变量类型,示例一种:   Dim g1 As Boolean, g2 As Boolean, g3 As Boolean, g4 As Boolean
        Dim a
        
        g1 = True
        g2 = False
        g3 = True
        g4 = True
        
        a = Array(g1, g2, g3, g4)
        Debug.Print UBound(Split(Join(a), "True"))
    不过这样声明变量不好使。像你这样要统计信息,最好用变量数组,循环就可以了....