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

Страницы: 1 2 След.
Загрузка адресной книги из Excel в OutLook
 
#
07.08.2022 07:46:37
Добрый день.

Подсобрал из разных источников макрос для загрузки и удаления всех контактов.
Удаляет нормально, а при загрузке контактов происходит что-то интересное. Может подскажите, что делать?
Excel и Outlook 2016, Windows 10
1. Как заполнить свойство контакта "Отображать как"?
2. При загрузке иногда пропадает языковая панель (справа в углу)
3. Если запускать процедуру загрузки несколько раз, то в диспетчере задач повисает куча процессов Excel, каждый из которых надо завершать отдельно.
4. После загрузки адресов и закрытия файла, иногда, система предлагает его снова открыть, как будто он снова доступен для чтения и записи (скрин ниже)
 
Перейти    
Запуск макроса до обновления сводной
 
#
15.04.2021 08:12:37
Добрый день.

Может кто знает, как отследить событие обновление сводной таблицы.
Требуется, чтобы выполнялась такая последовательность действий:
- нажимается стандартная кнопка "Обновить все" - для обновления всех сводных.
- выполняется макрос
- все сводные обновляются

Что самое близкое нашел, так это Worksheet_PivotTableUpdate, но в данном случае макрос выполняется после обновления сводной, а не до обновления.

Способ - повесить всю последовательность действий на отдельный макрос, к сожалению, не подходит для работы.
 
Перейти    
Запуск макроса при начале редактирования ячейки
 
#
09.09.2019 09:33:40
Добрый день.

Может сможете подсказать, есть ли способ запустить макрос, при начале ввода данных в ячейку?
Worksheet_Change - запускает уже после редактирования ячейки.
Worksheet_SelectionChange - при выделении ячейки.
Но идея - как только в указанном столбце пользователь начинает вводить данные (т.е. после первого же нажатия любой клавиши на клавиатуре) - должен происходить запуск макроса (вызов userform).
 
Перейти    
Обработка большого количества строк макросом, перебор строк + транспонирование
 
#
13.05.2016 19:51:27
Добрый день.

Прошу помощи или совета как действовать.
Ко мне попадает файл (как в примере), он постоянно обновляется и мне нужно почти каждый день приводить из состояния "Исходник" в "то что нужно". Сейчас в файле уже больше 100 000 строк. К концу года будет более 500 000.
Я разворачивал в нужный мне вид привязываясь к отступам каждой строки (цикл по строкам, больше цифра отступа - больше номер колонки). Но уже сейчас этот процесс занимает довольно продолжительное время.
Каким способом можно ускорить получение результата?
 
Перейти    
Копия сводной с формулами, Копирование сводной в виде значений с сохранением формул
 
#
28.02.2016 16:41:03
Добрый день.
Кто-нибудь знает как можно скопировать сводную таблицу в значения (отвязать от исходных данных), но при этом сохранить формулы внутри таблицы.
Понятно, что такое только макросами.
Как отвязать от исходников я разобрался, а вот как формулы сохранить?
Даже не знаю от чего оттолкнуться, т.к. естественно структура сводной всегда разная.
 
Перейти    
Смещение относительно последнего ненулевого значения в строке
 
#
11.12.2014 10:30:07
Добрый день.

Подскажите, как найти последнее ненулевое значение в строке и смещение относительно него.
Т.е. значение не нулевое можно найти с помощью формулы =ПРОСМОТР(9E+307;1/D5:M5;D5:M5)
Но никак не удается придумать формулу, чтобы она работала со смещением относительно найденного ненулевого значения.
Пример в файле. Желтые ячейки - что необходимо подтянуть формулой.
Заранее спасибо.
 
Перейти    
Суммирование в плавающем диапазоне по условию, обработка оборотки
 
#
24.11.2014 12:30:16
Добрый день.

Помогите, пожалуйста.
Требуется найти сумму всех положительных и всех отрицательных чисел в диапазоне выделенном желтым цветом.
Количество строк "Фамилия Имя Отчество" всегда разное.
Вертикальное расположение (с какой строки начинается этот диапазон) на листе всегда разное.
Расположение колонок неизменно.
 
Перейти    
Расширенный фильтр макросом. Поиск по маске *текст*, http://www.planetaexcel.ru/techniques/2/197/
 
#
08.10.2014 21:35:32
Добрый вечер.
Прочитал в приемах интересную статью расширенный фильтр.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:I5")) Is Nothing Then
     On Error Resume Next
     ActiveSheet.ShowAllData
     Range("A7").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
    End If
End Sub
Не получается реализовать, чтобы фильтр всегда срабатывал по принципу *текст для поиска*.
Подскажите, как это сделать?
Изменено: lis2109 - 08.10.2014 23:00:30
 
Перейти    
UserForm - свойство ScrollBar, прокрутка с помощью колесика мыши
 
#
25.09.2014 21:57:35
Добрый вечер.
Подскажите, пожалуйста, как на UserForm прокручивать вертикальный ScrollBar колесиком мыши.
 
Перейти    
Вытащить первую строку в ячейке
 
#
25.07.2014 16:28:28
Добрый день.
Данный макрос форматирует первую строку в ячейке.
Не могу сообразить, как эту первую строку вытащить из ячейки (скопировать) и в другую ячейку ее поместить.
Код
Sub Форматирование()

For Each cell In Selection
   arr = Split(cell.Value, Chr(10))
   With cell.Characters(1, Len(arr(0)))
        .Font.Bold = True
   End With
Next
End Sub
 
Перейти    
Горизонтальный фильтр (макросом)
 
#
24.05.2014 17:27:43
Добрый день.
У меня есть макрос, работающий, как горизонтальный фильтр (нашел на планете, но не помню, кто автор).
В прикрепленном файле 3 строки:
- Дата
- Неделя
- Год
По неделе, и году макрос работает как надо.
Но хотелось бы, чтобы еще можно было выбирать диапазон дат.
Т.е. введя в ячейки C1 и D1 (в файле) - начальную и последнюю даты соответственно, чтобы были отображены столбцы за этот период (фильтр по 3 строке).
Подскажите, как реализовать?
 
Перейти    
Имя листа из ячейки (не летучая)
 
#
11.03.2014 22:03:50
Добрый вечер!
Может кто знает, как обойти "летучесть" формулы.
Код
=ДВССЫЛ(C1 & "!D4")

При добавлении строки (или столбца) на листе, имя которого указано в ячейке C1, адрес ссылки на ячейку в данной формуле остается неизменным.
Подскажите, как можно обойти данную особенность формулы?
 
Перейти    
Отметить одинаковые значения по строкам, условное форматирование
 
#
25.02.2014 17:50:57
Добрый день.
Никак не могу сообразить, как сделать. Помогите, пожалуйста.
Как выделить условным форматированием (или макросом) одинаковые значения по строкам, но только те, что совпадают по трем столбцам?
В примере три столбца: №, дата, сумма.
Выделить надо только те, что одинаковые по трем этим критериям. Без доп.столбцов.

Заранее спасибо.
 
Перейти    
Выбор нескольких месяцев в автофильтре, через UserForm
 
#
17.02.2014 19:50:05
Добрый вечер.
В файле на UserForm смог реализовать выбор месяца для автофильтра через OptionButton. Но так можно выбрать только один месяц.
Подскажите, как можно реализовать работу макроса, как в файле, но только через CheckBox, чтобы можно было задать несколько месяцев?
 
Перейти    
Промежуточные.итоги по строке
 
#
31.01.2014 12:24:02
Добрый день.

Подскажите, пожалуйста. Функция промежутные.итоги не работает по горизонтали.
А нужно, что суммировала при скрытых столбцах (не группировкой скрытых).
Есть ли решение этой проблемы? Может какая другая формула (функция) есть?
 
Перейти    
Действия для листов, Макрос применительно к именам листов
 
#
12.01.2014 20:37:52
Добрый вечер.
Вот такой небольшой макрос:

Код
Private Sub Workbook_Open()

For i = 1 To 142
 On Error Resume Next
 Sheets(i).EnableCalculation = False
Next

End Sub

Но в данном случае 1-142 это номера листов, а нужно, чтобы это были имена листов.
Подскажите как этого добиться?
 
Перейти    
Группировка макросом по условию, подправить код
 
#
25.12.2013 18:07:49
Добрый вечер.
У меня есть макрос, который группирует строки по условию - если в первой колонке находит ячейку, в которой выделено жирным содержимое ячейки.
Помогите исправить, чтобы макрос группировал, если найдет ячейку выделенную цветом (цвет задается условным форматированием).
 
Перейти    
Срзначесли + Промежутные.итоги (формула)
 
#
01.12.2013 22:12:23
Добрый вечер.
Есть формула:
Код
СУММПРОИЗВ(ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(E$9;СТРОКА(E$9:E$657)-СТРОКА(E$9) ;))*($D$9:$D$657=$D1))
Считает: суммесли + Промежутные.итоги.
Помогите, пожалуйста, переделать, чтобы считала СРЗНАЧЕСЛИ + Промежутные.итоги.
 
Перейти    
Эмуляция Ctrl
 
#
18.10.2013 09:00:45
Доброе утро.
На сайте  http://www.cyberforum.ru нашел код, позволяющий частично добиться эмуляции Ctrl для выделения ячеек:

Код
Sub Ctrl()

'запуск по F8

    Dim rRange As Excel.Rang
    Set rRange = Selection
    Set rRange = Union(Selection, rRange).Select
    Debug.Print rRange.Address
 
End Sub

Но выделение происходит не выделенных ячеек, а диапазона.
Подскажите, как переделать, чтобы мог выделять не смежные диапазоны.
 
Перейти    
Сдвиг userform относительно активной ячейки, поведение окошка "найти и заменить"
 
#
05.10.2013 20:33:59
Добрый вечер.
Подскажите код, который позволяет задавать поведение userform такое же, как у окошка "Найти и заменить", т.е. когда выделяешь в нижнем окошке один из вариантов найденного, и это найденное значение находится за окошком "Найти и заменить", то окошко сдвигается в сторону, позволяя увидеть найденное значение.
 
Перейти    
Сложить с шагом в три столбца, только с помощью формулы
 
#
02.10.2013 20:36:47
Добрый вечер.
Подскажите, пожалуйста, с формулой.
Нужно сложить каждые следующие три столбца. Т.е. если формулу протягивать, то шаг формулы - один столбец. А нужно, чтобы шаг формулы был три столбца.
 
Перейти    
Двойной поиск по столбцу
 
#
24.09.2013 13:37:50
Добрый день.
Честно говоря, не знаю, как человеческим языком объяснить так, чтобы было понятно.
Посмотрите в примере, пожалуйста.

Нужно растащить формулами данные из одной таблицы в другую.
Изменено: lis2109 - 24.09.2013 13:55:09
 
Перейти    
Вывод меню в зависимости от столбца, по щелчку правой кнопкой мыши
 
#
20.09.2013 21:45:48
Добрый вечер.
Подскажите, возможно ли такое и если да, то как реализовать.
Вывод меню по щелчку правой кнопкой мыши, чтобы к примеру, если щелкаю в любом месте листа, то в меню появлялся бы пункт "макрос 1", если в столбце А, что в меню добавлялся пункт и было бы уже - "макрос 1" и "макрос 2", если в столбце В, то - "макрос 1" и "макрос 3".
 
Перейти    
Месяцы перевести в года и месяцы формулой
 
#
13.09.2013 13:17:58
Добрый день.
Подскажите, пожалуйста, как формулой перевести месяцы - в года и месяцы.
Т.е., к примеру:
А1 = 37
Формулой вывести в
B1 = 3 года 1 мес.
 
Перейти    
Фильтр по активной ячейке + пустые строки
 
#
04.09.2013 20:49:24
Добрый вечер.
Есть макрос, который включает фильтр по активной ячейке (сам макрос в файле, т.к. код длинный).
Помогите его изменить, чтобы при использовании макроса отфильтровывались значения активной ячейки и плюс к этому - все пустые ячейки активного столбца.
Запись макрорекордером показала, что нужно добать код "... , Operator:=xlOr, Criteria2:="=" ", но не пойму куда именно его добавить.

Заранее спасибо.
 
Перейти    
Имя книги = сбор имен листов
 
#
25.08.2013 13:36:05
Добрый день.
Помогите с выполнением.
Есть книга, в книге несколько листов.
Имена листов всегда цифры и текст (как в примере).
Так вот какая задача.
Проверка имен всех листов книги и если имя листа - это текст, то пропуск такого имени (т.е. ничего не делаем). А если имя листа - цифры, то задать новое имя книги перечисляя через запятую все цифры от меньшего к большему.
Т.е. в примере новое имя книги должно быть - "1, 154, 845".

Есть, конечно, мысль создать новый лист, собрать на него список всех листов, удалить весь текст, собрать в одну ячейку все оставшиеся цифровые значения, задать новое имя книги из этой ячейки, а затем удалить созданный лист.
Но ведь наверняка есть способ легче и быстрее.
 
Перейти    
Сумма по признаку объединенной ячейки
 
#
21.08.2013 15:29:32
Честно говоря даже не знаю возможно ли это в принципе.
Но наша бухгалтерия ни в какую не хочет отказываться от объединенных ячеек.
Возможно ли сложить суммы в строках по признаку в объединенной ячейке?
Не знаю, "по-русски" ли я объяснил. Посмотрите файл, там понятней.
 
Перейти    
Отображение в ListBox не скрытых листов
 
#
13.08.2013 20:56:53
Добрый вечер.
Есть у меня макрос с userform.
В ListBox отображаются для выбора все листы книги, в том числе скрытые, кодом:
Код
Private Sub UserForm_Initialize()
   Dim i As Integer
     For Each sh In ActiveWorkbook.Sheets
       ListBox1.AddItem sh.Name
     Next
End Sub

Как его надо изменить, чтобы отображались все листы, кроме скрытых?
 
Перейти    
Запрет на выполнение макроса при нажатии CheckBox, CheckBox в UserForm
 
#
11.08.2013 14:31:06
Добрый день.
В книге макрос срабатывает при открытии книги:
Код
Private Sub Workbook_Open()
  If Date > CDate("01.08.2013") Then
     UserForm1.Show
  End If
End Sub

Запускает userform с определенным текстом.
На самой userform есть CheckBox.
Так вот какой код написать, чтобы при проставлении галочки CheckBox "больше не показывать это окно" - userform при открытии книги больше не показывалось?
 
Перейти    
Фильтр для выборки уникальных чисел
 
#
08.08.2013 09:21:59
Доброе утро.
Есть макрос:
Код
ActiveSheet.Range("$A$2:$H$100").AutoFilter Field:=2, Criteria1:=Format([ActiveCell], "# ##0.00")

Нормально фильтрует числа до 999 999,99 а начиная с 1 000 000 перестает фильтровать и выдает пустой отфильтрованный список, хотя формат числовой задан.
Подскажите, как исправить?
Изменено: lis2109 - 08.08.2013 09:23:15
 
Перейти    
Страницы: 1 2 След.
Наверх