Question : Valeur de date de format dans la colonne

Salut les experts, le

I voudraient inviter l'aide d'experts pour ajouter un dispositif additionnel dans le manuscrit joint. Comment s'assurer la valeur de données de pâte chez Column_B est toujours avec le format de date (densité double-mmm) ?. Les experts en matière d'espoir peuvent m'aider. A attaché la partie du code pour la lecture d'experts.
class= > " clair " de
> de " codeSnippet " de class= de
class= " lineNumbers " de
class= de 
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
>Set " de l'id= " codeSnippet779010 de
class= de

Réponse : Valeur de date de format dans la colonne

Pourquoi avez-vous toute la substance de déclenchement ?

J'ai un sentiment qu'elle pourrait mucking vers le haut votre PasteSpecial, peut-être causant là pour n'être rien à coller réellement.

Vous pourriez également vouloir considérer l'ordre que vous faites des choses.
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
46 :
47 :
48 :
49 :
50 :
51 :
52 :
53 :
54 :
55 :
56 :
57 :
58 :
59 :
60 :
61 :

Option explicite

Copy_Paste3 secondaires ()
Faible wb comme cahier de travail
Faible objFileDLG comme Office.FileDialog
Faible strFilePath, lcTargetCell
Faibles intSrcRows comme nombre entier
Faibles intTgtRows comme nombre entier

    ChDir « D:\Data\ »
    Placer l'objFileDLG = l'Application.FileDialog (le msoFileDialogFilePicker)
    Obscurcir le copyRange comme gamme

    intTgtRows = 2

    Faire tandis que vrai
        strFilePath = ""
        Avec l'objFileDLG
            . Filters.Add « Excel classe », « *.xls », 1
            .FilterIndex = 1
            .AllowMultiSelect = faux
            . Le titre = « choisissent le cahier de travail pour copier de »
            Si. Montrer () <> 0 alors
                strFilePath = .SelectedItems (1)
            Finir si
        Finir avec

        Si l'équilibre (strFilePath) = "" sortent alors faire

        Placer wb = Workbooks.Open (le strFilePath)

        intSrcRows = wb. Feuilles de travail (1).Cells (Cells.Rows.Count, « A »). Extrémité (xlUp). Rangée

        Placer le copyRange = le wb. Feuilles de travail (1).Range (« B6 : B » et intSrcRows)

        Placer le copyRange = l'union (copyRange, copyRange.Offset (, 4), copyRange.Offset (, 6).Resize (, 6))

        copyRange.Copy

        Placent le lcTargetCell = le ThisWorkbook.Worksheets (2).Range (« A » et Rows.Count). Extrémité (xlUp). Excentrage (1)

        pâte de lcTargetCell.PasteSpecial : =xlPasteValuesAndNumberFormats, opération : = _
                                  xlNone, SkipBlanks : Le =False, transposent : =False

        ThisWorkbook.Worksheets (2).Range (« B : B ») .NumberFormat = « densité double-mmm »

        Application.CutCopyMode = faux
        
        wb. Fin
        
        Placer wb = rien

        intTgtRows = intTgtRows + intSrcRows - 1
        
    Boucle
    'nouvelles lignes

    Sur le résumé d'erreur après

    ThisWorkbook.Worksheets (1).Columns (1).SpecialCells (xlBlanks) .EntireRow.Delete
Sous-marin d'extrémité
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us