Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » stop
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Как сделать паузу в макросе
 
#
12.05.2016 16:04:17
Sanja ну вот как убрать из фильтра 1000 строк и оставить 5-7 нужных? Эти 1000 меняются.
 
Перейти    
Как сделать паузу в макросе
 
#
12.05.2016 13:57:06
Это очень правильно) Невозможно оптимизировать некоторые моменты. Мне надо после каких-то операций просто проверить глазами что ничего не съехало, все ли правильно пересчиталось. Или проблемы с выставлением фильтров таблицы - вариантов 1000 каждый раз новые, а надо выбрать 7. Макросом сначала все снимается, а потом выбирается нужное.
 
Перейти    
Как сделать паузу в макросе
 
#
12.05.2016 13:24:50
Hugo, спасибо, значит варианта нет. Жаль, я думал плохо искал)
 
Перейти    
Как сделать паузу в макросе
 
#
12.05.2016 12:56:42
Ivan.kh тогда макрос надо будет разбить на 20. И каждый раз запускать следующий. Мне все время надо что-то стороннее делать с файлом в процессе составления отчета. Вбить какие-то данные, проверить что-то.

Юрий М, в том-то и дело, что я не могу ничего менять в файле, пока не нажму ок в MsgBox. А если нажал ок, то макрос продолжился, а мне надо сделать операции над файлом.
 
Перейти    
Как сделать паузу в макросе
 
#
12.05.2016 12:34:06
Подскажите пожалуйста, как сделать паузу в макросе? Не кукую-то временную задержку, а выполнение макроса до определенного момента, потом диалоговое окно с пояснением что надо сделать. После чего я должен сделать некоторые действия в файле и ... нажать продолжить? Или как-то еще?
функция Stop делает практически то что нужно) Но не хотелось бы вываливаться в окно VBA.
Как вариант, можно ли вывести кнопки управления макросом на панель в Excel? Запуск/Пауза/Продложить
Или может быть есть какие-то другие варианты, до которых я не додумался?)
 
Перейти    
Выбор нескольких элементов в сводной таблице макросом
 
#
26.04.2016 16:10:21
Интересное решение, спасибо))
Попробую для себя адаптировать .Я же маленький кусок таблички дал. И сводная много сложнее) Но мне понравилось.
 
Перейти    
Выбор нескольких элементов в сводной таблице макросом
 
#
26.04.2016 13:13:08
Так не получится. У меня есть 2 даты. И выгребать все равно приходится все, т.к. дата изменения может поменять у любой строчки.
Приложил файл.
 
Перейти    
Выбор нескольких элементов в сводной таблице макросом
 
#
26.04.2016 12:20:41
Андрей VG, для меня сложнее)

Sanja, ну не суть.Я пытался. Выбираю одну конкретную, потом делаю EnableMultiplePageItems = true и он сразу все выделяет. Можно было бы сделать возможность мультивыбора к уже выделенной одной...
 
Перейти    
Выбор нескольких элементов в сводной таблице макросом
 
#
26.04.2016 12:02:39
А каким образом это сделать? Значения которые мне нужны тоже меняются каждый день. Мне нужны постоянно последние 7 дней. Если по одному, то в таком виде:
Код
    With ActiveSheet.PivotTables("Сводная таблица").PivotFields("Дата")
        .PivotItems(Format(Now - 1, "m") & "/" & Format(Now - 1, "dd") & "/" & Format(Now - 1, "yyyy")).Visible = True
        .PivotItems(Format(Now - 2, "m") & "/" & Format(Now - 2, "dd") & "/" & Format(Now - 2, "yyyy")).Visible = True
        .PivotItems(Format(Now - 3, "m") & "/" & Format(Now - 3, "dd") & "/" & Format(Now - 3, "yyyy")).Visible = True
        .PivotItems(Format(Now - 4, "m") & "/" & Format(Now - 4, "dd") & "/" & Format(Now - 4, "yyyy")).Visible = True
        .PivotItems(Format(Now - 5, "m") & "/" & Format(Now - 5, "dd") & "/" & Format(Now - 5, "yyyy")).Visible = True
        .PivotItems(Format(Now - 6, "m") & "/" & Format(Now - 6, "dd") & "/" & Format(Now - 6, "yyyy")).Visible = True
        .PivotItems(Format(Now - 7, "m") & "/" & Format(Now - 7, "dd") & "/" & Format(Now - 7, "yyyy")).Visible = True
    End With
Нет никакой функции снять все?
 
Перейти    
Выбор нескольких элементов в сводной таблице макросом
 
#
26.04.2016 11:40:53
Подскажите пожалуйста, есть ли возможность выбора нескольких элементов сводной таблицы средствами VBA?
У меня есть сводная таблица, в фильтре сотни строк (даты). Мне надо выбирать 7 дней.
Если делать это макросом, то после
Код
    ActiveSheet.PivotTables("Сводная таблица").PivotFields("Дата").EnableMultiplePageItems = True
в макросом вставляются ВСЕ строки фильтра с .Visible = False
А т.к. их много, и они каждый день обновляются, в макрос это не записать таким прямым способом.
Есть ли возможность задать просто список .Visible = True элементов?
Был бы один элемент, проблем бы не было, обошелся бы без EnableMultiplePageItems. А так...
 
Перейти    
Неверный формат при вставке даты в ячейку с помощью VBA, При вставке даты вставляется как текст
 
#
16.03.2016 07:15:36
Хм. Если запихнуть даты в блокнот и скопировать, то при вставке макросом получается текст. Если запихнуть в word и скопировать, то при вставке в excel макросом получаются даты...
Дата создания
14.03.2016
14.03.2016
14.03.2016
14.03.2016
12.03.2016
11.03.2016
11.03.2016
11.03.2016
11.03.2016
 
Перейти    
Неверный формат при вставке даты в ячейку с помощью VBA, При вставке даты вставляется как текст
 
#
15.03.2016 21:35:56
Это и есть весь код. Только Sub и End Sub добавить.
Единичка чтобы в дату перевести, все верно.
Это весь код,
Проблема как раз в том, что если делать то же самое руками - дата нормальная. Записываю макрос, перезапускаю - текст.
По идее все должно без этих танцев с 1 работать...

Убрал кавычки - ничего не поменялось.
 
Перейти    
Неверный формат при вставке даты в ячейку с помощью VBA, При вставке даты вставляется как текст
 
#
15.03.2016 20:38:20
Не смог найти поиском похожее. Проблема такая. Если вставляю текст из txt файла в ecxel ручками, то вставляется корректно. Дата как дата.
Если проделывается все это с помощью VBA. Тупо ActiveSheet.Paste. Дата вставляется как текст. Смена форматы ячейки не дает результата.
Так же при перемножении на 1 и изменении формата на дату - если делать это руками, то получается нормальная дата. Если делать силами VBA, то все так же текст.
Не кидайте тапками, макрос топорный, мне большего и не нужно)
Код
   ActiveSheet.Paste
    iLastRow0 = Cells(Rows.Count, 1).End(xlUp).Row
    Range("S1") = "1"
    Range("S1").Select
    Selection.Copy
    Range("I2:J" & iLastRow0).Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
    Range("I2:J" & iLastRow0).NumberFormat = "m/d/yyyy"
    Range("S1").ClearContents
Помогите пожалуйста получить дату в виде даты)
Изменено: stop - 15.03.2016 20:47:27
 
Перейти    
Как с помощью формулы указать путь к файлу
 
#
02.07.2013 17:04:21
Спасибо!
А почему если указывать напрямую, то работает и с закрытым файлом, а если с ДВССЫЛ, то файл должен быть открыт, иначе #ссылка!
 
Перейти    
Как с помощью формулы указать путь к файлу
 
#
02.07.2013 16:17:40
Подскажите, пожалуйста, как без макросов указать путь к файлу?
У меня файлыназываются по месяцам. Мне нужно, чтобы в зависимости от значения ячейки (месяца), он обращался к разному файлу.

Т.е. в А1 указан месяц, например Январь. В B1 "Февраль"
Как сделать так, чтобы в пути файла бралось значение A1, B1?

Есть:
='[Январь.xlsx]Лист1'!$B$3
='[Февраль.xlsx]Лист1'!$B$3

Как сделать чтобы было:
='[#значение A1#.xlsx]Лист1'!$B$3
='[#значение B1#.xlsx]Лист1'!$B$3
 
Перейти    
Как отправить в письме диапазон ячеек
 
#
11.04.2013 16:24:14
ндааа. прошу прощения, ошибся, и правда пусто))
осталось разобраться со вставкой таблицы, но чувствую что не осилю...
 
Перейти    
Как отправить в письме диапазон ячеек
 
#
11.04.2013 15:44:38
ddd = Range("A" & iLastRow2 + 4)
...
.Subject = "Рассылка от " & ddd
...

он создает письмо, а в теме просто "Рассылка от "
Значение ddd он не вставляет.
 
Перейти    
Как отправить в письме диапазон ячеек
 
#
11.04.2013 14:45:34
Спасибо, погуглю, хотя уже пытался разобраться...
А как вставить в тему письма часть текст, часть из переменной
.Subject = "Рассылка от " & ddd
так не вставляет значение ddd
 
Перейти    
Как отправить в письме диапазон ячеек
 
#
11.04.2013 14:29:52
Неужели нет никакого простого способы скопировать таблицу в тело письма?
 
Перейти    
Как отправить в письме диапазон ячеек
 
#
11.04.2013 13:31:44
Добрый день!
Помогите пожалуйста.
У меня есть меняющийся диапазон и конкретный адрес, на который я должен отсылать письмо с этим диапазоном.
В теме должен вставлять дату, указанную в одной из ячеек.
Как добиться того, чтобы в тело письма вставлялся диапазон именно в том виде, что в книге. С теми же заливками, форматами и шрифтами?
Порыл поиском, ничего не смог найти(

Вот то что я смог сделать, хотя понимаю что все не так просто, но исходя из кода может будет понятнее что мне надо)

Sub Send()

   iLastRow2 = Cells(Rows.Count, 13).End(xlUp).Row
   nnn = Range("L" & iLastRow2 + 3)
   ddd = Range("A" & iLastRow2 + 4)
   
   Dim OutApp As Object
   Dim OutMail As Object
   Dim cell As Range
   Set OutApp = CreateObject("Outlook.Application")
   Set OutMail = OutApp.CreateItem(0)
   With OutMail
       .To = "name@com.com"
       .Subject = "Рассылка от " & ddd
       .Body = Range("A" & iLastRow2 + 2 & ":H" & iLastRow2 + 2 + nnn).Value
       .Display
   End With
   Set OutMail = Nothing
   Set OutApp = Nothing

   End Sub
 
Перейти    
Как удалить пробелы в ячейках?
 
#
13.12.2011 16:00:45
Ctrl+h  
найти " " (пробел)  
заменить на "" (оставить пустым)  
заменить все
 
Перейти    
Поиск значений по разным файлам
 
#
13.12.2011 15:26:29
Спасибо большое!!!  
 
Кстати и добился вставки в формулу значения из ячейки, но топорно через макрос))
 
Перейти    
Поиск значений по разным файлам
 
#
13.12.2011 15:01:39
подвисает, а потом все ячейки разом заполняет. Да это уже не так важно, главное работает) пока он делает, можно кофейку налить))
 
Перейти    
Поиск значений по разным файлам
 
#
13.12.2011 14:48:56
Спасибо большое!  
Подвисает на несколько минут, но все делает:)  
 
а теперь уже спортивный интерес. как сделать так, чтобы в формулу добавлялось значение из ячейки?)
 
Перейти    
Поиск значений по разным файлам
 
#
13.12.2011 13:57:18
{quote}{login=Jack}{date=13.12.2011 01:51}{thema=}{post}проще, наверно, макросом  
но если прилепить к этому примеру, вы разберётесь по нему?{/post}{/quote}  
скорее всего да. единственное, что тут вкладки, а у меня отдельные файлы.
 
Перейти    
Поиск значений по разным файлам
 
#
13.12.2011 13:25:43
а с макросом таким кто-то может помочь?  
 
никак нельзя сделать чтобы в формулу вставлялся текст из ячейки? Мне вариант поочередно выбирать имя файла и чтобы формулы перестраивались тоже нравится)
 
Перейти    
Поиск значений по разным файлам
 
#
13.12.2011 12:46:33
Hugo, памяти, я думаю, не хватит... там по 50 000 строчек в каждом файле.  
 
Jack, а если 6 файлов? формула раздуется до невероятных размеров...  
 
а можно ли сделать выпадающее меню с именами файлов, которые он бы подставлял в ВПРы?  
ВПР(A1;ячейка с именем листа-файла!A1:B10;2;0)  
 
как заставить его в формулу вписывать имя файла?))
 
Перейти    
Поиск значений по разным файлам
 
#
13.12.2011 11:54:53
Всем добрый день!  
У меня такая проблема:  
Есть 6 файлов с огромными базами данных. И регулярно в них надо найти некоторое количество данных.  
Пример сделал одним файлом с несколькими листами. На первом листе таблица, куда надо выгрузить данные. Во втором, третьем и четвертом листах - базы даннх.  
Для одной базы данных делал ВПРом без напрягов. А вот как сделать поиск в нескольких файлах никак не могу придумать.  
Помогите, пожалуйста.
 
Перейти    
Поиск всех ячеек, в которые входит часть определенного текста
 
#
23.11.2011 14:39:06
GIG_ant, большое спасибо, все получилось.  
sva, мне не сумма нужна, а именно за это столько, за то столько. но все равно спасибо.  
Владимир, спасибо, но у меня фамилия может совпадать и 5 и 10 раз. Очень громоздко получается.
 
Перейти    
Поиск всех ячеек, в которые входит часть определенного текста
 
#
23.11.2011 13:01:26
Всем добрый день!  
У меня такая проблема.Есть таблица с фамилиями с разным написанием (Фамилия Имя, Фамилия ИО, и т.д.) и столбцом с данными. Во второй таблице просто список фамилий.  
Необходимо найти все совпадения фамилии из второй таблицы с первой. И взять данные из столбца рядом с фамилией в первой таблице. Если совпадений несколько, то взять несколько значений через запятую.  
 
В прикрепленном файле все данные и что должно получиться.  
Надеюсь на вас. Заранее спасибо!
 
Перейти    
Страницы: 1
Наверх