Excel valeur de la cellule en tant que chaîne de ne pas les stocker en tant que chaîne

Je ne peux pas obtenir ce code ici pour saisir le contenu d'une cellule et de les stocker en tant que chaîne de caractères. Je reçois un double:
54.6666666667 au lieu de N03:DM: (par exemple le contenu de la cellule).

Si j'utilise Cstr(Sheet1.Cells(i, 5).Value) j'obtiens toujours le même résultat.

Toute aide serait appréciée.

Option Explicit
Private Sub GetAddress()

Dim varAdd As String
Dim i As Integer

    For i = 2 To 327
        If varTag = Sheet1.Cells(i, 2).Value Then
           varAdd = Sheet1.Cells(i, 5).Value
           varAdd = Left(varAdd, 7)
           Sheet3.Cells(incR, 2).Value = varAdd
           Exit For
        End If   
    Next i

End Sub

Feuille de capture d'écran Excel valeur de la cellule en tant que chaîne de ne pas les stocker en tant que chaîne

Pouvez-vous fournir capture d'écran de la feuille sheet1.
posté capture d'écran, merci.
Avez-vous plusieurs de l'ouverture du classeur ? msgbox Sheet1.Parent.name vous permettra de connaître le nom du classeur? J'espère données dans la feuille sheet1.
affiche uniquement le nom du classeur. Oui, les données sont dans la feuille sheet1. Ressemble mehow fourni une solution qui fonctionne. Merci pour votre temps.
Pouvez-vous envoyer votre classeur et me donner le lien. Voulez comprendre pourquoi le travail du texte et de la valeur n'est pas. Tks.

OriginalL'auteur BgreenDSI | 2013-05-29

  1. 31

    Utilisation Range("A1").Text au lieu de .Value

    poster un commentaire edit:

    Pourquoi?

    Parce que le .Text propriété de l'objet Range renvoie ce qui est littéralement visible dans la feuille de calcul, donc si vous avez de la cellule affiche par exemple i100l:25he*_92 puis <- Text sera de retour exactement ce qu'il dans la cellule, y compris toute mise en forme.

    Le .Value et .Value2 propriétés retour de ce qui est stocké dans la cellule sous le capot à l'exclusion de la mise en forme. Spécialement .Value2 pour les types date, elle sera de retour la représentation décimale.

    Si vous souhaitez approfondir le sens et la performance, je viens de trouver cet article ce qui semble être un bon guide

    un autre modifier

    Ici, vous allez @Santosh

    type (MANUELLEMENT) les valeurs de la par DÉFAUT (col A), et d'autres colonnes

    Ne pas le format de la colonne A à tous

    Le Format de la colonne B en tant que Texte

    Le Format de la colonne C que de la Date[jj/mm/aaaa]

    Le Format de la colonne D en Pourcentage

    Excel valeur de la cellule en tant que chaîne de ne pas les stocker en tant que chaîne

    maintenant,

    collez ce code dans un module

    Sub main()

    Dim ws As Worksheet, i&, j&
    Set ws = Sheets(1)
    For i = 3 To 7
        For j = 1 To 4
            Debug.Print _
                    "row " & i & vbTab & vbTab & _
                    Cells(i, j).Text & vbTab & _
                    Cells(i, j).Value & vbTab & _
                    Cells(i, j).Value2
        Next j
    Next i
End Sub

    et Analyse la sortie! Son vraiment facile et il n'y a pas beaucoup plus que je peux faire pour aider 🙂

                .TEXT              .VALUE             .VALUE2
row 3       hello             hello               hello
row 3       hello             hello               hello
row 3       hello             hello               hello
row 3       hello             hello               hello
row 4       1                 1                   1
row 4       1                 1                   1
row 4       01/01/1900        31/12/1899          1
row 4       1.00%             0.01                0.01
row 5       helo1$$           helo1$$             helo1$$
row 5       helo1$$           helo1$$             helo1$$
row 5       helo1$$           helo1$$             helo1$$
row 5       helo1$$           helo1$$             helo1$$
row 6       63                63                  63
row 6       =7*9              =7*9                =7*9
row 6       03/03/1900        03/03/1900          63
row 6       6300.00%          63                  63
row 7       29/05/2013        29/05/2013          41423
row 7       29/05/2013        29/05/2013          29/05/2013
row 7       29/05/2013        29/05/2013          41423
row 7       29/05/2013%       29/05/2013%         29/05/2013%

    OriginalL'auteur