[已解决]怎么用代码统计查找同时出现情况

东方智彩

怎么用代码统计T2-DF2中的两数值在D3-Q202范围内的同时出现情况,如在T2-DF2中的两数值为01-02就到D3-Q202范围内查找,如果有的就的同行中显示为●,请高手帮助解决个代码!谢谢!
Q1d1Rp3c.rar (16.97 KB, 下载次数: 16)

2010-1-17 14:54 上传

点击文件名下载附件
怎么用代码统计查找同时出现情况

最佳答案

月排行榜 / 总排行榜

amulee

2010-1-18 14:44

QUOTE:

以下是引用东方智彩在2010-1-18 14:01:00的发言：
哈哈老师刚测试过还是不对呀,只要T2-IV2中的单元格中有的数据查找,只管几个数值只要不同在就显示为空,只有同在的数值才显为●,还要辛苦老师!

汗。。。忘记贴代码了。
Private Sub CommandButton1_Click()
    Dim ArrYS, ArrTJ, ArrJG, arrTemp
    Dim i&, j&, k&, strTemp$, blnBZ As Boolean
    ArrYS = Range("D3:Q202")
    ArrTJ = Range("T2:IV2")
    Application.ScreenUpdating = False
    Range("T3:IV202").ClearContents
    ArrJG = Range("T3:IV202")
    For i = 1 To UBound(ArrJG, 1)
        strTemp = Join(WorksheetFunction.Index(ArrYS, i, 0), "-")
        For j = 1 To UBound(ArrJG, 2)
            If Len(ArrTJ(1, j)) > 0 Then
                blnBZ = True
                arrTemp = Split(ArrTJ(1, j), "-")
                For k = 0 To UBound(arrTemp)
                    If InStr(1, strTemp, arrTemp(k), vbTextCompare) = 0 Then
                        blnBZ = False
                        Exit For
                    End If
                Next
                If blnBZ Then ArrJG(i, j) = "●"
            End If
        Next j
    Next i
    Range("T3:IV202") = ArrJG
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

东方智彩

再顶一下,等待高手帮助解决!

东方智彩

哈哈那位高手帮忙解决下这个代码!先谢谢啦!

东方智彩

继续等待,再顶!

amulee

Private Sub CommandButton1_Click()
    Dim ArrYS, ArrTJ, ArrJG, arrTemp
    Dim i&, j&, k&, strTemp$
    ArrYS = Range("D3:Q202")
    ArrTJ = Range("T2:DF2")
    ArrJG = Range("T3:DF202")
    For i = 1 To UBound(ArrJG, 1)
        strTemp = Join(WorksheetFunction.Index(ArrYS, i, 0), "-")
        For j = 1 To UBound(ArrJG, 2)
            arrTemp = Split(ArrTJ(1, j), "-")
            If InStr(1, strTemp, arrTemp(0), vbTextCompare) > 0 And _
                InStr(1, strTemp, arrTemp(1), vbTextCompare) > 0 Then
                ArrJG(i, j) = "●"
            End If
        Next j
    Next i
    Range("T3:DF202") = ArrJG
End Sub

东方智彩

谢谢amulee老师,真是厉害我的想法你总是能一次就理解到位,谢谢!还有一个问题,就是能否实现我在T2-IV2行中的单元格中任意输入01-02-03等格式的数值,都能从D3-Q202范围内找到同时存在的就显示●,注意在T2-IV2行中的单元格中任意输入01-02-03的格式是相同的,但是数值不定,也可能是3个也可能是6个,哈哈不好意思再次要辛苦老师了!

amulee

Private Sub CommandButton1_Click()
    Dim ArrYS, ArrTJ, ArrJG, arrTemp
    Dim i&, j&, k&, strTemp$
    ArrYS = Range("D3:Q202")
    ArrTJ = Range("T2:IV2")
    ArrJG = Range("T3:IV202")
    For i = 1 To UBound(ArrJG, 1)
        strTemp = Join(WorksheetFunction.Index(ArrYS, i, 0), "-")
        For j = 1 To UBound(ArrJG, 2)
            If Len(ArrTJ(1, j)) > 0 Then
                arrTemp = Split(ArrTJ(1, j), "-")
                If InStr(1, strTemp, arrTemp(0), vbTextCompare) > 0 And _
                    InStr(1, strTemp, arrTemp(1), vbTextCompare) > 0 Then
                    ArrJG(i, j) = "●"
                End If
            End If
        Next j
    Next i
    Range("T3:DF202") = ArrJG
End Sub

东方智彩

amulee老师我看测试过代码了,这个结果不对,看附件 

0UpEFFTG.rar (20.07 KB, 下载次数: 0)

2010-1-18 13:11 上传

点击文件名下载附件
怎么用代码统计查找同时出现情况

amulee

QUOTE:

以下是引用东方智彩在2010-1-18 13:11:00的发言：

amulee老师我看测试过代码了,这个结果不对,看附件 

改过了。刚才欠考虑了。

东方智彩

哈哈老师刚测试过还是不对呀,只要T2-IV2中的单元格中有的数据查找,只管几个数值只要不同在就显示为空,只有同在的数值才显为●,还要辛苦老师!