Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Zmiana nazwy kontrolek

beret · Wysłany: 21-06-2024, 07:52 **Zmiana nazwy kontrolek**

Mam taki kod:

Kod:

Sub pokazPrac()
With PRACOWNIK
.Show
End With
End Sub

W tym UserForm jest 20 TextBox z nazwami:
Z7, Z10, Z13, Z16, Z19, Z22 itd aż do Z64

Czy można jakimś makrem zamienić nazwy tych kontrolek np. na takie:
Od1, Od2, Od3, Od4, ... Od20

Tajan · **Pomógł:** 5501 razy Posty: 11968

Coś takiego:

Kod:

Sub renameControls()
Dim i As Long, j As Long

With Application.VBE.ActiveVBProject.VBComponents("PRACOWNIK")
For i = 7 To 64 Step 3
j = j + 1
.Designer.Controls("Z" & i).Name = "Od" & j
Next
End With
End Sub

Procedura w module zwykłym. Należy ją uruchomić tylko jeden raz.
W opcjach Excela trzeba zaznaczyć "Ufaj programowemu dostępowi do modelu obiektowego projektu VBA" w ustawieniach makr centrum zaufania.