Makale numaras�: 285337 - Son G�zden Ge�irme: 29 Ocak 2007 Pazartesi - G�zden ge�irme: 5.4

Visual Basic Automation eklentisini Excel �al��ma sayfas� i�levleri i�in olu�turma

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Sistem �pucuBu makale, kulland��n�zdan farkl� bir i�letim sistemine y�neliktir. Sizinle ilgili olmayabilecek makale i�eri�i devre d�� b�rak�ld�.

Hepsini a� | Hepsini kapa

�zet

Microsoft Excel 2000'de, bir i�lev do�rudan bir Bile�en Nesne Modeli (COM) eklenti bir �al��ma sayfas� h�cresini form�lden �a�r�lam�yor. Bunun yerine, dolayl� i�levi �a�r�labilir bir Visual Basic for Applications (VBA) sarmalay�c� COM eklentisi i�levi olu�turman�z gerekir.

T�mle�tirme, COM (Otomasyon eklenti olarak da adland�r�l�r) eklentileri Excel 2002'de ve daha sonra COM eklentisi i�levler art�k bir VBA sarmalay�c� gerek kalmadan do�rudan �al��ma sayfas� form�l taraf�ndan �a�r�labilir �ekilde geli�tirilmi�tir. Bu makalede, bir Otomasyon eklenti i�levleri, Excel 2002 ve daha sonra �al��ma sayfas� form�llerinden �a�r�labilecek sunar, Visual Basic ile nas�l olu�turulaca��n� g�stermektedir.

�ste

Daha fazla bilgi

�rnek Otomasyon eklenti olu�tur

Visual Basic'te, yeni bir eklenti proje ba�lat�n.
FrmAddIn adl� bir form, varsay�lan olarak projeye eklenir. Bu �rnek amac�yla bu formu, projeden kald�r�lm�� olabilir. Proje Gezgini'nde, formu sa� t�klat�n ve sonra da k�sayol men�s�nde frmAddIn Kald�r ' � t�klat�n.
Proje men�s�nde MyAddin �zellikler ' i t�klat�n. "AutomationAddin i�in" Proje ad� de�i�tirin ve Tamam ' � t�klat�n.
Proje Gezgini'nde, Tasar�mc� Ba�lan'� se�in. Name �zelli?ini "XLFunctions i�in" olarak de�i�tirin.
Proje Gezgini'nde, XLFunctions Tasar�mc�s�'n� �ift t�klat�n. Genel sekmesinde, Tasar�mc� ayarlar� a�a��daki de�i�iklikleri yap�n:
- Uygulama listesinden, Microsoft Excel'in se�in.
- Uygulama s�r�m�</a0> listesinden, Microsoft Excel 10.0 se�in.
  Not: Microsoft Office Excel 2003 kullan�yorsan�z, Microsoft Excel'in 11.0Uygulama s�r�m� se�in.
- Ilk y�kleme davran�� ayar� i�in iste�e ba�l� y�kleme de�i�tirin.

XLFunctions hala tasar�mc�s�n� a��n, G�r�n�m men�s�nden kodu se�in. Kod mod�l�nde a�a��daki ile De�i�tir:

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

Eklenti AutomationAddin.dll olu�turun.

Microsoft Excel 2002 veya Microsoft Office Excel 2003 �rnek Otomasyon eklentisi kullanma

Visual Basic eklentisi proje Uygulama s�r�m� listesini Microsoft Excel 10.0 se�tiyseniz, Microsoft Excel 2002'yi ba�lat�n.
Not: Ba�lat Microsoft Office Excel 2003, Microsoft Excel'in 11.0Uygulama s�r�m� Visual Basic Eklenti Listesi'de-proje se�tiyseniz.
Ara�lar men�s�nde, EklentilerEklenti Y�neticisi ileti�im kutusunu g�r�nt�lemek i�in t�klat�n. Automation ' � t�klat�n, AutomationAddin.XLFunctions listeden se�in ve Tamam ' � t�klat�n. AutomationAddin.XLFunctions se�in ve sonra Eklenti Y�neticisi ileti�im kutusunu kapatmak i�in Tamam ' � t�klat�n.
A1 h�cresine a�a��daki form�l� yaz�n:
=TickCount()
Form�l, sistemin yeniden ba�lat�lmas�ndan itibaren ge�en milisaniye say�s�n� g�steren, b�y�k bir say� verir.
H�crelere B1 ve B2'Yeni �al��ma kitab�, 2 ve 5 say�sal de�erleri s�ras�yla yaz�n.
B3 h�cresine a�a��daki form�l� yaz�n:
= Add1(B1, B2)
ve ENTER tu�una bas�n. Form�l, "2 ve 5 7 toplam�d�r" d�nd�r�r.
B4 h�cresinde, a�a��daki form�l� yaz�n:
= Add2(B1, B2)
ve ENTER tu�una bas�n. Form�l, "2 ve 5 7 toplam�d�r" d�nd�r�r. Iste�e ba�l� ��nc� ba��ms�z de�i�ken kullanmak i�in form�l� de�i�tirin:
= Add2(B1, B2, 10)
Form�l, "2, 5 ile 10 17 toplam�d�r." verir
B5 h�cresine a�a��daki form�l� yaz�n:
=Add3(1,2,3,4,5,6)
ve ENTER tu�una bas�n. Form�l, "21 toplam�d�r" d�nd�r�r. Add3 i�levi i�in parametre ParamArray ' bildirildi�inden, bu i�lev i�in ba��ms�z de�i�ken bir dizi kullanabilirsiniz.

Not Excel, bir tek bir �al��ma sayfas� i�levini 29 ba��ms�z de�i�kenleri s�n�rlar.
B6 h�cresine a�a��daki form�l� yaz�n:
=Add1("x","y")
ve ENTER tu�una bas�n. Form�l, # say�! (xlErrNum) oldu�undan, t�r� d�n��t�rme CDbl i�levi ile �ift yazmak i�in "y" ve "x" dize d�n��t�rme ba�ar�s�z. Varsay�lan DE�ER bir i�levi bir �al��t�rma hatas� ile kar��la�t��nda de�erdir d�nd�r�r!. Farkl� bir hata geri d�nmek istiyorsan�z, kullan�m hata i�leme ve Excel'in yerle�ik hata de�erlerinden (xlErrDiv0, xlErrNA, xlErrName, xlErrNull, xlErrNum, xlErrRef veya xlErrValue.) d�nd�rebilir
H�creleri E1:G5 se�in. A�a��daki form�l� yaz�n:
=ReturnArray(5,3)
ve form�l�n� dizi form�l� olarak girmek i�in CTRL + �ST KARAKTER + ENTER tu�lar�na bas�n. I�lev bir 5 x 3 benzersiz de�erler dizisini verir.
T�m say�lar h�cre I1:J3 girin. �4 h�cresine a�a��daki form�l� yaz�n:
=GetArray(I1:J3)
Form�l�n sonucu, benzer �ekilde, "n (n I1:J3 say�n�n toplam� oldu�u) toplam�d�r" d�nd�recektir. I5 i�inde a�a��daki form�l� yaz�n:
=GetArray({1,2,3,4})
ve ENTER tu�una bas�n. Form�l, "10 toplam�d�r" d�nd�r�r.

I�lev ba�lama

Ba�lama i�in bir Otomasyon eklentisi fonksiyonlar�nda i�levi ba�lama �ncelik sonunda ' dir. Bir i�lev, otomasyon E�er eklentisiyle ayn� ad� ta��yan bir Excel yerle�ik i�levi, Excel'in yerle�ik fonksiyon �ncelik sahibi olur. VBA i�levleri �al��ma kitaplar�n� ve normal eklentiler (.xla) g�re de �nceli�i �zerinden Otomasyon Ekle - fonksiyonlarda. Excel'de kullanmak i�in kendi fonksiyonlar�n�z� olu�turdu�unuzda, zaten kullan�mda olan i�levleri adlar�n�z vermeyin Excel'in yerle�ik i�levleri taraf�ndan �nerilir.

�zellikle, otomasyon bir eklenti i�inde bir i�lev �a��rmak i�in bir form�ldeki fonksiyon i�in sunucuad� gibi bir s�zdizimi kullanarak ayr�nt�s�na inebilir. S�n�fAd�. FunctionName (...). �rne�in �rnekte Add1 i�levini �a��rmak i�in a�a��dakileri kullanabilirsiniz:

=AutomationAddin.XLFunctions.Add1(1,2)

Yaln�zca, Otomasyon eklentisi, �st d�zey y�ntemlerini ve �zelliklerini �a��rabilir, nesne modeli, kendi �st d�zey olmayan i�levleri �a��rmak i�in eklenti a�a�� y�r�tmek edemiyor.

Ge�ici i�levler

Bir ge�ici yeniden hesaplar olup olmad�� da de�i�en h�cre i�levi i�in bir ba��ml�l�k olmas�na bak�lmaks�z�n, bir �al��ma sayfas�ndaki herhangi bir h�creyi bir de�i�iklik yap�ld��nda, bir i�levdir. Excel'e i� ge�ici bir i�lev RAND() i�levi �rne�idir. F9 tu�una bast��n�zda ge�ici i�levler de yeniden hesaplay�n.

Otomasyon bir eklenti i�inde bir i�levi ge�ici yapmak i�in <a0></a0>, Excel Uygulama nesnesinin ge�ici y�ntemini �a��r�n. �rnek olarak Yukar�daki kod, Excel Uygulama nesnesine ba�vuru OnConnection olay�n�n eklenti s�ras�nda al�nan g�sterir. Otomasyon eklentisi �rnek TickCount i�levinde de�i�ken ' dir. Unutmay�n �al��ma sayfas�ndaki herhangi bir h�creyi de�i�iklik ya da a�a��daki form�l� i�eren h�cre i�in F9 tu�una bas�n:

=TickCount()

yeniden hesaplar.

Otomasyon eklentileri ve Eklenti Y�neticisi

Eklenti Y�neticisi eklenti �n ad� i�in Otomasyon eklenti HKEY_CLASSES_ROOT\ <progid>kay�t defteri anahtar�n�n varsay�lan de�eri olarak kullan�l�r. Bu anahtar�n varsay�lan de�erini ayarlar, Visual Basic kullan�c� arabiriminde (UI) �zellik oldu�unu unutmay�n; ancak, bu anahtar�n el ile kay�t defteri d�zenleyicisini veya y�kleme s�ras�nda i�in eklentiyi de�i�tirilebilir.

Otomasyon eklenti Y�neticisi'nde - Ekle a��klamas�, her zaman eklenti �n Prog�d olacakt�r; bu davran�� de�i�tirmek i�in bir yolu yoktur.

Otomasyon eklentileri ve fonksiyon Sihirbaz�

Her Otomasyon eklentisi kendi kategori Excel i�levi olan Sihirbaz�. Kategori ad� eklenti i�in Prog�d, Otomasyon eklenti i�levleri i�in farkl� bir kategori ad�n� belirtemezsiniz. Ayr�ca, bir i�lev a��klamalar�, ba��ms�z de�i�keni a��klamalar� veya Yard�m Otomasyon eklenti i�levleri i�in i�lev Sihirbaz�'nda belirtmek i�in bir yolu yoktur.

�ste

Referanslar

Ek bilgi i�in, Microsoft Bilgi Bankas�'ndaki makaleyi g�r�nt�lemek �zere a�a��daki makale numaras�n� t�klat�n:

256624� (http://support.microsoft.com/kb/256624/ ) Bir Excel �al��ma sayfas� i�levi COM eklentisi i�levi nas�l kullan�l�r

Daha fazla bilgi i�in a�a��daki Microsoft Web sitesine bak�n:

http://support.microsoft.com/ofd (http://support.microsoft.com/ofd)

�ste

Bu makaledeki bilginin uyguland�� durum:

Microsoft Visual Basic 6.0 Professional Edition
Microsoft Office Excel 2003
Microsoft Excel 2002 Standard Edition

�ste

kbmt kbhowto KB285337 KbMttr

�ste

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:285337� (http://support.microsoft.com/kb/285337/en-us/ )

�ste

This site in other countries/regions:

Visual Basic Automation eklentisini Excel �al��ma sayfas� i�levleri i�in olu�turma

�zet

Daha fazla bilgi

�rnek Otomasyon eklenti olu�tur

Microsoft Excel 2002 veya Microsoft Office Excel 2003 �rnek Otomasyon eklentisi kullanma

I�lev ba�lama

Ge�ici i�levler

Otomasyon eklentileri ve Eklenti Y�neticisi

Otomasyon eklentileri ve fonksiyon Sihirbaz�

Referanslar

Bu makaledeki bilginin uyguland�� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

This site in other countries/regions:

Visual Basic Automation eklentisini Excel �al��ma sayfas� i�levleri i�in olu�turma

�zet

Daha fazla bilgi

�rnek Otomasyon eklenti olu�tur

Microsoft Excel 2002 veya Microsoft Office Excel 2003 �rnek Otomasyon eklentisi kullanma

I�lev ba�lama

Ge�ici i�levler

Otomasyon eklentileri ve Eklenti Y�neticisi

Otomasyon eklentileri ve fonksiyon Sihirbaz�

Referanslar

Bu makaledeki bilginin uyguland��� durum:

Anahtar Kelimeler:�

Di�er Destek Siteleri

Topluluk

Hemen Yard�m Al

Makale �evirileri

�lgili Destek Merkezleri

Bu makaledeki bilginin uyguland�� durum: