22.07.2013 17:25
Aleksandr H.
 
Цитата:
Aleksandr H. Что хочу сделать?
автоматизировать участок работы, который делаю вручную :
Код:
пока на arkusz2 есть заполненные строки
  начало
    увеличить значение ползунка на 1
    нажать кнопку печать
  конец
конец
в ячейке R1 вычислаем количество непустых строк с Arkusz2 (=СЧЁТЗ(arkusz2!A2:A27))

Код:
Sub AutoPrint()
    Dim n As Integer
    Dim i As Integer
    n = Range("R1").Value ' запоминаем количество непустых строк
    Range("R2").Value = 1  ' начальное значение "ползунка"
    For i = 1 To n 
        Range("R2").Value = i ' увеличить значение "ползунка" на 1
        fastPrint ' UDF отвечающая за быструю печать
    Next
End Sub
Код:
Sub fastPrint()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub
01.08.2013 21:12
Закупщик56160
 
Добрый день, коллеги, у меня вопрос про гиперссылки. Есть фаил-шаблон, в левом верхнем углу есть гиперссылки на номера ворот, их 15, поэтому необходимо быстро переключаться между ними. Проблема в том, что лист 1 нужно копировать и переименовывать (2 ср, 3 чт и тд.), при этом гиперссылки на вновь созданных переименованных листах ссылаются на ячейки на листе 1. Можно ли быстро сделать так, чтобы гиперссылки на новом переименованном листе сразу ссылались на ячеёки на этом же листе. Фаил во вложении. Спасибо.
Вложения
Тип файла: xlsx шаблон.xlsx (129.5 Кб, 140 просмотров)
01.08.2013 23:03
Aleksandr H.
 
Цитата:
Пётр Добрый день, коллеги, у меня вопрос про гиперссылки. Есть фаил-шаблон, в левом верхнем углу есть гиперссылки на номера ворот, их 15, поэтому необходимо быстро переключаться между ними. Проблема в том, что лист 1 нужно копировать и переименовывать (2 ср, 3 чт и тд.), при этом гиперссылки на вновь созданных переименованных листах ссылаются на ячейки на листе 1. Можно ли быстро сделать так, чтобы гиперссылки на новом переименованном листе сразу ссылались на ячеёки на этом же листе. Фаил во вложении. Спасибо.
чёй-то не пускает меня офис по ссылкам, пишет типа "наложенные ограничения" :(
А если использовать формулу
Код:
=ГИПЕРССЫЛКА(AO2;"Клик чтобы перейти")
? Будет работать?
02.08.2013 06:58
Закупщик56160
 
Пробовал так, но пишет "Не удаётся открыть указанный фаил".
02.08.2013 22:53
tgm
 
Добрый вечер,Пётр. Попробуйте,сделал для первого столбца.
Вложения
Тип файла: xls шаблон.xls (236.5 Кб, 181 просмотров)
03.08.2013 14:27
Закупщик56160
 
Да, спасибо, это то что нужно. Скажите, а что обозначает "#" перед диапазоном?
04.08.2013 22:27
tgm
 
Честно говоря,и сам не знаю. :oops: Когда-то тоже возник подобный вопрос,нашел в инете такое решение.. Вот теперь делюсь чем могу :)
18.08.2013 20:12
Закупщик56160
 
Добрый день, коллеги, можно с помощью функций, из диапазона G8:G27 выхватить крайнюю дату окончания приёмки заказа с типом «т», во вложении пример, я хочу чтобы у меня в ячейке P5 было время 16:05:00 - как время окончания приёма последнего заказа с типом «т». Спасибо.
Вложения
Тип файла: xlsx Шаблон с коридорами НОВЫЙ.xlsx (151.3 Кб, 133 просмотров)
18.08.2013 23:39
tgm
 
Добрый вечер,Пётр.Попробуйте формулу массива:
Код:
=НАИБОЛЬШИЙ(ЕСЛИ($K$8:$K$27="Т";$G$8:$G$27;"");1)
Ну и на всякий случай прикладываю файл.
Вложения
Тип файла: xlsx Шаблон с коридорами НОВЫЙ.xlsx (150.3 Кб, 276 просмотров)
19.08.2013 23:10
Aleksandr H.
 
Как сделать выделение повторяющихся ячеек разными цветами? Без сортировки и ручного выделения.
В файле: в столбце А - УФ на количество повторов. А хочу что-бы было как в столбце С
Вложения
Тип файла: xlsx Книга1.xlsx (9.9 Кб, 144 просмотров)
Часовой пояс GMT +3, время: 22:39.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.