Χρησιμεύει για να μεταφέρουμε τα ονόματα των Sheets, ενός Workbook, μέσα σε ένα φύλλο, είτε σε γραμμές είτε σε στήλες.
Επιλέγουμε το κελί πάνω στο οποίο θα εφαρμοστεί ο κώδικας.
Alt+F11 για να ανοίξουμε τον VBA Editor
Insert Module από το Insert Menu
Κάνουμε paste τον παρκάτω κώδικα.
Τρέχουμε τον κώδικα.
Για να γράψει τα ονόματα σε γραμμές:
Sub SheetNames2cellLines()
activeCol = ActiveCell.Column
activeRow = ActiveCell.Row
For i = 1 To Sheets.Count
Cells((activeRow – 1) + i, activeCol) = Sheets(i).Name
Next i
End Sub
activeCol = ActiveCell.Column
activeRow = ActiveCell.Row
For i = 1 To Sheets.Count
Cells((activeRow – 1) + i, activeCol) = Sheets(i).Name
Next i
End Sub
Για να γράψει τα ονόματα σε στήλες (και να τις κάνει και AutoFit):
Sub SheetNames2cellColumns()
activeCol = ActiveCell.Column
activeRow = ActiveCell.Row
For i = 1 To Sheets.Count
Cells(activeRow, (activeCol – 1) + i) = Sheets(i).Name
Columns(i + 1).EntireColumn.AutoFit
Next i
End Sub
activeCol = ActiveCell.Column
activeRow = ActiveCell.Row
For i = 1 To Sheets.Count
Cells(activeRow, (activeCol – 1) + i) = Sheets(i).Name
Columns(i + 1).EntireColumn.AutoFit
Next i
End Sub
Αρχική εικόνα
Μετά την εκτέλεση του κώδικα (και για γραμμές και για στήλες)