Comment puis-je convertir une plage à une chaîne de caractères (VBA)?

Quel est le meilleur moyen de convertir une plage de cellules d'une chaîne de caractères?
J'ai une fonction qui prend une chaîne de caractères en entrée j'ai donc besoin de convertir de la portée à une chaîne, tout en conservant autant de la mise en forme que possible (c'est à dire qu'il doit ressembler à un tableau ou d'une liste, pas simplement une chaîne de caractères).
J'ai essayé de travailler avec CStr(), ainsi que la conversion à partir d'une plage d'un tableau en une chaîne, mais je viens d'obtenir erreurs.

Edit: Code tentative

Dim email_answer As Integer
email_answer = MsgBox("Do you want to be emailled a copy of this schedule?", vbYesNo)
If email_answer = vbYes Then

    Dim wb As Workbook
    Dim to_send As Range
    to_send = Range("D3", "D10")

    If Val(Application.Version) < 14 Then Exit Sub

    Set wb = ActiveWorkbook
    With wb
        MailFromMacWithMail body content:=CStr(to_send), _
                    mailsubject:="Schedule", _
                    toaddress:="email address", _
                    ccaddress:="", _
                    bccaddress:="", _
                    attachment:=.FullName, _
                    displaymail:=False
    End With
    Set wb = Nothing
End If
partagez vos code attmept
Comment voulez-vous attendre d'une chaîne à l'aspect d'un tableau?
Désolé @ShaiRado Code tentative d'ajouter (ce fut la dernière tentative, ont également essayé de gamme->tableau->méthode de chaîne).

OriginalL'auteur 1937827 | 2017-01-21

  1. 6

    De faire une liste séparée par des virgules des valeurs de cellule dans une plage:

    Function RangeToString(ByVal myRange as Range) as String
    RangeToString = ""
    If Not myRange Is Nothing Then
        Dim myCell as Range
        For Each myCell in myRange
            RangeToString = RangeToString & "," & myCell.Value
        Next myCell
        'Remove extra comma
        RangeToString = Right(RangeToString, Len(RangeToString) - 1)
    End If
End Function

    Vous pouvez ajouter des fonctionnalités supplémentaires, comme l'insertion d'un point-virgule au lieu d'une virgule si le numéro de ligne augmente.

    Pour utiliser cette fonction:

    Sub AnySubNameHere()
    Dim rng As Range
    Set rng = ActiveSheet.Range("A3:A10")

    Dim myString as String
    myString = RangeToString(rng)
End Sub
    Désolé pour le novice question. J'ai ajouté ton code et ensuite appelé à l'aide Dim to_send As Range to_send = Range("D3", "D10") Call RangeToString(to_send) ce changement to_send à une chaîne de caractères? Mon code retourna encore un argument byref erreur d'incompatibilité lorsque je l'ai fait
    J'ai édité ma réponse pour vous montrer comment utiliser cette fonction. La fonction retourne une chaîne de caractères de l'objet, de sorte que vous pouvez l'assigner à une variable 🙂
    vous êtes incroyable, merci beaucoup! Est-il un moyen de le faire tourner vers le bas de chaque colonne avant de passer à la ligne suivante? Au moment où il apparaît à la lecture de A1,B1,C1,A2,B2,C2, etc. au lieu de A1,A2,A3,B1,B2,B3, etc.
    Vous pourriez boucle sur les colonnes For Each rowRange in myRange.Rows ensuite en boucle par le biais de cellules dans chaque rowRange au lieu de dans l'ensemble de myRange. Remarque vous devez Dim l'objet de la Plage myRow première
    Merci, mais maintenant, il m'a donné une erreur d'exécution 13 incompatibilité de type. Ai-je mettre en œuvre votre solution correctement? Dim myCell As Range Dim RowRange As Range For Each RowRange In myRange.Rows For Each myCell In RowRange RangeToString = RangeToString & Chr(13) & myCell.Value Next myCell Next RowRange

    OriginalL'auteur Wolfie

  2. 5

    vous pouvez utiliser cette fonction:

    Function Rang2String(rng As Range) As String
    Dim strng As String
    Dim myRow As Range
    With rng
        For Each myRow In .Rows
            strng = strng & Join(Application.Transpose(Application.Transpose(myRow.value)), "|") & vbLf
        Next
    End With
    Rang2String = Left(strng, Len(strng) - 1)
End Function

    qui doit retourner une chaîne de caractère de saut de ligne comme un choix de lignes et de séparateurs de tuyaux ("|") comme séparateur de colonnes

    Bonne utilisation de Transposer deux fois pour convertir 2d tableau 1d array (quelque chose que j'ai seulement appris DONC!)!
    il est nécessaire pour les "lignes" des plages, tandis que pour les "colonnes" ceux que vous avez seulement besoin d'une transposition

    OriginalL'auteur user3598756

  3. 1

    Je sais que cette question est déjà presque un an, mais j'ai trouvé une solution rapide qui fonctionne pour moi:
    Vous n'avez qu'à créer une référence à Microsoft Forms 2.0 Object Library pour utiliser le DataObject.

    Public Function GetStringFromRange(RNG As Range) As String
    Dim DOB As New MSForms.DataObject
    RNG.Copy
    DOB.GetFromClipboard
    GetStringFromRange = DOB.GetText
End Function

    OriginalL'auteur Harm van Eerten

  4. 0

    Une de ces fonctions va le faire pour vous.

    Function ConCatRange2(CellBlock As Range) As String
'for non-contiguous cells =ccr((a1:a10,c4,c6,e1:e5))
Dim Cell As Range
Dim sbuf As String
For Each Cell In CellBlock
If Len(Cell.Text) > 0 Then sbuf = sbuf & Cell.Text & ","
Next
ConCatRange2 = Left(sbuf, Len(sbuf) - 1)
End Function

    OU

    Function mergem(r As Range) As String
mergem = r.Cells(1, 1).Value
k = 1
For Each rr In r
    If k <> 1 Then
        mergem = mergem & "," & rr.Value
    End If
    k = 2
Next
End Function

    OU

    Function spliceUm(r As Range) As String
spliceUm = ""
For Each rr In r
spliceUm = spliceUm & rr.Value & ";"
Next
End Function

    OriginalL'auteur ryguy72

  5. 0

    Vous pouvez utiliser la solution suivante pour convertir une plage à une chaîne en VBA:

    Sub convert()

Dim rng As Range, cell As Range

Dim filter As String

filter = ""

Set rng = Selection

For Each cell In rng

    If Not cell Is Nothing Then
        filter = """" & cell & """" & "," & filter
    End If

Next cell

End Sub
    veuillez expliquer sur les réponses aux questions que vous faites et pourquoi c'est une bonne approche

    OriginalL'auteur Lerisson Felipe Pereira

  6. -1

    Il y a un moyen beaucoup plus facile.
    En supposant que la variable rng est une plage, puis de l'écriture:

    rng = Gauche(rng,Len(rng))

    va miraculeusement tour rng dans une chaîne.

    Non c'est pas... qu'est-ce que l'entrée rng ici? Que pensez-vous de la sortie rng est? La question est à propos de convertir le contenu d'une plage (sur plusieurs cellules) à une variable de chaîne, pas de mise en forme le contenu d'une seule cellule comme une chaîne de caractères...

    OriginalL'auteur user9813775