بحثت عنه ولم أجد له جوابا
والحاجة له لاختصار كتابة الأكواد فمثلا لو كان لدينا مجموعة متغيرات كالتالي :
V1, V2, V3 ....
فأستطيع أن أصل إلى قيمها عن طريق استخدام تكرار كالتالي :
For I = 1 to 3
msgbox VarVal("V" & I)
Next Iطبعا ليس هناك دالة بهذا الإسم وإنما هو تقديري أن تتوفر بهذا الإسم أو مشابه له قياسا على دالتي :
VarType() و TypeName()
تم تعديل هذه المشاركة بواسطة Accessna في 8 يونيو 2007 في 21:20
ما تعودت أرفع مواضيعي
ولكنه إلحاح السائل *-)
سلام
تحياتي للجميع
أهلا Accessna
- صدقني ما فهمت ماتقصده إلى الآن!!
؟. هل تقصدر إرجاع القيمة. فالدالات التي ترجع القيم كثيرة وأعتقد أنها لا تخفى عليك!!!
؟. أم أن هناك أمراً يشغل بالك. حبذا لو بينته
تحياتي
القحم
تم تعديل هذه المشاركة بواسطة Gaham في 9 يونيو 2007 في 12:42
شكرا أخي القحم .. توني فاهم "ليش" ماحد راضي يشاركني في موضوعي وأنا كنت حاسب أنها محبة مؤجلة لم تأتي بعد :D
لقد كتب في أحد المواضيع هذا الكود :
Function LastVisit(V1, V2, V3, V4, V5) As Variant Dim V(1 To 5) Dim I As Byte Dim Max V(1) = V1: V(2) = V2: V(3) = V3: V(4) = V4: V(5) = V5 Max = Null For I = 1 To 5 If Not IsNull(V(I)) Then If IsNull(Max) Then Max = V(I) If V(I) > Max Then Max = V(I) End If Next I LastVisit = Max End Function
لو تلاحظ لاختصار الكود احتجت لاستخدام مصفوفة تحتوي على خمسة متغيرات
ثم استخدمت حلقة تكرارية بدلا من تكرار الشروط بعدد المتغيرات
طبعا ممكن تقول وليش العذاب هذا كله ، كلها خمسة متغيرات
فأرد عليك وأقول "افرض" أنه عندي على سبيل المثال عشرين متغير أو ثلاثين !! فهل سأكرر كل هذه الشروط وياترى كم من أخطاء الكتابة ستظهر حتى ينجح معي في النهاية
أطلت عليك أكيد أنت فاهم الآن .. لا تقولي مافهمت الآن
تم تعديل هذه المشاركة بواسطة Accessna في 9 يونيو 2007 في 13:05
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…