वीबीए में समय को कैसे प्रारूपित करें (उदाहरण के साथ)

आप Excel में समय को एक विशिष्ट तरीके से फ़ॉर्मेट करने के लिए निम्नलिखित तर्कों के साथ VBA में फ़ॉर्मेट फ़ंक्शन का उपयोग कर सकते हैं:

• h : शून्य के बिना घंटे
• hh : शून्य के साथ घंटे
• n : शून्य के बिना मिनट
• एनएन : शून्य के साथ मिनट
• s : शून्य के बिना सेकंड
• एसएस : शून्य के साथ सेकंड
• एएम/पीएम : एएम/पीएम डिस्प्ले

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में VBA का उपयोग करके समय को कैसे प्रारूपित किया जाए।

उदाहरण: वीबीए का उपयोग करके समय को प्रारूपित करें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित दिनांक/समय कॉलम है:

हम कॉलम ए में समय को विशेष रूप से प्रारूपित करने के लिए निम्नलिखित मैक्रो बना सकते हैं और कॉलम बी से ई तक स्वरूपित समय प्रदर्शित कर सकते हैं:

 SubFormatTime ()

Dim i As Integer

For i = 2 To 8
  Range(" B " & i) = Format(Range(" A " & i), " h ")
  Range(" C " & i) = Format(Range(" A " & i), " h:nn ")
  Range(" D " & i) = Format(Range(" A " & i), " h:nn:ss ")
  Range(" E " & i) = Format(Range(" A " & i), " h:nn:ss AM/PM ")
Next i

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

कॉलम बी से ई तक अब हर बार कॉलम ए में एक विशिष्ट तरीके से स्वरूपित प्रदर्शित होता है।

ध्यान दें कि आप कम समय , मध्यम समय और लंबे समय शॉर्टकट प्रारूपों का भी उपयोग कर सकते हैं:

 SubFormatTime ()

Dim i As Integer

For i = 2 To 8
  Range(" B " & i) = Format(Range(" A " & i), " Short Time ")
  Range(" C " & i) = Format(Range(" A " & i), " Medium Time ")
  Range(" D " & i) = Format(Range(" A " & i), " Long Time ")
Next i

End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

कॉलम बी से डी अब हर बार कॉलम ए में एक विशिष्ट तरीके से स्वरूपित प्रदर्शित होते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: दिनांक प्रारूप के रूप में mm/dd/yyyy का उपयोग कैसे करें
वीबीए: कोशिकाओं को प्रतिशत के रूप में कैसे प्रारूपित करें
वीबीए: कोशिकाओं पर सशर्त स्वरूपण कैसे लागू करें