m3da قام بنشر أغسطس 5, 2016 مشاركة قام بنشر أغسطس 5, 2016 السلام عليكم كنت محتاج مساعدة في استكمال تحويل المعادلة المرفقة الي function مخزنة يتم تنفيذها مباشرة ارجو سرعة الرد New Text Document.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 5, 2016 مشاركة قام بنشر أغسطس 5, 2016 (معدل) مرحبا يمكن ان تستعمل هذه الدالة المعرفة Function GetValue(C As Double) Dim MyResult As Single Select Case C Case 30 To 60: MyResult = C * 0.97 Case 61 To 90: MyResult = C * 0.94 Case Is > 90: MyResult = C * 0.91 End Select GetValue = MyResult End Function ' ثم تكتب في الخلية المعنية بالناتج ' =GetValue(B2) تم تعديل أغسطس 5, 2016 بواسطه أبو حنــــين رابط هذا التعليق شارك More sharing options...
m3da قام بنشر أغسطس 5, 2016 الكاتب مشاركة قام بنشر أغسطس 5, 2016 اولا انا متشكر جدا علي الردكن انا عايز ادخل الجزء الاخير من المعادلة يعني اجمع علي ناتج select case + b$10$ رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 5, 2016 مشاركة قام بنشر أغسطس 5, 2016 (معدل) مرحبا أخي اولا : هل ( b10) تجمع في كل الحالات ثانيا : كيف يكون الناتج عندما تكون قيمة الخلية اقل من 30 سجل اعجاب بهذا تم تعديل أغسطس 5, 2016 بواسطه أبو حنــــين رابط هذا التعليق شارك More sharing options...
m3da قام بنشر أغسطس 5, 2016 الكاتب مشاركة قام بنشر أغسطس 5, 2016 b10 هي ضريبة مضافة علي ثمن السلعة في كل الحالات وهي قيمة وليست نسبة وهذه صورة من الجدول المحتوي علي المعادلة والتي يراد تحويله بالكامل الي function رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 5, 2016 مشاركة قام بنشر أغسطس 5, 2016 ثالثا : هل ( b10) ثابتة او لا بمعنى هل ممكن ان يتغير عنوان او مكان الخلية مثلا C10 او F15 . . . . رابط هذا التعليق شارك More sharing options...
m3da قام بنشر أغسطس 5, 2016 الكاتب مشاركة قام بنشر أغسطس 5, 2016 اعتقد انها ثابتة لأنها ستكون دائما القيمة مقابلة لكلمة tax رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 5, 2016 مشاركة قام بنشر أغسطس 5, 2016 (معدل) رغم انني لم استوعب الطرح لكن جرب هذه الدالة Function GetValue(C As Double, TAX As Integer) Dim MyResult As Single Select Case C Case 30 To 60: MyResult = C * 0.97 Case 61 To 90: MyResult = C * 0.94 Case Is > 90: MyResult = C * 0.91 End Select GetValue = MyResult + TAX End Function ' بعد وضع مؤشر الفأرة في المكان المناسب ثم كتابة الدالة = GetValue( ' نضغط على العلامة fx ' من شريط الصيغة تم تحدد الخلية الاولى و نحدد الخلية الثانية و التي هي ب10 تم تعديل أغسطس 5, 2016 بواسطه أبو حنــــين رابط هذا التعليق شارك More sharing options...
m3da قام بنشر أغسطس 5, 2016 الكاتب مشاركة قام بنشر أغسطس 5, 2016 متشكر جدا لحضرتك رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر أغسطس 5, 2016 مشاركة قام بنشر أغسطس 5, 2016 العفو اخي رابط هذا التعليق شارك 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.