VBA'da bir tarihin dönüştürülmesi

Question

"Mart 2016" gibi metin olarak değerleri içeren bir veri kümem var.

Şimdi benim rapor sayfasında bu çoğaltmak için aşağıdaki kod yazdım:

DataFin.Range("E9:E9") = DateSerial(Year(Date), Month(Date), 0) 
DataFin.Range("E9:E9").Text = Format(DateSerial(Year(Date), Month(Date), 0), "mmmm yyyy") 

Bu doğru biçimi vardır, ama ben hücreyi değer devletleri "2016/03/01" yerine tıkladığınızda "Mart 2016". Ben temel değeri "Mart 2016" için

Teşekkür nasıl değiştirebileceğinizi

Herhangi fikirleri

Pete

Metnin olarak hücreyi biçimlendirmek ve sonra metin değerine değerini ayarlamanız gerekir

Answer 1

İstediğiniz tarihin. Örneğin

.

Sub demo() 
    Dim DT As Date 
DT = Date 

With Range("a1") 
    .NumberFormat = "@" 
    .Value = Format(DT, "mmmm yyyy") 
End With 
End Sub