ci-dessous est la formule que je souhaite utiliser. Je ne sais pas comment ajouter la commande pour démarrer à partir d'une feuille de calcul spécifique.
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Columns.AutoFit
Next sh
End Sub
Bien sûr, utilisez plutôt un index:
Dim nIndex As Integer
For nIndex = 1 To ThisWorkbook.WorkSheets.Count
ThisWorkbook.WorkSheets(nIndex).Columns.AutoFit
Next
Remplacez le 1
par celui avec lequel vous voulez commencer.
Ou vous pouvez vérifier le nom de la feuille de calcul dans la boucle à la place, et les traiter toutes après et y compris celle-ci:
Dim bFlag As Boolean ' default value is False
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
If sh.Name = "First One" Then bFlag = True
' once the flag is set to True, it stays True til the end
If bFlag Then sh.Columns.AutoFit
Next
Este artículo se recopila de Internet, indique la fuente cuando se vuelva a imprimir.
En caso de infracción, por favor [email protected] Eliminar
Déjame decir algunas palabras