Adăugați o procedură la un modul folosind VBA în Microsoft Excel

Puteți adăuga cod la un modul fără a utiliza un fișier text separat care conține codul.
Macro-ul de mai jos arată cum se poate face acest lucru. Macrocomanda trebuie personalizată pentru a conține codul pe care doriți să îl adăugați:

Sub InsertProcedureCode (ByVal wb As Workbook, ByVal InsertToModuleName As String) 'inserează un cod nou în modulul numit InsertModuleName în wb' trebuie personalizat în funcție de cod pentru a insera Dim VBCM Ca CodeModule Dim InsertLineIndex As Long On Error Reîncepeți setarea VBCM = wb.VBProject .VBComponents (InsertToModuleName) .CodeModule Dacă nu VBCM nu este nimic, atunci cu VBCM InsertLineIndex = .CountOfLines + 1 'personalizați următoarele linii în funcție de codul pe care doriți să îl inserați .InsertLines InsertLineIndex, "Sub NewSubName ()" & Chr (13) InsertLineInd = InsertLineIndex + 1 .InsertLines InsertLineIndex, _ "Msgbox" "Hello World!" ", VbInformation," "Message Box Title" "" & Chr (13) InsertLineIndex = InsertLineIndex + 1 .InsertLines InsertLineIndex, "End Sub" & Chr ( 13) 'nu este nevoie de mai multă personalizare Sfârșit cu setare VBCM = Nimic nu se termină dacă este pe eroare GoTo 0 Termină sub

Exemplu:

InsertProcedureCode Workbooks ("WorkBookName.xls"), "Module1"