Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Присвоить макрос кнопке в коде без выделения этой кнопки
 
Спасибо!!! Работает =))))))
1.
Присвоить макрос кнопке в коде без выделения этой кнопки
 
Добрый день!
Подскажите, пожалуйста, почему в таком виде работает:
Код
    ActiveSheet.Shapes.Range(Array("Button 1")).Select
    Selection.OnAction = "MyMacro1"
    Range("J5").Select
Кнопке назначается макрос.

А так нет:
Код
   ActiveSheet.Shapes.Range(Array("Button 1")).OnAction = "MyMacro1"
?
1.
Обновление и НЕобновление связей между книгами
 
Ого!... новые вводные...
У меня используются СУММЕСЛИМН. Эта формула как раз из тех, что не работает, похоже?
1.
Обновление и НЕобновление связей между книгами
 
Добрый день.

Помогите, пожалуйста, устранить проблему.
Есть 3 файла. Назовём их Книга1, Книга2 и Книга3. Первая собирает данные из двух других: стоят ссылки на ячейки в них.
Когда все три книги открыты, проблем, вроде, нет. Но если Книга2 и Книга3 закрыты, то в Книге1 в тех ячейках, где стоят ссылки на Книгу2 появляются "#ЗНАЧ!". При том, что в ячейках, ссылающихся на Книгу3, остаются значения, которые отобразились, когда она была открыта. Если открыть Книги 2 и 3, то значения в ячейках обновляются в соответствии с тем, что на данный момент есть в этих книгах; т.е. всё показывается исправно.
Получается, что работать с Книгой1 можно только если открыта Книга2.

Как сделать так, чтобы в отношении Книги2 всё работало так же, как в отношении Книги3: изменил данные в Книгах 2 и 3 (при открытой Первой) -> закрыл обе и работаю с Книгой1?
1.
Поиск номеров строк и столбцов в таблице по заданным параметрам
 
"Да это просто чудо какое-то!" =)
СаБМВ, Спасибо Вам огромное! Уже второй раз Вы мне помогаете.

У Вас формула самую малость работала не верно: крайняя ячейка окрашиваемого диапазона заполнялась ошибочно. Например, если время ухода (на листе "План-график") указать 20:00, то на листе "Почасовое расписание" окрашивалась ячейка времени "20:00 - 21:00" (этому времени соответствует, например, столбец CG в диапазоне дня 20.07.2018)
Но направление мысли было дано, и методом тыка при примерном понимании происходящего я допилил формулу: добавил "+0,5/24":
Код
=ЕСЛИ(И(CG$2>=ИНДЕКС('План-график'!$1:$1048576;ПОИСКПОЗ($A18;'План-график'!$C:$C;0);ПОИСКПОЗ(ПРОСМОТР(2;1/($A$3:CG$3<>"");$A$3:CG$3);'План-график'!$3:$3;0));(CG$2+0,5/24)<=ИНДЕКС('План-график'!$1:$1048576;ПОИСКПОЗ($A18;'План-график'!$C:$C;0);ПОИСКПОЗ(ПРОСМОТР(2;1/($A$3:CG$3<>"");$A$3:CG$3);'План-график'!$3:$3;0)+1));"п";"")
Вроде сейчас работает как надо.Ещё раз спасибо!
1.
Поиск номеров строк и столбцов в таблице по заданным параметрам
 
Добрый день, уважаемые форумчане!

Прошу помощи в решении такой задачи:
На  первой странице файла имеем таблицу с недельным графиком (назовём её  "Т1"). Каждому сотруднику посвящены три строки; каждому дню - два  столбца. Итого имеем блок из 6 ячеек, посвящённый каждому сотруднику в  любой день. Верхние две ячейки такого блока - время прихода и время ухода (для каждого сотрудника на каждый день).

На  втором листе хочу сделать почасовое расписание, в котором отображались  бы часы присутствия сотрудника по часам каждого дня. Эту таблицу назовём  "Т2".
Здесь каждому сотруднику посвящена одна строка; каждому  дню - 16 столбцов (каждому часу - столбец). Т.е. структура Т2  отличается от структуры Т2.

Необходимо, чтобы  формулы в Т2 возвращали в ячейку значение "п" если эта ячейка  соответствует часу, который находится в промежутке между временем  прихода сотрудника и временем его ухода из Т1. Должен получаться некий  такой Гант.

Пример прикрепил. В нём таблица Т1 находится на листе "План-график", Т2 - на листе "Почасовое расписание"
В  Т2 я кое-как состряпал формулы для одного дня. Но они были прописаны  практически все вручную. И понимаю, что распространить их на другие дни,  или в случае добавления сотрудников (т.е. на новые столбцы и строки) -  застрелиться!
Может быть есть на такой случай более элегантное решение?

PS:  Наверное, мне помог бы какой-то способ поиска в Т1 номера строки, в  которой (слева) находится то же значение, что и в Т2 в левой ячейке  строки, в которой находится требуемая формула(?) И то же самое  относительно номера столбца.


PPS: Извинясь за то, что название темы мало отражает суть проблемы и вопроса: по-моему короткий, но верный и ясный заголовок тут просто невозможен.
1.
Условное форматирование несколких ячеек в зависимости от значения в двух из них, Необходимо распространить это правило на "почти" бесконечное количество ячеек
 
БМВ, <я уже малость "ковыряюсь"...> у Вас и в примере из #4, и в примере из #8 есть зависимость заливки блока от наличия даты: если даты вверху столбца нет, то блок окрашивается не полностью. Так и задумывалось?
1.
Условное форматирование несколких ячеек в зависимости от значения в двух из них, Необходимо распространить это правило на "почти" бесконечное количество ячеек
 
Дмитрий(The_Prist) Щербаков, "что-то пошло не так": этот способ работает в пределах первых трёх 6-ячеечных блоков. А в остальном пространстве получается не так красиво (см. прикреплённый пример)
1.
Условное форматирование несколких ячеек в зависимости от значения в двух из них, Необходимо распространить это правило на "почти" бесконечное количество ячеек
 
Как истовый Хондовод, сегодня должен всё-таки признавать - БМВ рулит! =))))))

В Вашем первом примере (Copy of Пример148) хот по факту и работало, как надо, но оказалось, что на листе ооооочень много правил. И когда я удалил все правила, кроме указанных здесь в сообщении (оставил только =OR(AND(F3<>0;G3<>0);AND(F2<>0;G2<>0);AND(F1<>0;G1<>0)) и =AND(G3<>0;F3<>0), полез баг: правая верхняя ячейка "6-ячеечного блока" не окрашивалась, если справа от неё была пустая ячейка.
Видимо не хватало какого-то доп.правила.


Но со второй формулой (в "Copy of Пример148_1") всё заработало как надо!


"Премного Вами благодарен"!   © =)))
1.
Условное форматирование несколких ячеек в зависимости от значения в двух из них, Необходимо распространить это правило на "почти" бесконечное количество ячеек
 
Добрый день, уважаемые знатоки.
Заранее извиняюсь, если вопрос/задачка примитивная, или неинтересная, или сто раз избитая (я не смог насёрфить решение простым поиском)


Составляю шаблон для графика работы. В нём каждому сотруднику на каждый день посвящено 6 ячеек. В двух из них проставляется время прихода на работу и ухода с неё. Необходимо, чтобы при заполнении этих двух ячеек все 6 отмечались некоторым цветом заливки.
Такую задачу по одному человеку на один день я, вроде, решил.
Но вторая задача - сделать так, чтобы это условное форматирование распространилось на весь график, и могло распространятся несложными движениями при увеличении, например, строчек (из-за увеличения численности), или - при продлении графика на следующие недели.


Полагаю, описание не самое понятное =) Поэтому пример прикрепил...
Изменено: Эжен Несознанский - 17.07.2018 12:38:27
1.
Поиск первой свободной ячейки в стообце
 
тут же возник попутный вопрос:  
в указаном столбце постоянно добавляются значения; это числа (что-то типа порядкового номера строки).  
Как в тоу самую первую пустую ячейку подставить максимальное число этого столбца? А если быть точнее - "максимальное плюс один"
1.
Поиск первой свободной ячейки в стообце
 
{quote}{login=Юрий М}{date=13.05.2010 10:41}{thema=}{post}В общем случае макрос может выглядеть так:  
Sub Макрос1()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count,2).End(xlUp).Row  
cells(iLastRow+1,2).Select  
End Sub{/post}{/quote}  
 
Спасибо огромное!  
Я совершенно не понял как это работает, но это РАБОТАЕТ! =)))
1.
Поиск первой свободной ячейки в стообце
 
{quote}{login=vlanib}{date=13.05.2010 10:37}{thema=}{post}[В1].End(xlDown).Offset(1, 0).Value = "Последняя свободная ячейка столбца В"{/post}{/quote}
 
уточнение: мне необходима первая, а не крайняя свободная ячейка. Можно как-то переделать?
1.
Поиск первой свободной ячейки в стообце
 
Прошу помощи знающих.  
Задача: имеем таблицу данных, которая постоянно пополняется (добавляются строки)  
В таблице важным вяляется второй столбец; ячейки в нем заполнены в каждой строке.  
Необходим макрос, который будет устанавливать табличный курсор в первую свободную (пустую) ячейку внизу этого столбца (т.е. фактически в следующую заполняему строку таблицы).  
 
К сожалению, я пока "не очень" дружен с VBA =)  
Пробовал воспользоваться простой записью макроса и примитивной последовательностью: поиск крайней заполненной ячейки с помощью Ctrl+PageDown и шаг вниз с помощью стрелки. Но попытка провалились, т.к. выбор крайней заполненной ячейки он понимает и записывает, как надо, а вот действия клавиатурных стрелок запоминаются не как "перемещение вниз (вверх, влево, вправо)", а как выбор какой-то конкретной ячейки с конкретным адресом.  
 
Помогите, плз.
1.
Выход из ячеки при вводе нового значения и нажатии стрелки на клавиатуре
 
Интересно, в чем состояла "мысль" для первичного ввода и редактирования ячейки сделать разные функции обработки "стрелок" клавиатуры..?
1.
Выход из ячеки при вводе нового значения и нажатии стрелки на клавиатуре
 
Помогло. Лишнее действие конечно, но выход. Спасибо!
1.
Выход из ячеки при вводе нового значения и нажатии стрелки на клавиатуре
 
{quote}{login=Юрий М}{date=21.10.2009 03:12}{thema=}{post}Кажется понял: именно при первоначальном вводе Вы пытаетесь стрелкой "Влево" вернуться в начало строки?{/post}{/quote}  
Да, именно это и доставляет неудобство уже десяток лет ))
1.
Выход из ячеки при вводе нового значения и нажатии стрелки на клавиатуре
 
Нажимая стрелку "Вправо" или "Вниз" курсор перемещается на другую ячейку вправо или вниз соответственно. Как предотвратить переход на другую ячейку до тех пор, пока не нажат Enter на клавиатуре?
1.
Выход из ячеки при вводе нового значения и нажатии стрелки на клавиатуре
 
{quote}{login=}{date=21.10.2009 03:01}{thema=}{post}- перейти в строку формул;  
- два раза щелкнуть по ячейке (перейти в режим редактирования;{/post}{/quote}  
 
Со второго прохода понятно, как действовать. Интересует первичный ввод, т.е. не редактирование ранее введенного значения и не использование мышки для перехода в строку формул. Тем не менее, спасибо за отклик.
1.
Выход из ячеки при вводе нового значения и нажатии стрелки на клавиатуре
 
При вводе нового значения в пустую ячейку и нажатии стрелки "влево" на клавиатуре происходит переход на другую, левую ячейку. Это крайне неудобно, например, когда оператор обнаружил ошибку своего ввода или были введены парные скобки "()" и нужно вписать в них содержание.  
Когда непустая ячейка редактируется, этого, к счастью, не происходит.  
Подскажите, как побороть проблему? Заранее спасибо!
1.
Страницы: 1
Наверх