Автоматическое проставление нумерации
mumzes
Дата: Понедельник, 19.03.2018, 11:45 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
Добрый день, Комрадс! Подскажите пожалуйста как сделать так, чтобы номера проставлялись в автоматическом режиме. Т.е. чтобы я мог бы задать первые 2-3 номера, а эксель дальше сам все заполнил, меняя только число. Я руками первые 200 штук заполнил, а теперь надо еще 500 номеров прописать чувствую взбешусь
Добрый день, Комрадс! Подскажите пожалуйста как сделать так, чтобы номера проставлялись в автоматическом режиме. Т.е. чтобы я мог бы задать первые 2-3 номера, а эксель дальше сам все заполнил, меняя только число. Я руками первые 200 штук заполнил, а теперь надо еще 500 номеров прописать чувствую взбешусь mumzes
Сообщение отредактировал mumzes - Понедельник, 19.03.2018, 11:46
Ответить
Сообщение Добрый день, Комрадс! Подскажите пожалуйста как сделать так, чтобы номера проставлялись в автоматическом режиме. Т.е. чтобы я мог бы задать первые 2-3 номера, а эксель дальше сам все заполнил, меняя только число. Я руками первые 200 штук заполнил, а теперь надо еще 500 номеров прописать чувствую взбешусь Автор - mumzes Дата добавления - 19.03.2018 в 11:45
sboy
Дата: Понедельник, 19.03.2018, 12:22 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Добрый день. тиражировать копированием или протягиваниемКод
="М-000"&(4000+5*(СТРОКА()-4)/4+1+ЕЧЁТН(СТОЛБЕЦ())*(СТОЛБЕЦ()/2-1))
Добрый день. тиражировать копированием или протягиваниемКод
="М-000"&(4000+5*(СТРОКА()-4)/4+1+ЕЧЁТН(СТОЛБЕЦ())*(СТОЛБЕЦ()/2-1))
sboy
Яндекс: 410016850021169
Ответить
Сообщение Добрый день. тиражировать копированием или протягиваниемКод
="М-000"&(4000+5*(СТРОКА()-4)/4+1+ЕЧЁТН(СТОЛБЕЦ())*(СТОЛБЕЦ()/2-1))
Автор - sboy Дата добавления - 19.03.2018 в 12:22
китин
Дата: Понедельник, 19.03.2018, 12:30 |
Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
нажмите кнопочку в файле файл перевложил. в зеленой клеточки можно ставить количество необходимых номеров
[vba]
Код
Sub NumNum() Dim vd&, pop&, i&, i_&, tt& bon1 = "ПОЛУЧИ СВОЙ БОНУС" bon2 = "ПО УНИКАЛЬНОМУ КОДУ:" bon3 = "M-000" tt = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False Application.CutCopyMode = False Application.DisplayAlerts = False Range("A1:J" & tt).ClearContents i = 4000 i_ = Range("N1").Value / 5 * 4 For pop = 4 To i_ Step 4 For vd = 2 To 10 Step 2 i = i + 1 Cells(pop - 2, vd).Value = bon1 Cells(pop - 1, vd).Value = bon2 Cells(pop, vd).Value = bon3 & i Range("B2:B4").Copy Cells(pop - 2, vd).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Next vd Next pop Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba]
нажмите кнопочку в файле файл перевложил. в зеленой клеточки можно ставить количество необходимых номеров
[vba]
Код
Sub NumNum() Dim vd&, pop&, i&, i_&, tt& bon1 = "ПОЛУЧИ СВОЙ БОНУС" bon2 = "ПО УНИКАЛЬНОМУ КОДУ:" bon3 = "M-000" tt = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False Application.CutCopyMode = False Application.DisplayAlerts = False Range("A1:J" & tt).ClearContents i = 4000 i_ = Range("N1").Value / 5 * 4 For pop = 4 To i_ Step 4 For vd = 2 To 10 Step 2 i = i + 1 Cells(pop - 2, vd).Value = bon1 Cells(pop - 1, vd).Value = bon2 Cells(pop, vd).Value = bon3 & i Range("B2:B4").Copy Cells(pop - 2, vd).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Next vd Next pop Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba]
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 19.03.2018, 12:42
Ответить
Сообщение нажмите кнопочку в файле файл перевложил. в зеленой клеточки можно ставить количество необходимых номеров
[vba]
Код
Sub NumNum() Dim vd&, pop&, i&, i_&, tt& bon1 = "ПОЛУЧИ СВОЙ БОНУС" bon2 = "ПО УНИКАЛЬНОМУ КОДУ:" bon3 = "M-000" tt = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False Application.CutCopyMode = False Application.DisplayAlerts = False Range("A1:J" & tt).ClearContents i = 4000 i_ = Range("N1").Value / 5 * 4 For pop = 4 To i_ Step 4 For vd = 2 To 10 Step 2 i = i + 1 Cells(pop - 2, vd).Value = bon1 Cells(pop - 1, vd).Value = bon2 Cells(pop, vd).Value = bon3 & i Range("B2:B4").Copy Cells(pop - 2, vd).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _ SkipBlanks:=False, Transpose:=False Application.CutCopyMode = False Next vd Next pop Application.ScreenUpdating = True Application.CutCopyMode = True Application.DisplayAlerts = True End Sub
[/vba]
Автор - китин Дата добавления - 19.03.2018 в 12:30
pabchek
Дата: Понедельник, 19.03.2018, 13:19 |
Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 931
Репутация:
218
±
Замечаний:
0% ±
Excel 2007
А гляньте вариант. УФ + примитивные формулыДобавил: Чтобы размножить, выделяете строки 5:8 и тянете вниз сколько нужно
А гляньте вариант. УФ + примитивные формулыДобавил: Чтобы размножить, выделяете строки 5:8 и тянете вниз сколько нужно pabchek
"Учиться, учиться и еще раз учиться!" WM: R399923528092
Сообщение отредактировал pabchek - Понедельник, 19.03.2018, 13:21
Ответить
Сообщение А гляньте вариант. УФ + примитивные формулыДобавил: Чтобы размножить, выделяете строки 5:8 и тянете вниз сколько нужно Автор - pabchek Дата добавления - 19.03.2018 в 13:19
mumzes
Дата: Понедельник, 19.03.2018, 14:31 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
большое вам спасибо добрые люди ))
большое вам спасибо добрые люди )) mumzes
Ответить
Сообщение большое вам спасибо добрые люди )) Автор - mumzes Дата добавления - 19.03.2018 в 14:31
jakim
Дата: Понедельник, 19.03.2018, 14:48 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1218
Репутация:
316
±
Замечаний:
0% ±
Excel 2010
Ещё одна формула для нумерованных строк
Код
=IF(B3<>"";"М-"&TEXT(TRUNC((COLUMNS($B:B)+1)/2)+(TRUNC((ROWS($4:4))/4))*5;"0000000");"")
Ещё одна формула для нумерованных строк
Код
=IF(B3<>"";"М-"&TEXT(TRUNC((COLUMNS($B:B)+1)/2)+(TRUNC((ROWS($4:4))/4))*5;"0000000");"")
jakim
Ответить
Сообщение Ещё одна формула для нумерованных строк
Код
=IF(B3<>"";"М-"&TEXT(TRUNC((COLUMNS($B:B)+1)/2)+(TRUNC((ROWS($4:4))/4))*5;"0000000");"")
Автор - jakim Дата добавления - 19.03.2018 в 14:48