Reportez-vous à la feuille en utilisant le nom de code

1) se Reporter à la feuille par Index:

With Worksheets(1) 
    '<stuff here>
End With

L'Index dépend de l'ordre de feuilles dans le classeur". Si vous traînez vos feuilles de commande, cela peut ne pas se référer à la même feuille plus!

2) se Reporter à la fiche de Nom:

With Worksheets("Your Sheet Name") 
    '<stuff here>
End With

C'est le .Name propriété d'une feuille de calcul, et le nom est visible dans l'onglet de feuille de calcul Excel et entre crochets dans le Projet VBA Explorer.

3) voir la fiche de nom de Code:

Vous suggère de vous en fait voulu utiliser le .CodeName propriété de feuille de calcul. Cela ne peut être une référence à l'intérieur des crochets comme les deux exemples ci-dessus, mais n'existe pas contrairement à certaines réponses ci-dessus! Il est attribué automatiquement à une fiche d'information sur la création, et est "Feuille" alors, la prochaine nombre inutilisé dans le déjà créé des noms de code.

L'avantage de l'utilisation de CodeName est qu'il ne dépend pas de la feuille de commande (à la différence de la Index) et elle ne change pas si un utilisateur modifie le Name simplement par le fait de renommer la feuille dans Excel.

L'inconvénient est que le code peut être plus complexe ou ambigu. Depuis CodeName est en lecture seule [1] cela ne peut pas être améliorée, mais n'a assurer les avantages ci-dessus! Voir les documents référencés pour plus de détails.

Première façon de l'utiliser: directement...

With Sheet1
    '<stuff here>
End With

Deuxième façon de l'utiliser: indirectement, peut offrir plus de clarté ou de la flexibilité, montre comment utiliser la CodeName propriété d'une feuille de calcul...

En boucle sur les feuilles et la lecture de la CodeName de la propriété, vous pouvez d'abord trouver le Index ou Name propriété de votre feuille souhaitée. Ensuite, vous pouvez utiliser cette référence à la feuille.

Dim sh as WorkSheet
Dim shName as String
Dim shIndex as Long

' Cycle through all sheets until sheet with desired CodeName is found
For Each sh in ThisWorkbook.WorkSheets        
    ' Say the codename you're interested in is Sheet1
    If sh.CodeName = "Sheet1" Then            
        ' - If you didn't want to refer to this sheet later, 
        '   you could do all necessary operations here, and never use shName
        '   or the later With block.
        ' - If you do want to refer to this sheet later,
        '   you will need to store either the Name or Index (below shows both)

        ' Store sheet's Name
        shName = sh.Name            
        ' Store sheet's Index
        shIndex = sh.Index           
    End If
Next sh 

' Check if match was found, do stuff as before if it was!
If shName = "" Then
    MsgBox "Could not find matching codename"
Else 
    ' Equally to the next line, could use Worksheets(shIndex)
    With Worksheets(shName)
        '<stuff here>
    End With
End If

[1] https://msdn.microsoft.com/en-us/library/office/ff837552.aspx

OriginalL'auteur Wolfie

Il y a trois différentes propriétés qui pourrait être utilisé pour se référer à une feuille de calcul:

• .Name comme Worksheets("SomeNameHere") dans Worksheets("SomeNameHere").Range("A1")
• .Index comme Worksheets(2) dans Worksheets(2).Range("A1")
• .CodeName comme Sheet3 dans Sheet3.Range("A1")

Pour voir la différence, exécutez le code ci-dessous et prendre un coup d'oeil à la fenêtre Ctrl+G:

Sub TestMe()
    Dim wks As Worksheet
    For Each wks In ThisWorkbook.Worksheets
        Debug.Print wks.Name
        Debug.Print wks.Index
        Debug.Print wks.CodeName
        Debug.Print "-----------------------"
    Next wks
End Sub

Si le Name et la CodeName de la feuille de calcul ne sont pas modifiées, elles doivent être les mêmes.

• Nom de code:

• Nom:

OriginalL'auteur Vityata

Nom de code est en fait de la lecture-écriture au moment de l'exécution lors de l'accès à la propriété creux de la Feuille de calcul.Parent.VBProject.VBComponents:

' ActiveWorksheet both .Name and .CodeName are 'Sheet 1'    
For Each oVBComponent In ActiveWorksheet.Parent.VBProject.VBComponents
    If (oVBComponent.Name = ActiveWorksheet.CodeName) Then oVBComponent.Name = "New Name"
Next oVBComponent
Debug.Print ActiveWorkSheet.Name, ActiveWorksheet.CodeName ' "Sheet1", "New Name"

OriginalL'auteur Dutch Gemini