Форма Excel с макросом макроса VBA завершается с ошибкой на Mac

Я сделал форму для клиента, который вычисляет пакеты, необходимые для выполнения заказа для данного общего объема. Это целая проблема оптимизации. Поэтому я сделал кнопку, которая запускает надстройку Solver с предустановленными настройками и автоматическое закрытие окна результатов.

Вот код. Он установлен в неактивную кнопку. Основа для расчета находится в скрытом листе, поэтому я отображаю и снова скрываю лист: Sheets("Back end").Visible = True а затем =False . Поскольку это беспорядочно смотреть, я устанавливаю Application.ScreenUpdating = False . Функция AutoStop просто возвращает True .

Это отлично работает в Windows, но не на Mac моего клиента. Когда клиент нажимает кнопку на своем Mac, появляется окно настроек решателя. Я сделал некоторый Googling, и кажется, что это известная проблема. В самом деле?? Нет ли способа сделать эту работу?

 Sub Button2_Click() ' ' Packing Macro ' ' Application.ScreenUpdating = False Sheets("Back end").Visible = True Sheets("Back end").Select Sheets("Back end").Range("E60:E69").Select Selection.Copy Sheets("Back end").Range("D76").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False SolverReset SolverOk SetCell:="$C$91", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$76:$D$85" SolverAdd CellRef:="$D$76:$D$85", Relation:=3, FormulaText:="0" SolverAdd CellRef:="$D$76:$D$85", Relation:=4, FormulaText:="integer" SolverOk SetCell:="$C$91", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$76:$D$85" SolverOptions MaxTime:=5, Iterations:=100, Precision:=0.00000000001, _ AssumeLinear:=False, StepThru:=False, Estimates:=1, Derivatives:=1, _ SearchOption:=1, IntTolerance:=2, Scaling:=True, Convergence:=0.005, _ AssumeNonNeg:=True SolverOk SetCell:="$C$91", MaxMinVal:=2, ValueOf:="0", ByChange:="$D$76:$D$85" SolverSolve UserFinish:=True, ShowRef:="AutoStop" Sheets("Back end").Visible = False Sheets("Front end").Select Application.ScreenUpdating = True End Sub 

Interesting Posts

Как остановить большой «угол прыжка» на графике, так как угол движется выше 360 и ниже 0 градусов?

Play Framework 1.2.5 Модуль Excel не может анализировать тег ячейки jx: forEach

Почему Excel так долго рассчитывает и производит неточные результаты?

Могу ли я дать числовое значение для ячейки, которую я заполнил цветом?

Sed не читает CSV при сохранении в Excel

Функция Excel или скрипт VBA для объединения диапазонов

Вставка данных на активный лист

как предотвратить автоматическую высоту строки в skydrive excel sheet в соответствии с текстом, введенным в ячейку

Установите Fit to Visible в Pdf от excel vba

Applescript не вводит excel. Должно быть просто?

Я использую функцию VBA DateSerial для разделения дат в строке, но Excel Ends Sub, когда год в строке – «1000». Что я делаю не так?

как вставить ячейку на основе сортировки столбцов в excel

VB Excel: как перемещать рабочий лист с помощью форм / макросов

Макрос для копирования данных с одного листа на другой, только если он еще не присутствует

Python – excel – xlwt: раскрашивание каждой второй строки

Давайте будем гением компьютера.