Adăugare foi de lucru denumite după o listă
Pentru a adăuga în registru mai multe foi de lucru, care vor avea numele preluat dintr-o listă de celule, se poate folosi următorul cod VBA (aici, macrocomanda preia valorile din lista A1:A7 și adaugă foi de lucru pe care le redenumește, folosind valorile din listă):
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Mod de lucru rapid: Se copie macrocomanda de mai sus (selecție text și Ctrl+C), se deschide registrul de lucru, apoi
Alt+F11 pentru a deschide fereastra VBA
F7 pentru a deschide fereastra Code
Ctrl+V pentru a adăuga în fereastră codul copiat în memoria clipboard și
F5 pentru a executa macrocomanda.
Macrocomanda adaugă foi de lucru goale.
Pentru a adăuga foi de lucru care să conțină date (având în registrul de lucru o foaie de lucru șablon), se poate scrie o macrocomandă care să copie foaia de lucru șablon, apoi să redenumească copiile - macrocomanda se află pe pagina Multiplicarea unei foi de lucru șablon.