Макрос нумерации чисел

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Макрос нумерации чисел - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: _Boroda_, китин

Макрос нумерации чисел (Макрос нумерации чисел)

Макрос нумерации чисел

Dirc

Дата: Понедельник, 18.04.2016, 10:40 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброго времени суток.
Требуется помощь в до писания макроса.
Сейчас макрос ведёт нумерацию от 10012177 до 10012216 в низу стикера.

Требуется чтобы макрос ввёл подобную нумерацию в верхний строки за место значения {00000000}.

К сообщению приложен файл: 2444528.doc (84.5 Kb)

Ответить

krosav4ig

Дата: Понедельник, 18.04.2016, 17:16 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Здравствуйте
[vba]

Код

Sub Нумерация()
    Dim start_num&, start_num2&, i&

    start_num = 10012177
    start_num2 = 1

    Application.ScreenUpdating = False
    With ThisDocument.Tables(1).Range.Cells
        For i = 1 To .Count
            With .Item(i).Range.Paragraphs
                .Item(1).Range.Text = "Номер документа №: " & Format(start_num2 + i - 1, "00000000") & vbCr
                .Item(.Count).Range.Text = " №   " & Format(start_num + i - 1, "00000000")
            End With
        Next
    End With
    Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 0278512.doc (83.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Dirc

Дата: Вторник, 19.04.2016, 10:00 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Благодарю всё работает!

Ответить

Макрос нумерации чисел (Макрос нумерации чисел)

Страница 1 из 1
1