Vytvo�en� dopl�ku automatizace jazyka pro se�it Excel funkce

V aplikaci Excel 2000 nelze volat funkci p��mo v dopl�ku Component Object Model (COM) z vzorec bu�ky listu. M�sto toho je nutn� vytvo�it jazyka pro ob�lky (VBA) funkce dopl�ku COM tak, aby funkce naz�v� nep��mo.

Integrace z dopl�ky modelu COM (naz�van� automatizace dopl�ky) v aplikaci Excel 2002 a nov�j�� bylo roz���eno tak, �e funkce dopl�ku COM m��e nyn� vol�na p��mo z listu vzorce bez nutnosti VBA ob�lky. Tento �l�nek ukazuje, jak vytvo�it automatizace dopln�k s jazyka, kter� zp��stup�uje funkce, kter� lze volat z aplikace Excel 2002 a nov�j�� vzorce listu.

Vytvo�en� dopl�ku Sample Automation

1. V aplikaci Visual Basic spustit nov� projekt dopl�k�.
2. Ve v�choz�m nastaven� je formul�� s n�zvem frmAddIn p�id�n do projektu. Pro ��ely t�to uk�zkov� formul��e m��e b�t odebr�n z projektu. V Pr�zkumn�ku Project klepn�te prav�m tla��tkem my�i na formul�� a v m�stn� nab�dce klepn�te na p��kaz Odebrat frmAddIn.
3. V nab�dce projekt klepn�te na tla��tko Vlastnosti MyAddin. Zm�nit N�zev projektu "AutomationAddin" a potom klepn�te na tla��tko OK.
4. V Pr�zkumn�ku Project vyberte N�vrh�� p�ipojit. Zm�nit jeho vlastnost Name "XLFunctions".
5. V aplikaci Project Explorer poklepejte na polo�ku N�vrh�� XLFunctions. Na kart� Obecn� prove�te n�sleduj�c� zm�ny nastaven� n�vrh��e:
   • Ze seznamu aplikace vyberte Uzav�en�.
   • Ze seznamu Application verze vyberte Microsoft Excel 10.0.
     Pozn�mka: Pokud pou��v�te Microsoft Office Excel 2003, vyberte ze seznamu Verze aplikaceMicrosoft Excel 11.0.
   • Zm�nit nastaven� Chov�n� po��te�n� zat�en�zat�en� na po��d�n�.
6. S XLFunctions N�vrh�� st�le otev�ete, vyberte K�d z nab�dky Zobrazit. Nahra�te n�sleduj�c� k�d v modulu:

   Option Explicit
   Private Declare Function GetTickCount Lib "kernel32" () As Long
   
   Dim oApp As Object  'The Excel Application object
   
   Private Sub AddinInstance_OnAddInsUpdate(custom() As Variant)
      Exit Sub
   End Sub
   
   Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
      Set oApp = Application
   End Sub
   
   Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
      Set oApp = Nothing
   End Sub
   
   Private Sub AddinInstance_OnStartupComplete(custom() As Variant)
      Exit Sub
   End Sub
   
   Public Function TickCount() As Long
      '----------------------------------------------------------------------
      '** A volatile function that is called each time the sheet is calculated.
      '   Call with =TICKCOUNT().
      '----------------------------------------------------------------------
      oApp.Volatile
      TickCount = GetTickCount
   End Function
   
   Public Function Add1(Num1 As Variant, Num2 As Variant) As Variant
      '----------------------------------------------------------------------
       '** A function with two required arguments.
       '   Can be called with formulas such as =Add1(1,3) or =Add1(A1,A2).
      '----------------------------------------------------------------------
       On Error Resume Next
       Add1 = "The sum of " & Num1 & " and " & Num2 & " is " & _
           CDbl(Num1) + CDbl(Num2)
       If Err <> 0 Then Add1 = CVErr(2036)  'xlErrNum = 2036
   End Function
   
   Public Function Add2(Num1 As Variant, Num2 As Variant, Optional Num3 As Variant) As Variant
      '----------------------------------------------------------------------
      '** A function with two required arguments and a third optional argument.
      '   Can be called with formulas such as =Add2(1,2), =Add2(A1,A2,A3).
      '----------------------------------------------------------------------
       Dim Sum As Double, sMsg As String
       On Error GoTo Handler
       Sum = CDbl(Num1) + CDbl(Num2)
       If IsMissing(Num3) Then
           sMsg = "The sum of " & Num1 & " and " & Num2 & " is "
       Else
           Sum = Sum + CDbl(Num3)
           sMsg = "The sum of " & Num1 & ", " & Num2 & " and " & Num3 & " is "
       End If
       Add2 = sMsg & Sum
       Exit Function
   Handler:
       Add2 = CVErr(2036)  'xlErrNum = 2036
   End Function
   
   Public Function Add3(ParamArray Nums()) As Variant
      '----------------------------------------------------------------------
      '** Demonstrates a function with a variable number of arguments.
      '   Can be called with formulas like =Add3(1), =Add3(1,2,3,4),
      '   or =Add3(A1,A2).
      '----------------------------------------------------------------------
       Dim Sum As Double, i As Integer
       On Error GoTo Handler
       For i = 0 To UBound(Nums)
           Sum = Sum + CDbl(Nums(i))
       Next
       Add3 = "The sum is " & Sum
       Exit Function
   Handler:
       Add3 = CVErr(2036)  'xlErrNum = 2036
   End Function
   
   Public Function ReturnArray(nRows As Long, nCols As Long) As Variant
      '----------------------------------------------------------------------
      '** Demonstrates how to return an array of values (for use in Excel
      '   "array formulas").
      '   Can be called with a formula such as =ReturnArray(1,3).
      '----------------------------------------------------------------------
       On Error GoTo Handler
       ReDim a(0 To nRows, 0 To nCols) As Variant
       Dim r As Long, c As Long
       For r = 0 To nRows - 1
           For c = 0 To nCols - 1
               a(r, c) = "r" & r + 1 & "c" & c + 1
           Next c
       Next r
       ReturnArray = a
       Exit Function
   Handler:
       ReturnArray = CVErr(2015)  'xlErrValue = 2015
   End Function
   
   Public Function GetArray(Nums As Variant) As Variant
      '----------------------------------------------------------------------
      '** Demonstrates how to use an array(or range of multiple cells) as
      '   a function argument.
      '   Can be called with formulas such as =GetArray(A1:B5), GetArray(A1),
      '   or GetArray({1,2,3;4,5,6}).
      '----------------------------------------------------------------------
       Dim Sum As Double, v As Variant
       On Error GoTo Handler
       If IsArray(Nums) Then
           For Each v In Nums
               Sum = Sum + CDbl(v)
           Next
       Else
           Sum = CDbl(Nums)
       End If
       GetArray = "The sum is " & Sum
       Exit Function
   Handler:
       GetArray = CVErr(2036)  'xlErrNum = 2036
   End Function
   
   					

7. Sestavit dopl�ku jako AutomationAddin.dll.

Pomoc� dopl�ku Sample Automation v aplikaci Microsoft Excel 2002 nebo Microsoft Office Excel 2003

1. Spus�te aplikaci Microsoft Excel 2002, pokud jste vybrali v seznamu Aplikac� verze projektu jazyka dopln�k Microsoft Excel 10.0.
   Pozn�mka: Start aplikace Excel 2003, pokud jste vybrali uzav�en� 11.0 v seznamu verze aplikace p�idat jazyka - projektu.
2. V nab�dce N�stroje klepn�te na p��kaz Dopl�ky zobraz�te dialogov� okno Spr�vce dopl�k�. Klepn�te na tla��tko AutomatizaceAutomationAddin.XLFunctions vyberte v seznamu a klepn�te na tla��tko OK. Vyberte AutomationAddin.XLFunctions a potom klepn�te na tla��tko OK zav�ete dialogov� okno Spr�vce dopl�k�.
3. V bu�ce A1 zadejte n�sleduj�c� vzorec:
   =TickCount()
   Vzorec vr�t� velk� ��slo, kter� p�edstavuje po�et milisekund, kter� uplynula od spu�t�n� syst�mu.
4. V bu�k�ch B1 a B2 nov� se�it zadejte ��seln� hodnoty 2 a 5.
5. V bu�ce B3 zadejte n�sleduj�c� vzorec:
   = Add1(B1, B2)
   a stiskn�te kl�vesu ENTER. Vzorec vr�t� "the sou�et 2 a 5 je 7".
6. V bu�ce B4 zadejte n�sleduj�c� vzorec:
   = Add2(B1, B2)
   a stiskn�te kl�vesu ENTER. Vzorec vr�t� "the sou�et 2 a 5 je 7". Upravit vzorec pou��t t�et� argument voliteln�:
   = Add2(B1, B2, 10)
   Vzorec vr�t� n�zvem the sou�et 2, 5 a 10 je 17.
7. V bu�ce B5 zadejte n�sleduj�c� vzorec:
   =Add3(1,2,3,4,5,6)
   a stiskn�te kl�vesu ENTER. Vzorec vr�t� "Tento sou�et je 21". Proto�e parametr funkce Add3 je deklarov�n jako ParamArray, m��ete pou��t prom�nn� po�et argument� pro tuto funkci.
   
   Pozn�mka: Excel omezuje funkce jednoho listu na 29 argumenty.
8. V bu�ce B6 zadejte n�sleduj�c� vzorec:
   =Add1("x","y")
   a stiskn�te kl�vesu ENTER. Vr�t� vzorec hodnotu # NUM! (xlErrNum) proto�e p�evod typu pomoc� funkce CDbl sel�e P�evod �et�zce "x" a "y" Zadejte Dvojit�. V�choz� vr�tit hodnotu p�i funkci dojde k chyb� p�i b�hu je # hodnota!. Pokud chcete vr�tit jin� chyby zpracov�n� chyb pou�it� a m��e vr�tit libovoln� Excel vestav�n� chybov� hodnoty (xlErrDiv0, xlErrNA, xlErrName, xlErrNull, xlErrNum, xlErrRef nebo xlErrValue.)
9. Vyberte bu�ky E1:G5. Zadejte n�sleduj�c� vzorec:
   =ReturnArray(5,3)
   a stiskn�te kl�vesu CTRL + SHIFT + ENTER zadat vzorec jako maticov� vzorec. Funkce vr�t� matice 5 x 3 jedine�n�ch hodnot.
10. V�echna ��sla zadat do bun�k I1:J3. Zadejte n�sleduj�c� vzorec v bu�ce I4:
    =GetArray(I1:J3)
    Vzorec vr�t� v�sledek podobn� "Tento sou�et je n" (kde n je sou�et ��sel v I1:J3). V I5 zadejte n�sleduj�c� vzorec:
    =GetArray({1,2,3,4})
    a stiskn�te kl�vesu ENTER. Vzorec vr�t� "Tento sou�et je 10".

Funkce vazby

Vazba pro funkce v automatizace dopln�k je na konci p�ednost funkce vazby. Pokud m�te v va�e automatizaci funkce dopl�ku se stejn�m n�zvem jako vestav�n� funkce Excel, Excel vestav�nou funkci budou m�t p�ednost. Funkce jazyka VBA v pravideln�ch dopl�ky a se�ity (XLA) tak� p�ednost prost�ednictv�m automatizace p�idat - funkc�. Vytvo�en� vlastn� funkce pro pou�it� v aplikaci Excel je vhodn� d�t funkce n�zvy, kter� jsou ji� pomoc� p�eddefinovan� funkce aplikace Excel.

Konkr�tn� zavol� funkci v automatizace dopln�k, kter� lze proch�zet dol� funkce ve vzorci pomoc� syntaxe nap��klad n�zev_serveru. N�zevT��dy. n�zevfunkce (...). Nap��klad vol�n� funkce Add1 v uk�zkov�m, m��ete pou��t n�sleduj�c�: M��ete volat pouze nejvy��� �rovn� metody a vlastnosti v� dopln�k automatizace; nem��e v�s dol� model objektu v� dopln�k k vol�n� funkce, kter� nejsou na nejvy��� �rovni.

Nest�l� funkce

Nest�l� funkce je p�epo��t�n p�i ka�d� zm�n� libovoln� bu�ky na listu, bez ohledu na to, zda je bu�ka zm�n�n� z�vislost funkce. P��kladem nest�l� funkce, kter� je intern� Excel je funkce N�H��SLO(). St�le p�epo��t�van� funkce tak� p�epo��tat p�i stisknut� kl�vesy F9.

Chcete-li funkci v automatizace dopln�k nest�l�, vol�n� nest�l� metody objektu aplikace Excel. Jako uk�zka zn�zor�uje v��e uveden� k�d b�hem ud�losti OnConnection dopln�k m��e b�t na�ten odkaz na objekt aplikace Excel. Funkce TickCount v uk�zkov� dopln�k automatizace je p�echodn�. Upozor�ujeme, �e pokud provedete zm�ny libovolnou bu�ku v listu nebo stiskn�te F9, bu�ky, kter� obsahuj� n�sleduj�c� vzorec: bude p�epo��tat.

Dopln�k spr�vce a dopl�ky pro automatizaci

Ve Spr�vci dopln�k pro dopln�k jeho n�zev pou�ita v�choz� hodnota kl��e registru <progid>HKEY_CLASSES_ROOT\ pro dopln�k automatizace. Pozn�mka: jazyka u�ivatelsk�ho rozhran� (UI), kter� bude nastavena v�choz� hodnota tohoto kl��e je ��dn� vlastnost; v�ak tento kl�� lze upravit ru�n� v Editoru registru nebo b�hem instalace pro dopln�k.

Popis pro automatizaci dopln�k add - in spr�vce bude v�dy dopln�k 's ProgID; nijak toto chov�n� zm�nit.

Dopl�ky pro automatizaci a Pr�vodce funkc�

Ka�d� dopln�k automatizace m� vlastn� kategorii ve funkci Excel pr�vodce. N�zev kategorie je ProgID pro dopln�k; nelze zadat jin� n�zev kategorie pro funkce dopl�ku automatizace. Nav�c je zp�sob, jak zadat funkci popisy, popisy argument nebo n�pov�dy pro funkce dopl�ku automatizace Pr�vodce funkc�.

Dal�� informace z�sk�te v n�sleduj�c�m �l�nku znalostn� b�ze Microsoft Knowledge Base: Dal�� informace naleznete na n�sleduj�c�m webu:

(c) Microsoft Corporation 2001 v�echny rezervovan� pr�v. P��sp�vky Lenka B. Turner, Microsoft Corporation.