VBA: добавить уникальный идентификатор в запись пользовательской формы - PullRequest
Новая
       47

VBA: добавить уникальный идентификатор в запись пользовательской формы

0 голосов
/ 11 марта 2020

Я хочу дать уникальный идентификатор каждой записи, добавленной в таблицу - сейчас я только что добавил последнюю строку минус 2 (список начинается со строки 3), но если я удаляю строку, в следующий раз я добавлю ее будет иметь идентификатор, который уже используется, что я должен делать вместо "rng.Parent.Cells(LastRow + 1, 1).Value = LastRow - 2" Полный пример кнопки добавления: 

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect Password:=""
Dim rng As Range
Set rng = ActiveSheet.ListObjects("Table1").Range
Dim LastRow As Long
LastRow = rng.Find(What:=” * ”, _
After:=rng.Cells(1), _
Lookat:=xlPart, _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False).Row

***rng.Parent.Cells(LastRow + 1, 1).Value = LastRow - 2***
rng.Parent.Cells(LastRow + 1, 2).Value = ComboBox1.Value
rng.Parent.Cells(LastRow + 1, 3).Value = TextBox1.Value
rng.Parent.Cells(LastRow + 1, 4).Value = TextBox2.Value
rng.Parent.Cells(LastRow + 1, 5).Value = ComboBox2.Value
rng.Parent.Cells(LastRow + 1, 6).Value = ComboBox3.Value
ActiveSheet.Protect Password:="", AllowFiltering:=True, AllowSorting:=True, AllowDeletingRows:=True
    EnableSelection = xlUnlockedCells
Call CommandButton2_Click

End Sub
...