...一里添加命名为保存-宏,并且让表一的数据自动保存到表二对应的列表...
发布网友
发布时间：2024-03-07 17:57
共2个回答
热心网友
时间：2024-08-03 09:19
假定你的入库单与出库单结构一致，步骤如下：
1、ALT+F11
2、插入——模块
3、粘贴以下代码：
Sub 登记()
Dim i As Integer
Dim k As Long
With Worksheets("入库数据")
For i = 7 To 12
If Worksheets("入库单").Cells(i, 2).Value <> "" Then
k = .Range("A65536").End(xlUp).Row + 1
.Cells(k, 1).Value = Worksheets("入库单").Cells(5, 3).Value
.Cells(k, 2).Value = Worksheets("入库单").Cells(i, 2).Value
.Cells(k, 3).Value = Worksheets("入库单").Cells(i, 3).Value
.Cells(k, 4).Value = Worksheets("入库单").Cells(i, 6).Value
.Cells(k, 5).Value = Worksheets("入库单").Cells(i, 7).Value
End If
Next i
End With
End Sub
4、在“入库单”表中插入一个ActiveX 按钮控件，双击打开，在代码行中插入“登记”
就像这样(如果插入的按钮是工作表控件，指定宏就行了)
Private Sub CommandButton1_Click()
登记
End Sub
5、关闭VBE窗口
6、这样点击按钮就可以登记了。
备注：以上仅是按问题要求写的登记代码，如果实用，还得加上防重复登记、修改等代码，举一反三吧。
热心网友
时间：2024-08-03 09:19
