Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос нумерации чисел (Макрос нумерации чисел)
Макрос нумерации чисел
Dirc Дата: Понедельник, 18.04.2016, 10:40 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

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

Требуется чтобы макрос ввёл подобную нумерацию в верхний строки за место значения {00000000}.
К сообщению приложен файл: 2444528.doc(84Kb)
 
Ответить
СообщениеДоброго времени суток.
Требуется помощь в до писания макроса.
Сейчас макрос ведёт нумерацию от 10012177 до 10012216 в низу стикера.

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

Автор - Dirc
Дата добавления - 18.04.2016 в 10:40
krosav4ig Дата: Понедельник, 18.04.2016, 17:16 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1345
Репутация: 547 ±
Замечаний: 0% ±

Excel 2007, 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(83Kb)


(_)Õvõ(_)
 
Ответить
СообщениеЗдравствуйте
[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]

Автор - krosav4ig
Дата добавления - 18.04.2016 в 17:16
Dirc Дата: Вторник, 19.04.2016, 10:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Благодарю всё работает!
 
Ответить
СообщениеБлагодарю всё работает!

Автор - Dirc
Дата добавления - 19.04.2016 в 10:00
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Макрос нумерации чисел (Макрос нумерации чисел)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!