Vraag : De Waarde van de Datum van het formaat in kolom

Hallo zouden de Deskundigen,

I willen vragen de Deskundigen helpen om een extra eigenschap in het manuscript in bijlage toe te voegen. Hoe te om de deeggegevens ervoor te zorgen is de waarde in Column_B altijd met datumformaat (dd-mmm)?. De Deskundigen van de hoop kunnen me helpen. Maakte het gedeelte van de code voor de lezing van Deskundigen vast.
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:

Set wb = Workbooks.Open (strFilePath)
        wb. Activeer
        intSrcRows = wb. Aantekenvellen (1). Cellen (Cells.Rows.Count, „A“). Eind (xlUp). Rij
        Reeks copyRange = wb. Aantekenvellen (1). Waaier („B6: B“ & intSrcRows)
        Reeks copyRange = Unie (copyRange, copyRange.Offset (, 4), copyRange.Offset (, 6). Resize (, 6))
        copyRange.Copy
        
        Plaats lcTargetCell = ThisWorkbook.Worksheets (2). Waaier („A“ & Rows.Count). Eind (xlUp). Compensatie (1)

Antwoord : De Waarde van de Datum van het formaat in kolom

Waarom hebt u al Activate materiaal?

Ik heb een gevoel dat het uw PasteSpecial omhoog zou kunnen mucking, misschien daar veroorzakend om te zijn niets eigenlijk te kleven.

U zou ook de orde kunnen willen overwegen u dingen doet.
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:

Expliciete optie

Sub Copy_Paste3 ()
Schemerige wb als Werkboek
Schemerige objFileDLG als Office.FileDialog
Schemerige strFilePath, lcTargetCell
Schemerige intSrcRows als Geheel
Schemerige intTgtRows als Geheel

    ChDir „D:\Data\“
    Reeks objFileDLG = Application.FileDialog (msoFileDialogFilePicker)
    Schemerige copyRange als Waaier

    intTgtRows = 2

    Doe terwijl Waar
        strFilePath = ""
        Met objFileDLG
            . Filters.Add de „Dossiers van Excel“, „*.xls“, 1
            .FilterIndex = 1
            .AllowMultiSelect = Vals
            . De titel = „selecteert het Werkboek te kopiëren van“
            Als. Toon dan ( <> ) 0
                strFilePath = .SelectedItems (1)
            Eind als
        Eind met

        Als de Versiering (strFilePath) = dan Uitgang "" 

        Vastgesteld wb = Workbooks.Open (strFilePath)

        intSrcRows = wb. Aantekenvellen (1). Cellen (Cells.Rows.Count, „A“). Eind (xlUp). Rij

        Reeks copyRange = wb. Aantekenvellen (1). Waaier („B6: B“ & intSrcRows)

        Reeks copyRange = Unie (copyRange, copyRange.Offset (, 4), copyRange.Offset (, 6). Resize (, 6))

        copyRange.Copy

        Plaats lcTargetCell = ThisWorkbook.Worksheets (2). Waaier („A“ & Rows.Count). Eind (xlUp). Compensatie (1)

        lcTargetCell.PasteSpecial deeg: =xlPasteValuesAndNumberFormats, Verrichting: = _
                                  xlNone, SkipBlanks: =False, herschik: =False

        ThisWorkbook.Worksheets (2). Waaier („B: B“) .NumberFormat = „dd-mmm“

        Application.CutCopyMode = Vals
        
        wb. Sluit
        
        Plaats wb = niets

        intTgtRows = intTgtRows + intSrcRows - 1
        
    Lijn
    'nieuwe lijnen

    Op Fout hervat daarna

    ThisWorkbook.Worksheets (1). Kolommen (1) .SpecialCells (xlBlanks) .EntireRow.Delete
Sub van het eind
Andere oplossingen  
 
programming4us programming4us