VBA枢轴检查

我正在研究VBA项目，该项目预计会在数据透视表第一列中搜索一个值（我们称之为“X”）。一旦发现它将在下一列中查找针对（“X”）的值“A”和“B”。如果失败，则在第二列中查找值“M”和“N”和“O”与“A”的值相同的“X”值。VBA枢轴检查

成功的标准是对 “X”，要么发现 “A” 而 “B” OR “M” 而 “N” 和 “O”。一旦失败，它需要转到下一张纸并粘贴“X”。

对于范围从1到750的X重复相同的操作，该操作在本工作簿的上一页中列出。

这将帮助我一个很大的时间，任何帮助，非常感谢:)。

2017-08-27 vipul gupta

我觉得这是最简单的一个循环的每一行，有五个标志，每一个选项ABMNO。每找到一个X，然后检查第二列中的A，B，M，N，O。如果数据透视表中有很多行，请对其进行过滤，以使X的所有实例都位于顶部，并且只需循环直到单元格的检查不再是X. – jamheadart

逻辑看起来很完美，您能否请帮助我也有VBA代码部分。 –

下面的代码工作，哟

Dim A As Boolean 
Dim B As Boolean 
Dim M As Boolean 
Dim N As Boolean 
Dim O As Boolean 

Dim successCriteria As Boolean 
Dim lastROW As Long 
Dim i As Long 

With ActiveSheet 

    lastROW = .Cells(.Rows.Count, 1).End(xlUp).Row 

    For i = 2 To lastROW 
     If .Cells(i, 1).Value2 = "X" Then 
      Select Case .Cells(i, 2).Value2 
       Case "A" 
        A = True 
       Case "B" 
        B = True 
       Case "M" 
        M = True 
       Case "N" 
        N = True 
       Case "O" 
        O = True 
      End Select 
     End If 
    Next i 

End With

来源

2017-08-28 13:32:31 jamheadart

VBA枢轴检查

回答

相关问题