Присвоить идентификатор - VBA
Формулировка задачи:
Здравствуйте! Есть форма, на которой расположен TextBox и кнопка Добавить. Можно ли сделать так, чтобы при добавлении в ячейку текста из TextBox, этому тексту присваивался идентификатор(1,2,3...) в соседнем столбце (столбец A)? Подскажите, пожалуйста)
Решение задачи: «Присвоить идентификатор»
textual
Листинг программы
Private Sub CommandButton1_Click() Dim i As Long i = Sheets("Лист1").Cells(65536, "B").End(xlUp).Row + 1 Sheets("Лист1").Cells(i, 2) = TextBox1 Sheets("Лист1").Cells(i, 1) = Val(Sheets("Лист1").Cells(i - 1, 1)) + 1 MsgBox "Занесено" & vbCr & "в строку " & i, vbInformation, "" End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д