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
нажмите кнопочку в файле файл перевложил. в зеленой клеточки можно ставить количество необходимых номеров
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
нажмите кнопочку в файле файл перевложил. в зеленой клеточки можно ставить количество необходимых номеров
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
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Понедельник, 19.03.2018, 12:42
Ответить
Сообщение нажмите кнопочку в файле файл перевложил. в зеленой клеточки можно ставить количество необходимых номеров
[vba]
Sub ЧumЧum() 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 = FalseRange("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 = Тrue Application.CutCopyMode = Тrue Application.DisplayAlerts = Тrue 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
Ещё одна формула для нумерованных строк
=ЕСЛИ(B3 <>"";"М-"&ТЕКСТ(ОТБР((ЧИСЛСТОЛБ($B:B )+1)/2)+(ОТБР((ЧСТРОК($4:4 ))/4))*5;"0000000");"")
Ещё одна формула для нумерованных строк
=ЕСЛИ(B3 <>"";"М-"&ТЕКСТ(ОТБР((ЧИСЛСТОЛБ($B:B )+1)/2)+(ОТБР((ЧСТРОК($4:4 ))/4))*5;"0000000");"")
jakim
Ответить
Сообщение Ещё одна формула для нумерованных строк
=ЕСЛИ(B3 <>"";"М-"&ТЕКСТ(ОТБР((ЧИСЛСТОЛБ($B:B )+1)/2)+(ОТБР((ЧСТРОК($4:4 ))/4))*5;"0000000");"")
Автор - jakim Дата добавления - 19.03.2018 в 14:48