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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 158 След.
Данные из XML в Excel, импорт данных из XML в Excel при отсутствии части данных в XML
 
#
19.04.2025 18:48:41
Здрасьте. Я сам почти чайник из коробки в области XML, но я так полагаю, что надо обрабатывать не импортом, а процедуру написать: идти и обрабатывать заданные узлы и считывать значение. И уже потом заполнять таблицу. Таким образом, если у какого-либо узла не будет значения, то в таблицу можно задать подставлять 0, null, пустую строку, в общем, что нужно.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Условное форматирование по последнему дню каждого месяца, нужно формула для условного форматирования
 
#
15.03.2025 17:02:11
Код
=C$2=КОНМЕСЯЦА(C$2;0)

для шапки во второй строке, начиная с С столбца.
Предварительно выделить 2 строку с С столбца и до конца
Изменено: Пытливый - 15.03.2025 17:02:56
Кому решение нужно - тот пример и рисует.
 
Перейти    
Сообщение в процессе ожидания
 
#
25.02.2025 20:51:23
Приветствую. Можно использовать строку состояния. Писать там что-то такое:
Код
Application.StatusBar = "Думаю. Прошу не мешать!"

И зайти в цикл.
Как из цикла вышли:
Код
Application.StatusBar = False

В конце после цикла еще можно сообщение какое-нибудь, а-ля:
Код
MsgBox "Job's done, Master!"
Изменено: Пытливый - 25.02.2025 20:52:36
Кому решение нужно - тот пример и рисует.
 
Перейти    
Поворот таблицы создание инфокарты
 
#
23.02.2025 12:07:49
Ну, можно попробовать транспонировать таблицу и удалить строки с пустыми значениями по полю какого-либо свойства.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Привязка конкретной гиперссылки к конкретной текстовой строке, Подмена текстовой строки текстовой строкой с гиперссылкой при совпадении текста строки
 
#
12.12.2024 21:18:05
Прям чтоб написал "Петя" и стало Петя - формулой в той же ячейке - вряд ли.
=ГИПЕРССЫЛКА(Адрес; "Петя") - это да.
Или макрос.
Или в соседней ячейке (в одной ввел Петя, в другой получил гиперссылку на лист)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Поиск значений по части текста в ячейке
 
#
28.10.2024 22:22:33
Попробуйте в С5 из примера вставить:
Код
=ВПР(СЖПРОБЕЛЫ(ПРАВСИМВ(B5;ДЛСТР(B5)-ПОИСК("Ё";ПОДСТАВИТЬ(B5;" ";"Ё";ДЛСТР(B5)-ДЛСТР(ПОДСТАВИТЬ(B5;" ";""))))+1));$G$5:$G$9;1;0)
и протянуть вниз.

З.Ы. хотя непонятно, зачем подтягивать логины из таблицы 2, когда можно их справа отгрызть из исходной строки (до первого пробела справа)
Изменено: Пытливый - 28.10.2024 22:23:59
Кому решение нужно - тот пример и рисует.
 
Перейти    
Процентное соотношение разных слов в одном диапазоне (в пределе 100%), Проценты и подсчёт слов
 
#
28.10.2024 18:51:21
Здравствуйте.
На мой взгляд, вам надо через счетесли по конкретному слову делить на счетз по диапазону.
Кому решение нужно - тот пример и рисует.
 
Перейти    
протягивание формул защищенных столбцов
 
#
23.10.2024 20:33:21
Вариант 1: снять защиту, написать формулу, где предусмотрено выводить пусто, пока данные исходные не введены, вернуть защиту где взял
Вариант 2: снять защиту, растянуть формулу, поставить защиту обратно.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Формула для расчета цены следующего и предыдущего объемов
 
#
23.10.2024 20:29:22
А известны в принципе литражи? Ну, например, для напитка "3 топора" литраж бывает 0,5; 0,7, а для "Пшеничная особая" 0,25; 0,5; 0,75 и литр - есть такие данные?
Кому решение нужно - тот пример и рисует.
 
Перейти    
VBA. Макрос на обработку ряда CSV файлов в папке
 
#
16.07.2024 20:03:32
Здравствуйте. Вот в этой инструкции:
Код
              cellValue = CDbl(ws.Cells(i, "F").Value) * 1.17


cellValue - это что?

Помимо этого, когда вы руками открываете файл CSV - в каком столбце файла данные? Я так подозреваю, что в А, а в F ничего нету.
Изменено: Пытливый - 16.07.2024 20:15:03
Кому решение нужно - тот пример и рисует.
 
Перейти    
Открытие файла .csv через vba код, Добрый день, когда открываю csv файл просто двойным нажатием мышки все хорошо, а вот через vba код проблема, подскажите может в коде нужно что то добавить, код прилагаю
 
#
02.07.2024 23:05:52
Здрасьте.
Код
 sFiles = Dir(sFolder & "*.xlsx")
вы пытаетесь открыть файл с расширением .csv перебирая файлы с расширением .xlsx?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Удалить столбец в Эксель, Удалить столбец в Эксель
 
#
29.02.2024 17:06:32
Добрый день.
Попробуйте таким:
Код
Sub Del_Clients_count()
    Dim ToFind$, Finded$, rngC As Range, addrC$, my_range As Range
    Set my_range = Range("a1").CurrentRegion
    ToFind = InputBox("Введите наименование столбца для удаления")
    If Not my_range.Find(ToFind) Is Nothing Then
        Set rngC = my_range.Find(ToFind)
        addrC = rngC.Address
        Finded = Mid(addrC, 2, 1) & ":" & Mid(addrC, 2, 1)
        Do
            Set rngC = my_range.FindNext(rngC)
            Finded = Finded & ", " & Mid(rngC.Address, 2, 1) & ":" & Mid(rngC.Address, 2, 1)
        Loop While rngC.Address <> addrC
        If Len(Finded) > 5 Then Finded = Left(Finded, Len(Finded) - 5)
    End If
    Range(Finded).Delete Shift:=xlToLeft
End Sub
Кому решение нужно - тот пример и рисует.
 
Перейти    
Макрос разложить строки по столбцам, Нужно строки раскидать по строкам
 
#
22.02.2024 16:49:46
Здрасьте.
Попробуйте привязаться к свойству текущей строки "уровень группировки", а не к шрифту. Выделите в вашем примере на листе TDSheet первую группу (где 04.01.2024 и далее вниз строк на 5) и запустите такой простенький макрос:
Код
Sub t()
Dim oCell As Range
    For Each oCell In Selection
        Debug.Print oCell.EntireRow.OutlineLevel
    Next
End Sub
при его выполнении будет видно, какой уровень группировки у даты, какой у контрагента и т.д. Используя эти данные (умело используя!) можно будет раскидать данные в итоговую таблицу.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Скрытие столбцов через макрос
 
#
20.02.2024 17:32:11
Код
For Each cell In ActiveSheet.UsedRange.ROWS(2).Cells
If cell.Value = "Х" Then cell.EntireCOLUMN.Hidden = True
Кому решение нужно - тот пример и рисует.
 
Перейти    
Прогноз продаж по трем сценариям
 
#
20.02.2024 17:28:20
когда забанили в гугле, можно попробовать яндекс.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Скрытие столбцов через макрос
 
#
20.02.2024 17:16:58
Код
Then cell.EntireColumn.Hidden = True
Кому решение нужно - тот пример и рисует.
 
Перейти    
Прогноз продаж по трем сценариям
 
#
19.02.2024 17:49:35
Добрый день. Диспетчер сценариев? закладка ДАННЫЕ, п. "Анализ что-если?"
Кому решение нужно - тот пример и рисует.
 
Перейти    
Mail merge
 
#
03.02.2024 12:33:15
Добрый день. Если под слиянием информации имеется в виду инструмент Word "слияние", то отображение переданной информации (с разрядами, без разрядов, и т.д.), насколько я помню, задается форматированием поля в Word. Ткните на поле в Word'е правой клавишей и посмотрите в контекстном меню "коды полей" как-то так, кажется.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Добавить строки в умную таблицу
 
#
03.01.2024 21:33:08
Ну, первое, что приходит в голову, вставлять количество строк на лист ПОСЛЕ определенной умной таблицы, а потом уже размножать строки непосредственно в ней.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Оформление документа с переносом строк на новую и подчеркиванием, Оформление документа с автопереносом строк на новую и подчеркиванием до конца листа
 
#
16.12.2023 11:46:16
zenija2007, если пойдете по этому пути, используйте моноширинный шрифт, сильно облегчит задачу.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Оформление документа с переносом строк на новую и подчеркиванием, Оформление документа с автопереносом строк на новую и подчеркиванием до конца листа
 
#
16.12.2023 10:42:15
zenija2007, можно шрифт менять на подчеркнутый, заниматься разбиением строки и добиванием пробелов до заданной ширины ячейки и объединением с переносами, но ей-тнбогу, Word для этого куда как симпатичнее.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Помогите сделать автоматический запуск макросов в Excel
 
#
15.12.2023 20:41:48
Посмотрите тут, или тут

Вкратце - можно засунуть в личную книгу макросов, тогда при запуске на вашей машине, под вашей учетке будет доступно для всех файлов. То же самое по первой ссылке - но через собственную надстройку. Как создать, подключить и т.д.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Помогите дописать макрос, Макрос для открытия списка листов в Экселе
 
#
15.12.2023 16:12:19
макрос на сочетание не вешается?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Увеличение размера умной таблицы
 
#
15.12.2023 12:39:22
Посмотрите на адресацию, в смысле, с какого листа запускаетесь, какой лист активный, где находится обрабатываемая таблица. Если она не на активном листе, надо полный путь прописывать каждый раз, когда обращаетесь к ней. Или запихивать в переменную сначала и дальше уже с ней работать. Или через конструкции With - End with
Кому решение нужно - тот пример и рисует.
 
Перейти    
Увеличение размера умной таблицы
 
#
15.12.2023 12:15:05
Посмотрите я выше сообщение дополнил.
У меня при пошаговом в вашем файле отработало, единственное, что смутило, почему весь код запихнут в раздел код формы UserForm1?
Кому решение нужно - тот пример и рисует.
 
Перейти    
Увеличение размера умной таблицы
 
#
15.12.2023 11:51:38
Здравствуйте. Может, в боевом файле объект ListObject того, отсутствует. В тестовом все отрабатывает.

Еще вставить строку можно так (применительно к примеру):
Код
ActiveSheet.ListObjects("Таблица5").ListRows.Add alwaysinsert:=True

Циклом повторить нужное количество раз.
либо, через Resize (для приведенного примера, опять же) увеличиваем на 2 строки:
Код
Sub TT()
    Dim my_table As ListObject, my_range As Range
    Set my_table = ActiveSheet.ListObjects("Таблица5")
    Set my_range = Range(my_table.Name & "[#All]").Resize(my_table.Range.Rows.Count + 2, my_table.Range.Columns.Count)
    my_table.Resize my_range
End Sub
Изменено: Пытливый - 15.12.2023 12:12:33
Кому решение нужно - тот пример и рисует.
 
Перейти    
Помогите дописать макрос, Макрос для открытия списка листов в Экселе
 
#
15.12.2023 11:12:03
Добрый день.
Посмотрите это:
Код
Sub Select_Sheet()
If ActiveWorkbook.Sheets.Count <= 16 Then
Application.CommandBars("Workbook Tabs").ShowPopup 500, 225
Else
Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute
End If
End Sub

Взято отсюда
Кому решение нужно - тот пример и рисует.
 
Перейти    
Подсчет по условию в диапазоне между определенных ячеек, Подсчет по условию в диапазоне между определенных ячеек
 
#
13.12.2023 19:31:50
Добрый. Можно в ячейку F3 примера вставить нечто такое:

Код
=ЕСЛИ(B3="+";F2+1;ЕСЛИ(B3="#";0;F2))


И растянуть вниз.
Кому решение нужно - тот пример и рисует.
 
Перейти    
Скачать много файлов по списку ссылок
 
#
12.12.2023 17:51:55
Добрый день. Это можно сделать при помощи написания спец.процедур (макроса). Могут помочь в разделе РАБОТА, ибо бесплатно такое писать - ну как-то нет. :)
Кому решение нужно - тот пример и рисует.
 
Перейти    
Подсчет одинаковых значений в столбце, не учитывая определенное значение
 
#
02.12.2023 20:07:19
Попробуйте формулу массива:
Код
=МАКС(СЧЁТЕСЛИ($A$3:$A$17;A3:A17)*($A$3:$A$17<>A17))


З.Ы. Ввод формулы массива заканчивается сочетанием Ctrl+Shift+Enter
Кому решение нужно - тот пример и рисует.
 
Перейти    
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 158 След.
Наверх