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

Вход

Регистрация

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

 

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

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

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

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

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

Автор - Dirc
Дата добавления - 18.04.2016 в 10:40
krosav4ig Дата: Понедельник, 18.04.2016, 17:16 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2346
Репутация: 989 ±
Замечаний: 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
 
Ответить
СообщениеЗдравствуйте
[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
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

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

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

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