Excel - присвоение уникальных номеров на основе последнего значения

Question

Я рассылаю теги с уникальными номерами клиентам. Я также должен вести учет того, сколько тегов и какие номерные теги были назначены каждому клиенту. В Excel я вручную вводил количество тегов, а затем вручную вводил номера тегов, которым они впоследствии назначались. Есть ли способ автоматизировать «номера тегов» при вводе «количества тегов» в Excel. АКА - как только я наберу ключ, клиент должен получить 10 тегов, формула будет учитывать последний присвоенный номер тега - номер 120, а затем назначить этому клиенту теги 121-130? Если бы так ... Спасибо -

Answer 1

Это как раз и пример. Скажем, наш лист похож на:

Запуск этого макроса:

Sub justin()
    Dim N As Long, j1 As String, nItems As Long
    Dim j2 As Long

    N = Cells(Rows.Count, "A").End(xlUp).Row
    Cells(N + 1, 1) = Application.InputBox(prompt:="enter new customer name", Type:=2)
    nItems = Application.InputBox(prompt:="enter number of tags", Type:=1)

    j1 = CLng(Split(Cells(N, 2).Value, "-")(1)) + 1
    j2 = j1 + nItems - 1
    Cells(N + 1, 2).Value = j1 & "-" & j2
End Sub

позволит сделать новые записи в нижней части таблицы.

Answer 2

Дорогой,

Пусть это будут метки для столбцов:

ABCDEF

Старший Теги клиента T1 T2 Tag Nos.

1 A 5 1 5 1 --- 5

Пожалуйста, введите первые две строки, как указано выше (Скажите)

Теперь в A3 введите формулу: A3 = A2 + 1; Скопируйте это вниз по рядам

Теперь в B3 Напишите клиенту B, скажем, вы хотите 12 тегов для него, поэтому введите 12 в C3

Теперь в D3, F3 и E3 введите следующие формулы:

D3 = E2 +1 E3 = C3 + D3 -1 F3 = D3 & "---" & E3 (объединение может быть выполнено с использованием & Также)

Теперь скопируйте все эти 3 формулы вниз по строкам.

Так что теперь ввод данных будет только в: столбец B (для клиента) и столбец C (для тегов)

Остальные значения будут назначаться по формуле.

Вы также можете использовать формулу суммы для столбца C для общего количества тегов, назначенных на данный момент, и перекрестной проверки с последним номером тегов.

Благодарю.

Я получил удовольствие, чтобы решить это.

С уважением.

Харшад Вегда

Answer 3

Не уверен, что именно ты имеешь в виду. Но чтобы получить уникальный тег, вы могли бы использовать =TEXT(ROW(A1),"format you want your tag in") должен это сделать .... т.е. если вы используете =TEXT(ROW(A1),"000-000") вывод будет 000-001 и т. д. и т. д. с учетом предыдущей строки.