Excel: вопрос - ответ : Закупщик

Aleksandr H. · █ 22.07.2013 17:25

Цитата:

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

Закупщик56160 · █ 01.08.2013 21:12

Добрый день, коллеги, у меня вопрос про гиперссылки. Есть фаил-шаблон, в левом верхнем углу есть гиперссылки на номера ворот, их 15, поэтому необходимо быстро переключаться между ними. Проблема в том, что лист 1 нужно копировать и переименовывать (2 ср, 3 чт и тд.), при этом гиперссылки на вновь созданных переименованных листах ссылаются на ячейки на листе 1. Можно ли быстро сделать так, чтобы гиперссылки на новом переименованном листе сразу ссылались на ячеёки на этом же листе. Фаил во вложении. Спасибо.

Aleksandr H. · █ 01.08.2013 23:03

Цитата:

Пётр Добрый день, коллеги, у меня вопрос про гиперссылки. Есть фаил-шаблон, в левом верхнем углу есть гиперссылки на номера ворот, их 15, поэтому необходимо быстро переключаться между ними. Проблема в том, что лист 1 нужно копировать и переименовывать (2 ср, 3 чт и тд.), при этом гиперссылки на вновь созданных переименованных листах ссылаются на ячейки на листе 1. Можно ли быстро сделать так, чтобы гиперссылки на новом переименованном листе сразу ссылались на ячеёки на этом же листе. Фаил во вложении. Спасибо.

чёй-то не пускает меня офис по ссылкам, пишет типа "наложенные ограничения" :(
А если использовать формулу

Код:

=ГИПЕРССЫЛКА(AO2;"Клик чтобы перейти")

? Будет работать?

Закупщик56160 · █ 02.08.2013 06:58

Пробовал так, но пишет "Не удаётся открыть указанный фаил".

tgm · █ 02.08.2013 22:53

Добрый вечер,Пётр. Попробуйте,сделал для первого столбца.

Закупщик56160 · █ 03.08.2013 14:27

Да, спасибо, это то что нужно. Скажите, а что обозначает "#" перед диапазоном?

tgm · █ 04.08.2013 22:27

Честно говоря,и сам не знаю. :oops: Когда-то тоже возник подобный вопрос,нашел в инете такое решение.. Вот теперь делюсь чем могу :)

Закупщик56160 · █ 18.08.2013 20:12

Добрый день, коллеги, можно с помощью функций, из диапазона G8:G27 выхватить крайнюю дату окончания приёмки заказа с типом «т», во вложении пример, я хочу чтобы у меня в ячейке P5 было время 16:05:00 - как время окончания приёма последнего заказа с типом «т». Спасибо.

tgm · █ 18.08.2013 23:39

Добрый вечер,Пётр.Попробуйте формулу массива:

Код:

=НАИБОЛЬШИЙ(ЕСЛИ($K$8:$K$27="Т";$G$8:$G$27;"");1)

Ну и на всякий случай прикладываю файл.

Aleksandr H. · █ 19.08.2013 23:10

Как сделать выделение повторяющихся ячеек разными цветами? Без сортировки и ручного выделения.
В файле: в столбце А - УФ на количество повторов. А хочу что-бы было как в столбце С