L'ajout de contenu d'une cellule dans une variable de chaîne en VBA. En outre, l'ajout des cellules ci-dessous à l'aide de décalage

J'ai une fonction simple qui va tirer à partir d'une Cellule spécifique (N4). Si il y a des cellules ci-dessous, alors cela va de la boucle et de recueillir tous les le contenu de la cellule et de les séparer par des virgules.

Je suis #VALUE! erreur dans excel, et je sorte de savoir où ma question se trouve, mais n'arrive pas à comprendre comment résoudre le problème, puisque je ne suis pas du tout compétent avec excel-vba code. Je pense que le problème est avec ActiveSheet.Range("N4").Value et le décalage de la partie.

Je ne suis pas sûr de savoir comment compenser puis sélectionnez la valeur dans le texte puis l'ajouter à ma chaîne de Valeur.
Aucune idée sur comment je peux sélectionner le contenu de la cellule et les ajouter à la variable de chaîne et faire même lorsque vous décaler?

Voici mon code:

Function pullshit() As String

Dim output As String
Dim counter As Integer

counter = 1

output = ActiveSheet.Range("N4").Value

If Application.offset(N4, counter, 0).Value = "" Then

    pullshit = output

Else
    While counter <> 0
        output = output + ", " + Application.offset(N4, counter, 0).Value
        counter = counter + 1

        If Application.offset(N4, counter, 0) = "" Then
            counter = 0
        End If
    Wend

    pullshit = output

End If

End Function
  • Votre Offset les appels ne sont pas valides.
  • Comment devrais-je appeler mon Offset? @chrisneilsen
InformationsquelleAutor Han Likim | 2014-09-01