Из-за формулы, при активации макроса, виснет Ексель.

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

Из-за формулы, при активации макроса, виснет Ексель. (Макросы/Sub)

bear_ukraine

Дата: Вторник, 09.12.2014, 21:29 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

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

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

День добрый.

Имеется проблема, причину которой понять не могу.

Проблема возникает, если лист защищен (даже если поставлены все галочки).

Есть формула в ячейке М3 в файле, скачать который можно по линку ниже, вида

Код

=ЕСЛИ(И(I3>0;J3=0;K3=0;L3=0);I3;ЕСЛИ(И(I3>0;J3>0;K3=0;L3=0);J3;ЕСЛИ(И(I3=0;J3=0;K3>0;L3=0);K3;ЕСЛИ(И(I3=0;J3=0;K3>0;L3>0);L3;ЕСЛИ(И(I3>0;J3=0;K3>0;L3=0);СУММ(I3;K3);ЕСЛИ(И(I3>0;J3>0;K3>0;L3=0);СУММ(J3;K3);ЕСЛИ(И(I3>0;J3>0;K3>0;L3>0);СУММ(J3;L3);ЕСЛИ(И(I3>0;J3=0;K3>0;L3>0);СУММ(I3;L3);0))))))))

Имеется макрос, который сохраняет лист в отдельный файл без формул, только со значениям.
[vba]

Код

Sub SaveActiveSheet()
           On Error Resume Next

           Dim Sh As Worksheet: Set Sh = ActiveSheet
           If Sh Is Nothing Then Exit Sub
           SU False: DA False
           NewFileName = GetNewFileName
           If Len(NewFileName) > 0 Then
               Sh.Copy
               ActiveWorkbook.ActiveSheet.Cells.Copy
               ActiveWorkbook.ActiveSheet.Cells.PasteSpecial xlPasteValuesAndNumberFormats
               ActiveWorkbook.SaveAs NewFileName
               ActiveWorkbook.Close False
           End If
           SU True: DA True: Set Sh = Nothing
End Sub

Sub SU(ByVal Update_Screen As Boolean): Application.ScreenUpdating = Update_Screen: End Sub
Sub DA(ByVal Display_Alerts As Boolean): Application.DisplayAlerts = Display_Alerts: End Sub

Function GetNewFileName() As String
           GetNewFileName = "":    InitialFileName = "c:\": NewFileExt = ".xlsx"
           GetNewFileName = Application.GetSaveAsFilename(InitialFileName, _
                          "Листы Excel (*" & NewFileExt & "),", , _
                          "Введите имя файоа", "Сохранить лист")
           If VarType(GetNewFileName) = vbBoolean Then GetNewFileName = "": Exit Function
           If GetNewFileName = "False" Or GetNewFileName = "Ложь" Then GetNewFileName = ""
End Function

[/vba]
Суть проблемы - Когда клацаю на кнопку аля "Сохранить ваш заказ...", то Ексель виснет. Открывает мне еще 2 дополнительные вкладки на панели задач и думает думает думает. Как только формулу убираю, макрос сохранения листа тут же начинает работать без зависания Ексель.
Как решить данную проблему?

Я вырезал лист из прайса, где возникает проблема.
Файл можно скачать тут, так как он весит 150кб
Делаю все в 2010 Екселе.

Прошу помочь понять в чем проблема и как ее решить.
Спасибо большое!

Код

Имеется макрос, который сохраняет лист в отдельный файл без формул, только со значениям.
[vba]

Код

Сообщение отредактировал bear_ukraine - Вторник, 09.12.2014, 21:52