Висит excel при удалении строк
Здравствуйте!
Поднимал этот вопрос на другом форуме, но окончательного решения видимо не будет, рискну попробовать здесь:)
Вот этот пример с фильтром работает очень медленно в таблицах с большим числом строк,
есть ли достойное альтернативное решение либо доработка существующего?:
Нужно удалять строки макросом по нескольким условиям без изменения структуры листа,
в котором содержится таблица с большим количеством строк. В данном случае условием является "0" в шестом столбце и заданный цвет в том же столбце на всем листе, начиная с 22 строки. Подробнее и с примером во вложении.
Rows("22:22").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(Range("a21:F21"), ActiveCell.SpecialCells(xlLastCell)).AutoFilter
Selection.AutoFilter field:=6, Criteria1:="=0,00"
Range(Range("a21:F21"), ActiveCell.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Здравствуйте!
Поднимал этот вопрос на другом форуме, но окончательного решения видимо не будет, рискну попробовать здесь:)
Вот этот пример с фильтром работает очень медленно в таблицах с большим числом строк,
есть ли достойное альтернативное решение либо доработка существующего?:
Нужно удалять строки макросом по нескольким условиям без изменения структуры листа,
в котором содержится таблица с большим количеством строк. В данном случае условием является "0" в шестом столбце и заданный цвет в том же столбце на всем листе, начиная с 22 строки. Подробнее и с примером во вложении.
Rows("22:22").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(Range("a21:F21"), ActiveCell.SpecialCells(xlLastCell)).AutoFilter
Selection.AutoFilter field:=6, Criteria1:="=0,00"
Range(Range("a21:F21"), ActiveCell.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Вот этот пример с фильтром работает очень медленно в таблицах с большим числом строк,
есть ли достойное альтернативное решение либо доработка существующего?:
Нужно удалять строки макросом по нескольким условиям без изменения структуры листа,
в котором содержится таблица с большим количеством строк. В данном случае условием является "0" в шестом столбце и заданный цвет в том же столбце на всем листе, начиная с 22 строки. Подробнее и с примером во вложении.
Rows("22:22").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(Range("a21:F21"), ActiveCell.SpecialCells(xlLastCell)).AutoFilter
Selection.AutoFilter field:=6, Criteria1:="=0,00"
Range(Range("a21:F21"), ActiveCell.SpecialCells(xlLastCell)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Спасибо заранее. Автор - Voh
Дата добавления - 21.02.2013 в 19:14
Удалить строку, если в ячейке 6-го столбца (F) значение 0 (Ноль)
А с цветом непонятно. Задан цвет серый, в таблице его не видно. Удалять нули серые или что угодно серого цвета.
Удалить строку, если в ячейке 6-го столбца (F) значение 0 (Ноль)
А с цветом непонятно. Задан цвет серый, в таблице его не видно. Удалять нули серые или что угодно серого цвета. AlexM
Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
To AlexM:
Удалять что угодно серого цвета, в таблице это всякие строки маленькой высоты с надписями подраздел и просто пустые. Они удаляются при запуске второго макроса.
To AlexM:
Удалять что угодно серого цвета, в таблице это всякие строки маленькой высоты с надписями подраздел и просто пустые. Они удаляются при запуске второго макроса. Гость
Ваши макросы не не ботают в Excel2003
Первый не разбирался почему, а второй - в Excel2003 в автофильтре нет отбора по цвету ячейки.
Код, который работает, сравнить скорости я не смогу.
[vba]
Sub Macros3()
Application.ScreenUpdating = False
Dim i As Long, strS As String
For i = 24 To Range("F" & Rows.Count).End(xlUp).Row
If (Range("F" & i).Value <> "" And Range("F" & i).Value = 0) Or Range("F" & i).Interior.ColorIndex = 48 Then
strS = strS & "," & i & ":" & i
End If
Next: Range(Mid(strS, 2)).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Ваши макросы не не ботают в Excel2003
Первый не разбирался почему, а второй - в Excel2003 в автофильтре нет отбора по цвету ячейки.
Код, который работает, сравнить скорости я не смогу.
[vba]
Sub Macros3()
Application.ScreenUpdating = False
Dim i As Long, strS As String
For i = 24 To Range("F" & Rows.Count).End(xlUp).Row
If (Range("F" & i).Value <> "" And Range("F" & i).Value = 0) Or Range("F" & i).Interior.ColorIndex = 48 Then
strS = strS & "," & i & ":" & i
End If
Next: Range(Mid(strS, 2)).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Код, который работает, сравнить скорости я не смогу.
[vba]
Sub Macros3()
Application.ScreenUpdating = False
Dim i As Long, strS As String
For i = 24 To Range("F" & Rows.Count).End(xlUp).Row
If (Range("F" & i).Value <> "" And Range("F" & i).Value = 0) Or Range("F" & i).Interior.ColorIndex = 48 Then
strS = strS & "," & i & ":" & i
End If
Next: Range(Mid(strS, 2)).EntireRow.Delete
Application.ScreenUpdating = True
End Sub
Вставляю в мой файл с длинной таблицей, выдает:
Run-time error '1004'
Method 'Range' of objekt '_Global' failed
(((
Выделяет в макросе строчку:
Next : Range(Mid(strS, 2)).EntireRow.Delete
А так вроде уже почти получилось)
Вставляю в мой файл с длинной таблицей, выдает:
Run-time error '1004'
Method 'Range' of objekt '_Global' failed
(((
Выделяет в макросе строчку:
Next : Range(Mid(strS, 2)).EntireRow.Delete
А так вроде уже почти получилось) Voh
А так вроде уже почти получилось) Автор - Voh
Дата добавления - 22.02.2013 в 12:54
Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
AlexM, у такого метода есть ограничения.
и очень сильные.
точнее - строка ограничена 255 символами.
для тестирования:
[vba]
Sub t()
Dim s$, t$, r As Range, i&
For i = 1 To 100 Step 2
s = s & "," & i & ":" & i
Set r = Range(Mid(s, 2))
Debug.Print i, r.Areas.Count, Len(s)
Next
End Sub
AlexM, у такого метода есть ограничения.
и очень сильные.
точнее - строка ограничена 255 символами.
для тестирования:
[vba]
Sub t()
Dim s$, t$, r As Range, i&
For i = 1 To 100 Step 2
s = s & "," & i & ":" & i
Set r = Range(Mid(s, 2))
Debug.Print i, r.Areas.Count, Len(s)
Next
End Sub
точнее - строка ограничена 255 символами.
для тестирования:
[vba]
Sub t()
Dim s$, t$, r As Range, i&
For i = 1 To 100 Step 2
s = s & "," & i & ":" & i
Set r = Range(Mid(s, 2))
Debug.Print i, r.Areas.Count, Len(s)
Next
End Sub
Спасибо. Буду знать, что есть ограничения.
Где почитать какие? Сейчас несколько статей посмотрел, а какие не узнал. :-(
Спасибо. Буду знать, что есть ограничения.
Где почитать какие? Сейчас несколько статей посмотрел, а какие не узнал. :-(
Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
Спасибо. Буду знать, что есть ограничения.
Где почитать какие? Сейчас несколько статей посмотрел, а какие не узнал. :-(
Макрос примерно 30-40 секунд вычисляет, потом:
Run-time error '13':
Type mismatch
На этот раз выделяет желтым:
If (Range("F" & i).Value <> "" And Range("F" & i).Value = 0) Or Range("F" & i).Interior.ColorIndex = 48 Then
причем в файле частично удаляет строки, пока не понял по какому принципу..
Макрос примерно 30-40 секунд вычисляет, потом:
Run-time error '13':
Type mismatch
На этот раз выделяет желтым:
If (Range("F" & i).Value <> "" And Range("F" & i).Value = 0) Or Range("F" & i).Interior.ColorIndex = 48 Then
причем в файле частично удаляет строки, пока не понял по какому принципу.. Voh
Run-time error '13':
Type mismatch
На этот раз выделяет желтым:
If (Range("F" & i).Value <> "" And Range("F" & i).Value = 0) Or Range("F" & i).Interior.ColorIndex = 48 Then
причем в файле частично удаляет строки, пока не понял по какому принципу.. Автор - Voh
Дата добавления - 22.02.2013 в 21:28
В файле примере не удаляет цветные строки?
В примере таблицы два серых цвета. Макрос удаляет строки с темно серые.
В файле примере не удаляет цветные строки?
В примере таблицы два серых цвета. Макрос удаляет строки с темно серые. AlexM
Нет, цветные строки не удаляются в файле-примере. Я специально заполнял даже их предварительно 48 цветом, как в Вашем коде. (
Нет, цветные строки не удаляются в файле-примере. Я специально заполнял даже их предварительно 48 цветом, как в Вашем коде. ( Voh
Если бы не нужно было анализировать цвет - можно на любую таблицу сделать удаление очень бымтро.
Ну а если нужен анализ цвета - тогда делайте используя фильтр по цвету под 2007.
На каком Экселе вообще будет выполняться работа?
Если бы не нужно было анализировать цвет - можно на любую таблицу сделать удаление очень бымтро.
Ну а если нужен анализ цвета - тогда делайте используя фильтр по цвету под 2007.
На каком Экселе вообще будет выполняться работа? Hugo
На 2007. Я думаю, сделаю удаление по цвету вторым макросом просто, раз в одном скомпоновать сложно будет.
На 2007. Я думаю, сделаю удаление по цвету вторым макросом просто, раз в одном скомпоновать сложно будет. Voh
Удалять что угодно серого цвета, в таблице это всякие строки маленькой высоты с надписями подраздел и просто пустые.
Два несовместимых условия: ели удалять все серые сроки в вашем примере - группировка исчезнет. Вернее, останется только один уровень.
Удалять что угодно серого цвета, в таблице это всякие строки маленькой высоты с надписями подраздел и просто пустые.
Два несовместимых условия: ели удалять все серые сроки в вашем примере - группировка исчезнет. Вернее, останется только один уровень. Michael_S
Удалять что угодно серого цвета, в таблице это всякие строки маленькой высоты с надписями подраздел и просто пустые.
Два несовместимых условия: ели удалять все серые сроки в вашем примере - группировка исчезнет. Вернее, останется только один уровень. Автор - Michael_S
Дата добавления - 23.02.2013 в 20:24
Sub Macros4()
''обычно удаление идет с хвоста
Dim tm!
tm = Timer
Application.ScreenUpdating = False
Dim i As Long, strS As String
Dim i2
i = Range("F" & Rows.Count).End(xlUp).Row
Debug.Print i
Do While i > 24
If Cells(i, 6) = 0 Or Cells(i, 6).Interior.ColorIndex = 48 Then
Rows(i).Delete
End If
i = i - 1
Loop
Application.ScreenUpdating = True
Debug.Print "Строки удалены за " & Timer - tm & " сек"
End Sub
Sub Macros4()
''обычно удаление идет с хвоста
Dim tm!
tm = Timer
Application.ScreenUpdating = False
Dim i As Long, strS As String
Dim i2
i = Range("F" & Rows.Count).End(xlUp).Row
Debug.Print i
Do While i > 24
If Cells(i, 6) = 0 Or Cells(i, 6).Interior.ColorIndex = 48 Then
Rows(i).Delete
End If
i = i - 1
Loop
Application.ScreenUpdating = True
Debug.Print "Строки удалены за " & Timer - tm & " сек"
End Sub
Sub Macros4()
''обычно удаление идет с хвоста
Dim tm!
tm = Timer
Application.ScreenUpdating = False
Dim i As Long, strS As String
Dim i2
i = Range("F" & Rows.Count).End(xlUp).Row
Debug.Print i
Do While i > 24
If Cells(i, 6) = 0 Or Cells(i, 6).Interior.ColorIndex = 48 Then
Rows(i).Delete
End If
i = i - 1
Loop
Application.ScreenUpdating = True
Debug.Print "Строки удалены за " & Timer - tm & " сек"
End Sub
В этой статье рассмотрены действия по устранению неполадок, которые помогут устранить наиболее распространенные проблемы, когда вы получаете ошибку Excel не отвечаете, Excel зависает или зависает при запуске или Excel книге. Такие проблемы могут возникать по одной или нескольким из перечисленных ниже причин.
Используйте решения, приведенные в этой статье, в указанном порядке. Если вы уже пробовали один из этих методов, но он не помог, перейдите к следующему решению в списке.
Примечание: При возникновении проблем с открытием файлов Excel после обновления Windows 7 до Windows 10 см. статью Ошибки при открытии файлов Office после перехода с Windows 7 на Windows 10.
Запуск Excel в безопасном режиме
Сейф режиме можно запускать Excel запуска, не сталкиваясь с определенными программами запуска. Вы можете открыть Excel в безопасном режиме, нажав и удерживая нажатой CTRL во время запуска программы, или с помощью переключателя /safe (excel.exe /safe) при запуске программы из командной строки. При запуске Excel в безопасном режиме она обходить такие функции и параметры, как альтернативное расположение запуска, измененные панели инструментов, папка xlstart и Excel надстройки. Однако надстройки COM исключаются.
Если проблема устранена после запуска Excel в безопасном режиме, см. в этой Excel.
Если проблема не устранена после запуска Excel в безопасном режиме, переначните к следующему элементу в этом списке.
Установка последних обновлений
Возможно, вам потребуется настроить Windows обновления для автоматической загрузки и установки рекомендуемых обновлений. Установка важных рекомендаций и оптимальных обновлений часто может устранить проблемы, заменив их и исправив уязвимости. Чтобы установить последние Office обновлений, выполните действия, которые можно найти в статье Обновление Office и компьютера.
Если установка последних обновлений для Office не решила проблему, перейдите к следующему пункту списка.
Проверка того, что Excel не используется другим процессом
Если Excel используется другим процессом, эти сведения будут отображаться в строке состояния в нижней части Excel окна. Если в это время попытаться выполнить другие действия, Excel может не отвечать. Подождите, пока задание выполнится, прежде чем начинать другие действия.
Если Excel не используется другим процессом, перейдите к следующему пункту в списке.
Выявление возможных проблем с надстройками
Хотя надстройки могут улучшить ваш опыт, они могут периодически мешать работе или конфликтовть с Excel. Попробуйте запустить Excel без надстроек, чтобы проверить, не решится ли проблема.
Выполните одно из указанных ниже действий.
Если вы работаете в Windows 10, выберите Начните > Все приложения > Windows Система > Выполнить > введите Excel /safe в поле Выполнить, а затем нажмите кнопку ОК.
Если вы запущены Windows 8, в меню Приложения > введите Excel /safe в поле Выполнить, а затем нажмите кнопку ОК.
Если вы работаете Windows 7, нажмите кнопку Начните > введите Excel /safe в поиске программ и файлов,а затем нажмите кнопку ОК.
Если проблема устранена, щелкните Файл > Параметры > Надстройки.
Выберите Надстройки COM и нажмите кнопку Перейти.
С очистки всех флажков в списке нажмите кнопку ОК.
Закройте приложение Excel и снова запустите его.
Если проблема не возникает при перезапуске Excel, включите надстройки по одной, пока она не будет возникать. Это позволит понять, какая надстройка вызывает проблему. Перезапускайте Excel после включения каждой надстройки.
Если отключение надстроек не решило проблему, перейдите к следующему пункту в списке.
Изучение Excel файлов и их содержимого
Excel файлы могут существовать на компьютере в течение долгого времени. Они обновляются с версии на версию и часто перенабьются от одного пользователя к другому. Часто пользователь наследует файл Excel, но не знает, что входит в него. Проблемы с производительностью или сбоем могут быть причиной следующих причин:
Формулы, ссылаясь на столбцы.
Формулы массива, ссылающие на неравные числа элементов аргументов.
Сотни, или, возможно, тысячи скрытых или 0 объектов высоты и ширины.
Избыточные стили, вызванные частым копированием и копированием в книгу.
Слишком много и недопустимых имен.
Если эти действия не устраняют проблему, пере продолжите работу с следующим элементом в списке.
Проверка того, создается ли файл третьей стороной
Иногда Excel файлы создаются сторонним приложением. В этом случае файлы могут быть созданы неправильно, а некоторые функции могут работать неправильно при их Excel. В этом случае проверьте функции в новых файлах за пределами стороннего приложения. Если функции работают правильно, убедитесь, что третьей стороне известно об этой проблеме.
Если проблема не устранена после проверки за пределами стороннего приложения, пере продолжите работу с следующим элементом в списке.
Выборочный запуск, чтобы определить, конфликтуют ли программы, процессы или службы с Excel
При Windows запуска несколько приложений и служб запускаются автоматически, а затем запускаются в фоновом режиме. Такие приложения и службы могут мешать другому программному обеспечению на компьютере. Выборочная загрузка (также называется "чистой загрузкой") поможет выявить проблемы с конфликтующие приложениями. Чтобы выполнить выборочное запуск, в зависимости от версии Windows выберите одну из следующих ссылок, а затем выполните действия, следующие в статье:
Windows 10, Windows 7, Windows 8: выборочный запуск с помощью system ConfigurationWindows Vista: выборочный запуск с помощью system
ConfigurationWindows XP: создание и настройка учетных записей пользователей в
Windows XP
Выборочная загрузка помогает выявить процесс, службу или приложение, которые конфликтуют с Excel.
Если после повторного создания профиля ваша проблема не устранена, пере продолжите работу с следующим элементом в списке.
Восстановление программ Office
Если Excel перестает отвечать на запросы или прекращает работать, восстановление программ Office может устранить проблемы за счет автоматического исправления ошибок в файлах Office. Инструкции по восстановлению см. в этой Office приложении.
Если восстановление программ Office не решило проблему, перейдите к следующему пункту в списке.
Проверка актуальности версии антивирусной программы и наличия конфликтов с Excel
Если антивирусная программа не обновлена, Excel может работать неправильно.
Проверка актуальности антивирусной программы
Для защиты от новых вирусов поставщики антивирусных программ периодически выпускают обновления, которые можно скачать из Интернета. Скачайте последние обновления, посетив сайт поставщика своей антивирусной программы.
Проверьте, не конфликтует ли антивирусная программа с Excel:
Если антивирусная программа поддерживает интеграцию с Excel, вы можете столкнуться с проблемами производительности. В таком случае можно отключить интеграцию Excel с антивирусной программой. Вы также можете отключить все надстройки антивирусной программы, установленные в Excel.
Важно: Изменение параметров антивирусной программы может привести к уязвимости компьютера для вирусных, мошеннических или вредоносных атак. Корпорация Майкрософт не рекомендует изменять параметры антивирусной программы. Используйте это решение на свой страх и риск.
Возможно, вам придется обратиться к поставщику антивирусной программы, чтобы узнать, как настроить ее таким образом, чтобы исключить интеграцию с Excel или сканирование в Excel.
Дополнительные сведения
Дополнительные возможности по устранению неполадок
Если упомянутые выше методы не уладили проблему, проблема может быть как в файле, так и в среде. В следующем разделе описано, как устранить дополнительную проблему, которая может привести Excel зависать или аварийно сбой.
Факторы, влияющие на среду
Факторы, влияющие на среду, так же важны, как содержимое файла, и надстройки при устранении сбоя. Чтобы определить причину проблемы, с помощью следующих действий:
Выполните основные действия по устранению неполадок.
Проверьте файлы в максимально чистой среде.
В следующих разделах описаны некоторые области, которые стоит и далее и далее.
Место хранения файла
При перемещении файла на локальном уровне вы сможете определить, что с файлом что-то не так или с файлом, а также с местом его с ним. При Excel файла в сети или на веб-сервере может возникнуть ряд проблем. Сохраните файл локально. Это необходимо сделать в следующих сценариях:
• Перенаправленная папка "Мои документы" на сервер
• Открытие файлов из веб-папки или SharePoint
• Удаленный рабочий стол/Citrix
• Виртуализированная среда. Дополнительные сведения о программном обеспечении Майкрософт, которое работает в виртуализированной среде, см. в следующей статье: Политика поддержки программного обеспечения Корпорации Майкрософт, запущенного в программном обеспечении для виртуализации оборудования, не от корпорации Майкрософт.
Excel файлы могут стать довольно большими при добавлении большого количества форматирования и фигур. Убедитесь, что в вашей системе достаточно ОЗУ для запуска приложения. Требования к системе для Microsoft Office приложений можно найти в следующих статьях Майкрософт:
Office 2010 в 2010 г. были представлены 64-битные версии Office, чтобы использовать более крупные вычислительные мощности. Чтобы узнать больше о 64-битных выпусках Office, перейдите к следующим статьям Майкрософт:
Принтеры и драйверы видео
При запуске Excel проверяется драйверы принтера и видео по умолчанию, которые будут отображать Excel книги. Excel является интенсивной печатью, и она будет работать медленнее, Excel файлы сохраняются в страничный режим. Проверка файла с помощью различных принтеров, таких как драйвер принтера "Автор документов Microsoft XPS" или видеока драйвера VGA, определяет, есть ли проблема с определенным принтером или видео драйвером.
Если у вас по-прежнему возникли проблемы с Excel после устранения указанных здесь методов, обратитесь в службу поддержки Майкрософт за помощью в устранении неполадок.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
Зависает (виснет, тормозит) Excel 2013 2016 при редактировании любых ячеек
Случается так, что Excel начинает зависать, тормозить и глючить. Причин может быть много. В данной заметке я рассмотрю одну из многих причин, касающуюся в частности Excel 2013 версии. Описанная здесь проблема, возможно, наблюдается и в других версия Excel: 2007, 2010, а так же в 2016, не факт, но возможно.
После выгрузки из какой-нибудь ERP системы, такой как, к примеру, 1С, файл Excel становится больше в размере но его содержимое как бы не вызывает к этому предпосылок на первый взгляд. Оказывается вот что, всякие ERP программы могут вносить мусор в файл Excel, он не видим, но там он есть. И когда мы изменяем значение какой-то ячейки, Excel начинает обходить все замусоренные ячейки делая лишнюю работу, занимающую процессорное время и память компьютера.
Проблема решается двумя способами.
Один из способов — это копировать только нужные данные в новый документ, что может быть иногда проблематично из-за большого количества данных.
Второй способ, на мой взгляд самый простой, заключен в отключении одной полезной функции (но из-за которой глючит) в 2013 версии Microsoft Office, которая называется «Автозавершение значений ячеек».
Вот как объясняется эта функция на сайте разработчика: «Если несколько первых знаков, введенных в ячейку, совпадают со знаками записи, уже имеющейся в этом столбце, Excel автоматически подставляет недостающую часть записи. В Excel автоматическое завершение выполняется только для тех записей, которые содержат текст или комбинацию текста и чисел. Эта функция не используется для записей, полностью состоящих из чисел, значений даты или времени».
Хоть для записей типа чисел не используется эта функция, однако в некорректных файлах, сформированных разными ERP-системами глюк проявляется даже на числовых типах записи.
Для отключения этой функции заходим в настройки «Файл — Параметры — Дополнительно» и снимаем две галочки что на рисунке выделены красным прямоугольником.
Можно отключить просто одну галку «Автозавершение значений ячеек», вторая галка сама сделается неактивной.
Опишу решение. (Как решил у себя) Тормозили файлы выгруженные из 1С, но тормозили те, которые пользователи выгружали в формате Xls 97-2003. Если открывать эти файлы в Офисе2016 то через какое-то время (порой и сразу) Excel начинал тупить и съедать проц (40-70%) Решили проблему сохранением файлов в новом формате, причем всех. Если из 10 открытых файлов есть хотя бы 1 файл созданный из 1С в формате 97-2003 то висели все открытые Excel-файлы.
Файл созданный руками в формате 97-2003 не тормозили, файлы созданные из 1С в формате 97-2003 (копированием таблицы) а не “сохранить как” тоже не тормозили, тормозят и подвешивают Excel 2016 только файлы выгруженные из 1С через “сохранить как” и пользователи выбирают по привычке “Лист Excel….(*.xls), а надо выбирать “Лист Excel 2007….(*.xlsx)“
Проверьте, нам помогло. УПП и платформа 8.3.10.2561
Сегодня нашел косяк.
Файл сформирован из 1С , листы снизу скрыты(задвинуды полосой пролистывания) – прокруткой и при этом тормозит при копировании, перескакивании по ячейкам.
Как только отодвигаю эту задвижку и становятся видны листы (TDSheet), так перестают тормозть файлы.
Проверил на 12 файлах, на 4х компьютерах!! Задвигаешь обратно (скрываешь листы, так сразу начинает тупить при копировании ячейки)
Один тяжёлый файл периодически вешает Excel на определённом действии. Методом исключения файлик был кропотливо урезан до минимума (2 листа с полями данных 2х2) с сохранением алгоритма, вызывающего вылет программы:
1. Удаляется строка 2 на листе Компании
2. Удаляется строка 2 на листе Презентация
И всё, Excel вылетает.
Подозреваю, что проблема в том, что в одной строке одновременно тянутся данные с другого листа, и находятся данные, которые тянет другой лист в ту же строку, из которой первый вытянул свои. То есть взаимные ссылки на одной строке. Устранимый ли это баг, на ваш взгляд? Или единственный выход - переструктурировать оригинальный файл? Это будет трудоёмко.
Один тяжёлый файл периодически вешает Excel на определённом действии. Методом исключения файлик был кропотливо урезан до минимума (2 листа с полями данных 2х2) с сохранением алгоритма, вызывающего вылет программы:
1. Удаляется строка 2 на листе Компании
2. Удаляется строка 2 на листе Презентация
И всё, Excel вылетает.
Подозреваю, что проблема в том, что в одной строке одновременно тянутся данные с другого листа, и находятся данные, которые тянет другой лист в ту же строку, из которой первый вытянул свои. То есть взаимные ссылки на одной строке. Устранимый ли это баг, на ваш взгляд? Или единственный выход - переструктурировать оригинальный файл? Это будет трудоёмко.
Один тяжёлый файл периодически вешает Excel на определённом действии. Методом исключения файлик был кропотливо урезан до минимума (2 листа с полями данных 2х2) с сохранением алгоритма, вызывающего вылет программы:
1. Удаляется строка 2 на листе Компании
2. Удаляется строка 2 на листе Презентация
И всё, Excel вылетает.
Подозреваю, что проблема в том, что в одной строке одновременно тянутся данные с другого листа, и находятся данные, которые тянет другой лист в ту же строку, из которой первый вытянул свои. То есть взаимные ссылки на одной строке. Устранимый ли это баг, на ваш взгляд? Или единственный выход - переструктурировать оригинальный файл? Это будет трудоёмко.
Спасибо Автор - Almost
Дата добавления - 23.03.2017 в 16:51
Проблема следующая: файл Excel 2016 весит 18 метров.
Самый тяжелый лист с исходными данными без форматирования (на его основе строится несколько сводников и графиков).
На нем 24 колонки, формулы простого сложения стоят на 5 колонок.
Проблема в количестве строк. Сейчас строк с информацией 42500 (файл ежемесячно обновляется с добавлением-удалением строк, файл Не в общем доступе).
Если нажимаю cntrl+End, то количество столбцов остается 24, а строка последняя 1 048 576.
Пыталась удалять пустые строки (выделила-удалила, нажала cntrl+home, далее cntrl+S) - не получается.
Если открыть файл архивом и удалить папку drawings, то удаляется пара рисунков на соседнем листе, а размер файла не меняется.
С макросами не знакома
P.S.: если скопировать данные на другой лист и перепривязать сводники и сохранить в бинарном формате, то размер сокращается до 10 метров, но при обновлении опять "распухает"
Проблема следующая: файл Excel 2016 весит 18 метров.
Самый тяжелый лист с исходными данными без форматирования (на его основе строится несколько сводников и графиков).
На нем 24 колонки, формулы простого сложения стоят на 5 колонок.
Проблема в количестве строк. Сейчас строк с информацией 42500 (файл ежемесячно обновляется с добавлением-удалением строк, файл Не в общем доступе).
Если нажимаю cntrl+End, то количество столбцов остается 24, а строка последняя 1 048 576.
Пыталась удалять пустые строки (выделила-удалила, нажала cntrl+home, далее cntrl+S) - не получается.
Если открыть файл архивом и удалить папку drawings, то удаляется пара рисунков на соседнем листе, а размер файла не меняется.
С макросами не знакома
P.S.: если скопировать данные на другой лист и перепривязать сводники и сохранить в бинарном формате, то размер сокращается до 10 метров, но при обновлении опять "распухает" CrazyNice
Проблема следующая: файл Excel 2016 весит 18 метров.
Самый тяжелый лист с исходными данными без форматирования (на его основе строится несколько сводников и графиков).
На нем 24 колонки, формулы простого сложения стоят на 5 колонок.
Проблема в количестве строк. Сейчас строк с информацией 42500 (файл ежемесячно обновляется с добавлением-удалением строк, файл Не в общем доступе).
Если нажимаю cntrl+End, то количество столбцов остается 24, а строка последняя 1 048 576.
Пыталась удалять пустые строки (выделила-удалила, нажала cntrl+home, далее cntrl+S) - не получается.
Если открыть файл архивом и удалить папку drawings, то удаляется пара рисунков на соседнем листе, а размер файла не меняется.
С макросами не знакома
P.S.: если скопировать данные на другой лист и перепривязать сводники и сохранить в бинарном формате, то размер сокращается до 10 метров, но при обновлении опять "распухает" Автор - CrazyNice
Дата добавления - 07.06.2018 в 12:40
Читайте также: