Создание пользовательской формы на основе конкретных таблиц - PullRequest
0 голосов
/ 04 марта 2019

Я новичок в программировании на 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
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...