VBA'da Çalışma Biçimi Çalışma Biçimi

Question

CDate (gg/aa/yyyy) kullanılarak biçimlendirilmiş bir hücreye bir giriş iletisi yanıtı görüntülemek istiyorum. Giriş dd/aa/yy olarak yapıldıysa neden kod hata mesajını göstermiyor? Program kabul eder ancak çıktı yy/mm/dd olarak gösterilir.

Sub inputSettlementDate() 

Dim varInputDate As Variant 
Dim lngERow As Long 


varInputDate = InputBox("Please enter the Settlement Date using this format dd/mm/yyyy.", "Settlement Date") 
If IsDate(varInputDate) Then 
    varInputDate = Format(CDate(varInputDate), "dd/mm/yyyy") 
    Else 
    MsgBox "Please enter a valid date format dd/mm/yyyy" 
End If 

If IsDate(varInputDate) Then 
    lngERow = Range("B" & Rows.Count).End(xlUp).Row + 1 
    Range("B" & lngERow).Value = varInputDate 
End If 
End Sub 

Answer 1

emin Sütun B yapmak isteyebilirsiniz Genel olarak bir biçime sahip, ya da bir yy/aa/gg biçimini yok: Aşağıdaki

oluşturduğum kodudur. Kodunuzu boş bir çalışma kitabında hiçbir şey değiştirmeden test ettim ve kusursuz çalıştı.