求大神帮助解决数据录入保存

祁连山庄 · 发表于 2023-1-17 18:56

群里的大神，帮我把数据录入表中录入的数据按进销表里表头顺序保存！不胜感谢！！另外数据录入表里新建和保存反应能迟钝，帮忙也解决一下！

祁连山庄 · 发表于 2023-1-17 18:57

附上做的材料账！求各位大神帮助解决！！

1121228509 · 发表于 2023-1-18 00:24

新建和保存反应迟钝是工作簿的原因，你这工作簿编辑一个单元格都要反应2秒。
录入表中录入的数据按进销表里表头顺序保存，看是不是这样？见附件

材料账管理.rar (198.67 KB, 下载次数: 14)

祁连山庄 · 发表于 2023-1-18 12:10

1121228509 发表于 2023-1-18 00:24
新建和保存反应迟钝是工作簿的原因，你这工作簿编辑一个单元格都要反应2秒。
录入表中录入的数据按进销表 ...

谢谢！！保存顺序是对了！还有问题是，颜色内是设置公式的，只有空白地方可以填数据，一点新建，公式就取消了不见了！第二个问题就是反应速度温度！

祁连山庄 · 发表于 2023-1-18 12:11

祁连山庄 · 发表于 2023-1-18 12:21

入库单和出库单点击不能自由切换

祁连山庄 · 发表于 2023-1-18 12:24

入库单和出库单不能自由切换，出现这个问题

3190496160 · 发表于 2023-1-18 14:18

Sub 录入保存()
Dim Ar As Variant
Dim rn As Range
With Sheets("数据录入")
Ar = .Range("a1:j11")
cg = .Range("F14")
dh = .[j3]
End With
Dim br()
ReDim br(1 To UBound(Ar), 1 To 18)
With Sheets("进销表")
Set rn = .Columns(2).Find(dh, , , , , , 1)
If Not rn Is Nothing Then MsgBox "不能重复录入！": End
For i = 6 To UBound(Ar)
      If Trim(Ar(i, 3)) <> "" Then
         n = n + 1
         br(n, 1) = Ar(3, 6)
         br(n, 2) = Ar(3, 10)
         br(n, 3) = Ar(i, 10)
         For j = 3 To 6
            br(n, j + 1) = Ar(i, j)
         Next j
         If Trim(Ar(2, 2)) = "存货入库单" Then
            br(n, 8) = Ar(i, 7)
            br(n, 9) = Ar(i, 9)
            br(n, 13) = "入库"
            br(n, 15) = cg
         Else
            br(n, 10) = Ar(i, 7)
            br(n, 11) = Ar(i, 8)
            br(n, 12) = Ar(i, 9)
            br(n, 13) = "出库"
            br(n, 16) = cg
         End If
         br(n, 14) = Ar(3, 4)
      End If
Next i
If n = "" Then MsgBox "录入表为空！": End
   r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(r, 1).Resize(n, 16) = br
End With
Sheets("数据录入").Range("C6:J11").ClearContents
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-1-18 14:21

材料账管理.rar (197.01 KB, 下载次数: 17)

3190496160 · 发表于 2023-1-18 14:22

尽搞些华而不实的东西，增大了文件体积，从而导致文件反应特慢，更是拖慢了代码运行的速度，

		自动登录	找回密码
密码			免费注册

[求助] 求大神帮助解决数据录入保存

评分