एक्सेल में तारीख को तुरंत शब्दों में कैसे बदलें?
सामान्य तौर पर, हम आमतौर पर एक्सेल में तारीख को अन्य तारीख प्रारूपों या अंकों में परिवर्तित करते हैं, लेकिन क्या आपको कभी तारीख को अंग्रेजी शब्दों में बदलने में कोई समस्या आई है जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है? दरअसल, कोई अंतर्निहित फ़ंक्शन नहीं है जो इसे संभाल सके लेकिन एक वीबीए कोड है।
परिभाषित फ़ंक्शन के साथ दिनांक को शब्द में बदलें
परिभाषित फ़ंक्शन के साथ दिनांक को शब्द में बदलें
यहां एक मैक्रो कोड है जो तारीखों को शब्दों में बदलने में आपकी मदद कर सकता है।
1. आपके द्वारा उपयोग की जाने वाली शीट को सक्षम करें और दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल और नीचे दिए गए कोड को स्क्रिप्ट में पेस्ट करें।
वीबीए: तारीख को शब्द में बदलें
Function DateToWords(ByVal xRgVal As Date) As String
' Update by Extendoffice on 20240926
Dim xYear As String
Dim Hundreds As String
Dim Decades As String
Dim xTensArr As Variant
Dim xOrdArr As Variant
Dim xCardArr As Variant
' Initialize arrays
xOrdArr = Array("First", "Second", "Third", "Fourth", "Fifth", "Sixth", _
"Seventh", "Eighth", "Ninth", "Tenth", "Eleventh", "Twelfth", _
"Thirteenth", "Fourteenth", "Fifteenth", "Sixteenth", _
"Seventeenth", "Eighteenth", "Nineteenth", "Twentieth", _
"Twenty-first", "Twenty-second", "Twenty-third", "Twenty-fourth", _
"Twenty-fifth", "Twenty-sixth", "Twenty-seventh", "Twenty-eighth", _
"Twenty-ninth", "Thirtieth", "Thirty-first")
xCardArr = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", _
"Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", _
"Seventeen", "Eighteen", "Nineteen")
xTensArr = Array("Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
' Extract year
xYear = CStr(Year(xRgVal))
Decades = Mid$(xYear, 3)
' Handle decades
If CInt(Decades) < 20 Then
Decades = xCardArr(CInt(Decades))
Else
Decades = xTensArr(CInt(Left$(Decades, 1)) - 2) & "-" & xCardArr(CInt(Right$(Decades, 1)))
End If
' Handle hundreds
Hundreds = Mid$(xYear, 2, 1)
If CInt(Hundreds) Then
Hundreds = xCardArr(CInt(Hundreds)) & " Hundred "
Else
Hundreds = ""
End If
' Construct English representation of the date
DateToWords = xOrdArr(Day(xRgVal) - 1) & " " & Format$(xRgVal, "mmmm") & " " & _
xCardArr(CInt(Left$(xYear, 1))) & " Thousand " & Hundreds & Decades
End Function
3. कोड सहेजें और शीट पर वापस जाएं, एक सेल चुनें जिसमें आप परिणाम आउटपुट करेंगे, इस सूत्र को टाइप करें =DateToWords(A2) (ए2 वह तारीख है जिसका आप उपयोग करते हैं), दबाएँ दर्ज कुंजी और स्वतः भरण हैंडल को उन कक्षों पर खींचें जिनकी आपको आवश्यकता है। स्क्रीनशॉट देखें:
कुटूल्स फॉर एक्सेल के नंबर्स टू वर्ड्स फीचर के साथ एक्सेल में संख्याओं को तुरंत शब्दों में बदलने की सुविधा को अनलॉक करें, जिससे पेशेवर दिखने वाले दस्तावेजों को आसानी से बनाने में आपका समय और प्रयास बचेगा!
संबंधित लेख:
- एक्सेल में यूरोपीय और यूएस के बीच दिनांक प्रारूप को त्वरित रूप से कैसे परिवर्तित करें?
- एक्सेल में dD.MM.YYYY को डेट फॉर्मेट (mM/DD/YYYY) में कैसे बदलें?
- एक्सेल में दिनांक और यूनिक्स टाइमस्टैम्प के बीच कैसे कनवर्ट करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!