Построение и решение оптимизационных моделей средствами программ MS Excel и XA. Светлов Н.М - 20 стр.

UptoLike

ВУЗ: 

РГАУ-МСХА | Москва

Составители: 

Рубрика: 

20
Global Const XAMaxNonZero = 0&
Declare Function XAXL Lib "CXA32.DLL" (ByVal XAControl&, ByVal
XAWndHnd&, ByVal XAMaxMem&, ByVal XAMaxRow&, ByVal XAMaxCol&,
ByVal XAMaxNonZro&) As Integer
Declare Function XAXLREV Lib "CXA32.DLL" (ByVal XAControl&) As In-
teger
Declare Function XAXLDONE Lib "CXA32.DLL" (ByVal XAControl&) As
Integer
Global XALoaded As Integer
'************************************
Sub XA()
XALoaded = Not XAXL(XAControl, XAhWnd, XAMaxMem, XAMaxRow,
XAMaxCol, XAMaxNonZero)
End Sub
'************************************
Sub XAREV()
i = XAXLREV(XAControl)
End Sub
'*************************************
Sub XADONE()
i = XAXLDONE(XAControl)
End Sub
'*************************************
Sub Auto_Close()
If XALoaded Then
i = XAXLDONE(XAControl)
End If
End Sub
Решение модели производится посредством запуска макроса с именем
ХА.
1 способ: быстрые клавиши - как правило, назначается сочетание кла-
виш [Ctrl]+[x]
• дать команду Сервис→Макрос→Макросы;
• в окне Макрос выбирать макрос с именем ХА; 
      Global Const XAMaxNonZero = 0&

        Declare Function XAXL Lib "CXA32.DLL" (ByVal XAControl&, ByVal
XAWndHnd&, ByVal XAMaxMem&, ByVal XAMaxRow&, ByVal XAMaxCol&,
ByVal XAMaxNonZro&) As Integer
        Declare Function XAXLREV Lib "CXA32.DLL" (ByVal XAControl&) As In-
teger
        Declare Function XAXLDONE Lib "CXA32.DLL" (ByVal XAControl&) As
Integer

     Global XALoaded As Integer
     '************************************
     Sub XA()
     XALoaded = Not XAXL(XAControl, XAhWnd, XAMaxMem, XAMaxRow,
XAMaxCol, XAMaxNonZero)
     End Sub
     '************************************
     Sub XAREV()
     i = XAXLREV(XAControl)
     End Sub
     '*************************************
     Sub XADONE()
     i = XAXLDONE(XAControl)
     End Sub
     '*************************************
     Sub Auto_Close()
     If XALoaded Then
      i = XAXLDONE(XAControl)
     End If
     End Sub

      Решение модели производится посредством запуска макроса с именем
ХА.
      1 способ: быстрые клавиши - как правило, назначается сочетание кла-
виш [Ctrl]+[x]
         • дать команду Сервис→Макрос→Макросы;
         • в окне Макрос выбирать макрос с именем ХА;



                                   20

Страницы