شامل2 قام بنشر ديسمبر 1, 2015 مشاركة قام بنشر ديسمبر 1, 2015 السلام عليكم ارجو معرفة الخطأ في هذه الدالة Function Sijil(a As String, b As String) As String If Val() > 0 Then [Sijil = [a] & "/" & [b Else Sijil = 0 End If End Function رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 1, 2015 مشاركة قام بنشر ديسمبر 1, 2015 يظهر لي مبدئيا الدالة val ليس بها قيم بين قوسيها ( الباراميترز) ! ولو تفيدنا بعمل الدالة جزيت خيرا انا شايف هي تعيد المعادلة كنص وعبارة عن قسمة العددين وكشكل للمعادلة ! ولكن لم اصل للهدف ! بالتوفيق رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر ديسمبر 2, 2015 الكاتب مشاركة قام بنشر ديسمبر 2, 2015 الاخ رمهان فائدة الدالة هي دمج حقلين رقميين a , b مثلا ووضع علامة / بينهما ولكن بعض القيم في الحقل a فارغة فاذا كانت قيمة الحقل a فارغة تظهر قيمة الدالة Sijil فارغة او صفر واذا كانت لا فانها تدمج قيمة الحقلين مع وضع علامة / بينهما ملاحظة: هل الخطأ في تعريف المعطيات؟ رابط هذا التعليق شارك More sharing options...
عابرسبيل قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 وعليكم السلام ورحمة الله وبركاتة وبعد الشكر للاخ العزيز رمهان على ما يقوم به من جهود واضحه وبعد اخذ الاذن منه اتقدم بهذه المساهمه المتواضعه والتي ارجو ان ينفع الله بها Function Sijil(a, b) As String If Len(a) > 0 Then MsgBox a & "/" & b Else MsgBox "" End If End Function مع استبدال msgbox بالمكان الذي تريد ان يظهر فيه الناتج 1 رابط هذا التعليق شارك More sharing options...
شامل2 قام بنشر ديسمبر 2, 2015 الكاتب مشاركة قام بنشر ديسمبر 2, 2015 (معدل) السلام عليكم شكرا اخي العزيز عابرسبيل الله يبارك فيك فعلا دالة مفيدة الحمد لله تمت الاجابة تم تعديل ديسمبر 2, 2015 بواسطه alshamal رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر ديسمبر 2, 2015 مشاركة قام بنشر ديسمبر 2, 2015 14 ساعات مضت, alshamal said: الاخ رمهان فائدة الدالة هي دمج حقلين رقميين a , b مثلا ووضع علامة / بينهما ولكن بعض القيم في الحقل a فارغة فاذا كانت قيمة الحقل a فارغة تظهر قيمة الدالة Sijil فارغة او صفر واذا كانت لا فانها تدمج قيمة الحقلين مع وضع علامة / بينهما ملاحظة: هل الخطأ في تعريف المعطيات؟ صحيح وواضحة وسهله ! لكن شطحت قليلا ! ذهب تفكيري بعيدا ! مشكور 8 ساعات مضت, عابرسبيل said: وعليكم السلام ورحمة الله وبركاتة وبعد الشكر للاخ العزيز رمهان على ما يقوم به من جهود واضحه وبعد اخذ الاذن منه اتقدم بهذه المساهمه المتواضعه والتي ارجو ان ينفع الله بها Function Sijil(a, b) As String If Len(a) > 0 Then MsgBox a & "/" & b Else MsgBox "" End If End Function مع استبدال msgbox بالمكان الذي تريد ان يظهر فيه الناتج فيك الخير والبركة عزيزي 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.