वीबीए कोड एक विशिष्ट कॉलम के लिए दिनांक प्रारूप निर्धारित करने के लिए "yyyy-mm-dd"

Question

मेरे पास एक मैक्रो है जिसे मैं टेक्स्टबॉक्स में दिनांक (मिमी/डीडी/yyyy में) निर्दिष्ट करता हूं और मैं कॉलम के लिए यह मान सेट करना चाहता हूं एक yyyy-mm-dd प्रारूप में। मैं निम्नलिखित कोड है:

Sheets("Sheet1").Range("A2", "A50000").Value = TextBox3.Value 
Sheet1.Range("A2", "A50000") = Format(Date, "yyyy-mm-dd") 

... और जब मैं मैक्रो चलाने के लिए, तारीख dd/mm/yyyy प्रारूप में अब भी है।

मैं इसे कैसे बदल सकता हूं ताकि यह प्रारूप में हो ?? मैं Google के माध्यम से शोध किए गए कई प्रकार के कोड की कोशिश कर रहा हूं और प्रारूप को जिस तरह से मैं चाहता हूं उसे सेट नहीं करेगा।

किसी भी मदद की सराहना की होगी ...

संपादित करें: नीचे ओपी की टिप्पणी से पूर्ण कोड:

Workbooks.Add 
Range("A1") = "Acctdate" 
Range("B1") = "Ledger" 
Range("C1") = "CY" 
Range("D1") = "BusinessUnit" 
Range("E1") = "OperatingUnit" 
Range("F1") = "LOB" 
Range("G1") = "Account" 
Range("H1") = "TreatyCode" 
Range("I1") = "Amount" 
Range("J1") = "TransactionCurrency" 
Range("K1") = "USDEquivalentAmount" 
Range("L1") = "KeyCol" 
Sheets("Sheet1").Range("A2", "A50000").Value = TextBox3.Value 
Sheet1.Range("A2", "A50000").NumberFormat = "yyyy-mm-dd" 

Answer 1

उपयोग रेंज के NumberFormat संपत्ति रेंज का स्वरूप इस तरह मजबूर करने के लिए:

Sheet1.Range("A2", "A50000").NumberFormat = "yyyy-mm-dd" 

Answer 2

आप उस कार्यपुस्तिका में स्वरूपण लागू कर रहे हैं जिसमें कोड है, न कि अतिरिक्त कार्यपुस्तिका। आप पूरी तरह क्वालीफाइंग शीट और रेंज संदर्भों की आदत में जाना चाहेंगे। नीचे दिए गए कोड है कि करता है और Excel 2010 में मेरे लिए काम करता है:

Sub test() 
Dim wb As Excel.Workbook 
Set wb = Workbooks.Add 
With wb.Sheets(1) 
    .Range("A1") = "Acctdate" 
    .Range("B1") = "Ledger" 
    .Range("C1") = "CY" 
    .Range("D1") = "BusinessUnit" 
    .Range("E1") = "OperatingUnit" 
    .Range("F1") = "LOB" 
    .Range("G1") = "Account" 
    .Range("H1") = "TreatyCode" 
    .Range("I1") = "Amount" 
    .Range("J1") = "TransactionCurrency" 
    .Range("K1") = "USDEquivalentAmount" 
    .Range("L1") = "KeyCol" 
    .Range("A2", "A50000").Value = Me.TextBox3.Value 
    .Range("A2", "A50000").NumberFormat = "yyyy-mm-dd" 
End With 
End Sub 

Answer 3

यह काम करता है, जब आप दोनों पंक्तियों का उपयोग:

Application.ActiveWorkbook.Worksheets("data").Range("C1", "C20000") = Format(Date, "yyyy-mm-dd") 
Application.ActiveWorkbook.Worksheets("data").Range("C1", "C20000").NumberFormat = "yyyy-mm-dd"