Benennen Sie das Arbeitsblatt Modulnamen mit VBA in Microsoft Excel
In diesem Artikel erstellen wir ein Makro zum Umbenennen des Arbeitsblattmodulnamens.
Jedem Arbeitsblatt ist ein Modul zugeordnet, das als Arbeitsblattmodul bezeichnet wird. Das Arbeitsblattmodul enthält VBA-Code für Ereignisse im Zusammenhang mit Arbeitsblättern und Code für Ereignisse, die mit einem in das Arbeitsblatt eingefügten Active X-Steuerelement verknüpft sind. Jedes Arbeitsblattmodul hat einen eindeutigen Namen.
In diesem Beispiel haben wir eine Arbeitsmappe mit vielen Arbeitsblättern und Arbeitsblattmodulnamen wie Sheet10, Sheet11 usw.
Wir möchten den Namen des Arbeitsblattmoduls in einer Reihenfolge wie Sheet1, Sheet2 usw. umbenennen.
Logische Erklärung
Wir haben die Prozedur „ChangeAllWorksheetCodenames“ zum Umbenennen des Arbeitsblattmoduls geschrieben.
Da wir den Namen des Arbeitsblattmoduls aller in der Arbeitsmappe vorhandenen Arbeitsblätter umbenennen möchten, haben wir die FOR-Schleife verwendet, um alle in der WORKSHEETS-Auflistung vorhandenen Arbeitsblätter zu durchlaufen.
Zum Umbenennen des Arbeitsblattmodulnamens des Arbeitsblatts haben wir dem Arbeitsblattmodul einen neuen Namen zugewiesen, indem wir die CODENAME-Eigenschaft des VBCOMPONENT geändert haben.
Bitte folgen Sie unten für den Code
Option Explicit
Sub ChangeAllWorksheetCodenames()
'Code for renaming worksheet codemodule names
Dim ws As Worksheet, i As Integer
i = 0
'Looping through all the worksheets in the active workbook
For Each ws In ActiveWorkbook.Worksheets
i = i + 1
'Putting a check over error occurence while renaming
'If error occurs at runtime, code will skip the error and
'Start executing from next line
On Error Resume Next
'Code for renaming codemodule name
ws.Parent.VBProject.VBComponents(ws.CodeName).Properties("_CodeName") = _
"Sheet" & i
'Cancelling the effect error check statement we used earlier,
'Code will not skip the code if any runtime error occurs
On Error GoTo 0
Next ws
Set ws = Nothing
End Sub
Wenn dir dieser Blog gefallen hat, teile ihn mit deinen Freunden auf Facebook und Facebook.
Wir würden gerne von Ihnen hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern und für Sie verbessern können. Schreiben Sie uns unter [email protected]