VBA DateValue | كيفية استخدام دالة DateValue في Excel VBA؟
ما هي وظيفة VBA DateValue؟
دالة DateValue هي دالة مضمنة في Excel VBA ضمن فئة دالة التاريخ / الوقت. تعمل كدالة VBA ووظيفة ورقة العمل في vba. تقوم هذه الوظيفة بإرجاع الرقم التسلسلي أو قيمة التاريخ المقدمة في تنسيق تمثيل السلسلة مع تجاهل معلومات الوقت التي توفرها سلسلة التاريخ. يتم استخدامه بطريقتين مختلفتين في Excel. تُستخدم هذه الوظيفة كصيغة ورقة عمل تدخل في خلية ورقة عمل. يتم استخدامه كرمز الماكرو في تطبيق VBA وإدخاله من خلال محرر Visual Basic المرتبط بـ Microsoft Excel.
في هذه المقالة ، سوف نتعلم أمثلة على VBA DATEVALUE وكيفية استخدامها مع شرح واضح.
شرح وظيفة VBA Datevalue
في VBA ، يستخدم DATEVALUE بناء الجملة التالي.
تستخدم هذه الوظيفة الوسيطة أو المعامل الفردي فقط
- التاريخ : هو التاريخ الذي يتم تمثيله بتنسيق السلسلة
- المرتجعات: ترجع هذه الدالة قيمة التاريخ عند استخدامها كدالة VBA. تقوم بإرجاع قيمة التاريخ عند استخدامها كدالة في ورقة العمل
وظيفة VBA DateValue قادرة على تفسير البيانات الممثلة في تنسيق نص مذكور في تنسيق Excel صالح. لا يمكن إرجاع قيمة التاريخ إذا تضمنت السلسلة التمثيل النصي ليوم الأسبوع.
تتمثل فوائد وظيفة VBA DateValue في استخراج قيمة التاريخ من السلسلة وتحويل التاريخ مع الوقت إلى التاريخ الوحيد. يمكننا ببساطة أنه عندما يتم إعطاء تاريخ مع الوقت ، فإن قيمة التاريخ هذه فقط تتجنب قيمة الوقت.
كيفية استخدام Excel VBA DATEVALUE؟
لاستخدام وظيفة DateValue في Excel ، يجب أولاً فتح محرر VBA.
يجب وضع زر الأمر في ورقة عمل Excel لإضافة سطور برنامج VBA إليها. لتنفيذ سطور البرنامج ، يحتاج المستخدم إلى النقر فوق زر الأمر في ورقة Excel. للحصول على إخراج صالح من البرنامج ، يتم إعطاء مدخلات صالحة من خلال الوسيطة. على سبيل المثال ، تساعد التعليمات البرمجية التالية في إنشاء ماكرو لتشغيل الدالة DateValue لاستخراج قيمة التاريخ من النص في VBA.
برنامج VBA:
Sub Datebutton () خافت myDate كتاريخ myDate = DateValue (“15 أغسطس 1991”) MsgBox Date (myDate) End Sub
ينتج عن هذا الرمز التاريخ على أنه 15 من الإدخال المحدد.
أمثلة على برنامج Excel VBA DATEVALUE
فيما يلي أمثلة لـ DateValue في Excel VBA.
يمكنك تنزيل قالب Excel VBA DateValue هنا - قالب Excel لـ VBA DateValueالمثال رقم 1 - احصل على اليوم والشهر والسنة من تاريخ
يتم اتباع خطوات قليلة لإنشاء البرنامج وتنفيذه في VBA. وتشمل تلك
الخطوة 1: انتقل إلى علامة التبويب Developer ، ضع المؤشر على خلية في ورقة Excel وانقر فوق خيار "إدراج" واختر "زر الأمر" ضمن عنصر تحكم ActiveX كما هو موضح في الشكل.
اسحب الزر إلى المكان الذي تريده وقم بتسمية التسمية التوضيحية على أنها Datebutton من نافذة الخصائص.
الخطوة 2: انقر نقرًا مزدوجًا على الزر الذي سيعيد توجيهه إلى مشروع VBA ويكتب الكود بين زر الأمر Private Sub والنهاية الفرعية.
يجب تطوير الكود على النحو التالي للحصول على التاريخ والشهر والسنة.
رمز:
تاريخ فرعي خاصbutton1_Click () اختبار Dim Exampledate كتاريخ Exampledate = DateValue ("April 19،2019") تاريخ MsgBox سنة MsgBox (مثال) MsgBox شهر (مثال) End Sub
في هذه التعليمة البرمجية ، يمثل Datebutton1_Click () الاسم ومتغير الاختبار مع نوع بيانات التاريخ و Msgbox لعرض الإخراج.
الخطوة 3: أثناء تطوير الكود ، ستحدث أخطاء عدم تطابق من نوع vba وتحتاج إلى الاهتمام بها.
الخطوة 4: في هذه الخطوة ، قم بتشغيل البرنامج بالنقر فوق خيار التشغيل.
أو يمكننا التحقق من البرنامج أو تصحيحه خطوة بخطوة بتحديد خيار Step Into ضمن قائمة Debug. إذا كان الكود الخاص بنا بدون أي أخطاء فإنه يعرض الإخراج.
الخطوة 5 : عندما يتم تنفيذ البرنامج ، فإنه يعرض أولاً مربع الرسالة مع التاريخ المحدد في إدخال النص. بعد ذلك ، انقر فوق "موافق" لرؤية قيمة السنة مرة أخرى انقر فوق "موافق" في مربع الرسالة لمعرفة قيمة الشهر.
مثال # 2 - استخدام جزء التاريخ للحصول على أجزاء مختلفة من التاريخ
الخطوة 1: انتقل إلى علامة تبويب Excel Developer ، ضع المؤشر على خلية في ورقة Excel وانقر على خيار "إدراج" واختر "زر الأمر" ضمن عنصر تحكم ActiveX كما هو موضح في الشكل.
الخطوة 2: اسحب الزر وأدخل التسمية التوضيحية باسم DatePart ضمن الخصائص.
انقر نقرًا مزدوجًا فوق هذا الزر ، فسيتم توجيهك إلى ورقة محرر Visual Basic ويتم عرضها على النحو التالي.
الخطوة 3: قم بتطوير الكود باستخدام DatePart مع DateValue كما هو موضح في الشكل.
رمز:
Datepart1_Click () خافت لتاريخ جزء متغير = DateValue ("8/15/1991") MsgBox partdate MsgBox Datepart ("yyyy"، partdate) MsgBox Datepart ("dd"، partdate) MsgBox Datepart ("mm"، partdate) MsgBox Datepart ("q" ، تاريخ جزئي) End Sub
في هذا البرنامج ، DatePart1 هو اسم الماكرو و partDate هو اسم الوسيطة مع نوع البيانات "متغير". لعرض السنة والتاريخ والشهر وربع السنة ، يتم تطبيق التنسيق على النحو "yyyy" و "d" و "m" و "q". إذا ارتكبنا أي خطأ في التنسيق فإنه يعرض الخطأ التالي.
الخطوة 4: بعد تصحيح أخطاء البرنامج بنجاح ، قم بتشغيل البرنامج بالنقر فوق زر التشغيل ، واستخدم مفتاح اختصار Excel F5.
يعرض الرمز أولاً التاريخ الكامل ثم بعد النقر فوق كل موافق من msgbox ، فإنه يعرض قيمة السنة بعد قيمة التاريخ ، قيمة الشهر ، قيمة الربع على التوالي.
أشياء يجب تذكرها حول VBA DATEVALUE
يجب تذكر الأشياء التالية أثناء استخدام دالة DateValue في Excel VBA
- يتم عرض خطأ وقت التشغيل 13 مع الرسالة "عدم تطابق النوع" عندما يتعذر تحويل التاريخ المقدم لوظيفة DateValue إلى تاريخ صالح. نحن بحاجة التاريخ هو تنسيق النص المناسب
- عندما نحاول الحصول على التاريخ الوحيد من وسيطة السلسلة برمز 'msgbox date (اسم الوسيطة)' ، فإنه يعرض خطأ عدم تطابق النوع.
- يمكننا أن نرى إخراج دالة DateValue دون فتح محرر VBA. يتم ذلك عن طريق النقر فوق زر الأمر وتحديد الماكرو الذي تم إنشاؤه للبرنامج المعني
- عند استخدام DatePart للحصول على القيم ، يجب اتباع التنسيق المناسب. وإلا ، فإنه يؤدي إلى "خطأ وقت التشغيل 5" مع استدعاء أو وسيطة إجراء غير صالح للرسالة.
