请大师帮忙,具体在我的模块上的要求,谢谢!

凯哥003

lsc900707 发表于 2017-4-27 23:18
我也是自学的，到现在也才一年多一点时间，还有很多东西没有接触过。我们一起加油！

好的,加油,大哥哥

lsc900707

凯哥003 发表于 2017-4-27 23:20
好的,加油,大哥哥

查询的代码写完了，建议你在新的sheet里查询打印

1. Sub 查询()
   
2.    arr = Sheet4.UsedRange
   
3.    For m = 3 To UBound(arr)
   
4.        If [b6] = arr(m, 2) Then
   
5.             [e5] = arr(m, 3): [e6] = arr(m, 4): [h8] = arr(m, 5)
   
6.             [f9] = arr(m, 6): [h9] = arr(m, 7): [j9] = arr(m, 8)
   
7.             [h10] = arr(m, 9): [f11] = arr(m, 10): [h11] = arr(m, 11)
   
8.             [j11] = arr(m, 12): [h12] = arr(m, 13): [f13] = arr(m, 14)
   
9.             [h13] = arr(m, 15): [j13] = arr(m, 16): [f14] = arr(m, 17)
   
10.             [h14] = arr(m, 18): [j14] = arr(m, 19): [h15] = arr(m, 20)
    
11.             [f16] = arr(m, 21): [h16] = arr(m, 22): [j16] = arr(m, 23)
    
12.             [f17] = arr(m, 24): [h17] = arr(m, 25): [j17] = arr(m, 26)
    
13.             [e18] = arr(m, 27): [e21] = arr(m, 28): [e24] = arr(m, 29)
    
14.             [e25] = arr(m, 30): [e26] = arr(m, 31): [e27] = arr(m, 32)
    
15.        End If
    
16.     Next
    
17. End Sub

复制代码

凯哥003

lsc900707 发表于 2017-4-28 09:24
查询的代码写完了，建议你在新的sheet里查询打印

32.5R和42.5R指标内容不一样,是要重建两张表进行查询打印吗.谢谢大哥哥

凯哥003

lsc900707 发表于 2017-4-28 09:24
查询的代码写完了，建议你在新的sheet里查询打印

大哥哥,我想到了,只要在原32.5R和42.5R(即SHT1和SHT3)上做个查询,打印后清空不要的数据只留当模板用的,可以这样吗.大哥哥我存数据有个不足是一直按会重复存,还有有分3天强度先存.28天强度怎补录.谢谢大哥哥用心帮小弟

lsc900707

要不哪个也不用工作表事件，一起放到查询里处理。我再测试下。

凯哥003

lsc900707 发表于 2017-4-28 10:42
要不哪个也不用工作表事件，一起放到查询里处理。我再测试下。

大哥哥,是可以的.问题是我在平均值X设有公式和在模板出厂水泥不一样:两种方案1.种是平均值不召回让公式在,2.种用循环公式.另外要在工作表把出厂水泥召回

lsc900707

取消工作表事件就可以。下午我发给你。

凯哥003

lsc900707 发表于 2017-4-28 11:52
取消工作表事件就可以。下午我发给你。

好的,谢谢大哥哥

lsc900707

凯哥003 发表于 2017-4-28 16:48
好的,谢谢大哥哥

1. Sub 模式选择()
   
2.     If Len([e5]) Then
   
3.         If [e5] = "32.5R" Then
   
4.              arr = Sheet1.[a1].CurrentRegion
   
5.              ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.              For i = 8 To UBound(arr) - 1
   
7.                  k = k + 1
   
8.                  For j = 1 To UBound(arr, 2)
   
9.                      brr(k, j) = arr(i, j)
   
10.                  Next
    
11.              Next
    
12.          End If
    
13.          If [e5] = "42.5R" Then
    
14.              arr = Sheet3.[a1].CurrentRegion
    
15.              ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    
16.              For i = 8 To UBound(arr) - 1
    
17.                  k = k + 1
    
18.                  For j = 1 To UBound(arr, 2)
    
19.                      brr(k, j) = arr(i, j)
    
20.                  Next
    
21.              Next
    
22.          End If
    
23.     End If
    
24.     [a8:d27].ClearContents
    
25.     If k Then [a8:f9].Resize(k) = brr
    
26. End Sub

复制代码

凯哥003

lsc900707 发表于 2017-4-28 16:54

谢谢大哥哥.用表控按钮可以,我再做个清空按钮.随时待用.如果[出厂水泥]的B5能同时调回,因32.5R和42.5R的B5不一样.那在工作表事件同样行.那是太完美,真是lsc900707大哥哥又一杰作