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

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

السلام عليكم ربما كان هذا المثال مناسبا 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