再次电机变成F8?
这个需要vba代码
Sub A()
Dim N
N = WorksheetFunction.Match([C2], Range("F:F"), 0)
[C2] = Cells(N + 1, "f")
End Sub
追问应该是的 原来点击后实现打印功能,但是每次都需要更改数据后才可以继续打印
Private Sub CommandButton1_Click()
Range("A5:J21").Select
Worksheets("供货凭证").PageSetup.PrintArea = "$A$5:$J$21"
PrintOut
End Sub
SUB 打印()
Range("A5:J21").Select
Worksheets("供货凭证").PageSetup.PrintArea = "$A$5:$J$21"
PrintOut
End Sub
就是个 指定区域打印