У меня есть пользовательская форма, в которой пользователь может вставлять данные, а данные будут вставляться в столбцы B в M. Мне нужен код либо на рабочем листе, либо в userform для автоматического заполнения серийного номера, начинающегося с «RD 00001», который будет заполнять столбец A каждый раз, когда вводят данные. Пожалуйста, дайте мне идею.Код VBA для автоматического серийного номера в столбце A после ввода пользовательской формы в столбце B
ответ
Этот код очень прост и предназначен для запуска на чистом листе с Row 1
, являющимся вашей строкой заголовка. Это динамично, так что подключи и играй. Просто позвоните на юг с любым кодом, который у вас есть для ввода других данных.
Sub SerialCode()
Dim ws As Worksheet
Dim lastSerial, digits, i As Integer
Dim nextRow, lastRow As Long
Dim newSerial As String
Set ws = ThisWorkbook.Sheets(1)
nextRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1 'Finds the last row in A
lastRow = nextRow - 1
newSerial = "" 'set value of our string blank
If (nextRow - 1) < 2 Then 'If statement to catch if there's only a header
lastSerial = 0
Else: lastSerial = CInt(Replace(ws.Range("A" & lastRow).Value, "RD ", ""))
End If
lastSerial = lastSerial + 1
digits = 6 - Len(lastSerial) 'how many 0's are there
For i = 1 To digits
newSerial = newSerial & "0" 'start building the string with 0's
Next i
newSerial = "RD " & newSerial & lastSerial 'concatenate the serial code
ws.Range("A" & nextRow).Value = newSerial
End Sub
Примечание: все, что у вас есть для нахождения вашего последнего ряда для ввода других данных, убедитесь, что последняя строка и последняя строка этого субмарины являются одинаковыми.
Ive работал с кодом, который появится автоматически после того, как пользователь нажал кнопку отправки формы button.but, я не могу загрузить свой код здесь. – RayZa
Если вы поместили мой код в модуль (позвоните ему module1), то в конце кнопки button_click() в конце вставьте 'Call Module1.SerialCode'. Или вы можете поместить этот код в свой код UserForm и просто «Call SerialCode». В любом случае достигается одно и то же. – Tyeler
У меня ошибка: тип несоответствия в 'Else: lastSerial = CInt (Заменить (ws.Range ("A" и lastRow). Значение "RD", ""))' при вводе вторых данных – RayZa
- 1. Код VBA для ввода формулы в столбце b, когда заполняется столбец a
- 2. Код VBA, чтобы найти слово в столбце A, затем выберите значения как в столбцах A, так и в столбце B
- 3. Как сортировать строки в столбце A в ListObject VBA с параметром в столбце B
- 4. VBA, если значение в столбце A затем заменить в столбце B
- 5. Excel vba: Получение диапазона ячеек в столбце B на основе ячейки в столбце A
- 6. Код VBA для подсчета значений в столбце
- 7. Как суммировать значения в столбце B после поиска test1-test4 в столбце A
- 8. Ввод номера в столбец B, а затем поиск номера в столбце A
- 9. Формула для передачи информации в столбце A в колонку B
- 10. Подсчитайте строки, где значение существует в столбце A, а другое значение существует в столбце B
- 11. Excel Macro для удаления строки, если ячейка в столбце A равна ячейке в столбце B
- 12. Является ли значение ячейки в столбце B в столбце A? (LibreOffice-Calc)
- 13. Pandas: если строка в столбце A содержит «x», напишите «y» для строки в столбце B
- 14. заполнить диапазон по времени в столбце B для каждой даты в столбце A
- 15. В столбце автоматического позиционирования прокрутки
- 16. Если значение в столбце A не найдено в столбце B, удалите строку в R
- 17. Как вы заменяете конкретный символ в столбце A на значения в столбце B в Excel?
- 18. SQL, сопоставляя все значения в столбце b и столбце возврата a для этих совпадений
- 19. Справка VBA. Столбец A разделить столбец B и поставить ответ в столбце C для каждой строки
- 20. VBA создать цикл для столбца B на основе значения в столбце A
- 21. Отдельные идентификационные номера в столбце, разделенные символом a,
- 22. Выделите все строки в столбце A, соответствующие любой строке в столбце B в Excel
- 23. Код VBA, чтобы найти ячейки, содержащие «# N/A» в столбце B, и скопировать соответствующее значение ячейки в столбце A в текстовый файл
- 24. Формула Excel Если x в столбце B, тогда y, Z, K..etc в столбце A
- 25. Excel 2007 получение статистики в столбце b на основе значений в первом столбце a
- 26. Найти повторяющиеся имена в столбце B на основе критериев даты в столбце A
- 27. Найти максимальное значение в столбце B за уникальное значение в столбце A
- 28. Множество одинаковых значений в столбце A, необходимо найти большую дату в столбце B
- 29. Как найти минимальное и максимальное значения в столбце B на основе определенной строки в столбце A?
- 30. Pandas DataFrame - проверьте, содержит ли строка в столбце A полную строку слова в столбце B
См. [Когда использовать статическую переменную] (http://stackoverflow.com/documentation/vba/877/declaring-variables/16978/when-to-use-a-static-variable#t=201609070306389229598). – Comintern
_ «Мне нужен код ...» _ не работает этот сайт. Покажите свои собственные усилия и спросите о конкретной проблеме. См. [Ask] – JimHawkins
Извините за неправильное слово, которое я использовал. Должен ли я поместить свой код пользовательской формы, чтобы показать мои усилия? Я просто не знаю, как начать серийный номер part.Newbie here.Не знакомы с кодированием – RayZa