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

Страницы: 1
сводная через vba с использованием формы
 
#
08.01.2025 12:44:51
Всем привет,
нужна помощь с задачей.
Есть лист со списком транзакции с полями: клиент_ид, дата_транзакции, статус, страна, сумма и проч.

Необходимо завести форму, где заполняются:
  • период - Start date и End date,
  • выбирается Статус платежа из списка (можно выбрать несколько, хоть Все через галочку),
  • вывести listbox или combobox списка стран удовлетворяющих верхним 2м фильтрам, если таких стран нет то ок,
После выбора страны в последнем фильтре (или нескольких стран) по нажатию кнопки выводить ниже:
  1. Общее число транзакций по стране (с учетом заданного периода и статуса)
  2. Общее число клиентов, сделавших эти транзакции (уникальное число клиентов)
Бюджет 3000р.  
 
Перейти    
Worksheet_Change: почему не меняется цвет?
 
#
25.07.2014 13:24:13
Форумчане,
помогите пожалуйста с ошибкой,
ниже код который срабатывает при изменении указанных колонок на Листе,
но после того как добавил строки изменить цвет ячейки (Selection.Interior...)
стал ругаться что Application defined or object-defined error
Код
Private Sub Worksheet_Change(ByVal Target As Range)
'Application.ScreenUpdating = False: On Error Resume Next
Select Case Target.Column
Case 3, 8, 13, 18, 23, 28, 33, 38, 43, 48, 53, 58
  If Not IsEmpty(Target(1, 0)) Then
    If Target(1, 1).Value <> "На руках" And Not IsEmpty(Target(1, 1)) Then
        Application.EnableEvents = False
        Target.Offset(, 2).Value = Date
        Selection.Interior.ThemeColor = xlThemeColorAccent1
        Selection.Interior.TintAndShade = 0.599993896298105
        Application.EnableEvents = True
    End If
  End If
 
Перейти    
при открытии файла автоматически проставлять Выпадающие списки на нужных колонках
 
#
25.07.2014 09:53:46
Уважаемые форумчане,
помогите пожалуйста с такой задачей, можно ли сделать так или нет.

Есть файл в котором на 3-х листах на определенных колонках (например C3:C65536, G3:G65536 и т.д.) проставлены Выпадающие списки, принимающие значения:
Продано / Бесплатно / Возврат / На руках (называется =Types).

Так вот при работе с файлом пользователи бывает достаточно регулярно делают копирование ячейки без выпадающего списка в ячейку с выпадающим списком, т.о. ячейка теряет свойство выбирать из выпадающего списка.. :) Хоть и говорили миллион раз но все равно это происходит,

и хотелось бы сделать так чтобы при открытии файла все выбранные ячейки автоматом проставлялись как с Выпадающим списком..  
 
Перейти    
удаление ячеек по условию
 
#
15.07.2014 08:53:10
Уважаемые форумчане,
помогите пожалуйста с задачей,
нужен макрос который бы сравнивал даты в колонках Сдача на листе (колонки E, K, Q и т.д.) с текущей системной датой, и если они меньше + не пустые то удалять соседние ячейки на соответствующей строке под соответствующей номенклатурой - например B4-E12 под первой номенклатурой, H2-K4 под второй и т.д.
После этого, чтобы не образовывались пустые строки, макрос должен делать сортировку соответствующих колонок (B-E, H-K, N-Q и т.д.) по значениям например B.
 
Перейти    
вставка формул из листа в несколько файлов
 
#
04.06.2014 08:51:58
Добрый день,
помогите пожалуйста форумчане,
у меня есть более 200 файлов excel - все однотипные с одинаковыми листами и т.п., только имена файлов разные.

Возникла необходимость внести во всех этих файлах в листе "Свод по дате" исправленные формулы, допустим в Range("D2:I34"  ;)  .
Исправленные формулы находятся в файле tmp - записал через макрос рекордер - но там ссылается на файл excel который уже принял участие в замене листа,
можно ли как-то заменить в коде так чтобы я любой файл который открыл и запустил соотв. макрос (при наличии открытого tmp) - чтобы он проделывал нужную операцию копи-пейст?
Код
    Windows("tmp.xlsx").Activate
    Range("D2:I34").Select
    Selection.Copy
    Windows("KIOSK - User1.xls").Activate
    Range("D2:I34").Select
    ActiveSheet.Paste
т.е. чтобы иметь возможность открывать файлы KIOSK - User2.xls, KIOSK - User3.xls и т.п. и смело запускать макрос на копи-пейст..  
Изменено: Portolomeo - 04.06.2014 10:58:36
 
Перейти    
события протягивания ячеек
 
#
02.06.2014 09:18:58
Добрый день, уважаемые знатоки,
как можно зафиксировать событие "протягивания" ячеек? К примеру у меня в листе следующий код – когда пользователи меняют колонки B / H / N и т.п. – в соседних колонках проставляются статус – «На руках» и рядом дата выдачи (текущая дата события).
Но почему-то этот блок не срабатывает когда в нужных колонках происходит не добавление/изменение ячеек, а протягивание ячеек, тогда соседние колонки остаются пустыми, как можно учесть этот момент?
Код
Private Sub Worksheet_Change(ByVal Target As Range)  If Target.Column = 2 Then      Target(1, 2).Value = "На руках"
     Target(1, 3).Value = Date
    End If

    If Target.Column = 8 Then
     Target(1, 2).Value = " На руках "
     Target(1, 3).Value = Date
    End If

    If Target.Column = 14 Then
     Target(1, 2).Value = " На руках "
     Target(1, 3).Value = Date
    End If 

End Sub
Изменено: Portolomeo - 02.06.2014 10:46:54
 
Перейти    
метод Find в VBA для поиска нескольких значений
 
#
14.05.2014 11:31:37
Уважаемые форумчане,
помогите пож-та, как сделать в VBA поиск значений методом Find, где в параметре What находилось бы условие - например найти все что меньше заданной даты?

Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
 
Перейти    
удаление ячеек, если дата их изменения устарела
 
#
13.05.2014 14:57:05
Добрый день!
Прошу вас о помощи, или хотя бы подсказать возможно ли такое решение.

Имеется файл с 2мя листами, в каждом листе идентичные шапки в следующем виде:
колонка А - номенклатура, колонка В - серийный номер, колонка С - дата (когда вносится значение серийного номера в колонке В, дата проставляется автоматом), далее через одну пустую колонку (D) эти 3 столбца повторяются, но уже для другой номенклатуры и т.д. Т.е. колонка E - номенклатура, колонка F - серийный номер, колонка G - дата, снова пропуск и так для 10 номенклатур.
Задача состоит в том, чтобы иметь возможность "одним движением" удалять все данные в ячейках (не строках, т.к. могут удалиться значения других номенклатур, где дата еще свежая), которые устарели - например нужно удалить все ячейки с прошлого месяца.

Т.е. я хочу удалить все серийные номера апреля по каждой номенклатуре в обоих листах - без того чтобы делать фильтр или сортировку по каждой номенклатуре отдельно и удалять вручную..
Существует ли такая возможность?
 
Перейти    
значение по умолчанию в выпадающем списке, для нескольких колонок в листе
 
#
24.04.2014 10:32:34
Добрый день!
Прошу вас помочь, искал информацию но нашел более менее нормальное решение здесь же в архиве
http://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=38289,
само решение выглядит так
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column > 4 Then Exit Sub
    With Cells(Target.Row, "F" ;) 
        If .Text = "" Then
            Application.EnableEvents = False
               .Value = "no"
            Application.EnableEvents = True
        End If
    End With
End Sub

но это работает для случая ввода значений в любую колонку до 4-й, можно ли сделать так чтобы значение по умолчанию в выпадающем списке повлялось в колонке F при вводе значения в колонку E?
И помимо этого также для колонок например L и M - при вводе значения в L по умолчанию в выпадающем списке в M принимало определенное значение.
 
Перейти    
учет числа кликании на Гиперссылки
 
#
17.04.2014 14:54:40
Всем добрый день!
Прошу помочь с решением данного вопроса, если он вообще решается в Excel.
Существует ли возможность ведения учета числа переходов при кликании на гиперссылки?

Имеется большой файл с кучей строк, все строки первой колонки являются гиперссылками на определенные файлы (word/excel/pdf).
Чтобы иметь возможность видеть частые переходы и те куда вообще не заходят.

Заранее спасибо за участие!
 
Перейти    
Страницы: 1
Наверх