Question

我是VBA编程的新手，但我试图使用VBA创建一系列测试证书。重要的值是序列号。我创建了一个代码，该代码使我可以根据产品的数量来复制工作表。该代码还将工作表重命名为我想要的序列号。

我想要做的是拥有一个用户表单，检查员可以在其中输入测试结果，并将这些值写入测试证书中。这是我能弄清楚的。我正在努力的是如何根据上述代码生成的测试证书的数量来获取表格以添加正确数量的输入块。

任何对此的帮助将不胜感激。我已经附加了当前的代码。

    Sub CopyTemplate()
Dim ws As Worksheet, wsTemplate As Worksheet
Dim n As Integer, i As Long
Dim job As String
Dim qty As String
Dim serial As String
Dim space As String
Dim NewWsTemplate As Worksheet
Application.ScreenUpdating = False
Set ws = Sheets("cover")
Set wsTemplate = Sheets("HYD TEST CERT")     'Where Template is the name of Template Sheet, change it as required.
job = ws.Range("C12").Value
qty = ws.Range("c13").Value
serial = Right(job, 5)
space = "-"
n = ws.Range("c13").Value

If n > 0 Then
    For i = 2 To n
            wsTemplate.Copy after:=Sheets(Sheets.Count)
         ActiveSheet.Name = serial & space & i
    Next i
End If
            wsTemplate.Name = serial & space & 1

Application.ScreenUpdating = True

End Sub

根据特定的工作表创建用户表单

0 个答案: