Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 153
1

Автонумерация строк по условиям

18.02.2016, 11:55. Просмотров 836. Ответов 2
Метки нет (Все метки)

Добрий день!

Есть макрос которий делает копии активной строчки(количество копий задается в аналоговом окне)
нужно в колонке С сделать автонумерацию етих копируємих строк по таким условиям:
1. если последняя цифра ячейки С в активной строке 0, то начинать нумерацию с 1,
например, значение ячейки С 12340, количество копий строки равно 3
должно получится
12340
12341
12342
12343
2. если последняя цифра ячейки С в активной строке не равна 0, то продолжить нумерацию ,
например, значение ячейки С 34567, количество копий строки равно 3
должно получится
34567
34568
34569
34570
Количество копий может бить и 100 и 200
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub CopyRowDown()
    Dim k As String
    k = 0
   With ActiveCell.EntireRow
   k = InputBox("Количество копий?", "Копирование строк")
   If k = "" Then Exit Sub
   For n = 1 To k
     .Offset(n, 0).Insert
     .Copy Rows(.Row + n)
     Next
   End With
End Sub
0
Вложения
Тип файла: xlsx primer.xlsx (10.4 Кб, 1 просмотров)
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.02.2016, 11:55
Ответы с готовыми решениями:

Отображение первых 10 строк, удовлетворяющих условиям
Здравствуйте. Помогите, пожалуйста, новичку в Excel, буду очень признателен....

Поиск строк из одного файл по условиям из массива
Есть условия по которым контрагентам выплачивают деньги за оказанные услуги...

Подсчитать количество строк, отвечающих определенным условиям
Уважаемые, помогите начинающему! Задача заключается в том, что есть большой...

Автонумерация вновь созданных книг
Подскажите как реализовать: есть файл-шаблон, при выполнении макроса на...

Как Excel документ, в котором 10000 строк, разбить по 10 строк и сохранить каждые 10 строк в отдельный файл
Здравствуйте. Подскажите как Excel документ в котором 10000 строк разбить по 10...

2
Shersh
Заблокирован
18.02.2016, 13:22 2
Лучший ответ Сообщение было отмечено sergey23031978 как решение

Решение

Цитата Сообщение от sergey23031978 Посмотреть сообщение
1. если последняя цифра ячейки С в активной строке 0, то начинать нумерацию с 1,
например, значение ячейки С 12340, количество копий строки равно 3
должно получится
12340
12341
12342
12343
2. если последняя цифра ячейки С в активной строке не равна 0, то продолжить нумерацию ,
например, значение ячейки С 34567, количество копий строки равно 3
должно получится
34567
34568
34569
34570
sergey23031978, в чём принципиальное отличие этих посылов?
В обоих случаях нумерация продолжается, или я чего-то недопонял?

Добавлено через 1 минуту
Пробуйте -
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub CopyRowDown()
    Dim k As String
    k = 0
   With ActiveCell.EntireRow
   k = 13 'InputBox("Количество копий?", "Копирование строк")
   If k = "" Then Exit Sub
   For n = 1 To k
     .Offset(n, 0).Insert
     .Copy Rows(.Row + n)
     Cells(.Row + n, 3) = Cells(.Row + n - 1, 3) + 1
     Next
   End With
End Sub
1
sergey23031978
6 / 6 / 4
Регистрация: 20.02.2015
Сообщений: 153
18.02.2016, 16:19  [ТС] 3
Shersh
Большое спасибо. все работат
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.02.2016, 16:19

Поиск повторений по 2 условиям
День добрый! Вопрос вроде и простой но я так и не придумал как его решить. 2...

Выделение ячейки по условиям
Доброго дня. Встал в тупик логического характера. Нужно произвести заливку...

Автоматическое заполнение столбца по условиям
Хочу сделать так, чтобы при выделении цветом ячейки в диапазоне AG5:AR5 и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru