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

Вход

Регистрация

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

 

= Мир MS Excel/Автоматическая нумерация нескольких документов на листе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Автоматическая нумерация нескольких документов на листе
Surch Дата: Понедельник, 29.07.2024, 05:46 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2016
Необходимо автоматически проставлять номер талона при печати. Печатаем много и часто.
Перерыл все темы, но нигде не нашел готового решения по автоматической нумерации нескольких документов на одном листе.
Огромная просьба помочь с этим вопросом неравнодушных и знающих людей.
Файлик - пример и краткое ТЗ во вложении.
К сообщению приложен файл: tz_numeracija_talona.xls (39.5 Kb)
 
Ответить
СообщениеНеобходимо автоматически проставлять номер талона при печати. Печатаем много и часто.
Перерыл все темы, но нигде не нашел готового решения по автоматической нумерации нескольких документов на одном листе.
Огромная просьба помочь с этим вопросом неравнодушных и знающих людей.
Файлик - пример и краткое ТЗ во вложении.

Автор - Surch
Дата добавления - 29.07.2024 в 05:46
gling Дата: Понедельник, 29.07.2024, 18:15 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2558
Репутация: 696 ±
Замечаний: 0% ±

2010
И вам здравствовать долгие лета!
Посмотрите вариант в файле[vba]
Код
Sub CopyPrint()
On Error Resume Next
iCopy = Application.InputBox("Введите количество копий:", "Печать", 1, Type:=1)
Application.ScreenUpdating = False
If IsNumeric(iCopy) And iCopy > 0 Then
    With Worksheets("MMO")
        For I = 1 To iCopy
        .Range("U1").Value = .Range("U1").Value + 1
        .Range("E4").Value = .Range("U1").Value
        .Range("O4").Value = .Range("U1").Value + 1
        .Range("E29").Value = .Range("U1").Value + 2
        .Range("O29").Value = .Range("U1").Value + 3
        .Range("U1").Value = .Range("O29").Value
            .PrintOut
            .Range("C2").Value = "OD" & Format(CDbl(Mid(.Range("E4:J5"), 3)) + 1, "000000")
        Next
    End With
End If
Application.ScreenUpdating = True
End Sub
[/vba]
К сообщению приложен файл: 3929075.xls (44.5 Kb)


ЯД-41001506838083
 
Ответить
СообщениеИ вам здравствовать долгие лета!
Посмотрите вариант в файле[vba]
Код
Sub CopyPrint()
On Error Resume Next
iCopy = Application.InputBox("Введите количество копий:", "Печать", 1, Type:=1)
Application.ScreenUpdating = False
If IsNumeric(iCopy) And iCopy > 0 Then
    With Worksheets("MMO")
        For I = 1 To iCopy
        .Range("U1").Value = .Range("U1").Value + 1
        .Range("E4").Value = .Range("U1").Value
        .Range("O4").Value = .Range("U1").Value + 1
        .Range("E29").Value = .Range("U1").Value + 2
        .Range("O29").Value = .Range("U1").Value + 3
        .Range("U1").Value = .Range("O29").Value
            .PrintOut
            .Range("C2").Value = "OD" & Format(CDbl(Mid(.Range("E4:J5"), 3)) + 1, "000000")
        Next
    End With
End If
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - gling
Дата добавления - 29.07.2024 в 18:15
Surch Дата: Вторник, 30.07.2024, 08:40 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

2016
Спасибо большущее. Решили мою задачу.


Сообщение отредактировал Surch - Вторник, 30.07.2024, 08:56
 
Ответить
СообщениеСпасибо большущее. Решили мою задачу.

Автор - Surch
Дата добавления - 30.07.2024 в 08:40
  • Страница 1 из 1
  • 1
Поиск:

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