Страницы: 1
RSS
как сделать таблицу с цифрами от 1000 до 10000, формула или макрос для автоматической подстановки цифр
 
То есть нужно чтобы при протягивании выделяемой колонки соответствующие цифры встали как надо.10 колонок, от 1000  до 10000. Хотя в идеале нужно от 0000 до 10000, но там от видимо от 0000 до 0999 видимо другая заморока. там текстовый формат придется ставить.P.S. Точнее в десяти колонка получится до  9999 .
Изменено: Владимир Вовкин - 29.05.2019 15:57:42
wowkin
 
В ячейку A2 вставьте
Код
=A1+1
и протяните во все направления, при желании потом замените на значения
 
вставить в А1 и протянуть вправо на сколько нужно
Код
=ТЕКСТ(СТОЛБЕЦ();"0000")
Лень двигатель прогресса, доказано!!!
 
макрос:
Код
Sub abc_xyz()
    Dim c As Integer, k As Integer, r As Integer
    'Application.ScreenUpdating = False
    For r = 0 To 999
        For c = 1 To 10
            With Cells(r + 1, c)
                .NumberFormat = "0000"
                .Value = k
            End With
            k = k + 1
        Next
    Next
    'Application.ScreenUpdating = True
End Sub
 
В общем так: спасибо всем за ответы. Но пытливый ум пробивает стены, с вашей помощью ребята, мужики, граждане, товарищи, господа, и просто хорошие люди. Все ваши ответы помогли , и явилось стимулом к простейшему решению. (Но повторюсь, - не без вашего участия. ) Спасибо вам всем, Удачи и ЗДОРОВЬЯ ! От 0000 до 0009 строчку построить не сложно, а дальше B1  и т. д.Пишем формулу, но только формат называется дополнительный- тип- табельный номер. С помощью формулы  (=A2+10) протягиваем вниз каждую колонку (в моем случае 10 колонок) и вуаля- от 0000  до 9999 дело секунд. Завтра попробую добавить файл. Сейчас в тайге. Файла нет. И в облако недогадался скинуть.
wowkin
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub abc_xyz()
   Dim c As Integer, k As Integer, r As Integer
   'Application.ScreenUpdating = False
   For r = 0 To 999
       For c = 1 To 10
           With Cells(r + 1, c)
               .NumberFormat = "0000"
               .Value = k
           End With
           k = k + 1
       Next
   Next
   'Application.ScreenUpdating = True
End Sub

что мне с макросом делать, макрос записать после действия. Один минус , он в первой ячейке пишет 0001., а надо 0000- в первой ячейке
wowkin
 
Владимир Вовкин, посмотрите, как выглядит код в #4. Вот и Вы форматируйте так же.
Страницы: 1
Наверх