Como criar uma pasta de trabalho e renomear tabelas
Deseja criar pastas de trabalho que contenham doze planilhas para que você possa coletar dados para cada mês do ano? Deixe uma macro fazer isso para você automaticamente.
A macro a seguir cria uma nova pasta de trabalho vazia com doze planilhas e nomeia as planilhas individuais na forma abreviada dos nomes dos meses, ou seja, "Jan", "Fev" etc. Aqui está a macro apropriada:
Tabelas Sub CreateMonth ()
Dim Tab Number As Integer
Dim New As Workbook
Nomes obscuros como variantes
Nomes = array ("Jan", "Fev", "Mar", "Abr", "Maio", "Jun", _
"Jul", "Ago", "Set", "Out", "Nov", "Dez")
TabNumber = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 12
Set New = Workbooks.Add
Application.SheetsInNewWorkbook = TabNumber
Para TabNumber = 1 a 12
New.Worksheets (TabNumber) .Name = Nomes (TabNumber - 1)
Número da próxima guia
End Sub
Após iniciar, você receberá uma pasta de trabalho com doze planilhas. A figura a seguir mostra a aparência do resultado:
Se você quiser usar outros nomes em vez dos nomes dos meses, adapte os nomes na atribuição de valor à variável "Nomes".
Dica: Se você gostaria de saber como inserir e iniciar macros no Excel, você encontrará uma breve descrição aqui: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
