Привязать ячейку к номеру страницы

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

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

Привязать ячейку к номеру страницы (Печать файла через макросы)

MoonLight

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

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

Ранг: Прохожий

Сообщений: 5

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

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

Доброго времени суток, на работе возникла необхоимость в документе Exel связать между собой несколько ячеек. Условие простое " ячейка А1 имеет числовой диапозон значений от 1 до 40, эта ячейка связывается с другой ячейкой (например В10) на другом листе книги. Задача связать их так что бы при нажатие на кнопку макроса печать, бралось значение ячейки А1 как колличество копий печатаемого файла, а значение ячейки В10 менялось от 1 до значения А1.
пример: надо напечатать 10 листов файла ставим в А1 значение 10 нажимаем печать печатается 10 листов на котором меняется значение ячейки В10 от 1 до 10.MoonLight

К сообщению приложен файл: 3231433.jpg (42.6 Kb) · 0044952.jpg (43.0 Kb)

Ответить

VictorM

Дата: Понедельник, 19.11.2012, 10:54 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 161

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

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

Попробуйте так:
[vba]

Code

Sub Макрос1()
     КолКопий = [a1]
     For i = 1 To КолКопий
         [b1] = i
         ActiveWindow.SelectedSheets.PrintOut
     Next
End Sub

[/vba]

Ответить

AlexM

Дата: Понедельник, 19.11.2012, 16:03 | Сообщение № 3

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

Ранг: Участник клуба

Сообщений: 4517

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

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

Excel 2003

Или так
[vba]

Code

Sub Macros2()
Dim i As Long: Dim КолКопий As Long
КолКопий = Sheets("Лист1").Range("B5")
      For i = 1 To КолКопий
          Sheets("Лист2").Range("L28") = i
          Sheets("Лист2").PrintOut
      Next
Sheets("Лист2").Range("L28") = ""
End Sub

[/vba]

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Понедельник, 19.11.2012, 16:05

Ответить

MoonLight

Дата: Среда, 21.11.2012, 03:08 | Сообщение № 4

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

Ранг: Прохожий

Сообщений: 5

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

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

Спасибо большое, все отлично работает

Ответить

MoonLight

Дата: Среда, 21.11.2012, 07:33 | Сообщение № 5

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

Ранг: Прохожий

Сообщений: 5

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

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

А есть Возможность что бы в ячейке менялись автоматически шрифты в зависимости от числа символов, вписанных в данную ячейку. Пример МИР (шрифт 50), а слово Бестелбулзебар (шрифт 10) вписанное в эту ячейку будет меньшего шрифта.

Ответить

AlexM

Дата: Среда, 21.11.2012, 08:38 | Сообщение № 6

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

Ранг: Участник клуба

Сообщений: 4517

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

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

Excel 2003

А если слово из 30 букв. Шрифт 5?
Думаю, что от количества символов не очень хорошо. Дело в том, что МИР (50) в ячейку не поместится, а Бестелбулзебар (10) поместился бы еще. Может другая есть причина менять шрифт, чтобы в ячейку поместился текст или др.
Про шрифт вопрос новый, а примера файла нет. А если нет файла то ответ на вопрос очень простой. ВОЗМОЖНОСТЬ ЕСТЬ.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.