نجوم المشاركات

اضافة الى ما تفضل به الاستاذ ابو خليل جزاه الله خير اضع الحل بطريقة مختلفة قليلاً Dim rs As RecordsetDim i As IntegerSet rs = Me.RecordsetWith rs .MoveFirstDo Until .EOF For i = 1 To Nz((Me.txtNoOfPrint), 0) DoCmd.OpenReport "rpt1", acViewNormal, , "id= " & Me.txtId Next i .MoveNextLoopEnd WithSet rs = Nothing حيث id هو اسم حقل الرقم ( number ) txtId هو اسم مربع النص الخاص بحقل الرقم id txtNoOfPrint هو اسم مربع النص الخاص بعدد مرات الطباعة للسجل ( و اسمه بالمثال code ) rpt1 هو اسم التقرير ملاحظه هامه : تنسيق حقل عدد مرات الطباعه في المثال نص و المفروض ان يكون رقم . بالتوفيق للجميع

السلام عليكم ورحمة الله وبركاته ممكن المساعدة فى عمل برنامج مسئول السيارات والواقود 1 إدخال جميع بيانات المركبات التابعة للشركة مثل رقم اللوحة، رقم السيسي ، رقم الموتور، النوع، الموديل، لون السيارة ، نوع الرخصة ،تاريخ بداية الرخصه ، تاريخ نهاية الرخصة ، تكلفة الرخصة ، نوع الوقود ، التخصبص ، اسم السائق،ملاحوظات وغيرها من البيانات 2 إدخال جميع الخدمات والإصلاحات التي تم تقديمها للمركبة مثل غيار الزيت، البريكات، تغيير الإطارات، الوقود، المخالفات وغيرها، مع تواريخ هذه الخدمات. 3 التذكير بشكل آلي بتاريخ الخدمات التي يجب تقديمها لكل مركبة مثل غيار الزيت، تغيير الإطارات، الترخيص وغيرها حسب عدد الكيلومترات المقطوعة أو حسب التاريخ. 4 إدخال قراءة العداد لكل مركبة يومياً لمعرفة المسافة التي قطعتها. 5 اظهار العداد السابق عند تمويل السيارة بالوقود 6 إدخال تفاصيل أوامر الحركة للمركبات مثل: التاريخ، ساعة الخروج، ساعة العودة، الجهة، السائق. 7 طباعة العديد من التقارير لكل مركبة لمعرفة المسافة التي قطعتها وتكاليف الخدمات التي قدمت لها ومقارنتها مع المركبات الأخرى. التقارير يتضمن النظام تقارير متنوعة مثل: ·تقرير الصيانات المتوقعة ·تقرير الصيانات المتأخرة ·تقرير با والسيارات التي لم تدخل الصيانة ·تاريخ كل سيارة ·تقرير حركة كل سيارة ·تقارير بالوقود المنصرف =نوع الوقود+الكمية + العداد اول الفترة + العداد اخرالفتره +المسافه+ك/م+التكلفة +التخصيص +اسم السائق تقريرالوقود شهرى+ربع سنوى_نصف سنوى+سنوى ·تقارير الزيوت =الكمية + التكلفة سنوى ·كشف بالمصاريف واجمالياتها 8 يكون هناك مستخدم واحد لديه كافة الصلاحيات من حذف وأضافة ويوزع الصلاحيات على المستخدمين الاخرين 9 واجهة مستخدم باللغة العربية البرنامج مهم جدا فى مجال عملى ولكم جزيل الشكر

حبيبي اسير الشروق عاوز افهم ايه السبب فى المشكله ______________________- عاوز شويه تنسيقات على زووقك للفورم ده تكرم عليا بتنسيقه

اتفضل اخى الكريم student12.rar

السلام عليكم اين وصلتم في الموضوع ؟

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

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

Eng : Yasser Fathi Albanna ربنا يجزيك خير ع كل معلومة بتفيدنا بيها حاول تعمل قناة ع اليوتيوب وتعمل فيديو افضب يكتير للمبتدئيين زيي :)

اليك هذا الحل عسى ان ينال اعجابك يكفي ان تكتب في الصفحة الرئيسية البيانات و سوف تنتقل الى الصفحات في مكانها المناسب فرز كل صنف على حدا salim.rar

السلام عليكم ورحمة الله أخي الكريم، هذا حل آخر على نفس المنوال... أرجو أن يعجبك هذا الحل... وفي المنتدى تجد كودا جميلا جدا لأخي الحبيب عبد الله باقشير (في مدونته الرائعة) ومع بعض التعديل يتوافق مع طلبك... أخوك بن علية المرفق : نموذج جمع خليتين.rar

السلام عليكم تفضل المرفق جمع خليتين فقط2.rar

نفس الشيئ في الشهر و السنة لا حظ الفرق في اضافة دالة الشرط الاصلية =IF((IF($K$7>=H8;0;-1)+$L$7)>=I8;(IF($K$7>=H8;0;-1)+$L$7)-I8;(IF($K$7>=H8;0;-1)+$L$7)+12-I8) الاضافة و النتيجة =IF(I8="";""; =IF(I8="";"";IF((IF($K$7>=H8;0;-1)+$L$7)>=I8;(IF($K$7>=H8;0;-1)+$L$7)-I8;(IF($K$7>=H8;0;-1)+$L$7)+12-I8))

بسيطة في دالة الشرط تضع الشرط اذا كانت الخلية المعينة فارغة اترك هذه فارغة اما اذا كان غير ذلك نفذ التالي لاحظ الفرق بين المعادلتين =$K$7+IF($K$7>=H8;0;30)-H8 =IF(H8="";"";$K$7+IF($K$7>=H8;0;30)-H8) تم اضافة دالة الشرط if ثم تم اشتراط هذا الشرط H8="";"" اذا لم يتحقق ينفذ الدالة الموجودة و هي =$K$7+IF($K$7>=H8;0;30)-H8 تعمل في الخانة الاولى فقط و يتم السحب

في مثالك استخدمت كود الاستاذ يوسف تم اعادة وترتب الكود 1- اعد نسخه ولصقه مرة اخرى 2- غير ما يلزم من اسماء الحقول حسب الذي عندك

المشاركة في تنفيذ فكرة لا يلزم منه كون الفكرة صالحة للتطبيق فهنا مثلا : - هل المبرمج ملزم بتسمية العناصر داخل الفورم وفق تسمية وترتيب معين ؟ وهذه اشكالية ظاهرة - وهل كل النماذج ستشتمل على هذا العدد من الازرار ؟ لنفرض الجواب=لا - ما يدري الاداة بعمل كل عنصر ووظيفته ؟ اقصد كيف يتعامل المستخدم ( المدير ) عند منح الصلاحيات هل عليه ان يجرب ثم يذهب الى النموذج الهدف ليرى النتيجة الرؤية الصحيحة عندي : ( مثلا لو تم عرض عناصر كل نموذج بوظائفها دون الالتزام بتسميات محددة لكان هذا اقرب ) ولكن كيف ؟ شيء آخر احب ان ادرجه هنا وهو الذوق العام للنماذج فأنا كمستخدم يؤلمني ويحز في نفسي ان ارى داخل النموذج عناصر باهتة ، او ان تخرج على رسالة بعدم منحي الصلاحية المفترض ان لايتواجد في النموذج اي عنصر فوق حاجة المستخدم وجهة نظر آمل الا تحد او تثنيك عن عزمك ، فالاستشارة هي مشاركة العقل وفقك الله لكل خير

شكرا وجزالك الله خيرا

جزيت خيرا استاذ يوسف Dim rs As Recordset Dim i As Integer Set rs = Me.Recordset With rs .MoveFirst Do Until .EOF For i = 1 To Nz((Me.txtNoOfPrint), 0) DoCmd.OpenReport "rpt1", acViewNormal, , "id= " & Me.txtId Next i .MoveNext Loop End With Set rs = Nothing

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

بارك الله فيك واطال في عمرك وحسن عملك

تفضل : تم تنفيذ التصور officenaUP.rar

بارك الله فيك استاذنا العزيز ابو خليل اعتقادك في محله و كنت انا مخطئ و لم انتبه لطلب اخي السائل انه يريد طباعة الكل دفعة واحدة . و قد يكون مع المستعجل الزلل لي عوده بإذن الله

شكرا جزيلا استاذنا الحبيب يوسف واعتقدت ان السائل يريد طباعة الكل فاعددت له هذا .. مع اخذ نصيحة الاستاذ يوسف بالاعتبار Dim i, z, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone rs.MoveLast r = rs.RecordCount rs.MoveFirst For z = 1 To r Do Until i = Me.code.Value i = i + 1 DoCmd.OpenReport "report", acNormal, , "[number]=" & Me!number Loop rs.MoveNext Next rs.Close Set rs = Nothing

السلام عليكم ورحمة الله وبركاته في المرفق تعديل على معادلة للأخ الكريم عبدالله المجرب بحيث نحصل على آخر قيمة تم تسجيلها بشرط محدد دون الحاجة الى معادلة الصفيف max ( if تحياتي هاني بدر VLOOK2ALL_NEW.rar

تفضل اخي الفاضل بصيغة 2003 برنامج طباعة الباركود.rar

شكرا لطالب العلم على المساعدة فجزاه الله خيرا اخي الكريم الاستعلامات الالحاقية تحتاج الى زيادة في ضبط الجداول لتلافي التكرار وما تم الحاقه لا يمكن التعديل عليه الا بالحذف والاعادة من جديد او التحديث وكل هذه الطرق فيها عبء كبير وعمليات انت في غنى عنها انظر الى التعديل تم صنع استعلام متجدد باستمرار والذي من خلاله يمكن بناء النماذج والتقارير عليه استعلام الحاقى.rar

الأخ الفاضل زوزوزو مرحبا بك في المنتدى .. بالنسبة لطلبك ليس هذا موضعه ولكن سأرد عليك عندما تتعامل مع الإكسيل لابد أن تعلم أن القيمة الظاهرة في حالتك ليست القيمة الحقيقية لمحتوى الخلية فمثلاً لو كتبنا هذ الرقم 15.12312 في الخلية A1 ، ثم كليك يمين على الخلية ثم Format cells أو تنسيق خلايا ثم اخترنا Number من قائمة Catregory ثم حددنا العلامات العشرية وجعلناها 2 من Decimal Places أي أن عدد الأرقام العشرية الظاهرة ستكون رقمين فقط أي أن الخلية A1 ستظهر بهذا الشكل 15.12 قم بنفس الخطوات في الخلية B1 اكتب الرقم 10.32641 واجعل التنسيق يبدو بهذا الشكل 10.33 ..... الآن نأتي لاختبار القيم (ركز أن القيم الظاهرة مجموعها يدوياً يساوي 25.45 ) .. في الخلية C1 اكتب المعادلة بهذا الشكل =SUM(A1:B1) سيكون الناتج 25.45 وهذا أيضاً قيمة ظاهرية فقط .....وللتأكد قم بنسخ الخلية C1 ، كليك يمين عليها ثم Copy ، وفي أي خلية فارغة كليك يمين ثم لصق خاص واختر Values أي لصق القيم فقط ستجد أن الناتج هو 25.44953 هذه هي المشكلة ..ولكن كان لابد من تفصيل المشكلة حتى تصل للحل ، فالطبيب الناجح هو من يستطيع أن يشخص الحالة لا أن يقدم العلاج ، فحاول دائماً أن تضع يدك على المشكة ذاتها وليس هدفك فقط العلاج .. لأن حل المشكلة إذا فهمتها جيداً قد يفيدك في أمور مماثلة .. المهم هناك دالة في الإكسيل تسمى ROUND وهي دالة التقريب .. تقوم الدالة بتقريب الأرقام العشرية في الخلية A2 اكتب المعادلة التالية =ROUND(A1,2) أي أن الدالة ستقوم بتقريب الرقم الموجود في الخلية A1 لأقرب رقمين عشريين وسيكون الناتج 15.12 ، وللتأكد أنه لا يوجد أي أرقام عشرية مرتبطة الآن بهذا الرقم قم بنسخ الخلية A2 والصقها لصق خاص كقيم في أي خلية فارغة اسحب المعادلة في A2 إلى الخلية B2 لتصبح المعادلة في B2 بهذا الشكل =ROUND(B1,2) ويكون الناتج 10.33 وهو قيمة حقيقية وليست ظاهرة الآن في الخلية C2 اكتب معادلة الجمع =SUM(A2:B2) ويكون الناتج 25.45 ، للتأكد من صحة النتائج قم بنسخ الخلية C2 ، كليك يمين ثم Copy ثم في خلية فارغة كليك يمين ثم Paste Special ثم اختر Values أي القيم .. ستجد أن الناتج 25.45 أرجو أن أكود قد وفقت في توصيل المعلومة بشكل سلس وبسيط تستطيع استيعابه تقبل تحياتي

بارك الله فيك أخى الكريم

إثراءً للموضوع هذا حل آخر بالأكواد Sub Test() Dim Cell As Range, Rng As Range On Error Resume Next Set Rng = Sheet1.Range("B2:E" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row) For Each Cell In Sheet2.Range("E2:E" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row) Cell.Value = Application.WorksheetFunction.VLookup(Cell.Offset(0, -3), Rng, 4, False) Next Cell End Sub

السلام عليكم ممكن مساعدة بالاكسيل لحساب ساعات العمل وحساب الوقت الاضافي بداية العمل من 07:00 الى 16:00 ومن 12:00 الى 13:00 غير محتسبة. 1 عدد ساعات العمل 8 ساعات 2 الشهرية للعمال1900000دج كلمة شكر وعرفان الى صاحب القلب الطيب الى صاحب النفس الابيه الى صاحب الابتسامه الفريده الى من حارب وساهم الكثير من اجلي

حاضر يا أخى الحبيب ياسر يشرفنى أن تكون من أول المشاركين والمشجعين لى

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

الاستاذ / اكرامى لقد تم مراجعة البرنامج قبل وبعد ملاحظاتك والبرنامج لا يوجد به اية اخطاء ويعمل تماما وخصوصا كود المحولين من والى يعمل جيدا بلا اى اخطاء

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

السلام عليكم صراحة احببت ان اضع هذا الموضوع منفردا بالرغم من ان هناك مشاركة سابقة لهذا الموضوع علي الرابط التالي اضغط هنا الا ان الموضع هنا قد اكتمل و اصبح لابد من فصله و الموضوع كما اشار العنوان ارجو التجربة و اخباري بالنتيجة تحياتي full_customer.rar

تعرفنا معا في الدروس السابقة علي عدد من ادوات الفورم الشائعة ودرسنا اليوم سوف نتعـرف علي UserForm Controls - CheckBox, OptionButton and ToggleButton UserForm Controls - ScrollBar and SpinButton الدرس الخامس أولا: ScrollBar Control عنصر تحكم شريط التمرير(ScrollBar ) تمكن من تغيير (زيادة أو إنقاص) القيمة المعروضة من قبل عناصر التحكم UserForm الأخرى أو قيمة في نطاق ورقة العمل. انها لفائف من خلال مجموعة من القيم عندما يقوم المستخدم: زيارة لأسهم التمرير، (الثاني) تستمر مربع التمرير، أو (الثالث) النقرات في منطقة بين سهم التمرير ومربع التمرير. ضوابط شريط التمرير وSpinButton - الفرق بين الاثنين هو أن مربع التمرير يمكن سحب لتغيير قيمة عنصر التحكم على زيادات أكبر (مع الحفاظ على مقدار منخفض مقابل النقرات) التي مزايا شريط تمرير لجعل الاختيار من عبر عدد كبير من القيم وتغطي مجموعة واسعة جدا. يحدد SmallChange التغيير التدريجي، كقيمة عدد صحيح (متغير طويل)، الذي يحدث عندما يقوم المستخدم بالنقر فوق سهم التمرير. يحدد LargeChange وتغيير تدريجي عندما ينقر المستخدم بين سهم التمرير ومربع التمرير. القيمة الافتراضية هي 1 لكل من الخصائص. مثال نرغب في حساب الدفعة لقرض معين يتم إدخال قيمة القرض ومعدل الفائدة الثانوي وفترة السداد السنوي عن طريق استخدام السكرول بار اولا : قبل تنفيذ الفورم نفكر ماهو الغرض الذي سوف ننفذ من اجله الفورم وطريقة تنفيذه ونخطط لذلك ونحس به (روح الاكسيل ) كل منا له طابع خاص في عرض وتشكيل الفورم الخاص به سوف نستخدم في الفورم مجموعة من المعطيات كالتالي 1- شريط تمرير لادخال مبلغ القرض مع مربع نص لاظهار القيمة 2- شريط تمرير لادخال معدل الفائدة الثانوي مع مربع نص لاظهار القيمة 3- شريط تمرير لادخال فترة السداد السنوي مع مربع نص لاظهار القيمة 4- سوف احتاج لزر امر لادخال الكود البرمجي لعملية الحساب 5- وسوف احتاج مربع عنوان لاظهار قيمة الدفعة الشهرية معا ايضا سوف نتعلم كيفية اضافة العناوين عن طريق الفورم باستخدام الخاصية ( CAPTION) التنفيذ بعدما خططنا لما نريد تنفيذه بالضبط سوف نقوم بتنفيذ الفورم كالتالي (( التطبيق بالمرفقات )) وسوف باختيار الاكواد الخاصة بالفورم في حدث انطلاق الفورم سوف نقوم بتحديد العنواين الخاصة باستخدام CAPTION وتحديد خصائص كل من اشرطة التمرير الثلاثة وتنسيقاتهم المستخدمة والشرح مع الكود Private Sub UserForm_Initialize() 'ÇáÝÑÖ Label1.Caption = "ãÈáÛ ÇáÞÑÖ :" ScrollBar1.Min = 0 ScrollBar1.Max = 10000 ScrollBar1.Orientation = fmOrientationHorizontal ScrollBar1.SmallChange = 5 ScrollBar1.LargeChange = 100 ScrollBar1.Value = 0 'ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí ' æÖÚäÇ ÚäæÇä áãÑÈÚ ÇáÚäæÇä 2 Label2.Caption = "ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí (%) :" ScrollBar2.Min = 0 ScrollBar2.Max = 1000 ScrollBar2.Orientation = fmOrientationHorizontal ScrollBar2.SmallChange = 1 ScrollBar2.LargeChange = 10 ScrollBar2.Value = 0 'set properties for controls in re of Loan Tenure: Label3.Caption = "ÝÊÑÉ ÇáÓÏÇÏ (ÈÇáÓäÉ)" ScrollBar3.Min = 0 ScrollBar3.Max = 50 ScrollBar3.Orientation = fmOrientationHorizontal ScrollBar3.SmallChange = 1 ScrollBar3.LargeChange = 4 ScrollBar3.Value = 0 'set properties for Label which displays Monthly Instalment: Label4.Caption = "ÇáÏÝÚÉ ÇáÔåÑíÉ" Me.Caption = "ScrollBar Control" End Sub نحدد ان قيمة كل نص (تكست بوكس ) = لقيمة شريط التمرير كالتالي Private Sub ScrollBar1_Change() ' TextBox1.Value = ScrollBar1.Value * 1000 TextBox1.Value = Format(TextBox1.Value, "#,##0") End Sub Private Sub ScrollBar2_Change() ' TextBox2.Value = ScrollBar2.Value / 10 End Sub Private Sub ScrollBar3_Change() TextBox3.Value = ScrollBar3.Value / 2 End Sub وفي النهاية الكود المستخدم لحساب الدفعة الشهرية وقما له بتخصيص زر امر Private Sub CommandButton1_Click() 'áÍÓÇÈ ÇáÏÝÚÉ ÇáÔåÑíÉ Dim mi As Currency If Not TextBox1.Value > 0 Then MsgBox "ãä ÝÖáß ÃÏÎá ãÈáÛ ÇáÞÑÖ !" Exit Sub ElseIf Not TextBox2.Value > 0 Then MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ãÚÏá ÇáÝÇÆÏÉ ÇáÓäæí !" Exit Sub ElseIf Not TextBox3.Value > 0 Then MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ãÏÉ ÇáÞÑÖ !" Exit Sub Else mi = Pmt((TextBox2.Value / 100) / 12, TextBox3.Value * 12, TextBox1.Value) ' Label4.Caption = " ÇáÏÝÚÉ ÇáÔåÑíÉ " & Round(mi, 2) * -1 End If End Sub شرح الاكواد والتطبيق بالمرفقات ثانيا: SpinButton Control يتم استخدام عنصر تحكم SpinButton، مماثلة إلى عنصر تحكم شريط التمريرScrollBar ، إلى زيادة أو إنقاص قيمة (ماعدا التاريخ، الوقت) المعروضة من قبل عناصر التحكم UserForm الأخرى (مربع نص، تسمية، ...) أو القيمة في نطاق ورقة العمل. عنصر تحكم SpinButton (ويشار إلى عنصر تحكم سبينر أيضا) وظائف مثل عنصر تحكم شريط التمريرScrollBar ، مع خصائص مشابهة (. SmallChange، أدني، أعلي، والتوجه، ...). يحدد SmallChange التغيير التدريجي، كقيمة عدد صحيح (متغير طويل)، الذي يحدث عندما يقوم المستخدم بالنقر فوق سهم التمرير. لا يملك عنصر تحكم SpinButton خاصية LargeChange، مثل في شريط التمرير. في شريط التمرير العمودي النقر فوق سهم التمرير يقلل من قيمة في حين النقر فوق سهم التمرير على سبينر عمودي يزيد من قيمة. ضوابط شريط التمرير وSpinButton - الفرق بين الاثنين هو أن مربع التمرير يمكن سحب لتغيير قيمة عنصر التحكم على زيادات أكبر (مع الحفاظ على مقدار منخفض مقابل النقرات) التي مزايا شريط تمرير لجعل الاختيار من عبر عدد كبير من القيم وتغطي مجموعة واسعة جدا. مثال: استخدام عنصر تحكم SpinButton لتغيير البيانات في مربع نص، ضمن نطاق (A2:A10) سوف نقوم بتصميم الفورم بالشكل التالي لاضافة العناصر الي الليست بوكس Private Sub loadListBox() 'ÇÖÇÝÉ ÇáÚäÇÕÑ Çáí ÇááíÓÊ ÈæßÓ ãä æÑÞÉ ÇáÚãá Dim n As Integer Dim cell As Range Dim rng As Range ' ãÕÏÑ ÇáÈíÇäÇÊ Set rng = sheet1.Range("A2:A10") For n = 1 To ListBox1.ListCount ListBox1.RemoveItem ListBox1.ListCount - 1 Next n For Each cell In rng.Cells Me.ListBox1.AddItem cell.Value Next cell End Sub Private Sub UserForm_Initialize() 'ÇÖÇÝÉ ÇáÚäÇÕÑ Çáí ÇááíÓÊ ÈæßÓ loadListBox Me.Caption = "SpinButton Control" End Sub الكود مع الشرح بالمرفقات ثالثا: RefEdit control عنصر التحكم RefEdit لا تتوفر إلا في UserForm VBA، ويسمح للمستخدم لتحديد نطاق ورقة عمل من مربع، أو أن اكتب في نطاق فيه. يعرض عنصر التحكم RefEdit عنوان الخلية أو نطاق (يمكن أن تكون خلية واحدة أو نطاق من الخلايا المتجاورة أو غير المتجاورة) الذي يختار المستخدم أو يدخل عن طريق كتابة فيها للحصول على خلية أو نطاق عناوين التي يتم تخزينها في التحكم RefEdit . رابعا:CheckBox الخاصية قيمة خانة اختيار تشير إلى ما إذا كانت محددة أم لا. تشير قيمة True إلى تحديد خانة الاختيار، خطأ يشير إلى أن يتم مسح عليه، ويدل على قيمة خالية التي لا تحديده ولا تطهيرها، وسوف تظهر مظللة خانة الاختيار في هذه الحالة. يجب تعيين قيمة الخاصية TripleState (يمكن وضعها إما في إطار خصائص أو باستخدام ماكرو أو التعليمات البرمجية ل VBA) إلى True لخانة الاختيار ليكون لها قيمة خالية. خامسا:OptionButton يستخدم OptionButton لجعل اختيار واحد من خيارات متعددة. ويشار أيضا إلى أنه على زر الراديو، الذي يختار خيار واحد من مجموعة من الخيارات الخاصة التبادلية. إذا لم يتم تجميع OptionButtons، واختيار واحد OptionButton في UserForm سوف ازالة اختيار كل OptionButtons الأخرى في النموذج. جميع OptionsButtons ضمن مجموعة معينة تصبح يستبعد بعضها بعضا ومكتفية ذاتيا ضمن تلك المجموعة ولا تؤثر على اختيار OptionButtons خارج تلك المجموعة. سوف اختيار مثال التطبيقات والشرح والاكواد مشروحة سطر سطر مع التنفيذ لكل أداة بالمرفقات التالية وللموضوع بقية في شرح UserForm Controls - Frame, MultiPage and TabStrip ScrollBar.rar

وجدت منذ مدة ملفا اعجبني كثيرا لكن هذا الملف بلغة vb6 فعملت نفس الفكرة و لكن على ملف اكسل ارجوا ان تكون الفكرة جديدة و تنال اعجابكم على بساطتها هل تحب منتدى اوفيسنا.rar

السلام وعليكم ورحمة الله وبركاتة بعد اصدرا برنامج دليل التلفون وانزالة في المنتدى لقيت الكثير من التشجيع من بعض الاخوة جزاهم الله خير. حبيت ان اطرح لكم فكرة جديدة لتعليم مفردات اللغة الانجلزية : لقد حاولت في الماضي ان اتبع طريقة تدوين المفردات في دفتر خاص, ولكن مشكلة هذا الدفتر انة معرض للضياع , وايضا بالنسبة لي شخصيا احس بالملل من هذة الطريقة في المذاكرة. مميزات البرنامج: البرنامج يحفظ لك مفرداتك بشكل دائم البرنامج بة زر لاخفاء المعنى وزر لاضهارة وذالك لكي تمتحن مهاراتك في الحفظ قبل ان تقوم بقراءة المعنى. البرنامج بة زر بحث عن اي مفردة قمت بتخزينها مسبقا فانة يجلب لك اليوم الذي قمت بتخزينها فية, ايضا يقوم بالبحث على حسب التاريخ, والفائدة من ذالك اذا حبيت انك تراجع مفردات تاريخ معين كنوع من المراجة. البرنامج بة ثمان نصائح لتعلم اللغة الانجليزية طبعا اخذتها من احد المواقع. وفي الاخير اتمنى ان تستفيدو منة Improving_your_Vocabulary.rar