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

Страницы: 1 2 3 След.
Передача значений массива в атофильтр
 
Здравствуйте!
Подскажите, пожалуйста, можно ли в качестве критерия для автофильтра использовать диапазон значений массива не путём их перечисления, а путём задания с … и по…? Читал на форуме на эту тему сообщения, но ничего не понял.
Использую офисы от "семёрки" и выше.
Спасибо!
Передача массива в UDF
 
Добрый день!

Собственно весь вопрос в названии темы: возможно ли массив Double, сформированный макросом, передать в UDF для последующей расстановки данных из него на лист? Если возможно, то каким образом?

Спасибо!
После прохождения макросом в ячейке оставить первоначальную формулу, скорректированную на дельту
 
Здравствуйте!
Прошу вашей помощи в решении следующей задачи:
в ячейке А1 имеется формула, в ячейке В1 значение, на которую формулу нужно скорректировать (оно может принимать как положительную, так и отрицательную величины). Задача у меня такая: после прохождения макросом в А1 необходимо оставить первоначальную формулу, скорректированную на дельту, т.е. в ячейке А1 должно быть выражение =1+1-0,1. Пытался что-то наваять, вроде получилось, но как-то криво =1+1+-0,1 (знаний в этой области недостаточно).
Спасибо!
Перекачка ломбардного списка из Интернета в Excel
 
Здравствуйте!
Помогите, пожалуйста!
В своё время добрая душа на этом форуме поделилась макросом для загрузки ценных бумаг, принимаемых в обеспечение по кредитам ЦБ РФ. В настоящий момент предоставление данных в Интернете изменилось, и макрос перестал «качать» данные.  Объект maTable у меня остаётся Nothing. Я делаю предположение, что изменились названия таблиц, но откуда их брать я не знаю.
Ещё раз прошу о помощи!
Спасибо!
Работа Personal.xls при открытии файла
 
Здравствуйте! Помогите, пожалуйста! Мне нужно было добиться того, чтобы при открытии любой книги, пересчет из автоматического менялся на ручной. Побродив по просторам Интернета я нашёл, что в personal.xls нужно поместить макрос
Код
Private Sub Workbook_Open()
Application.Calculation = xlCalculationManual
End Sub 
При открытии Exсel’я и последующем открытии книги всё отлично работает, но если с закрытым Exсel’ем клацать по ярлыку файла, то возникает проблема такого рода:


а затем:

Подскажите, пожалуйста, как её можно побороть? Спасибо!
Функция Find в неактивном листе с определённой строки
 
Здравствуйте!
Вчера мне порекомендовали функцию, осуществляющую поиск значения в неактивном листе. Я выбрал эту

Код
iRow = Sheets("List").Cells.Find("Сочи").Row

Но эта функция осуществляет поиск слова "Сочи" на всём листе. А  можно ли ограничить поиск слова "Сочи", например, ниже 10-ой строки листа "List".

Спасибо!
"Обойти" subscript out of range
 
Добрый вечер!
Выкладываю кусочек макрос, который активирует листы книги, названия которых содержаться в столбце А на Лист1. Всё дело в том, что в большом количестве названий листов, могут быть те, которые в данной книге отсутствуют. В примере это ЛистС. Если Листа С нет, то нужно активировать ЛистВ. Подскажите, пожалуйста, как мне обойти эту ошибку? На On Error VBA не реагирует, либо я что-то делаю неверно. Пытался найти ответ на свой вопрос по имеющимся разъяснениям, были похожие, но я не смог воспользоваться ими. Видел ответ Prist’а с Application.EnableEvents = 0, но не подошло. Помогите, пожалуйста.
Спасибо за помощь!
Возможность средствами VBA внесения данных на web-страницу и эмуляции нажатия клавши на странице
 
Добрый вечер, господа!
Прошу Вашей помощи в таком вопросе. Мне необходимо перекачать данные из Интернета с определенной страницы (см. вложение) в Excel. Код по открытию страницы взят мною отсюда ссылка[URL=http://www.cyberforum.ru/vba/thread374110.html]. Дело в том, что на странице данные изо дня в день могут меняться. Можно ли средствами VBA при открытии страницы вставить нужную мне дату, после чего с эмулировать нажатие клавиши "Получить". М.б. это можно сделать путём внесения данных в HTML-код (простите, я от этого очень далёк).
Спасибо!
Вычисление в VBA по названию месяца его порядкового номера
 
Здравствуйте!
Помогите, пожалуйста, с решением проблемы. В книге есть листы «январь», «февраль», …, «декабрь». Мне нужно осуществить возможность сортировки листов как по возрастанию, так и по убыванию. Я пошёл в направлении того, что необходимо "выдернуть" порядковый номер месяца по его названию. Поискав в Интернете, нашёл формулу Serge 007:
Код
=МЕСЯЦ(B1&0)

,где в B1 название месяца. Пытаюсь переложить её на VBA
Код
=Month(Cells(1, 2) & 0)

ничего не получается. Формула работает, строка в VBA даёт ошибку. Подскажите, пожалуйста, где и в чём мои действия неверны? Или это вообще нужно решать по-другому? Нашёл ещё один вариант, где русские названия месяцев «упаковываются» в массив и оттуда тянутся номера, но мне видится, что эту задачу можно решить проще.
Спасибо!
Деактивировать поле в Listbox
 
Помогите, пожалуйста, с решением вопроса.
На Листе 1 есть ListBox, в который собираются наименования всех листов файла (по-моему, это разработка Prist). При нажатии ЛКМ происходит переход на тот лист, название которого было выбрано. При последующем возврате на Лист 1 имеем два активных поля: одно стандартное на листе, второе в ListBox. Выделения в ListBox снимаются, но поле всё равно остаётся активным. Понимаю, что ListBox можно покинуть, например, Cells(1, 1).Select. Но мне нельзя терять положение стандартного курсора, который может быть в любой области листа, поэтому Cells(1, 1).Select. мне не подойдёт. Простым нажатием клавиши Esc активное поле в ListBox исчезает, но макрорекордером это записать невозможно, так как знак «Запись макроса» неактивен. Подскажите, пжл, можно ли «покинуть» ListBox как-то по-другому, в частности, эмулировать нажатие клавиши Esc. Понимаю, что без примера тяжело, но сейчас с работы не могу его выложить, если будет необходимость, выложу вечером, простите. М.б. что-нибудь типа Target.Cells.Select?
Target.Cells не подойдёт. Для Excel, как я понял, Target.Cells и будет поле в ListBox.  :(
Благодарю за помощь.
Изменено: iba2004 - 14.06.2013 17:52:12
"Отловить" событие ЛКМ
 
Здравствуйте!
Мне необходимо в макросе отловить событие щелчка по ячейке левой кнопкой мыши. Подскажите, пожалуйста, как оно описывается в VBA. По поиску не смог ничего найти.
Спасибо!
Макрос, срабатывающий на событие выделения ячейки
 
Workbook_SheetChange - событие изменения данных в ячейке.
А есть ли что-нибудь, связанное с событием выделения ячейки, типа Workbook_SheetActivate или Workbook_SheetSelect?
Подскажите, пжл.
Спасибо!
Изменено: iba2004 - 11.06.2013 17:25:31
Название фигуры, которой запускается макрос
 
Господа, добрый вечер!
Подскажите, пжл, какой командой в макрос можно "вытянуть" текст на фигуре, которой он был запущен.
Как-то я задавал вопрос по поводу названия макроса, стоящего во главе запуска всей процедуры и с Вашей помощью вопрос был решен с применением ActiveSheet.Shapes(Application.Caller).OnAction.
Думаю, что нужно рыть в этом направлении и по "выдёргиванию" названия фигуры, но не знаю как.
Спасибо за помощь!
Описание Target.Cells как одной из ячеек в колонке
 
Есть макрос, срабатывающий на событие Workbook_SheetChange. В нем описана Target.Column.
Дело в том, что при выделении и, например, удалении целой строки, макрос срабатывает, а не хотелось бы. Подскажите, пожалуйста, как можно доп. условием описать, что Target.Cells - именно только одна ячейка (в любой строке колонки), а не больше?
Спасибо!
Изменено: iba2004 - 04.06.2013 17:30:26
«Выдёргивание» в VBA из текстовой строки даты
 
Здравствуйте!
Пытался воспользоваться поиском, но не нашёл. Если «криво» искал, дайте, пжл, ссылку.
Прошу помощь в следующем вопросе. В ячейке А1 есть текст в виде от 29 мая 2013 г. 20:41:17
Каким образом в VBA я могу переменной присвоить в данном случае значение 29.05.2013?
Кроме использования на первом этапе функций split, instr и mid с последующим ковырянием полученного значения ничего в голову не приходит. Но мне кажется это можно сделать как-то проще.
Благодарю за помощь, спасибо!
Изменено: iba2004 - 02.06.2013 09:23:39
Поиск в текстовой строке 16 подряд стоящих цифр
 
Здравствуйте!
Прошу прощения, что без примера (с работы нельзя файлы в Нет "бросать"). Задача у меня такая.
В ячейке, допустим, А1 есть текст:
отполплпопл жджд 12 дпдлпдлп 1215118119110171 122121 пдлпдп
Мне необходимо найти макросом 16 подряд стоящих любых цифр, перед которыми и после которых обязательно будут пробелы. В данном случае это 1215118119110171.
Благодарю за помощь.
Активация открытой книги с известным началом имени
 
Здравствуйте!
Задача у меня такая. Среди открытых в Excel книг есть одна, имя которой  «123*.xls». Вместо звезды может быть произвольный набор символов (например, дата). Каким образом я могу активировать книгу, название которой железно будет начинаться с «123»?
Спасибо!
Application.EnableEvents = -1 - что это?
 
Господа, всех приветствую!
Что такое Application.EnableEvents = 1 (Application.EnableEvents = True) и Application.EnableEvents = 0 (Application.EnableEvents = False) - понятно. А вот что такое Application.EnableEvents = -1??? Нигде не смог найти ответ. Помогите разобраться, пжл.
Спасибо!
Предупреждение: "В книге 2.xls обнаружено содержимое...", Причина появления
 
Здравствуйте!
Столкнулся с проблемой, которая много где обсуждалась, но ответ на интересующий меня вопрос так и не нашёл.
Есть два файла. Назовём их условно 1.xls и 2.xls. Макросами данные из 1.xls импортируются в 2.xls.
Если после отработки макросов без сохранения выйти из 2.xls, а затем, не закрывая Excel, попытаться его открыть, то можно увидеть следующую картину (см. прикрепление).
Мне необходимо разобраться в причине появления этого сообщения.
Дополнительные нюансы:
1.Файлы сохранены в формате Excel 97-2003, а работа с ними происходит в 2010 офисе.
2.При нажатии кнопки «Да» (многие из Вас это знают) получаем файл с урезанными данными: отсутствие в нём макросов, заливки, форматирования, некоторых формул и т.д.
3.При полном закрытии Excel’я и последующей попытке открыть файл 2.xls - всё ок!
4.Взял файлы с работы домой (с целью найти возможную причину) переписал их на локальный диск, никаких проблем не возникает (в связи с чем, мне кажется бессмысленным выкладывать их на форум плюс ко всему большие размеры и рабочая информация). На работе файлы лежат в сети.
Теряюсь в догадках, почему так происходит. Помогите, пожалуйста, в поиске причины.
Спасибо!
Изменено: iba2004 - 27.04.2013 10:35:31
Размеры MsgBox
 
Здравствуйте!
Подскажите, пжл, каким образом можно управлять размерами MsgBox? Нашёл на форуме тему (ссылка), но, к сожалению, про размеры формы там ничего не обнаружил. Или м.б. правильнее создать свой UserForm? Необходимо мне это для того, чтобы фразы средней длины умещались в одну строку, а не переносились автоматически.
Спасибо!
Изменено: iba2004 - 07.04.2013 14:11:27
Возможность отследить прямой запуск или Call'ом
 
Вобщем-то весь вопрос в названии темы: возможно ли средствами VBA отследить был осуществлён запуск макроса напрямую или путём вызова процедурой Call из другого макроса? Если возможно, то каким образом?
Прошу меня строго не судить, поиском пользовался, но ответ найти не смог. Подозреваю, что тема обсуждалась, дайте тогда, пжл, ссылку.
Спасибо!
Долгое открытие книги в 10-ом офисе
 
Прошу прощения, но файл не могу выложить, там данные с работы и "весит" он около 20 "метров".
Файл напичкан формулами. При открытии на машинах с офисом 1997-2003 проходит десяток секунд. При открытии в «десятке» 3- 5 минут. Если кто-нибудь сможет и сочтёт возможным: объясните, пжл, в чём причина? Есть подозрение, что присутствуют формулы, ссылающиеся на строку или столбец целиком. Если это так, то как можно их найти? Ещё раз повторюсь, файл напичкан формулами и визуальный контроль практически не возможен.
Спасибо!!!
Изменено: iba2004 - 03.02.2013 01:15:57
Превращение формулы в значение, подсчитанное до изменения ячейки
 
Здравствуйте!
Задача у меня такая: в N4 формула N4=K4+L4.
Нужно, что бы при изменении значения ячейки в K4 в N4 сохранилось то число, которое было подсчитано до внесения изменения. Макрос я написал, но внутреннее ощущение подсказывает, что сделал это коряво. Посмотрите, пжл, и дайте рекомендации.

Заранее благодарю!
Спасибо!
Select ячейки из первой видимой строки диапазона
 
Здравствуйте!  
Есть макрос, который по определенным критериям скрывает строки, допустим с 5 по 10.  
Скажите, пжл, как в конце работы макроса Select’ом выделить ячейку из первой НЕСКРЫТОЙ строки, которая может оказаться, например, шестой, а может восьмой.  
Мне в голову, кроме как выбора критерия, при помощи которого я делаю Hide, ничего не приходит. Но, м.б. есть какой иной способ? Например, выдели ячейку в строке, начиная с 5, которая окажется первой нескрытой.  
Спасибо!
Поиск последнего непустого значения в интервалах массива
 
Здравствуйте!  
Помогите, пожалуйста, с поиском последнего значения.  
Сделать это нужно, непременно, припомощи формулы, так просили.  
Думаю, что как-то можно прикурутить формулу ПРОСМОТР, но как, не знаю.  
Подробности в примере, описывать нпа словах долго и, счмтаю, что малоинформативно.  
Спасибо за помощь!
Формула РАЗНДАТ, если первая дата - конец месяца
 
Здравствуйте!  
Нужно подсчитать количество полных месяцев между двумя датами.  
Вся проблема в том, что если первая дата - конец месяца, то у меня не получается использовать формулу РАЗНДАТ. Подробности в примере. Помогите, пжл, для всех приведённых случаев с написанием универсальной формулы. Большое количество ЕСЛИ, не подойдёт, так как всех концов месяцев за 20 лет мы не сможем охватить.  
Спасибо!
Активация листа через ListBox
 
Здравствуйте!  
Использовал файл любезно разработанный и предоставленный, если не ошибаюсь, The_Prist.  
Только данные в нём переделал под поиск листа. Хотел бы чтобы щелчком на ListBox лист активировался. До недавнего времени тпк и происходило. Но потом, видимо, что-то я поменял и активация, как и клик на ListBox, перестали работать. Пожалуйста, помогите разобраться в чём причина? Всю голову сломал.  
Спасибо!
Подсказки для пользовательской функции на кирилице
 
Здравствуйте, ещё раз!  
Сегодня обсуждался вопрос по функции аналогичной ВПР, только ищущей n-ое вхождение в массиве. Была дана ссылка в обсуждении на эту функцию. Я озадачился и захотел сделать так, чтобы при вызове функции подсказка "всплывала" на кирилице. Нашёл на форуме тему  
http://www.planetaexcel.ru/forum.php?thread_id=21537,  
но моло что понял. Не хватает знаний. Помогите, пжл, с решением проблемы.  
В Е1 рабочая функция, но на английском языке, в Е2 нерабочая - но на русском.  
Спасибо!
Макрос по переносу вырезанных строк на соседний лист
 
Топик был удалён, как я понимаю из-за названия, выкладываю файл в этой теме.  
 
<EM><FONT color=#99000><STRONG>Если тема была удалена и Вы понимаете, что из-за нарушения - зачем потакаете нарушителям?  
</STRONG></FONT>  - [<STRONG>МОДЕРАТОРЫ</STRONG>]</EM>
Сортировка листов книги с рускоязычными месяцами по возрастанию
 
Здравствуйте!  
Скажите, пжл, есть ли в VBA приблуда, которая бы считала лист "Январь" первым, а "Декабрь" последним? Или это можно сделать только через виртуальное присвоение листам согласно их наименованиям значений от 1 - Январь до 12 - Декабрь?  
Возникла необходимость сортировки листов от "Январь" по "Декабрь".  
Пример не выкладываю, т.к. мне думается, что он не нужен.    
Спасибо!
Страницы: 1 2 3 След.
Наверх