Convertir gamme de chaîne en VBA

J'ai besoin d'aide de la conversion d'une gamme à une utilisable de la chaîne. Je ne suis pas 100% sûr de ce dont j'ai besoin, parce que j'ai peu de VBA ou VB.NET de l'expérience, mais en fin de compte, je veux prendre un tas de cellules comme les cellules B32 à J52 et effectuer la fonction droitereg sur C-J (comme les valeurs de y) et B (comme valeur de x).

Je pense que si je peux apprendre à le faire sortir d'une chaîne qui dit "Bxx:Jyy" Puis je serais en mesure de dire qu'il ne linest(Cxx:Cyy, Bxx:Byy, true, false).

Est-il un moyen plus facile de faire cela? De toute façon, tout ce que j'ai droit maintenant, c'est un peu de code pour obtenir la gamme de l'utilisateur (juste obtenu à partir de Google). Si quelqu'un pouvait juste m'aider à obtenir la chaîne comme indiqué ci-dessus, je pense que je peux gérer le reste. 

Dim oRangeSelected As Range
Set oRangeSelected = Application.InputBox("Please select a range of cells!", _
                     "SelectARAnge Demo", Selection.Address, , , , , 8)
  • Est la Gamme de type de données comme un Tableau avec des indices? Si oui, vous pouvez faire une boucle par la Fourchette et ajouter les valeurs sélectionnées à une chaîne.
  • Parlez-vous des Excel?
  • oui, c'est pour excel
InformationsquelleAutor bavman | 2011-09-27
  1. 4

    Dans ce cas, vous souhaitez que l'utilisateur a sélectionné la plage (pas de pré-sélection existante), de sorte

    MsgBox oRangeSelected.Address

    [Mise à jour]
    En fait, la lecture de votre question de plus près, vous pouvez utiliser les plages comme avec la fonction DROITEREG, c'est à dire ce sous obtient un utilisateur de gamme pour les X et les Y et alimente la fonction DROITEREG. Les résultats sont stockés dans un tableau, MyArr, qui peut être renvoyé à l'utilisateur.     

    Sub Sample()
    Dim oRangeSelected1 As Range
    Dim oRangeSelected2 As Range
    Dim myArr()
    Set oRangeSelected1 = Application.InputBox("Please select a X range of cells!", "Select X Demo", Selection.Address, Type:=8)
    Set oRangeSelected2 = Application.InputBox("Please select a  Y range of cells!", "Select Y Demo", , Type:=8)
    If oRangeSelected1.Columns.Count + oRangeSelected2.Columns.Count > 2 Then
        MsgBox "Please select a single column range only"
        Exit Sub
    End If
    If oRangeSelected1.Cells.Count <> oRangeSelected2.Cells.Count Then
        MsgBox "Ranges are of different length"
        Exit Sub
    End If
    myArr = Application.WorksheetFunction.LinEst(oRangeSelected1, oRangeSelected2)
    MsgBox "slope is " & Format(myArr(1), "0.00") & " & intercept is " & Format(myArr(2), "0.00")
End Sub
    • Ah, je vous remercie. Cela a fonctionné en ayant une chaîne = oRangeSelected.Adresse.
    InformationsquelleAutor brettdj
  2. 3

    Si vous utilisez Selected.Address qui permettra d'afficher votre gamme comme une chaîne de caractères.

    • Essayé de le faire, mais à la place j'ai reçu $J$52....donc juste pris la cellule qui a été sélectionné en dernier, pas l'ensemble de la gamme.
    InformationsquelleAutor PaulStock