Я новичок в программировании на 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