Format de date Excel

J'ai un gros fichier csv importé contenant de l'Amérique Dates dans une colonne. Je veux changer ces dates au royaume-UNI format (dd/mm/yyyy) à l'aide d'un code. Le problème est que les dates aux etats-unis sont à la fois "mm/dd/yyyy" et "m/dd/yyyy" format - ce qui ne répond pas à l'un des "cliquables" options excel - y compris les "Colonnes de Texte" de la procédure. Est-il un code qui, lorsqu'il est exécuté dans la colonne adjacente faire la conversion?

source d'informationauteur Mary

  1. 25

    Vous pouvez également utiliser le TEXT() fonction assez facilement (Note: source: les données doivent être un excel date de valeur)

    TEXT(value, format_text)

    où value est la cellule de référence et format_text est la façon dont vous souhaitez mettre en forme le texte dans votre cas, jj/mm/aaaa.

    En supposant que:

    A1 = 3/17/2013
A2 = 12/27/2013

    En B1 & B2 simplement d'entrée:

    B1 = TEXT(A1, "dd/mm/yyyy")
B2 = TEXT(A2, "dd/mm/yyyy")

    et le résultat devrait être

         A              B
3/17/2013      17/03/2013
12/27/2013     27/12/2013

    Espère que ça aide.

    MISE À JOUR DE LA SUGGESTION, SI VOUS TRAVAILLEZ AVEC DU TEXTE:

    Diviser la chaîne en utilisant mid()left() et right() fonctions de vérifier ensuite si le mois mm est de 1 ou 2 caractères à l'aide de la LEN() fonction. Enfin concatenatr la chaîne en utilisant le & et /opérateurs.

    Essayez de coller cette en B1, il devrait fonctionner correctement:

    =MID(A1,FIND("/",A1,1)+1,2)&"/"&IF(LEN(LEFT(A1,FIND("/",A1)-1))=1,0&LEFT(A1,FIND("/",A1)-1),LEFT(A1,FIND("/",A1)-1))&"/"&RIGHT(A1,4)

  2. 3

    Vous pouvez utiliser la fonction DATEVAL pour convertir la date des chaînes de valeurs de données dans Excel, et ensuite de créer un format de date personnalisé pour afficher les valeurs de date dans le royaume-uni format.

    En supposant que la première chaîne de date dans la cellule A1, l'appel de fonction suivant va transformer la chaîne de caractères en une valeur de date.

      =DATEVALUE(A1)

    Vous pouvez créer un format personnalisé dd/mm/yyyy;@ par un clic droit sur la cellule, le choix de Format de Cellules, le Nombre, la Coutume et en entrant le format dans le champ Type.

    De travail avec les valeurs de date au lieu de la date des chaînes vous permet de changer l'affichage de format sans avoir à faire des opérations de la chaîne pour réorganiser les éléments de la date. Il sera aussi possible de faire des opérations arithmétiques, si besoin est.

  3. 2

    Ici est un sous qui pourraient vous aider. En utilisant les tables de requête, vous ne pouvez spécifier qu'Excel interpréter certaines colonnes de données string.

    Sub ImportExternalCSVAsText()
'
Dim sFileName As String
sFileName = Application.GetOpenFilename("CSV files, *.csv")

    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & sFileName _
        , Destination:=Range("$A$1"))
        .Name = "CSV"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = False
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = 437
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = False
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 2, 2) '2 denotes STRING
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
End Sub

    Dans l'exemple, j'ai importé un fichier CSV 3 colonnes de large, et de préciser que les colonnes 2 et 3 contiennent la Chaîne de type de données.

    .TextFileColumnDataTypes = Array(1, 2, 2) '2 denotes STRING

    Si cette méthode ne fonctionne pas, faites le moi savoir. J'ai eu à faire face à ce problème avant (comme NOUS l'entrepreneur pour le royaume-UNI contrat de travail), et je suis sûr que j'ai un peu de fonctions autour de la pose que j'ai utilisé à l'époque.

    Cela apportera toutes les valeurs de la chaîne.

    Vous sera probablement nécessaire de les analyserparce que NOUS, la date d'intrants, comme la "12/30/2011" va échouer le DATEVALUE() fonction de paramètres Régionaux de votre système, et NOUS la date d'entrées comme "le 07/05/2012" (5 juillet 2012) serait interprété comme "le 7 Mai 2012" dans vos paramètres régionaux.

  4. 1

    Cette fonction devrait faire l'affaire:

    =CONCATENATE(MID(B2,SEARCH("/", B2,1)+1,2), "/",LEFT(B2,SEARCH("/", B2,1)-1), "/", RIGHT(B2,4))
  5. 1

    Bizarrement, pour ce faire, vous avez besoin de convertir une colonne de texte à une seule colonne de texte.

    Sélectionnez la colonne contenant vos dates: mm/jj/aaaa

    • Sous de Données, Sélectionnez le Texte en Colonnes
    • Sélectionnez Largeur Fixe
    • Prochaine
    • Définir la largeur de colonne diviseur après l'année (aaaa)
    • Dans la colonne format de données
    • Liste déroulante, sélectionnez mm/jj/aaaa (le format de la source)
    • Sélectionner La Destination
    • Finition

    La source de données pour les transformer au format de date de votre système.

    Sub USUKDateFormat()

    ' USUKDateFormat Macro

    Selection.TextToColumns Destination:=ActiveCell.Offset(0, 2).Range("A1"), _
        DataType:=xlFixedWidth, OtherChar:="/", FieldInfo:=Array(Array(0, 4), Array _
        (10, 1)) 
End Sub