查询数据时，偶尔少赋值了一点，求指点问题在哪

高飞扬

求助：
在附件Report new工作表中，Report1运行宏“ttRn”时，在C1 订单号是2018-1017时，符合Q列（17列）=NEW1的，实际明明有2组数据，但是结果只赋值出来了1组，求老师帮看下问题出在哪里。C1订单号是2018-1014时，12组数据都有的。 感谢！


查找.zip (238.52 KB, 下载次数: 8)

2019-1-17 10:02 上传

点击文件名下载附件

tyxvba7529

你判断3，6，7列相同的就删掉一列了。3，6，7列随便更改个数据试试

1.              For i = 1 To UBound(ccrr) - 1
   
2.                  x1 = ccrr(i, 6) & ccrr(i, 7) & ccrr(i, 3)
   
3.                  X2 = ccrr(i + 1, 6) & ccrr(i + 1, 7) & ccrr(i + 1, 3)
   
4.                  For j = 1 To 18: crr(n, j) = ccrr(i, j): Next
   
5.                  If x1 <> X2 Then
   
6.                      n = n + 1
   
7.                       'crr(n, 1) = "汇总": crr(n, 8) = d1(x1): crr(n, 12) = d2(x1)
   
8.                      'Union(.Cells(n + s - 1, 8), .Cells(n + s - 1, 12)).Font.Color = vbBlue    '汇总行兰色
   
9.                 End If
   
10.                  'n = n + 1
    
11.              Next

复制代码

wj2368

问题在代码
If x1 <> X2 Then，因为二组数据，这个是一样的，所以跳过了，当循环2时才不相同，因此出现的是一组

abc123281

两次用crr给同一区域赋值    数据当然错误

高飞扬

谢谢大家的指点，按3楼wj2368老师的方式，改过之后就可以了。感谢！

高飞扬

wj2368 发表于 2019-1-17 10:33
问题在代码
If x1  X2 Then，因为二组数据，这个是一样的，所以跳过了，当循环2时才不相同，因此出现的是 ...

还有1个问题，想请教一下：
当运行宏WTN时，如果X2单元格的订单在WO里面只有1条数据时，会报错，说类型不匹配，不知道该怎么修改？谢谢！
Sub ayy()
Dim arr, d, i&
Set d = CreateObject("Scripting.Dictionary")
arr = Sheet7.Range("X3:X" & Sheet7.[X65536].End(3).Row)
For i = 1 To UBound(arr)
     If arr(i, 1) <> "" Then d(arr(i, 1)) = ""
Next
With [c1].Validation
    .Delete
    .Add 3, 1, 1, Join(d.keys, ",")
End With
End Sub
查找.zip (236.59 KB, 下载次数: 2)

2019-1-17 11:26 上传

点击文件名下载附件

wj2368

高飞扬 发表于 2019-1-17 11:26
还有1个问题，想请教一下：
当运行宏WTN时，如果X2单元格的订单在WO里面只有1条数据时，会报错，说类型 ...

arr = Sheet7.Range("X3:X" & Sheet7.[X65536].End(3).Row + 1)

高飞扬

wj2368 发表于 2019-1-17 12:38
arr = Sheet7.Range("X3:X" & Sheet7.[X65536].End(3).Row + 1)

非常感谢！ 会的就是这么简单，学习了!