Обновление серии номеров с использованием префикса - PullRequest
Новая
       32

Обновление серии номеров с использованием префикса

0 голосов
/ 05 мая 2019

У меня есть «ГЛАВНАЯ ФОРМА», а затем 2 разных листа, которые разбивают информацию, образуют основную форму на листе, который применим.Я хочу сгенерировать код, чтобы помочь мне увеличить «Номер приложения», я провел некоторое исследование и получил несколько кодов, но я не могу заставить номер работать последовательно.

Я написал кодв конце userform_Initialize, а также на CommandButton.Число, похоже, остается на 2020001, и умножает информацию на 2. 

 Private Sub UserForm_Initialize()
  Dim NextNum As Long, prefix As String
  Dim i As Long
  prefix = "202000"
  NextNum = Application.WorksheetFunction.Max(Worksheets("MAIN 
  FORM").Columns(4))
  i = NextNum + 1
  Me.TextBox1.Enabled = False
  Me.TextBox1.Value = prefix & i
  Worksheets("MAIN FORM").Cells(i, 4) = i

With ThisWorkbook.Worksheets("MAIN FORM")
.Cells(.Rows.Count, "A").End(xlUp).Offset(1) = TextBox1.Value      
 TextBox1.Text = Application.Max(.Range("A:A")) + 1
 End With
...