userform nesnelerini modülden adlandırmak

[hsayar]

arkadaşlar plansız bir iş yaptım şimdi elle uğrşamkta zor geliyor acaba bir kere çalışacak olan şöyle bir moduül tasarlanabilirmi

Eski adı > yeni Adı
Combobox1 > cbnfkayil
Combobox2 > cbnfkayilce
Combobox3 > cbnfkaymahkoy
Combobox4 > cbikettil
Combobox5 > cbikettilce
Combobox6 > cbikettmahkoy
Textbox1 > txtTcno
Textbox2 > txtAdi
..................
vesaire şeklinde giden eski nesne adlarınaın yerine yeni nesne adlarını verecek..........
tab index değerlerini belirlemek mümkünse fena olmaz

mesala eski nesne adı, yeni nesne adı, tabindexdeğeri
Textbox1 ise txtTcno olarak adlandıracak tabindeks değeri 0 olacak
ve daha sonra tüm modüllerde bu nesneye referans almış olan kelimleri değişterecek mesala
ComboBox3_Change yerine cbnfkaymahkoy_Change şeklinde düzenleyecek
eh olursada daha sonra kendini imha edecek (ama işinizi uzatacaksa bunun üzerinde fazla durmayınız)

 

[Skorpiyon]

Sayın hsayar,

Bu işlemi yapmadan önce kesinlikle bir yedek alınız.

Kod bölümüne geçip Ctrl + H yapınız. Find What kısmına Eski İsimleri, Replace With bölümüne Yeni İsimleri yazınız, Direction bölümünü All yapınız. Current Procedure bölümünü seçerek Replace All deyiniz, Sonra Current Module'yi seçerek Replace All deyiniz ve en son Current Project'i seçerek Replace All deyiniz. Değiştireceğiniz her nesne için 1 kez yapmalısınız. Sonrasında işleminiz tamam.

 

[hsayar]

sayın sertkaya sizin verdiğiniz yöntemi biliyorum.... bunu bir kerede moduülden adlandırmak istiyorum kadolar türkçedir

Sub NesneAdlandir()
combobox1.name = cbxNfKayİl
cbxNfKayİl.tabindex = 0
combobox2.name = cbxNfKayİlce
cbxNfKayİlce.tabindex =1
Değiştir (combobox1, cbxNfKayİl, tüm prosodürlerde)
Değiştir (combobox2, cbxNfKayİlce, tüm prosodürlerde)
nesne adlandırmoduülünü sil
end sub

 

[Skorpiyon]

Sayın hsayar,

Bu tür bir modül yazmakla yukarıda bahsedilen yöntem aynı şey. Amacınız böyle bir modül yazılabilir mi ? tarzından ise daha önce hiç denemediğim ve bilgim olmadığı için bir şey diyemeyeceğim. Ancak amacınız nesnelerin isimlerini (belirli bir sıra takip etmeyen şekilde) değiştirmek ise en iyi ve en sağlıklı yöntem bence bu.

 

[hsayar]

yada şöylede olabilir

sayfa1
a sütununda eski adlar,
b sütununda yeni adlar,
c sütununda yeni tab index değerleri olduğunu varsayalım

sub Nesneadlandir2()
For i = 2 to sonsat
eskiad = Cells (i,1)
yeniad = Cells (i,2)
yenitabi = Cells (i,3)

eskiad.name = yeniad
yeniad.tabindeks = yenitabi 
değiştir (eskiad, yeniad, tüm prosodürlerde)
next i
bu_kodu_sil 'olmasada olur
End sub

cevab ve ilginiz için teşekkürler sn. sertkaya

 

[fbgli]

kodlar karşık kafayıver mek laızm

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

sub Nesneadlandir2()
For i = 2 to sonsat
controls(cells(i,"a")).name= Cells (i,"b")
controls(cells(i,"a")).tabindex= Cells (i,"c")
next i
End sub

 

[Haluk]

En iyi yöntem yukarıda sayın Sertkaya tarafından tarif edilmiş.

Nesnelerin, VBA adları projenin çalışması sırasında değiştirilemez.

Ancak, illaki VBA ile daha pratik olur diyorsanız o zaman aşağıdaki gibi bir şey deneyin.

UserForm üzerinde CommandButton1, ComboBox1 ve TextBox1 nesneleri var.

Aşağıdaki kod da, UserForm modulüne yerleştirilecek ve çalıştırılacak...

Private Sub CommandButton1_Click()
    Dim LngStartLine As Long, LngEndLine As Long, LngStartColumn As Long, LngEndColumn As Long
    Dim LngNoLine As Long
    Dim TempLine As String
    LngStartLine = 1
    LngEndLine = 1000
    For LngNoLine = LngStartLine To LngEndLine - 1
        TempLine = Application.VBE.ActiveCodePane.CodeModule.Lines(LngNoLine, 1)
        If InStr(1, TempLine, "Private Sub CommandButton1_Click") > 0 Then
            NewLine = "Private Sub MyButton1_Click()"
            Application.VBE.ActiveCodePane.CodeModule.ReplaceLine LngNoLine, NewLine
        End If
        If InStr(1, TempLine, "Private Sub ComboBox1_Change") > 0 Then
            NewLine = "Private Sub MyCombo_Click()"
            Application.VBE.ActiveCodePane.CodeModule.ReplaceLine LngNoLine, NewLine
        End If
        If InStr(1, TempLine, "Private Sub TextBox1_Change") > 0 Then
            NewLine = "Private Sub MyTextBox_Change()"
            Application.VBE.ActiveCodePane.CodeModule.ReplaceLine LngNoLine, NewLine
        End If
    Next
End Sub

 

[hsayar]

yazdığım kodalr vba kodu değil isteklerimin türkçe karşılığıdır.... doğrusunu bilmiyorum.
yardımlarınız için teşekkürler

 

[hsayar]

Aşağıdaki gibi deneyin.

sub Nesneadlandir2()
For i = 2 to sonsat
controls(cells(i,"a")).name= Cells (i,"b")
controls(cells(i,"a")).tabindex= Cells (i,"c")
next i
End sub

hocam boş bir modüle

Sub Nesneadlandir2()
For i = 1 To 3
UserForm1.Controls(Cells(i, "a")).Name = Cells(i, "b")
'Controls(Cells(i, "a")).TabIndex = Cells(i, "c")
Next i
End Sub

şeklinde küçük bir deneme ayptım ama tür uyuşmazlığı dedi... nasıl aşabilirim.

 

[Haluk]

hocam boş bir modüle

şeklinde küçük bir deneme ayptım ama tür uyuşmazlığı dedi... nasıl aşabilirim.

Yukarıda 8 No'lu mesajda, aldığınız bu hatanın açıklaması var ...

 

[hsayar]

En iyi yöntem yukarıda sayın Sertkaya tarafından tarif edilmiş.

Nesnelerin, VBA adları projenin çalışması sırasında değiştirilemez.

Ancak, illaki VBA ile daha pratik olur diyorsanız o zaman aşağıdaki gibi bir şey deneyin.

UserForm üzerinde CommandButton1, ComboBox1 ve TextBox1 nesneleri var.

Aşağıdaki kod da, UserForm modulüne yerleştirilecek ve çalıştırılacak...

Private Sub CommandButton1_Click()
    Dim LngStartLine As Long, LngEndLine As Long, LngStartColumn As Long, LngEndColumn As Long
    Dim LngNoLine As Long
    Dim TempLine As String
    LngStartLine = 1
    LngEndLine = 1000
    For LngNoLine = LngStartLine To LngEndLine - 1
        TempLine = Application.VBE.ActiveCodePane.CodeModule.Lines(LngNoLine, 1)
        If InStr(1, TempLine, "Private Sub CommandButton1_Click") > 0 Then
            NewLine = "Private Sub MyButton1_Click()"
            Application.VBE.ActiveCodePane.CodeModule.ReplaceLine LngNoLine, NewLine
        End If
        If InStr(1, TempLine, "Private Sub ComboBox1_Change") > 0 Then
            NewLine = "Private Sub MyCombo_Click()"
            Application.VBE.ActiveCodePane.CodeModule.ReplaceLine LngNoLine, NewLine
        End If
        If InStr(1, TempLine, "Private Sub TextBox1_Change") > 0 Then
            NewLine = "Private Sub MyTextBox_Change()"
            Application.VBE.ActiveCodePane.CodeModule.ReplaceLine LngNoLine, NewLine
        End If
    Next
End Sub

sn hocam eski ismlerler yeni isimleri sayfadan aldırmak mümkünmüdür acaba

 

[Haluk]

Sadece 1 kere çalışacak bir kod için fazlasıyla zaman harcadık bile ..... sayın Sertkaya' nın tarif ettiği şekilde yapsanız, şimdiye kadar işiniz bitmişti.

 

[hsayar]

çok fazla kontrol var ve ben her defasında önce contrelleri koyup daha sonra nesneleri adlandırıyorum yani benim işime her zaman yarayacak....

 

[hsayar]

'Yazar Hamitcan <excel.web.tr>
Private Sub CommandButton1_Click()
    For i = 0 To Controls.Count - 1
        c = c + 1
        Cells(c, 1) = Controls(i).Name
    Next
End Sub

kodları ile sayfa1 in A sütununa aldığım nesne adlarınının b sütuna yeni nesne adlarını, c sütununa da yeni tabindeks değerlerini yazacam userformda ve modüllerde tüm değişiklikleri otomatik olarak yapacak ve çok güzel olacak....
tabi siz değerli ustalarımın sayesinde

 

[Levent Menteşoğlu]

Bende üzerinde düşünmeden cevap yazmışım bu şekilde ancak tabindex değerlerini değiştirebilirsiniz. İsimlerini değiştiremezsiniz. Başka yöntemler bulunabilir ama Haluk üstadımında belirttiği gibi kodların içinde değişiklik yapmak en kolayıdır.

 

[Haluk]

Evet, nesnelerin VBA adı gerçekte runtime sırasında değiştirilemez.

Ekli dosya, yukarıda sayın Sertkaya tarafından tarif edilen ve sayın hsayar tarafından sayfa üzerindeki eski ve yeni isimlere göre VBA ile yapılmasınına dair istek üzerine hazırlanmıştır.

Kodların çalışması VBE' de ilgili değişiklikleri yapacaktır ancak, VBE properties penceresinde sözkonusu değişikliklerin de manuel olarak yapılması gereklidir.


.

 

[hsayar]

proprtiesden nesnelerin name lerini bize değiştereceğiz buda bir ilerlemedir hocam ellerinize sağlık teşekkür ederim...
peki sadece tab indeks değerlerini düzetmeye yarayan kod eklerseniz çok şey istemiş olurmuyuz.
saygılarımla...
ayrıca name özelliğinin değiştirilmesi bir gün mümkün olursa paylaşırsanız sevinirim.