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

Страницы: 1 2 След.
Работа с кассовым аппаратом (POS - терминалом)
 
#
10.04.2024 09:26:55
Добрый день!
Нужна помощь для работы с POS терминалами через VBA.
Если Вы можете помочь за оплату, готовы рассмотреть предложения.
POS (F20;D230 4G BT WIFI ETH; Vx520 GRSS/CTLS), либо рассмотрим любые варианты.
Изменено: skais675 - 10.04.2024 09:27:50
Мой канал
 
Перейти    
Смена источника Сводной таблицы
 
#
04.06.2023 09:14:27
Есть ли возможность сменить источник Сводной таблицы с подключения на диапазон или таблицу? В случае. если уже установлено подключение, окно для диапазона не активно, и остается только пересоздать сводную.
Мой канал
 
Перейти    
OpenStreetMap, Получение маршрутов
 
#
22.05.2023 08:46:59
Есть задача получать данные c OpenStreetMap.
Необходима возможность получать все населенные пункты страны, все адреса города.
Нужно определять оптимальное расстояние и время в пути на автомобиле между двумя объектами (насел. пункт или адрес).
Решение нужно на VBA с использованием API, без использования сторонних программ.
Пришлось решить самому.
Изменено: skais675 - 25.05.2023 13:35:34
Мой канал
 
Перейти    
Отменить переход на следующую ячейку при нажатии ENTER
 
#
16.05.2023 09:10:50
Доброго дня!
Есть необходимость организовать ввод информации ручками для определенных ячеек на листе. Однако при нажатии ENTER после ввода информации Excel переходит на следующую строку, а нужно, чтоб остался в той же.
Мой канал
 
Перейти    
Надстройка для написания макросов, Macro Tools VBA
 
#
16.04.2023 13:34:29
Доброго дня коллеги!
При написания кода есть свои наработки и шаблоны, заготовки кода.
Наткнулся на Macro Tools VBA, однако скачать не удается.
Хотелось бы узнать, кто чем пользуется для облегчения рутинных процессов или для удобства написания кода.
Мой канал
 
Перейти    
VBA установить срез без перебора элементов
 
#
22.01.2023 19:13:23
Везде установка одного элемента реализуется путем перебора всех элементов
Код
Set slcash = ActiveWorkbook.SlicerCaches("Срез_sweek")
    
    slcash.SlicerItems(sweek).Selected = True
    For i = 1 To slcash.SlicerItems.Count
        If slcash.SlicerItems(i).Name <> sweek Then
            slcash.SlicerItems(i).Selected = False
        End If
    Next

А есть ли метод чтоб сразу установить один элемент, а остальные неактивные, или сделать это одной операцией.
Просто сводная начинает дергаться при переборе, и если элементов много, то это трэш.
Изменено: skais675 - 22.01.2023 19:14:05
Мой канал
 
Перейти    
Взаимообмен между Excel и GoogleSheets, Есть ли способ автоматической синхронизации данных между таблицами Google и таблицей MS Excel?
 
#
04.11.2022 17:27:47
Интересует возможность программной синхронизации или обмена данными между Excel и GoogleSheets, GoogleDocs.
Интересно абсолютно все. Возможно у кого-то есть опыт реализации.
Попроще - у меня будет файл с макросами, А Google нужен больше для легкого многопользовательского доступа с любых устройств.
Речь идет о реализации ERP системы. Буду благодарен за любые наработки в этой области (excel передал данные в googlesheets, excel взял данные с googlesheets, макрос будет работать по таймеру).
Мой канал
 
Перейти    
Вставка скриншота в сообщение
 
#
03.11.2022 09:41:52
Каким образом производится вставка скриншота в сообщение. Кроме как загрузки как файла не получается. А на пиктограмме - не понимаю что там вводить. Есть подробная инструкция или пару скринов как это делать?
Мой канал
 
Перейти    
Семейный бюджет, Семейный бюджет. Личный бюджет. Финансовая грамотность.
 
#
02.11.2022 15:08:38
Выкладываю готовую программу для ведения личного бюджета.

                                   Преимущества программы:
1 Учёт доходов и расходов, депозитов, кредитов, долгов и т.д.
2 Аналитика, статистика, моделирование и отчеты.
3 Мультивалютность.
4 Ручной ввод данных (в т.ч. и на смартфоне) и/или импорт через выписку из банка.
5 Лёгкая ревизия средств - позволяющая наводить порядок и сводить суммы к реальным.
6 Планирование целей и любых других типов статей (доходы, расходы и т.д.).
7 Прогнозирование и предупреждение критических ситуаций.
8 Гибкая настройка точек зрения: Расходы лимит, За период, МаксМинСр, ТекущийМесяц.
9 Конфигурирование статей, разделение на группы, подгруппы, объединение.

Презентация

Изменено: skais675 - 13.11.2022 12:23:33
Мой канал
 
Перейти    
Табель T-12, Табель. Готовый шаблон.
 
#
02.11.2022 14:45:32
Всем желающим, предлагаю воспользоваться упрощенным шаблоном Табеля Т-12.
Изменено: skais675 - 03.11.2022 14:04:29
Мой канал
 
Перейти    
Spoiler
 
#
25.10.2022 14:01:58
Странно, но я не вижу split spoiler при наборе или редакции сообщений.
Изменено: БМВ - 26.10.2022 13:35:03
Мой канал
 
Перейти    
Редактирование строки в умной таблице VBA, Редактирование строки в умной таблице VBA
 
#
02.08.2022 15:43:59
Есть необходимость изменения данных в умной таблице, но в определенной строке. Каким образом в VBA можно обратиться к определенной строке (к примеру к 10) в умной таблице, и заменить данные в столбцах к примеру (6,7,8 )? Желательно решение с помощью объектов.
Код
 Dim Table As ListObject
 Dim CHRow As ListRow
 Set CHRow = Table.ListRows(10)
 arrb = CH.Value
 CH.Range = Array(arrb(1, 1), arrb(1, 2), arrb(1, 3), arrb(1,4), arrb(1, 5), "Ляля", Now, "Куку")
Изменено: skais675 - 02.08.2022 15:44:54
Мой канал
 
Перейти    
Извлечь текст из PDF из определенной области, Текст из PDF
 
#
29.04.2022 15:16:27
Есть просьба помочь с извлечением теста из PDF файла средствами VBA. Текст всегда находится в определенной области документа. Буду рад любым решениям.
Мой канал
 
Перейти    
Удаление переносов строк в ячейках.
 
#
17.12.2021 09:28:18
Есть данные в приложенном примере. Нужно удалить все переносы строк. Однако сделать это стандартными методами или с помощью VBA не удалось. Только после нажатия ввода в каждой ячейке, они начинают адекватно удаляться. Собственно вопрос, почему это происходит и как это решить?
Изменено: skais675 - 17.12.2021 09:32:55
Мой канал
 
Перейти    
Табель учета рабочего времени Универсальный, Построение Графика и Табеля учета рабочего времени. Широкие возможности.
 
#
15.11.2021 14:36:48
Хочу предложить всем желающим воспользоваться бесплатной программой для построения Графиков и Табелей учета рабочего времени. На первый взгляд она может показаться сложной. Но после ознакомления с ней и опробовав ее в деле - дальнейшая работа с ней не составит труда. Универсальность программы позволяет Вам вывести информацию на любые формы табелей, любые стандарты. Очень легко все настраивается и конфигурируется, не требуются особые знания. Расчеты происходят автоматически. Автоматически проставляются смены, есть учет отпусков и прочих типов выхода невыхода. Есть учет праздников, учет короткого дня перед выходным, перенесенные выходные. Легкая настройка любых типов выхода невыхода, и учета поведения и подсчета дней, часов, вечерних, ночных, сверхурочных, отпускных, декретных и т.д. т.п. Легко вносить изменения в график, история сохраняется. Всем, кто заинтересуется ей, готов проконсультировать, помочь настроить, ответить на интересующие вопросы как в теме, так и в личке.Презентация
Изменено: skais675 - 18.08.2022 08:17:20
Мой канал
 
Перейти    
Обращение и изменение диапазонов умной таблицы в неактивной книге
 
#
13.11.2021 13:09:15
Есть вот такие строчки кода, они прекрасно работают в текущей книге, когда она активна.
Код
If Not [Table1].ListObject.DataBodyRange Is Nothing Then [Table1].ListObject.DataBodyRange.Delete
arr = [Table1].Resize(10)
[Table1].Resize(10) = arr

Но когда нужно обратиться к таблицам и данная книга не активна, так уже не работает.
Каким образом можно реализовать те же задачи но с применением ThisWorkBook к примеру?
Мой канал
 
Перейти    
Календарь на период, календарь на период через форму
 
#
28.09.2021 21:52:04
Есть ли у кого то наработки (на форме, vba) в виде сдвоенного календаря для выбора периода, то есть двух дат одновременно?
Пример на любом сайте  по авиабилетам или бронировании отдыха, когда отображаются сразу два календаря одновременно.
Мой канал
 
Перейти    
LoadPicture() - как загрузить изображение без блокировки файла., LoadPicture() как освободить файл.
 
#
20.02.2021 23:06:09
При загрузке изображения из файла в Image1, файл блокируется, а нужно чтоб не блокировался.
Код
Image1.Picture = LoadPicture(FileName)

Есть похожая тема, но у меня не срабатывает.
Мой канал
 
Перейти    
Выпадающий список из нескольких диапазонов, Выпадающий список из нескольких диапазонов. Объединение нескольких списков в один. Объединение диапазонов в один
 
#
25.01.2021 09:25:14
Существует ли возможность создать именованный диапазон для выпадающего списка из нескольких списков в разных диапазонах?
Мой канал
 
Перейти    
Неактивна панель закрепления области
 
#
04.01.2021 13:44:26
Собственно проблема в том, что панель закрепления области неактивна. В чем причина и как это решить? Непонятно.
Мой канал
 
Перейти    
Выбор монитора, Выбор монитора, в основном для работы в excel
 
#
14.12.2020 17:25:40
Не думал, что для этого открой тему, но так уж происходит, что мне важно мнение коллег.
Купил Benq EW2480, глаза устают
Поменял на ASUS VA24DQ, чуть лучше но тоже не то.
Оба с матрицами IPS 2020года
До покупки и сейчас есть два монитора и ноут
ASUS MB17 - 2006г
Fujitsu notebook AH531
ASUS VS247 - 2014г
все имеют матрицы TN,
Смартфон и телек 4к тоже IPS - но с ними проблем нет.
Не знаю в чем причина, но настройки уже все перепробывал, cleartext пробовал, разрешение оптимальное.
На старых мониторах даже когда пересаживаюсь с 15' на 17' и на 24' никакого дискомфорта, при любых условия освещенности и тд.
На новых, дискомфорт и тд.
Ближе к делу, мне важно Ваше мнение, а так же можете указать модели мониторов желательно 2017-2020 годов, потому как других уже особо не найдешь.
Интересует мнение тех, кто много времени проводит именно работая в excel.
Изменено: skais675 - 14.12.2020 17:27:19
Мой канал
 
Перейти    
Выпадающий список пропускает любые значения, хотя не должен.
 
#
10.05.2020 12:56:10
Вот пример, вроде все верно настроено, однако список пропускает любые значения.
Почему это происходит, непонятно?

PS.
Выяснил - что именно первая пустая строка и дает такой эффект.
Разобрался -убрал игнорировать пустые ячейки.
Изменено: skais675 - 10.05.2020 14:01:25
Мой канал
 
Перейти    
Сравнение всех макросов между двумя книгами, Для проверки идентичности кода
 
#
26.11.2019 16:30:06
Данный код производит сравнение всех макросов между двумя книгами.
После запуска, выбираем две книги одновременно и после проверки выдается резолюция и отмечается с какого момента начинаются расхождения.
Ни раз сталкивался с этой задачей, когда непонятно было, какая версия актуальна или чем они отличаются друг от друга (текущая и предыдущая).
Скрытый текст
Изменено: skais675 - 26.11.2019 16:30:29
Мой канал
 
Перейти    
закрашивание диапазона ячеек vba, закрашивание диапазона ячеек
 
#
22.04.2017 19:40:12
Кто подскажет можно одной командой сразу закрасить диапазон ячеек или нужно по отдельности в цикле? Если кто знает, то как?
макрорекодером нашел ответ на свой вопрос!
Изменено: skais675 - 22.04.2017 19:50:41
Мой канал
 
Перейти    
Как макросом сложить ячейки, если могут быть и пустые
 
#
15.03.2017 15:55:03
Код
arrNew = Worksheets("Поставщик_БД").Range("A1:AO" & Worksheets("Поставщик_БД").Cells(Worksheets("Поставщик_БД").Rows.Count, "A").End(xlUp).Row).Value
xx =arrNew(J, 7)+arrNew(J, 9) + arrNew(J, 10)
Если хоть одна будет пустой даст ошибку, как этого избежать?
мне нужно 5+пусто+7=12
Изменено: skais675 - 15.03.2017 16:08:09
Мой канал
 
Перейти    
Печать определенных листов из выбранных книг., Печать определенных листов из выбранных книг.
 
#
24.02.2017 16:26:32
Нужно выбрать файлы и распечатать к примеру начиная только со второго листа (первый не печатать).
Код
 'вызываем диалог выбора файлов для импорта
    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge")
 
    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "Не выбрано ни одного файла!"
        Exit Sub
    End If
     
    'проходим по всем выбранным файлам
    x = 1
    While x <= UBound(FilesToOpen)
        Set importWB = Workbooks.Open(Filename:=FilesToOpen(x))
        
        'importWB.Worksheets(Array(2, 8)).Select
        'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
        For Each ws In importWB.Worksheets
            ???????
            
        Next ws
        x = x + 1
    Wend
Изменено: skais675 - 24.02.2017 17:01:12
Мой канал
 
Перейти    
Раскрытие дочерних элементов в PivotTable
 
#
09.02.2017 21:24:04
Есть сводная.
Нужно  чтобы при открытии или закрытии плюсика на AUDI раскрывались или  скрывались дочерние элементы только в том разделе где я нажал, к примеру  в AUTO.
А оно меняется и в AUTO и в PARTS синхронно.
Тему открыл и на этом форуме тут
Мой канал
 
Перейти    
Как избавиться от (blank) в Pivot table
 
#
03.02.2017 09:55:49
каким образом можно избавиться от отображения (blank) в Row labels в Pivot Table - просто пусть отображает пустую строку, а не эту надпись (глаза режет, и не все понимают).
Мой канал
 
Перейти    
Перенос строк на другой лист по условию
 
#
02.02.2017 19:08:35
Помогите с написать макрос!
Необходимо с листа2 копировать в лист1 (добавить строки в конец), у которых idnp отсутствует в Лист1.
Лист2 периодически обновляется, а макрос бы синхронизировал или дополнял бы Лист1.
Изменено: skais675 - 02.02.2017 19:13:58
Мой канал
 
Перейти    
Окно открытия файлов в текущей директории
 
#
26.01.2017 17:48:04
Как сделать, чтобы при открытии окна открытия файлов по умолчанию стояла директория, где находится книга с этим макросом (открытия).


Код
FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="All files (*.*), *.*", _
      MultiSelect:=True, Title:="Files to Merge")
Мой канал
 
Перейти    
Страницы: 1 2 След.
Наверх