РыбаМоя

В служебном листе "С" перед тем как изменять наш макрос, надо определить две ячейки, желательно стоящих рядом, с именами "старт" и "финиш". Теперь перейдём к макросам. Выберем наш. Правый клик по кнопке —> выбираем "Назначить макрос" (уже имеется) —> и жмём "Править" Вот эти две строки: ---------------------------------------------------------------------------------------- Range("старт").Value = Now Range("финиш").Value = 0 Команда Now зафиксирует в ячейке "старт" время выдачи задания. А ячейку...

Тот замороченный способ, который я показывала раньше https://dzen.ru/a/Zfgbp2Nd9lHkb5ug больше подходит для больших и сложно-вложенных массивов данных. Гораздо чаще нужно получить список файлов из одной директории. Тогда вся эта заморочка с открытием и перекодировкой неоправданно сложна. На этот случай имеется такая, встроенная в Excel возможность. Пишем макрос и "вешаем" его на какую-нибудь оригинальную кнопочку Он работает следующим образом: ...

Sub Маркер() tc = ActiveCell.Column zvet = ActiveCell.Interior.ColorIndex trig = ActiveCell.Value If trig = Empty Then GoTo fin i = 0 hole = 0 'счётчик пустых строк konstr: 'новая строка i = i + 1 j = 0 molny: ' следующая ячейка справа soder = Cells(i, tc + j).Value ...

Я отыскала этот способ где-то в куче комментариев к одному из сотни вопросов на каком-то форуме. Сама я не смогла бы написать и расставить по порядку эти строки ). Если что и меняла, то осторожно и неуверенно. У меня этот метод в 2003м Excel работает прекрасно. В более поздних версиях иногда наблюдались проблемы - там даже картинки вставляются...

Мой страшный сон - где-то на ходу необходимо быстренько написать макрос, а под рукой нет привычной: Итак, мне нужен удалённый доступ к моим "рыбам" (заготовкам VBA операндов). Почти все эти команды я уже показывала в текстах разных макросов, написанных для excel - игр. Но удобнее и быстрее сделать специальный раздел. И вот он! tek = ActiveSheet.Shapes(Application.Caller).Name - определить имя нажатой иконки (она при этом не выделяется - выделенной считается только ячейка); ActiveSheet.Shapes(tek)...