VBA INT | كيفية استخدام Integer Function في VBA Excel؟

وظيفة Excel VBA INT (عدد صحيح)

VBA INT هي وظيفة مضمنة تُستخدم لتعطينا فقط الجزء الصحيح من الرقم الذي قدم لنا إدخالاً ، وتُستخدم هذه الوظيفة في تلك البيانات التي لا يؤثر الجزء العشري عليها كثيرًا على البيانات ، وذلك لتسهيل الحسابات أو التحليل الذي نستخدمه INT للحصول على قيم الأعداد الصحيحة فقط.

هذه الوظيفة متاحة مع ورقة العمل وكذلك في VBA. تقرِّب دالة عدد صحيح رقمًا معينًا لأسفل إلى أقرب رقم صحيح.

يمكن استخدام وظيفة VBA Int في الإجراء الفرعي وإجراءات الوظيفة. ألقِ نظرة الآن على صيغة الدالة INT في VBA.

لديها حجة واحدة فقط لتوفير أي رقم

  • الرقم هو الرقم الذي نحاول تحويله إلى رقم صحيح. عندما يتم توفير الرقم ، تقوم الدالة INT بتقريبه إلى أقرب عدد صحيح.

على سبيل المثال ، إذا كان الرقم المقدم هو 68.54 ، يتم تقريب وظيفة Excel VBA Int إلى الأسفل إلى 68 وهو اتجاه الصفر. إذا كان الرقم المقدم هو -68.54 ، فإن الدالة INT تقرب الرقم إلى 69 بعيدًا عن الصفر.

كيفية استخدام وظيفة VBA INT؟

يمكنك تنزيل قالب Excel VBA INT هذا هنا - قالب Excel VBA INT

مثال 1

الآن ، انظر إلى المثال البسيط لوظيفة "INT" في VBA. لنقم بمهمة تقريب الرقم 84.55 إلى أقرب رقم صحيح.

الخطوة 1: ابدأ الإجراء الفرعي.

الخطوة 2: قم بتعريف المتغير على أنه عدد صحيح .

رمز:

 INT_Example1 فرعي () Dim K As Integer End Sub 

الخطوة 3: الآن قم بتعيين الصيغة إلى المتغير " k " عن طريق تطبيق دالة INT.

رمز:

 INT_Example1 فرعي () Dim K كعدد صحيح K = Int (End Sub 

الخطوة 4: اكتب الرقم 84.55 .

ملاحظة: نظرًا لأنه رقم عددي ، فلا داعي لتزويده بعلامات اقتباس مزدوجة.

رمز:

 مثال فرعي 1 () Dim K كـ صحيح K = Int (84.55) End Sub 

الخطوة 5: الآن قم بتمرير نتيجة المتغير في مربع رسالة VBA.

رمز:

 مثال فرعي 1 () خافت K كعدد صحيح K = Int (84.55) MsgBox K End Sub 

حسنًا ، لنقم بتشغيل الكود ونرى ما سيحدث.

إذن ، تكون النتيجة 84 ويتم تقريبها إلى أقرب قيمة صحيحة.

المثال رقم 2

الآن باستخدام نفس الرقم مع الإشارة السالبة ، سنحاول التحويل إلى أقرب قيمة عدد صحيح. يوجد أدناه الرمز بعلامة سلبية.

رمز:

 Sub INT_Example2 () Dim k As Integer k = Int (-84.55) 'رقم سالب مع دالة INT MsgBox k End Sub 

عند تشغيل هذا الرمز ، تم تقريب الرقم إلى -85 .

مثال # 3 - استخراج جزء التاريخ من التاريخ والوقت

واجهت عدة مرات في حياتي المهنية سيناريو استخراج التاريخ والوقت بشكل منفصل عن مزيج التاريخ والوقت.

للحصول على مثال ، انظر إلى البيانات أدناه من التاريخ والوقت.

كيف تستخرج جزء التاريخ والوقت؟

أولاً ، نحتاج إلى استخراج جزء التاريخ ، لذلك دعونا نطبق وظيفة INT. أدناه رمز استخراج جزء DATE من البيانات أعلاه.

رمز:

 Sub INT_Example2 () Dim k As Integer For k = 2 To 12 Cells (k، 2) .Value = Int (Cells (k، 1) .Value) 'هذا سوف يستخرج التاريخ إلى العمود الثاني الخلايا (k، 3). Value = Cells (k، 1) .Value - Cells (k، 2) .Value 'هذا سوف يستخرج الوقت إلى العمود الثالث Next k End Sub 

قم بتشغيل هذا الرمز ، فقد تحصل على النتيجة مثل ما يلي (إذا لم يتم تطبيق التنسيق).

في عمود التاريخ ، قم بتطبيق التنسيق كـ "DD-MMM-YYYY" وبالنسبة لعمود الوقت ، قم بتطبيق تنسيق التاريخ في Excel كـ "HH: MM: SS AM / PM"


$config[zx-auto] not found$config[zx-overlay] not found