السيد عبد العال

الاستاذ الجليل ابو هادى نسأل الله ان يجعل ما قدمته من جهد فى ميزان حسناتك ولا يسعنى الا أن أقول أننا جميعا فى انتظار عودتك

السلام عليكم ربما كان هذا المثال مناسبا change.zip

هذا التعديل يمنع التكرار الذى قديحدث فى بعض الحالات Const BagMax = 10 Type RandomBag n As Integer X(BagMax) As Integer End Type Global RandBag As RandomBag Function RandX() As Integer Dim Index As Integer If RandBag.n < 1 Then 'Insialize ...... MsgBox ("Bag Empty .." & BagMax & " No.s Will be added to Bag.") For i = 0 To BagMax - 1 RandBag.X(i) = i + 1 Next i RandBag.n = BagMax End If Index = Round(Rnd * (RandBag.n - 1)) RandX = RandBag.X(Index) 'Remove Void .......... For i = Index To RandBag.n - 1 RandBag.X(i) = RandBag.X(i + 1) Next 'Decrease Bag Count RandBag.n = RandBag.n - 1 End Function Private Sub AddRndX_Click() Text01 = RandX() End Sub

هذه فكرة تعتمد على تكوين حقيبة أرقام فى متغير global ثم نختار منها رقم عشوائى وبعد اختياره نحذفه من الحقيبة وعند فراغ الحقيبة نعيد ملأها أرجو الجرية والأفادة مع خالص الحب والتقدير Const BagMax = 10 Type RandomBag n As Integer X(BagMax) As Integer End Type Global RandBag As RandomBag Function RandX() As Integer Dim Index As Integer If RandBag.n < 1 Then 'Insialize ...... For i = 0 To BagMax - 1 RandBag.X(i) = i + 1 Next i RandBag.n = BagMax End If Index = Int(Rnd * RandBag.n) RandX = RandBag.X(Index) 'Remove Void .......... For i = Index To RandBag.n - 1 RandBag.X(i) = RandBag.X(i + 1) Next 'Decrease Bag Count RandBag.n = RandBag.n - 1 End Function Sub test() Debug.Print RandX() End Sub

الطريقة التى ذكرها الاستاذ أحمد العيسى فى الرابط المشار إليه صحيحة ولكن...... عندما جربتها على نسخة الاكسل XP النسخة العربية على نظام تشغيل ويندوز 98 نجحت وكذلك على اكسل XP Enabledعلى ويندوز98 نجحت أما نسخة اكسل 2003 على ويندوز Xp فلم تنجح والطريقة-كما ذكرها الاستاذ أحمد العيسى- هى: من محرر فيجول بيزك نضغط f2 ليظهر Object Browser ومن القائمة الموجود All Libraries نختار VBProject سنجد اسماء Functions /Subs نختار sub التى نريد إضلفة التعليمة لها بالزر الأيمن ثم نختارPropirties وفى خانة Descreption نكتب التعليمة

الدالة IF فى الاكسل تناظرها دالة IIF فى الأكسس وداخل محرر Visual Basic

مرفق المثال بعد التعديل المطلوب Mony2.zip

مثلا أذاكان المطلوب متابعة الخلية A2 بحيث يظهر تاريخ أخر تعديل فى الخلية d2 نكتب فى D2 هذه المعادلة =ash(A2) ash.zip

يمكن استخدام هذه الدالة لحساب القروش =(E11-INT(E11))*100

Sub Macro1() Dim Coll As String Coll = InputBox("ادخل اسم الخلية التي تريدها بداية للصف") Range(Coll & ":M14").Select End Sub

اذا كنت تقصد حذف السجلات المكررة مع البقاء على الأوائل رجاء مراجعة هذا المثال للاستاذ أبو هادى مثال متقدم لحذف السجلات المكررة والإبقاء على أوائل

تلوين خليفة الخلايا طبقا للاسماء المكتوبة بها !! GetCellColor.rar

ماهى المعادلة المكتوبة فى هذه الخلية؟

بفرض أن كود الأدارة اسمه DEPID أدارة المبانى كودها 1 أدارة الهندسة كودها 2 الطريقة الأولى المبانى =Sum(IIf([DEPID]=1;1;0)) الهندسة =Sum(IIf([depid]=2;1;0)) الطريقة الثانية عمل تجميع بحقل DEPID ثم كتابة المعادلة الاتية فى تذييل المجموعة =Count([projid]) مرفق مثال سريع count.zip

نعم هو برنامج قوى وأريد أن أذكر -نقلا عن مايكروسوفت- أنه الاتفاق بين معظم الشركات العاملة فى حقل الكمبيوتر والبرمجيات على -أكثر من 70 شركة- على تكوين لغة موحدة لكتابة تصميمات البرامج ووضعت أساسيات هذه اللغة UML ويتم عمل هذه التصميمات ببرنامج الفيزيو وللمزيد من المعلومات يمكن مراجعة مستندات MSDN أو فى هذا الرابط UML- Visual Modeling of Software لفتح TAMPLETE فى برنامج الفيزيو: Softwere->UML Model Diagram

والله متالق جدا أخانا أبو نعيمربنا يبارك لنا فى جهدك يمكن فتح النموذج فى عرض التصميم ثم حفظه كتقرير أيضا هناك جهد رائع بذل فى موضوع مشابه يمكن متابعته على هذا الرابط أريد كود يحسب المدة ويعطي إشارة باللون الحمر

كنت أفكر فى شئ مثل هذا لابنى والحقيقة لم ابحث بصورة جيدة ولكن يوجد كتابان قيمان للشيخ ابى حامد نوران قاعدة بغدادية (اصله عبارة عن مخطوطة) الأمثلة القرانية

=SUM(A1:D1)/COUNT(A1:D1) ولكن ماذا سيحدثأذا لم يكتب أى رقم فى أى من الخلايا؟ سيكون عدد الخلايا صفرا وتعطى المعادلة خطأ القسمة على الصفر ويمكن تطوير المعادلة بحيث أذا كان عدد الخلايا صفرا لا تعطى شيئا هكذا =IF(COUNT(A2:D2)>0;SUM(A2:D2)/COUNT(A2:D2);"")

يمكن عن طريق هذه الدالة Function GetIntreorColorIndex(cCell As Range) As Integer GetIntreorColorIndex = cCell.Interior.ColorIndex End Function تم تعديل الملف فى مشاركة لاحقة

جزاكم الله خيرا على هذه المعلومة

حقيقة قد اعتدت استخدام الصيغة الثانية فعادة تكون البياناتعبارة عن عامودين متجاورين الأول به القيم التى نبحث فيها والثانى القيم المقابلة فيتم اختيار العامودينمعا وربما اكثرت من أمثلة الصيغة الأولى لأن المثال المطلوب كان بالصيغة الأولى وقد تفيد الصيغة الأولى أذا كان العامودان ليسا متجاورين والجدير بالذكر هنا أنه يجب أن تكون البيانات مرتبة تصاعديا وان يكون هناك فقط عمود للبحث وعمود للنتائج وقد تصلح مع البانات الأفقية أيضا ولكن ماذا عن الدالة أختها الرائعة VLookUp تتيح الدالةvlookup خاصيتين لا يتوفرا فى الدالة LookUp أولا: باستخدامها يمكن البحث فى العمود الأول واستخراج القيمة المقابلة من عدة أعمدة نختار عمودا منهم ثانيا: يمكن تحديد طريقة البحث بحيث يتم البحث عن قيمة بعينها وليس بطريقة المدى ربما يستطيع المثال المرفق - بعد تحديثه- يعبر عن الفكرة Lookup.zip

يوجد مع6 Visual Basic برنامج يدعى Package and Dyployment Wizerd يقوم هذا البرنامج بتحليل لكل الملفات التى يحتاجها برنامجك ويقوم بتضمنيها مع عمل برنامج setUp لبرنامجك وبذلك يقوم برنامج الاعداد الخاص ببرنامجك بنقل الملفات ألى الجهاز الجديد

اولا دالة lookup الصيغة الاولى LOOKUP(lookup_value,lookup_vector,result_vector) الصيغة الثانية LOOKUP(lookup_value,array) نفرض أن لدينا الخلايا من A28 ألى B31 كالتالى صف عمود A عمودB 28 250000 0.10 29 300000 0.15 30 400000 0.20 31 600000 0.30 هذه معادلات طبقا للصيغة الاولى (لاحظ الترتيب التصاعدى فى A28:A31 =LOOKUP(220000,A28:A31,B28:B31) #N/A =LOOKUP(300000,A28:A31,B28:B31) 0.15 =LOOKUP(320000,A28:A31,B28:B31) 0.15 =LOOKUP(400000,A28:A31,B28:B31) 0.2 =LOOKUP(950000,A28:A31,B28:B31) 0.3 الصيغة الثانية =LOOKUP(320000,A28:B31) .15 =IF(logical_test,value_if_true,value_if_false) والان مامعنى المعادلة: الشرط:إذاكان مجموع خلايا النطاق C24:H24 أكبر من 250000 أذا تحقق: الشرط يكون الناتج عملية حسابية أذا لم لم يتحقق الشرط: يكون الناتج صفرا العملية الحسابية كالتالى: أوجد مجموع الخلايا C24:H24 وابحث بالنتيجة فى الجدول A28:A31 وخذ النتيجة المقابلة فى النطاق B28:B31 الناتج هو نتيجة البحث مضروبا فى مجموع الخلايا C24:H24 مطروحا منه 250000 تم تعديل المثال

مع خالص الشكر لأستاذنا أبو مؤنس المعادلة السابقة صحيحة وسيتم التلوين اذا كانت احدا الخليتين او كلاهما أكبر من الصفر اما أذا كان الشرط هو ان يكون كلا من الخليتين اكبر من صفر فيتم استبدال Or ب And: =And($B$2>0;$C$2>0)

السلام عليكم عذرا على المداخلة فى هذه الحالة أصغرأو يساوى وجزاكم الله خيرا اخى ابو مؤنس على هذا الشرح الجميل