Очень долго открываетса файл
slAvIk159
Дата: Пятница, 22.05.2015, 11:40 |
Сообщение № 1
Группа: Проверенные
Ранг: Участник
Сообщений: 83
Репутация:
13
±
Замечаний:
0% ±
Excel 2013
Здравствуйте! Проблема состоит в том что файл размером 3Мб открываетса ~6 минут. В файле есть 3 таблици с кубов (1-на 3000х10, 2 - 100х5, 3 - 200x300) и одна сводная диаграма(по второй таблице). В чём может быть причина долгого открытия?
Здравствуйте! Проблема состоит в том что файл размером 3Мб открываетса ~6 минут. В файле есть 3 таблици с кубов (1-на 3000х10, 2 - 100х5, 3 - 200x300) и одна сводная диаграма(по второй таблице). В чём может быть причина долгого открытия? slAvIk159
Сообщение отредактировал slAvIk159 - Пятница, 22.05.2015, 12:10
Ответить
Сообщение Здравствуйте! Проблема состоит в том что файл размером 3Мб открываетса ~6 минут. В файле есть 3 таблици с кубов (1-на 3000х10, 2 - 100х5, 3 - 200x300) и одна сводная диаграма(по второй таблице). В чём может быть причина долгого открытия? Автор - slAvIk159 Дата добавления - 22.05.2015 в 11:40
slAvIk159
Дата: Пятница, 22.05.2015, 12:03 |
Сообщение № 2
Группа: Проверенные
Ранг: Участник
Сообщений: 83
Репутация:
13
±
Замечаний:
0% ±
Excel 2013
Кубы на сервере, но обновления при открытии нету, я вручную обновляю.
Кубы на сервере, но обновления при открытии нету, я вручную обновляю. slAvIk159
Ответить
Сообщение Кубы на сервере, но обновления при открытии нету, я вручную обновляю. Автор - slAvIk159 Дата добавления - 22.05.2015 в 12:03
slAvIk159
Дата: Пятница, 22.05.2015, 14:05 |
Сообщение № 3
Группа: Проверенные
Ранг: Участник
Сообщений: 83
Репутация:
13
±
Замечаний:
0% ±
Excel 2013
_Boroda_ , там ещё есть 13 форм и 13 модулей (в сумме на 600 строк кода), могут они быть причиной долгой загрузки?
_Boroda_ , там ещё есть 13 форм и 13 модулей (в сумме на 600 строк кода), могут они быть причиной долгой загрузки?slAvIk159
Ответить
Сообщение _Boroda_ , там ещё есть 13 форм и 13 модулей (в сумме на 600 строк кода), могут они быть причиной долгой загрузки?Автор - slAvIk159 Дата добавления - 22.05.2015 в 14:05
Samaretz
Дата: Пятница, 22.05.2015, 14:42 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 223
Репутация:
63
±
Замечаний:
0% ±
Excel 2010; 2013; 2016
slAvIk159 , летели 2 крокодила, один зеленый, другой на север. Сколько лет пьяному ежику, если у паровоза открутилось 2 гайки? Аналогичн и с Вашим вопросом: какие формы, какие модули, какой там код - все это остается покрыто мраком... Вы бы хоть файлик выложили для наглядности, а то хоть кофейную гущу доставай, честное слово... [moder]А как он его в 3 мега выложит?
slAvIk159 , летели 2 крокодила, один зеленый, другой на север. Сколько лет пьяному ежику, если у паровоза открутилось 2 гайки? Аналогичн и с Вашим вопросом: какие формы, какие модули, какой там код - все это остается покрыто мраком... Вы бы хоть файлик выложили для наглядности, а то хоть кофейную гущу доставай, честное слово... [moder]А как он его в 3 мега выложит?Samaretz
Сообщение отредактировал _Boroda_ - Пятница, 22.05.2015, 14:45
Ответить
Сообщение slAvIk159 , летели 2 крокодила, один зеленый, другой на север. Сколько лет пьяному ежику, если у паровоза открутилось 2 гайки? Аналогичн и с Вашим вопросом: какие формы, какие модули, какой там код - все это остается покрыто мраком... Вы бы хоть файлик выложили для наглядности, а то хоть кофейную гущу доставай, честное слово... [moder]А как он его в 3 мега выложит?Автор - Samaretz Дата добавления - 22.05.2015 в 14:42
slAvIk159
Дата: Пятница, 22.05.2015, 15:42 |
Сообщение № 5
Группа: Проверенные
Ранг: Участник
Сообщений: 83
Репутация:
13
±
Замечаний:
0% ±
Excel 2013
_Boroda_ , спасибо за совет покопался в коде, в одном модуле нашол такое: [vba]Код
For i1 = cifra(poch_col) To cifra(kin_col) Step 3 'If (Cells(i2, i1) < 0) Or (Cells(i2, i1) = "") Then If Cells(i2, i1) > k * Cells(i2, i1 + 1) Then Range(bukva(i1) & i2).Interior.ColorIndex = 3 'Range(bukva(i1 - 2) & i2 & ":" & bukva(i1) & i2).Interior.ColorIndex = 15 'Range(bukva(i1) & i2).Interior.Color = vbMagenta 'Else ' If Cells(i2, i1) > 0 Then ' Range(bukva(i1 - 2) & i2 & ":" & bukva(i1) & i2).Interior.ColorIndex = 3 ' End If End If Next i1
[/vba] функция bukva: [vba]Код
Function bukva(n As Integer) As String Dim i, k As Integer k = (n - 1) \ 26 i = ((n - 1) Mod 26) + 1 If k = 0 Then bukva = Chr(i + 64) Else bukva = Chr(k + 64) & Chr(i + 64) End If End Function
[/vba] вопрос, зачем ... зачем такой мазохизм? наверно всё-таки проще зделать всё с нуля, нежели разбиратса в єтом
_Boroda_ , спасибо за совет покопался в коде, в одном модуле нашол такое: [vba]Код
For i1 = cifra(poch_col) To cifra(kin_col) Step 3 'If (Cells(i2, i1) < 0) Or (Cells(i2, i1) = "") Then If Cells(i2, i1) > k * Cells(i2, i1 + 1) Then Range(bukva(i1) & i2).Interior.ColorIndex = 3 'Range(bukva(i1 - 2) & i2 & ":" & bukva(i1) & i2).Interior.ColorIndex = 15 'Range(bukva(i1) & i2).Interior.Color = vbMagenta 'Else ' If Cells(i2, i1) > 0 Then ' Range(bukva(i1 - 2) & i2 & ":" & bukva(i1) & i2).Interior.ColorIndex = 3 ' End If End If Next i1
[/vba] функция bukva: [vba]Код
Function bukva(n As Integer) As String Dim i, k As Integer k = (n - 1) \ 26 i = ((n - 1) Mod 26) + 1 If k = 0 Then bukva = Chr(i + 64) Else bukva = Chr(k + 64) & Chr(i + 64) End If End Function
[/vba] вопрос, зачем ... зачем такой мазохизм? наверно всё-таки проще зделать всё с нуля, нежели разбиратса в єтомslAvIk159
Сообщение отредактировал slAvIk159 - Пятница, 22.05.2015, 15:47
Ответить
Сообщение _Boroda_ , спасибо за совет покопался в коде, в одном модуле нашол такое: [vba]Код
For i1 = cifra(poch_col) To cifra(kin_col) Step 3 'If (Cells(i2, i1) < 0) Or (Cells(i2, i1) = "") Then If Cells(i2, i1) > k * Cells(i2, i1 + 1) Then Range(bukva(i1) & i2).Interior.ColorIndex = 3 'Range(bukva(i1 - 2) & i2 & ":" & bukva(i1) & i2).Interior.ColorIndex = 15 'Range(bukva(i1) & i2).Interior.Color = vbMagenta 'Else ' If Cells(i2, i1) > 0 Then ' Range(bukva(i1 - 2) & i2 & ":" & bukva(i1) & i2).Interior.ColorIndex = 3 ' End If End If Next i1
[/vba] функция bukva: [vba]Код
Function bukva(n As Integer) As String Dim i, k As Integer k = (n - 1) \ 26 i = ((n - 1) Mod 26) + 1 If k = 0 Then bukva = Chr(i + 64) Else bukva = Chr(k + 64) & Chr(i + 64) End If End Function
[/vba] вопрос, зачем ... зачем такой мазохизм? наверно всё-таки проще зделать всё с нуля, нежели разбиратса в єтомАвтор - slAvIk159 Дата добавления - 22.05.2015 в 15:42