Очень долго открываетса файл

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Очень долго открываетса файл (Формулы/Formulas)

slAvIk159

Дата: Пятница, 22.05.2015, 11:40 | Сообщение № 1

Группа: Проверенные

Ранг: Участник

Сообщений: 83

Репутация: 13 ±

Замечаний: 0% ±

Excel 2013

Здравствуйте!
Проблема состоит в том что файл размером 3Мб открываетса ~6 минут. В файле есть 3 таблици с кубов (1-на 3000х10, 2 - 100х5, 3 - 200x300) и одна сводная диаграма(по второй таблице). В чём может быть причина долгого открытия?

Сообщение отредактировал slAvIk159 - Пятница, 22.05.2015, 12:10

Ответить

slAvIk159

Дата: Пятница, 22.05.2015, 12:03 | Сообщение № 2

Группа: Проверенные

Ранг: Участник

Сообщений: 83

Репутация: 13 ±

Замечаний: 0% ±

Excel 2013

Кубы на сервере, но обновления при открытии нету, я вручную обновляю.

Ответить

slAvIk159

Дата: Пятница, 22.05.2015, 14:05 | Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 83

Репутация: 13 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, там ещё есть 13 форм и 13 модулей (в сумме на 600 строк кода), могут они быть причиной долгой загрузки?

Ответить

Samaretz

Дата: Пятница, 22.05.2015, 14:42 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 223

Репутация: 63 ±

Замечаний: 0% ±

Excel 2010; 2013; 2016

slAvIk159, летели 2 крокодила, один зеленый, другой на север. Сколько лет пьяному ежику, если у паровоза открутилось 2 гайки?
Аналогичн и с Вашим вопросом: какие формы, какие модули, какой там код - все это остается покрыто мраком... Вы бы хоть файлик выложили для наглядности, а то хоть кофейную гущу доставай, честное слово...
[moder]А как он его в 3 мега выложит?

Сообщение отредактировал _Boroda_ - Пятница, 22.05.2015, 14:45

Ответить

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]
вопрос, зачем ... зачем такой мазохизм?

наверно всё-таки проще зделать всё с нуля, нежели разбиратса в єтом

Сообщение отредактировал slAvIk159 - Пятница, 22.05.2015, 15:47

Ответить

Очень долго открываетса файл (Формулы/Formulas)

Страница 1 из 1
1