وجدت مثال ينفذ الكود الموجود في ملف نصي
ولكن واجهتني مشكلة وهي ان هناك بعض الدوال التي لا تعمل معه مثل
iif - val
هل يمكن تععديل هذا المثال ليعمل مع اي دالة
المثال في المرفقات
تحياتي للجميع
المساعدة في تعديل هذا الكود ليعمل
قاعدة IIf مكتوبة بشكل سليم .. الخطأ في المتغير A الذي وضعته أنت دون تعريف
قم بتعريفه في أول الإجراء بوضع هذا السطر
Dim A As Long
أو قم بتوضيح المطلوب أكثر ان ترني لم افهمك
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي
اقصد ان الكود عند تنفيذ الكود في الكلاص مبايل لايعمل
والكود هو:
Const script As String = "function test()" & vbCrLf & _
" msgbox ""IIf(4 > 3, 1, 2)""" & vbCrLf & _
" msgbox ""IIf(4 <= 3, 1, 2)""" & vbCrLf & _
"end function" & vbCrLf & _
"function test2(a,B)" & vbCrLf & _
" test2=a+b" & vbCrLf & _
"end function"
sc.RunCode script
sc.CallFunction "test"
لماذا لايعمل
المطلوب تصحيحة في المرفقات
يبدو والله اعلم أن دالة iif غير مدعومه من الـ vbScript .. قم بتغييرها
اعتذر عن عدم تمكني للمتابعه الدورية في وقتنا الحالي
فليقبل الجميع تقديري واحترامي .. ولكم تحياتي