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

Страницы: 1 2 3 4 5 6 След.
Тормозит файл при работе, Тяжёлый файл Excel тормозит
 
#
09.04.2024 13:00:23
Цитата
написал:
Использовал код, который когда-то  публиковал , сократило сильно (приложил).
1.Мне кажется, я его как раз и использовал...или какой-то более старый вариант вот тут - https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=106444), сообщение 3, но не сработало.
2. Спасибо за помощь, попробую код, указанный в Вашем посте.
Изменено: Zagadka - 09.04.2024 13:02:45
 
Перейти    
Тормозит файл при работе, Тяжёлый файл Excel тормозит
 
#
09.04.2024 12:58:18
Цитата
написал:
Потому, что листы отформатированы на весь диапазон в 1 млн строк Файл 11 метров
Спасибо за отклик.
1. Почему-то не могу сообразить, как отменить это форматирование.
2. P.S. Мне кажется, что 11 Мб - это всё равно много для практически пустого файла?!
 
Перейти    
Тормозит файл при работе, Тяжёлый файл Excel тормозит
 
#
09.04.2024 11:43:49
Всем привет!
Очередная проблема из серии "Непонятно, почему файл стал огромного размера и тормозит".
Иногда коллеги по работе притаскивают файл огромных размеров. Собирают файл с данными из разных небольших файлов, но (почему то иногда) итоговый становится огромным. Обычно для оптимизации и уменьшения размера пользуюсь макросом-оптимизатором (вот отсюда: https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=106444) и файл становится нормального размера. Либо превращаю xlsx в zip и в структуре ищу какие-нибудь графические объекты и тоже их удаляю. В этот раз ни чего не помогает, даже наоборот - после применения макроса файл из 101 Мб стал что-то около 240 Мб(!). Уже удалил все данные из листов, он "пустой". но все равно -  101 Мб. Кто может что подсказать из своего опыта?!!
Вот ссылка на файл в облаке: https://cloud.mail.ru/public/obDs/Wv16tYWet
Изменено: Zagadka - 09.04.2024 11:46:34
 
Перейти    
Автозаполнение через несколько ячеек
 
#
19.03.2024 08:26:28
Цитата
написал:
Сработало. А какую формулу сделать, если там не будет сортировки?
=ЕСЛИ(A1010>A1009;A1010;A1010)
 
Перейти    
Оптимизация файлов, Сильно долго обновляются формулы
 
#
20.12.2023 07:08:51
Petyr178, Вот тут было обсуждение, например: https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=8&TID=8078
 
Перейти    
Сравнение списков по столбцу, Сравнить два списка по столбцу (ФИО) и вставить паспортные данные
 
#
14.12.2023 08:54:19
Вот ещё через индекс-поискпозиции...
Изменено: Zagadka - 14.12.2023 08:54:45
 
Перейти    
Функция СЖПРОБЕЛЫ не убирает пробелы
 
#
13.12.2023 14:54:07
Вот в этой теме есть макрос в #5, который вроде как решает эту проблему
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=151448&a...
 
Перейти    
Не работает автозаполнение, только в столбце "V", Не работает автозаполнение, только в столбце "V"
 
#
07.12.2023 09:10:18
Цитата
написал:
Объясните пожалуйста. И как Вы это нашли?
У вас вместо vorbereitet в ячейке V25 указано vorbereited, поэтому и не заполняет автоматом. Как найти: у вас в верху столбца V установлен фильтр, нажмите на треуголничек и увидите все варианты, что заполнено в столбце.
Изменено: Zagadka - 07.12.2023 09:11:05
 
Перейти    
Как вставить формулу в графический объект Excel
 
#
21.11.2023 06:20:38
Sanja, да, после долгих раздумий пришла аналогичная мысль, что это единственный способ.
 
Перейти    
Как вставить формулу в графический объект Excel
 
#
20.11.2023 14:35:43
Всем доброго дня. Есть необходимость вставить в графическую фигуру формулу, чтобы уже результат отображался в самой фигуре. Если просто сделать ссылку на простую клетку с данными, то они отображаются (см. файл 1). Но если ссылка уже хотя бы на простую формулу сложения двух ячеек, то выдает что "текст не является правильной ссылкой или именем" (см. файл 2). Это возможно побороть как то или нужен совсем другой подход. В дальнейшем планируется формула: Сцепить("текст";Индекс(Поискпозиции); "текст).
 
Перейти    
Нужна помощь. Сильно тормозит файл.
 
#
14.11.2023 06:51:05
kiggo, попробуйте макрос для чистки файла. Отлично помогает.
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=106444
 
Перейти    
Перенести значения из столбика в строки, Перенести значения из столбика в строки
 
#
21.09.2023 08:05:07
Можно  еще так, если строк по каждой организации не всегда 9 будет... :D  :
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}}),
    #"Добавлен индекс" = Table.AddIndexColumn(#"Измененный тип", "Индекс", 0, 1),
    #"Условный столбец добавлен" = Table.AddColumn(#"Добавлен индекс", "Пользовательская", each if Text.Contains([Столбец1], "Телефон") then #"Добавлен индекс"[Столбец1]{[Индекс]+1} else null),
    #"Добавлен пользовательский объект" = Table.AddColumn(#"Условный столбец добавлен", "Пользовательская2", each if Text.Contains([Столбец1], "Телефон") then #"Условный столбец добавлен"[Столбец1]{[Индекс]-1} else null),
    #"Добавлен пользовательский объект1" = Table.AddColumn(#"Добавлен пользовательский объект", "Пользовательская.3", each if Text.Contains([Столбец1], "Телефон") then #"Условный столбец добавлен"[Столбец1]{[Индекс]-2} else null),
    #"Добавлен пользовательский объект2" = Table.AddColumn(#"Добавлен пользовательский объект1", "Пользовательская.1", each if Text.Contains([Столбец1], "Часы работы") then #"Условный столбец добавлен"[Столбец1]{[Индекс]+1} else null),
    #"Добавлен пользовательский объект3" = Table.AddColumn(#"Добавлен пользовательский объект2", "Пользовательская.2", each if Text.Contains([Столбец1], "Сайт") then #"Условный столбец добавлен"[Столбец1]{[Индекс]+1} else null),
    #"Заполнено вверх" = Table.FillUp(#"Добавлен пользовательский объект3",{"Пользовательская.1", "Пользовательская.2"}),
    #"Разделить столбец по разделителю" = Table.SplitColumn(#"Заполнено вверх", "Пользовательская", Splitter.SplitTextByDelimiter(",", QuoteStyle.Csv), {"Пользовательская.1.1", "Пользовательская.2.1"}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Разделить столбец по разделителю",{{"Пользовательская.1.1", type text}, {"Пользовательская.2.1", type text}}),
    #"Удаленные столбцы" = Table.RemoveColumns(#"Измененный тип1",{"Столбец1", "Индекс"}),
    #"Строки с примененным фильтром" = Table.SelectRows(#"Удаленные столбцы", each [Пользовательская.1.1] <> null and [Пользовательская.1.1] <> ""),
    #"Переупорядоченные столбцы" = Table.ReorderColumns(#"Строки с примененным фильтром",{"Пользовательская.3", "Пользовательская.1.1", "Пользовательская.2.1", "Пользовательская2", "Пользовательская.1", "Пользовательская.2"})
in
    #"Переупорядоченные столбцы"
Изменено: Zagadka - 21.09.2023 08:10:48
 
Перейти    
Нарезка таблицы с данными с помощью генератора случайных чисел, VBA, Нарезка таблицы макросом VBA
 
#
26.07.2023 13:00:26
Всем доброго дня.
Возникла необходимость скопировать/нарезать с помощью генератора случайных чисел строки из таблицы с данными на другой лист.С помощью макроса.
При этом нарезка должна происходить в соответствии с задаваемым каждый раз через InputBox числом строк, которые нужно взять из первой таблицы и вставить во вторую. Например, задаем нарезать в первый раз 5 строк, во второй - 3 строки, в третий - 4 строки и т.д. Строки, взятые из первой таблицы не должны повторяться, т.е. быть уникальными и на против каждой строки нужно добавить номер генерации (нарезки) :) . Данных в первой таблице может быть 2-3 тысячи. Сведения, указанные в примере - выдуманные...
Изменено: Zagadka - 26.07.2023 13:01:05
 
Перейти    
Формула разбивки общей суммы на 12 месяцев, с уточнением остатка в последнем месяце
 
#
11.05.2023 11:27:34
Максим В., извините, видимо при переносе в столбик со значениями что-то неправильно было перенесено.
P.S. Вот почему возник мой комментарий - если перенести формулу прямо в таблицу, под общую сумму, то формула на последнем месяце не работает, т.к. в формуле есть одновременно F$2 и H$2, и при переносе в таблицу и исправлении диапазона H на F происходит накладка... Начинает работать в декабре, если поменять F$2 на F$3.

Тимофеев, с массивом работает чётко. 8)  
Изменено: Zagadka - 11.05.2023 11:43:38
 
Перейти    
Формула разбивки общей суммы на 12 месяцев, с уточнением остатка в последнем месяце
 
#
11.05.2023 09:30:39
Максим В. просто замечательно! ;)
P.S. оказалось, что в "декабре" формула изменилась в части H$2 на H$3. То есть, получается формулу нельзя протянуть...либо както усложнить, чтоб автоматом диапазон поменялся в декабре с H$2 на H$3?
Изменено: Zagadka - 11.05.2023 10:12:39
 
Перейти    
Формула разбивки общей суммы на 12 месяцев, с уточнением остатка в последнем месяце
 
#
11.05.2023 09:15:28
Всех приветствую. Возможно ли с помощью формулы сделать разбивку общей суммы на 12 месяцев, с уточнением остатка в последнем месяце? Разбивка должна быть на целые числа. Пример в файле. Округление может быть в любую сторону, лишь бы общая сумма сходилась.
Изменено: Zagadka - 11.05.2023 09:16:28
 
Перейти    
Подключение к DBF файлу (FoxPro) в excel, Необходимо создать подключение к dbf файлу
 
#
05.05.2023 12:51:03
Стас Шнейдер, перепробовав для конвентации PDF в Ексел полтора десятка программ, пользуюсь ABBYY PDF Transformer+ 12 - по мне так она точнее всего PDF-ки преобразовывает в Ексел.
P.S. Администраторы, удалите, плиз, пост. 8)  
Изменено: Zagadka - 05.05.2023 12:59:44
 
Перейти    
ВПР. Не могу понять где ошибаюсь
 
#
05.05.2023 12:14:15
Павел Яковлев, наверно в формуле нужно зафиксировать диапазон (выделить в формуле диапазон и нажать F4), в котором вы ищите совпадение, чтобы при сдиге формулы вниз для поиска следующей ячейки диапазон не сдвигался  =ВПР(RC[-625];Лист1!R122C629:R100C628;2;0).
Изменено: Zagadka - 05.05.2023 12:43:19
 
Перейти    
Ручная настройка панели, Как настроить собственную вкладку на панели
 
#
04.05.2023 09:04:49
Богдан Кох, держите. Подключать в Файл-Параметры-Надстройки-Надстройки Excel - Перейти -Обзор - выбрать то место, где лежит файл с надстройками и ткнуть в файл надстройки. :D  
Код
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui">
   <ribbon startFromScratch="false">
       <tabs >
     <tab id="CIPMacros" insertBeforeMso="TabHome" label="СИП мойки">
       <group id="DbGroup01" imageMso="ReviewEditComment" label="СПРАВКА">
        <button id="DbG01B00" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
      <button id="DbG01B01" label="Немного о программе" imageMso="WhatIfAnalysisMenu" size="large"  onAction="Show_frm_ABOUT" />
      <button id="DbG01B02" label="Краткая инструкция" imageMso="ReviewEditComment" size="large"  onAction="Show_wks_Instruction" />          
      <button id="DbG01B03" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
      </group >
       <group id="DbGroup02" imageMso="TableInsertExcel" label="БАЗА МОЕЕК">
         <button id="DbG02B00" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
      <button id="DbG02B01" label="Показать" imageMso="ReviewShareWorkbook" size="large"  onAction="Show_wks_BAZA" />
         <button id="DbG02B02" label="Скрыть"
                 imageMso="Lock" size="large"  
                 onAction="Hide_wks_BAZA"/>
      <button id="DbG02B03" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
       </group >
       <group id="DbGroup03" imageMso="TableOfContentsGallery" label="РЕДАКТОР СПИСКОВ">
         <button id="DbG03B00" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
      <button id="DbG03B01" label="Показать" imageMso="DropCapOptionsDialog" size="large"  screentip="Показать лист списков" supertip="Менять списки осторожно, так как с ними работают макросы!"  onAction="Show_wks_Data" />
         <button id="DbG03B02" label="Скрыть" imageMso="ProtectDocument" size="large"  onAction="Hide_wks_DATA" />
   <button id="DbG03B03" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
       </group >
       <group  id="DbGroup04" imageMso="FilePrint" label="ГРАФИК МОЕЕК">
   <button id="DbG04B00" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
         <button id="DbG04B01" label="Показать" imageMso="Chart3DColumnChart" size="large"  onAction="Show_wks_GRAFIK" />
         <button id="DbG04B02" label="Скрыть" imageMso="FileDocumentEncrypt" size="large"  onAction="Hide_wks_GRAFIK" />
   <button id="DbG04B03" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
       </group >
   <group  id="DbGroup05" imageMso="FilePrint" label="КОНТРОЛЬ ПЕРИОДИЧНОСТИ">
   <button id="DbG05B00" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
         <button id="DbG05B01" label="Показать" imageMso="DateAndTimeInsert" size="large"  onAction="Show_wks_CONTROL" />
         <button id="DbG05B02" label="Скрыть" imageMso="DatabaseMakeMdeFile" size="large"  onAction="Hide_wks_CONTROL" />
   <button id="DbG05B03" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
       </group >
   <group id="DbGroup06" imageMso="ReviewEditComment" label="ВВОД ДАННЫХ">
   <button id="DbG06B01" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
   <button id="DbG06B02" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
        <button id="DbG06B03" label="Создать отчет" imageMso="ReviewTrackChanges" size="large"  onAction="Show_frm_CIP" />
   <button id="DbG06B04" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
   <button id="DbG06B05" label=" " imageMso="EMPTY" size="large"  enabled = "false" />
       </group >
     </tab >
   </tabs >
   </ribbon>
</customUI>
Изменено: Zagadka - 04.05.2023 09:34:11
 
Перейти    
VBA: Удалить строки снизу
 
#
03.05.2023 13:43:15
Лось Сохатый, спасибо. Как раз изучаю курсы VBA...
 
Перейти    
VBA: Удалить строки снизу
 
#
03.05.2023 06:58:14
New, спасибо за урок по макрос, ;), но код RANа идеально подходит.
 
Перейти    
VBA: Удалить строки снизу
 
#
02.05.2023 11:56:22
Спасибо, люди добрые! ;)

P.s. Комрады, так получилось, что не совсем корректно доведено техзадание: удалить нужно также 13 строк, но они в базовом варианте ОСВ свёрнуты, а не раскрыты. Получается, вышеуказанные макросы их не берут :oops:. Возможно внести коррективы?  
Изменено: Zagadka - 02.05.2023 13:12:42
 
Перейти    
VBA: Удалить строки снизу
 
#
02.05.2023 11:41:33
Всем привет. Есть такой файл, из оборотно-сальдовой ведомости 1С. Для его дальнейшей обработки нужно удалить 13 строк снизу таблицы, начиная со строки ИТОГО (столбец А). Количество строк в самой таблицы будет постоянно меняться, а вот последние 13 строк - всегда одинаковые. Как можно это сделать с помощью макроса?
Изменено: Zagadka - 02.05.2023 11:42:36
 
Перейти    
Добавление определенного количества строк в определенное место
 
#
20.04.2023 14:34:13
Ігор Гончаренко, доброго дня Вам. Периодически пользуюсь Вашей процедурой из #16. Скажите, возможно-ли как-то визуализировать изменение выбора вставки - перед какой строкой вставлять и сколько строк вставить (наверное, InputBox?)? А то каждый раз лазить для внесения изменений в тело макроса несколько неудобно :oops:  :D .
P.s. Вопрос решён вот таким макросом: :)
Код
Sub vstavka_strok()  'Вставить несколько строк с помощью VBA
   Dim iRow As Long
   Dim iCount As Long
   Dim i As Long

   iCount = InputBox(Prompt:="Сколько строк вы хотите добавить?")
   iRow = InputBox _
         (Prompt:="Перед какой строки вы хотите добавить новые строки? (Введите номер строки)")
   
   For i = 1 To iCount
      Rows(iRow).EntireRow.Insert
   Next i
End Sub
Изменено: Zagadka - 21.04.2023 09:47:55
 
Перейти    
Копировать в буфер обмена только выделенные/видимые ячейки
 
#
14.04.2023 10:52:15
МатросНаЗебре, webley - спасибо за помощь, всё работает!  
 
Перейти    
Копировать в буфер обмена только выделенные/видимые ячейки
 
#
14.04.2023 10:36:35
Всем форумчанам привет. Есть такой макрос, копирует в буфер обмена сумму выделенных ячеек, привязан к горячей клавише - очень удобно в моей работе. Но есть ньюанс: если в выбранном диапазоне есть скрытые ячейки, он их тоже суммирует к общей сумме видимых ячеек, что неудобно при работе с такими диапазонами. В примере - выделена сумма 30, в строке состояния сумма тоже 30, но при копировании макросом - 35. Есть возможность скорректировать этот макрос или написать более подходящий?
Код
Sub SumSelected()
    If TypeName(Selection) <> "Range" Then Exit Sub
    With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText WorksheetFunction.Sum(Selection)
        .PutInClipboard
    End With
End Sub
Изменено: Zagadka - 14.04.2023 10:37:34
 
Перейти    
Автозаполнение даты не работает
 
#
11.04.2023 08:40:29
Polina Ol выделите столбец А, Данные - Текст по столбцам - Далее - Далее - выберете "Формат данных столбца" дата -Готово.
 
Перейти    
Изменение представления даты в ячейке в другой вид
 
#
16.03.2023 14:36:59
Цитата
написал:
Zagadka, текст по столбцам и установить там текстовый формат
Точно, помогло! Как-то про эту фичу забылось... :oops:  
 
Перейти    
Изменение представления даты в ячейке в другой вид
 
#
16.03.2023 14:34:58
Цитата
написал:
Цитата
Zagadka написал:
в формат, как в строках 3,4.
т.е. Вы хотите из нормальных дат сделать текст? А смысл? Ну и сразу: если формула не подходит - то надо писать макрос, который все это будет делать автоматом
это нужно для заливки данных в прогу и чтобы у людей, которые будут для этого причесывать файл, был один формат. и именно нужен текст, а не даты :)
Просто как-то странно, что они так разлетелись.
Ну да, если макрос - то выделить столбик - преобразовать в нужный формат. Но думалось, что есть что-то более штатное. :D  
Изменено: Zagadka - 16.03.2023 14:54:02
 
Перейти    
Изменение представления даты в ячейке в другой вид
 
#
16.03.2023 13:35:54
Это 3 января

mechanix 85, не, формула не подходит. Желательно в ячейке чтоб поменялось.
P.S. Главное, выгрузка произошла из одного программного средства, одним разом в один файл. Почему даты пошли в разнос - непонятно.
Изменено: Zagadka - 16.03.2023 13:39:42
 
Перейти    
Страницы: 1 2 3 4 5 6 След.
Наверх