Fonksiyon Ekranını Çağırmak

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Merhaba,

Makro ile nasıl fonksiyon ekranını açabiliriz.

Örneğin;

SUM Fonksiyonu...


Teşekkürler..
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki kodu deneyin.

[vb:1:9928def419]Sub ekle()
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub
[/vb:1:9928def419]
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Sn.leventm,

Direk SUM fonksiyonu ekranını nasıl çağırabiliriz.
:yardim:

Teşekkürler.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Aşağıdaki gibi deneyin.

[vb:1:b0cff63738]Sub ekle()
ActiveCell = "=SUM()"
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub
[/vb:1:b0cff63738]
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Sn.leventm,

ActiveCell = "=SUM()" 'satırı Run time error:1004 hatası verdi.

Sub ekle()
ActiveCell = "=SUM(1)"
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub

şeklinde şimdilik işimi gördü.

İlginiz için teşekkürler..
 
Katılım
7 Kasım 2005
Mesajlar
192
Excel Vers. ve Dili
excel2003
Ben de fonksiyon açma ekranını çalıştıramadım
 
Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Merhaba,

Kod:
Sub ekle() 
ActiveCell = "=SUM(1)" 
Application.Dialogs(xlDialogFunctionWizard).Show 
End Sub
şeklinde yazarsan çalışması gerekiyor.

Kolay Gelsin.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Türkçe versiyonda aşağıdaki gibi olması gerekir.

[vb:1:1db0311423]Sub ekle()
ActiveCell = "=TOPLA()"
Application.Dialogs(xlDialogFunctionWizard).Show
End Sub
[/vb:1:1db0311423]
 
Üst