| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 336 人关注过本帖
标题:多个条件语句判断不准确求助!
取消只看楼主 加入收藏
xgh5188
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2013-4-11
收藏
 问题点数:0 回复次数:0 
多个条件语句判断不准确求助!
Dim I As Integer: Dim J As Integer: Dim K As Integer
'如果想一次找到所有同类项,只需要把行15注释掉,再使用行17和行30就行了
'不管条件再多,就是并下去就行了
Private Sub CommandButton1_Click()
    For I = 1 To Application.CountA(Sheet1.Columns(1)) - 1
         Range(Cells(I, 1), Cells(I, 22)).Interior.ColorIndex = 2                                              '清除底色
    Next I
    For I = 1 To Sheet2.Application.CountA(Sheet1.Columns(1)) - 1
        Sheet2.Range(Sheet2.Cells(I, 1), Sheet2.Cells(I, 22)).Interior.ColorIndex = 2
    Next I
    I = CInt(Trim(InputBox("请输入行号", "每次一行", 2)))                                                      '确定行号,否则所有有同类项的行的底色都被改变              行15
    K = 0
   'For I = 1 To Application.CountA(Sheet1.Columns(1)) - 1                                                     '行17
        For J = 1 To Sheet2.Application.CountA(Sheet1.Columns(1)) - 1
            If Sheet2.Cells(J, "E").Value = Cells(I, "F").Value _
                Then 'And Sheet2.Cells(J, "F").Value = Cells(I, "E").Value _
                'And Sheet2.Cells(J, "F").Value = Cells(I, "N").Value _
                'And Sheet2.Cells(J, "J").Value = Cells(I, "J").Value Then
                Sheet2.Range(Sheet2.Cells(J, 1), Sheet2.Cells(J, 22)).Interior.ColorIndex = 5                  '改变已经找到的符合要求行的底色
                Range(Cells(I, 1), Cells(I, 22)).Interior.ColorIndex = 5
                K = K + 1                                                                                       '统计同类行的数量
            End If
        Next J
        If K > 0 Then
            MsgBox "在 <" + Sheet2.Name + "> 表中共找到与 <" + Sheet1.Name + "> 第" + CStr(I) + "行数据吻合的数据" + CStr(K) + "条!", vbInformation, "这么难,还是被我找到了!"
        Else
            MsgBox "没有找到与 <" + Cells(I, "F").Value + "> 匹配的项目!", vbInformation, "很遗憾,我没有找到有价值的线索!"
        End If
    'Next I                                                                                                     '行30
End Sub

此代码是用在EXCEL中对比两个EXCLE表格的,必须同时满足几个条件的才标记颜色跳出来,但是这段代码有点问题,挑出的数据是2个,按道理是条件越多挑出的东西越准确,麻烦哪位大侠看看那里有问题
搜索更多相关主题的帖子: 同类项 
2013-04-11 12:21
快速回复:多个条件语句判断不准确求助!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024812 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved