Eklenti (.xla) Kullanımı

[Recep İpek]

Merhaba,

Forumda aradım ama bulamadım.

Çalışma kitabının Thisworkbook bölümünde kullandığım bir makroyu eklenti (.xla) olarak tüm excel kitaplarında nasıl kullanabilirim?

Teşekkürler.

 

[Levent Menteşoğlu]

Thisworkbook modülü bir private modüldür yani yazıldığı kitaba aittir. Eklenti (xla) ise application nesnesine yani excel uygulamasına aittir. Bu durumda thisworkbook modülüne yazılı bir kodu eklenti olarak çalıştıramazsınız. Fakat kullandığınız kodu verirseniz belki normal modüldede aynı uygulama gerçekleştirilerek xla haline getirilebilir.

 

[Recep İpek]

Sayın leventm,

Aslında yapmak istediğim aşağıdaki linkte eklemiş olduğum dosyadaki satır renklendirme kodlarını eklenti olarak kullanmak.

http://www.excel.web.tr/viewtopic.php?t=15727

Teşekkürler.

 

[Levent Menteşoğlu]

Sorunuzun çözümünü, kodları application nesnesine class module ile tanımlayarak gerçekleştirdim. Ekte verdiğim dosyayı xla olara kaydederseniz eklenti olarak her dosyanızda kullanabilirsiniz.

 

[Recep İpek]

Sayın leventm hocam,

Ne diyebilirimki!!!.Ayakta :bravo: :bravo: :bravo:

Bilginize sağlık...

Çok çok teşekkürler.

 

[Recep İpek]

Merhaba,
Bununla ilgili olarak aşağıdaki kodlarla Eklenti'den aktif kullandığım dosyanın modül kısmına deg değişkenine True ve False değerlerini atayabiliyorum.

Benim yapmak istediğim atadığım bu değeri tekrar Eklenti'de kullanmak

Örneğin kullandığım dosyanın modül kısmına eklenti ile deneme adında bir modül yaratıp buraya deg=True değerini atıyorum.

Eklentide ise hazırladığım kodlar bu deg=True değeri kullanması gerekiyor.

Sub Durum()
On Error Resume Next
Dim s
Set s = ThisWorkbook.VBProject.VBComponents("deneme").CodeModule
If s = "deneme" Then
Set kod = ThisWorkbook.VBProject.VBComponents("deneme").CodeModule
kod.deleteLines 1
kod.InsertLines 1, "Public Const deg As Boolean=" & True
Else
Set kod = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule).CodeModule
kod.Name = "deneme"
kod.InsertLines 1, "Public Const deg As Boolean=" & True
End If
End Sub

Kısaca Eklenti dosyasına kullandığım dosyadaki deg=True değerini almak istiyorum.

Teşekkürler.

 

[Recep İpek]

Takrar merhaba,

Sorunun içersinden bir türlü çıkamadığım için sorum biraz net olmamış olabilir.

Sorum bir modül içersinden değişken değerini almak.

a=ThisWorkbook.VBProject.VBComponents("deneme").CodeModule.........[B]deg[/B]

Burada deneme modülü içersinde bulunan deg=True değerini bulmak istiyorum.

Teşekkürler.