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

凯哥003

lsc900707 发表于 2017-5-4 19:06
你自己测试修改，就这样要我说出个子丑寅卯来也不一定对。

大哥哥:我老土做了两个表控.一个保存.一个补录,还是不懂整合:Dim ar(1 To 28, 1 To 34)    If [b6] = "" Or [e6] = "" Or [b5] = "" Then
        MsgBox "出厂编号、出厂日期、出厂水泥必须全部填写完整方可保存数据。"
        Exit Sub
    End If

  For i = 1 To 2
        If Cells(i, 1) <> "" Then

  m = m + 1
   ar(m, 2) = [b6]

ar(m, 3) = [e5]
ar(m, 4) = [e6]
ar(m, 5) = [h8]
ar(m, 6) = [f9]
ar(m, 7) = [h9]
ar(m, 8) = [j9]
ar(m, 9) = [h10]
ar(m, 10) = [f11]
ar(m, 11) = [h11]
ar(m, 12) = [j11]
ar(m, 13) = [h12]
ar(m, 14) = [f13]
ar(m, 15) = [h13]
ar(m, 16) = [j13]
ar(m, 17) = [f14]
ar(m, 18) = [h14]
ar(m, 19) = [j14]
ar(m, 20) = [h15]
ar(m, 21) = [f16]
ar(m, 22) = [h16]
ar(m, 23) = [j16]
ar(m, 24) = [f17]
ar(m, 25) = [h17]
ar(m, 26) = [j17]

ar(m, 27) = [e18]
ar(m, 28) = [e21]
ar(m, 29) = [e24]
ar(m, 30) = [e25]
ar(m, 31) = [e26]
ar(m, 32) = [e27]
ar(m, 33) = [b5]

  End If

   Dim listNo As String

                        Dim rngs As Range
                        Dim rng As Variant
                        listNo = Worksheets("模块").Range("B6").Value
                    Set rngs = Sheet4.Range("B1:B50000")

                    Set rng = rngs.Find(what:=listNo, LookIn:=xlValues, MatchCase:=False) '查找单号
                    If Not rng Is Nothing Then
                        k = rng.Row
                    End If

                    Sheet4.Rows(k).Delete   '删除


    Next

    Sheet4.Range("A" & Sheet4.[c65536].End(3).Row + 1).Resize(m, 34) = ar

     If MsgBox("确定更新原数据并清空模板吗?", 1 + vbokNo, "〖凯哥管理系统〗-提示您") = vbOK Then
Range("b5,b6,e6,f9,h9,j9,f11,h11,j11,f13,h13,j13,f14,h14,j14,f16,h16,j16,e18:e27,d8:d27") = ""