ActiveSheet.UsedRange.Columns.Count - 8 qu'est-ce que cela signifie?

ce n'ActiveSheet.UsedRange.Les colonnes.Comte - 8 de moyenne en vba?

Comment vba savoir la usedRange?

source d'informationauteur user1009698

  1. 19

    Voici la définition exacte de UsedRange (Référence MSDN) :

    Chaque objet de Feuille de calcul a un UsedRange propriété qui renvoie un objet Range qui représente la surface d'une feuille de calcul qui est utilisé. La UsedRange propriété représente la zone décrite par le plus éloigné de l'angle supérieur gauche et le plus éloigné inférieur droit de cellules non vides dans une feuille de calcul et comprend toutes les cellules entre elles.

    Donc, fondamentalement, que cette ligne n'est :

    1. .UsedRange -> "Dessine" une boîte autour de l'extérieur de la plupart des cellules avec le contenu à l'intérieur.
    2. .Columns -> Sélectionne l'ensemble des colonnes de ces cellules
    3. .Count -> Retourne un entier correspondant au nombre de colonnes il y a (dans cette sélection)
    4. - 8 -> Soustrait 8 de la précédente entier.

    Je suppose VBA calcule la UsedRange par la constatation de la non-cellules vides de la plus basse et la plus élevée des valeurs de l'indice.

    Le plus probable, vous obtenez une erreur parce que le nombre de lignes dans votre gamme est plus petit que 3, et, par conséquent, le nombre renvoyé est négatif.

  2. 5

    BernardSaucier a déjà donné une réponse. Mon post n'est pas une réponse mais une explication des raisons pour lesquelles vous ne devriez pas être à l'aide de UsedRange.

    UsedRange est très peu fiable, comme indiqué ICI

    Pour trouver la dernière colonne qui contient des données, l'utilisation .Find et puis soustraire.

    With Sheets("Sheet1")
    If Application.WorksheetFunction.CountA(.Cells) <> 0 Then
        lastCol = .Cells.Find(What:="*", _
                      After:=.Range("A1"), _
                      Lookat:=xlPart, _
                      LookIn:=xlFormulas, _
                      SearchOrder:=xlByColumns, _
                      SearchDirection:=xlPrevious, _
                      MatchCase:=False).Column
    Else
        lastCol = 1
    End If
End With

If lastCol > 8 Then
    'Debug.Print ActiveSheet.UsedRange.Columns.Count - 8

    'The above becomes

    Debug.Print lastCol - 8
End If
  3. 1

    Semble que vous voulez déplacer. Essayez ceci:

    ActiveSheet.UsedRange.select

    résultats....

    ActiveSheet.UsedRange.Columns.Count - 8 qu'est-ce que cela signifie?

    Si vous voulez déplacer cette sélection de 3 lignes jusqu'alors essayez cette

    ActiveSheet.UsedRange.offset(-3).select

    est-ce que...

    ActiveSheet.UsedRange.Columns.Count - 8 qu'est-ce que cela signifie?

  4. 0

    Je pense que si vous essayez:

    Sub Macro3()
a = ActiveSheet.UsedRange.Columns.Count - 3
End Sub

    avec une montre sur a vous verrez il y a une différence.

  5. 0

    UsedRange représente non seulement les cellules non vides, mais aussi les cellules mises en forme sans aucune valeur. Et c'est pourquoi vous devez être très vigilant.