Hoe kunnen we de datum opmaken via VBA?

In dit artikel zullen we leren hoe u de datum kunt formatteren via VBA.

Laten we een voorbeeld nemen om te begrijpen hoe en waar we de cel kunnen opmaken in een kort datumnummer.

We hebben gegevens over de producthoeveelheid in bereik A1:C9, waarbij kolom A de productnaam bevat en kolom B de hoeveelheid ervan en kolom C de datum. Nu willen we converteren naar een korte datumnotatie.

Volg de onderstaande stappen om de macro te schrijven: -

Open VBA-pagina druk op de toets Alt+F11.
Plaats een module.
Schrijf de onderstaande code:

Subformaat Shortdate()

Dim Sh As werkblad

Stel Sh = ThisWorkbook.Sheets(1) in

Sh.Range("C2:C9").NumberFormat = "m/d/jjjj"

Einde sub

Code Verklaring:-

Eerst hebben we het onderwerp voor de code gegeven, daarna hadden we alle variabelen gedefinieerd, daarna hadden we het bereik gedefinieerd waar we het korte datumformaat wilden plaatsen.

Om de macro uit te voeren, drukt u op de toets F5 en het bereikformaat wordt gewijzigd in het korte datumformaat.

Laten we een voorbeeld nemen van www.excelforum.com

Macro/VBA om datumnotatie te wijzigen van 01.01.2011 naar 01/01/2011

Oorspronkelijke vraag:-

Ik heb een Excel-webquery die een tabel naar Excel trekt. Kolom A is in feite een lijst met namen en kolom B is de relevante datum. De data staan op de website als 01.01.2011 formaat en worden vervolgens op deze manier in Excel geïmporteerd. Als gevolg hiervan kan ik kolom B niet sorteren op datumwaarde omdat Excel het formaat niet herkent. Ik heb geprobeerd de eigenschappen van de datum te wijzigen, met behulp van zoeken en vervangen om het te wijzigen in de indeling 01/01/2011 en vervolgens de eigenschappen te wijzigen zonder resultaat.

In het ideale geval zou ik graag een soort Macro/VBA-code willen om 01.01.2011 in 01/01/2011-formaat te veranderen, zodat ik de kolom kan sorteren.

Klik op de link voor meer informatie over de oplossing: