كيفية تحويل التاريخ بسرعة إلى كلمات في إكسيل؟
بشكل عام ، نقوم عادةً بتحويل التاريخ إلى تنسيقات أو أرقام تاريخ أخرى في Excel ، ولكن هل واجهت مشكلة في تحويل التاريخ إلى كلمات إنجليزية كما هو موضح أدناه؟ في الواقع ، لا توجد وظيفة مضمنة يمكنها التعامل معها ولكن رمز VBA.
تحويل التاريخ إلى كلمة مع وظيفة محددة
تحويل التاريخ إلى كلمة مع وظيفة محددة
إليك رمز ماكرو يمكن أن يقدم لك معروفًا في تحويل التواريخ إلى كلمات.
1. قم بتمكين الورقة التي تستخدمها ثم اضغط ALT + 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) (A2 هو التاريخ الذي تستخدمه) ، اضغط أدخل مفتاح واسحب مقبض التعبئة التلقائية فوق الخلايا التي تحتاجها. انظر لقطة الشاشة:
أطلق العنان لراحة تحويل الأرقام على الفور إلى كلمات في Excel باستخدام ميزة Kutools for Excel's Numbers to Words، مما يوفر لك الوقت والجهد في إنشاء مستندات ذات مظهر احترافي دون عناء!
مقالات ذات صلة:
- كيفية تحويل تنسيق التاريخ بسرعة بين أوروبا والولايات المتحدة في Excel؟
- كيفية تحويل dD.MM.YYYY إلى تنسيق التاريخ (mM / DD / YYYY) في إكسيل؟
- كيفية التحويل بين التاريخ والطابع الزمني يونكس في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!