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

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

السّلام عليكم و رحمة الله و بركاته بمناسبة حلول السّنة الهجريّة 1437 ..أتقدم لجميع أعضاء منتدى أوفيسنا بأجمل التهاني و خالص الأماني .. راجيًا من المولى القدير أن يعيده على جميع السّادة الكرام أعضاء منتدانا و بيتنا الثاني خاصّةً و على جميع المسلمين عامّةً بالخير و اليُمن و البركات والستر والسعادة و حسن الخاتمة .. سنة هجرية جديدة سعيدة .. كل عام و أنتم بألف خير فائق إحتراماتي

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

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

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

الطريقه الثانيه :- استخدام النطاقات المعرفه هنشوف دلوقتى من خلال الصورتين التاليتين ازاى بنعرف مدى ونسميه باسم محدد شاهد الصور ازاى بقى نستخدم هذه الاسم فى تعبئة الكمبوبوكس يوجد طريقتين 1- من شاشة الخصائص اثناء التصميم شاهد الصوره 2- من خلال كتابة الاكواد فى البرمجه مثلا فى حدث فتح الفورم Private Sub UserForm_Initialize() ComboBox1.RowSource = "اوفيسنا" End Sub كما تشاهدون اننا كتبنا اوفيسنا اللى هو اسم النطاق ولكن بين علامتى تنصيص " اوفيسنا " يالا يا شباب جربوا الدرس وابعتو الاجابه على موضوع الردود " اتمنى لكم التوفيق " ********************************************************************************************************** والى لقاء اخر مع الطريقه الثالثه انتظرونا يوجد مفاجأت

جرب تحذف هذا الجزء من الكود Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next If Sheets(1).Range("a1").Value = 0 Then Cancel = True Else Cancel = False End If End Sub

وإنت وكل أعضاء أساتذة المنتدى العظيم بألف صحة وسلامة

استاذ مختار استاذ وائل كل اساتذتى المحترمين بارك الله لكم تم العمل بفضلكم استاذ وائل الله يبارك لك تم واشتغل الله يفتح عليك الله يحفظك استاذ مختار شاكر لك فضلك واهتمامك بارك الله فيك احترامى لكم جميعا

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

السلام عليكم و رحمة الله و بركاته أستاذي الغالي " الصقر " الملف الذي رفعته بالمرّة الأولى كان للأستاذ KHMB .. وجدته بموضوعك واشتغلت عليه ..فلم يشتغل معي الملف ربما ملفه كان بنسخة قديمة للأوفيس .. أنا الآن أشتغل على أوفيس 2010.. لم أقم بإعادة تنصيب الأوفيس ..قلت فقط قمت بفتح ملف جديد خالص ليس ملف الأستاذ KHMB ..فاشتغل الكود بطريقة ممتازة .. أرجو أني وضحت الفكرة .. فائق إحتراماتي لك سيدي القدير الملف.rar السّلام عليكم و رحمة الله و بركاته أستاذي القدير محمد حسن المحمّد حاول لو سمحت تجريب الكود في هذا الملف .. الملف.rar

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي الغالي ياسر خليل أبو البراء .. بارك الله فيك و جزاك الله خيرًا .. و زادك من علمه و فضله .. معك مليون حق أستاذي الكريم .. أعدت الكتابة في ملف جديد و نسخة جديدة فاشتغل الكود بصورة طبيعيّة .. أعتذر لك .. رصيدي نفذ من الإعجابات لهذا اليوم .. تمام التمام يا غالي ..سأنتقل بإذن الله إلى الخطوة الموالية بسلسلة دروسك حول الترحيل .. ربّنا يكرمك زي ما أنت بصدد إكرامنا بما منّ الله عليك ..جزاك الله خيرًا و زادك من علمه و فضله إحتراماتي سيّدي القدير " الصّقر "

جزاكم الله خيرا وجعله في ميزان حسناتكم جميعا احبتي في الله حيث كدا بقي وانتو متجمعين كدا عاوز منكم شوية حسنات كدا علي الماشي تجارة بقي

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

السلام عليكمالسلام عليكم اللاخ ياسر خليل والاخ وائل المصرى جزاكم الله كل الخير تم حل الموضوع بعد الرجوع لتوصياتكم جزاكم الله كل الخير

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

كل عام وانتم جميعا بالف خير

اخي ياسر لقد حاولت حذفه كما اشرت لي و لكن لا فائدة مع العلم اني لم اقم برفع اي ملف في تلك المشاركة والله اعلم من اين جاء الملف المرفوع على كل حال هذا الملف الذي وضعته مع الكود كما يمكن الاطلاع على الملف لسابق لابداء الرأي حوله (اعتقد لا مانع من ذلك) every 3 cells in sheet.zip

السّلام عليكم و رحمة الله و بركاته أخي الفاضل أبو أحمد 17475 .. إضافة لما تفضّل بشرحه الأستاذ القدير العيدروس .. جزاه الله خيرًا و زادها بميزان حسناته .. مادام الملف باسم تجربة كان يمكن أن تجرّب بنفسك إظهار الفورم 3 من هذه الجزئية مثلما في الصورة : هناك مشكلة أخرى ظهرت لي وهي بعد فتح الملف لا يمكن الخروج منه إطلاقًا من علامة الإِكْسْ ..فاضطررت لغلق الجهاز و إعادة تشغيله .. وافر احتراماتي

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

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

أخي الكريم أهلاً بك في المنتدى ونورت بين إخوانك العفاريت يا جن يا جن .. وضعت لك في حدث المصنف كود يقوم بإظهار أوراق العمل المخفية عند فتح المصنف Private Sub Workbook_Open() Dim SH As Worksheet For Each SH In Worksheets SH.Visible = True Next SH End Sub شوف الملف المرفق الكتب.rar

شكرا جزيلا لك اخي وائل ما ننحرمش منك

السلام عليكم بدون تعليق على الدرس الأول

متحاولش تهرب .. إنت وقعت في المطب وهنسمع صوتك إن شاء الله أكيد إحنا هنستحمله متقلقش ..

تم تعديل الاسم . ولكم خالص الحب والود ..

أتفضل الشرح تحياتي

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

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

السلام عليكم ورحمة الله وبركاته هذه هي العبارة الصحيحة التي يهنئ بها المسلمون بعضهم فعبارة كل عام وأنتم إلى الله أقرب هي أرجى وأفضل من عبارة كل عام وأنتم بخير فالخير يحصله القاصي والداني أما القرب فلا يحصله إلا من أراد الدار الآخرة وسعى لها سعيها.... والله أعلى وأعلم..والسلام عليكم. السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي القدير محمد حسن المحمد على الشّرح و التّوضيح .. جزاك الله خيرًا و زادها بميزان حسناتك .. تقبّل مني سيدي الكريم فائق إحتراماتي السلام عليكم أخي عبد العزيز: سبّاق إلى عمل الخير...كان الشباب دعامة عضد الإسلام في صدر الإسلام لأنهم كانوا أغض عوداً وأكثر حماسة ...هم الذي ناصروا الرسول محمّد صلى عليه وسلم وفدوه بأموالهم ودمائهم وأيدوه بكل ما أوتوه من علم وأدب وقوة ... معشر الشباب ...ينهضون بالحضارة الإنسانية إن اتقوا وآمنوا وأحسنوا...وتنافسواعلى القرب إلى الله فالصحابة الكرام رضي الله عنهم جميعاً كانوا يتنافسون بهذا المضمار أيهم أقرب يرجون رحمته ويخافون عذاب ...ويظنون التقصير بأنفسهم فماذا نقول عن أنفسنا نحن اليوم؟؟؟؟! شكراً لتفهمك ....تقبلوا تحياتي العطرة والسلام عليكم.

طيب على عجالة العميل هو طالب الخدمة = غالبا شحن + نقل + تخليص جمركى انت بتدى رقم تشغيله لكل عملية وتشوف ايه اللى اتجمع عليها من تكالبف وتضيف الهامش بتاعك / الموجود بالعقد وتفوتر وتبيع

وانت بالف خير اخي عبدالعزيز وجميع الاخوة الاعزاء

للرفع ليستفيد منه الاعضاء الجدد

و تعلمت منك اكثر من ال open args منهم اليوم في موضوع سابق (معرفة لغة الاكسس برمجيا) استاذي الغالي! بريدي الالكتروني باسم كنعان و كنعان كان من اعز اصدقائي وملكية بريد الالكترون يرجع للهو اساسا و نحن كنا كاخوان و انا مسجل باسم كنعان في اكثر من منتدى ولكن وللاسف بعض اسباب اجبرني نسيلن اسمه وتغير اسمي او تسجيل باسم آخر "ابوعارف" او "ابوشفيق" عند وجود عضو آخر باسم "ابوعارف" مسبقا. ابد، نحن اخوان تحياتي......

تمام أنا تحت أمرك ممكن تطلب اللى انت عاوزه

جرب هذا الكود Sub Test() Dim Col As New Collection, Arr, I As Long, J As Long On Error Resume Next Arr = Sheet1.Range("A7").CurrentRegion.Value For I = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Col.Add Key:=Arr(1, J) & Chr(2) & Arr(I, 1), Item:=Arr(I, J) Next J Next I With Sheet2.Range("A7").CurrentRegion Arr = .Value For I = 2 To UBound(Arr, 1) For J = 2 To UBound(Arr, 2) Arr(I, J) = Col(Arr(1, J) & Chr(2) & Arr(I, 1)) Next J Next I .Value = Arr End With End Sub

السلام عليكم و رحمة الله و بركاته اخي حسين قبل روئية موضوع الجديدة ، رفعت مثال آخر من البرنامج و ارفعه هنا ايضا في نهاية المشاركة و التعديل هذا بناءا على اشارة استلذ رمهان (اباجود) الى عدد اصناف ، زيادة اصناف ممكنة و سهل جدا من نفس نماذج ثلاثة لا اكثر ولكن من المعروف وضع ازرار بإسماء اصناف من اجل سرعة فى اختيار الصنف في حالة هذا يجب لا يتجاوز عدد ازرار من 20 الى 30 زر ، لنفترض جعلنا صفحة كاملة زراريز يبلغ عددهم 200 مثلا ، من الصعب حصول على صنف المطلوب بين 200 صنف اكيد يرجع سهولة ايجاد الصنف من خلال قائمة عادية و البحث بجزء اسم الصنف . 54Items.rar و من اجل احتفاظ بازرار و ا البحث بجزء الاسم، سيكون تطبيق الفكرة على مثال التالي ان شاء الله .

السلام عليكم و رحمة الله و بركاته بلا شك ردودكم و مشاركاتكم اسطر قيمة بنسبة لي يا استاذ ابا جود سواء قبل او بعد الان و ابا شفيق هذا جسب مساحة مخصصة للازرار في نموذج من قبل الاخ جسين’يمكن تمدد نماذج ثلاثة هذا الى اسفل نموذج حتى تكفي 54 صنفا او اكثر لان كل نموذج فرعي يمثل عمود في نموذج الرئيسي، مثل المثال في المرفق و افكارك تعجبني بعد 54Items.rar اخوكم ابو عارف

أخى الكريم الكود ككل مكون من عدة أكواد وليس كل الاكواد تربط بزر الكود Auto_Open و Auto_Close و kh_wVisible و ToggleCutCopyAndPaste و EnableMenuItem و CutCopyPasteDisabled لا تربط بأى أزرار فالكود مصمم بطريقة متشابكة يعنى كود يستدعى كود آخر فمثلا عند فتح الملف Auto_Open يشتغل لاخفاء القوائم لكى لا نستعمل القوائم فى القص والنسخ واللصق وعند غلقه Auto_Close يشتغل ليرجع الحال كما كان وكلاهما يستدعى ToggleCutCopyAndPaste لتعطيل عمليات النسخ والقص واللصق بلوحة المفاتيح ما يربط بزر كودان فقط EnableCutcopypaste و DisableCutcopypaste تحياتى

أخي الحبيب التاج أما آن لك أن تغير اسم الظهور للغة العربية إليك الكود التالي عله يكون المطلوب Sub Test() Dim WS As Worksheet, SH As Worksheet Dim Cel As Range Dim lRow As Long Set WS = Sheets("أداة بناء الخطط"): Set SH = Sheets("ورقة1") Application.ScreenUpdating = False For Each Cel In WS.Range("H3:H43") If Cel.Value >= 0.9 Then lRow = SH.Cells(Rows.Count, "B").End(xlUp).Row + 1 SH.Cells(lRow, "B").Value = Cel.Offset(, 1) ElseIf Cel.Value <= 0.5 Then lRow = SH.Cells(Rows.Count, "H").End(xlUp).Row + 1 SH.Cells(lRow, "H").Value = Cel.Offset(, 1) End If Next Cel Application.ScreenUpdating = True End Sub ALTAG.rar

السلام عليكم الملف المفقود MSCAL.OCX بعد فك الضغط عن المرفق يوضع فى المسار التالى C:\Windows\System32 شغل الملف تحياتى MSCAL.zip

بالتوفيق ان شاء الله

تفضلوا احبائي بامكانكم الان اضافة اصناف من خلال مربعات في اعلى يمين النموذج الملف للاستاذ حسين For Mr_Hosain.rar و هذا للاستاذ القعر ForMr_Qaar.rar

أخي الكريم الكود التالي Sub GetId() Dim Cell As Range, Rng As Range 'سطر لتجنب الخطأ في حالة عدم العثور على نتائج On Error Resume Next 'تعيين نطاق البيانات في ورقة البيانات الرئيسية Set Rng = Sheet1.Range("B3:C" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row) 'عمل حلقة تكرارية لكل خلية من خلايا النطاق المراد إظهار النتائج به ، في العمود الثالث For Each Cell In Sheet2.Range("C4:C" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row) 'قيمة الخلية تساوي نتيجة البحث عن الخلية المجاورة في نطاق البيانات ، ويكون الحبث في خانة العمود الثاني Cell.Value = Application.WorksheetFunction.VLookup(Cell.Offset(0, -1), Rng, 2, False) Next Cell End Sub الكود مرفق بالشرح .. ما هو التعديل المطلوب .. حاول ترفق ملفك لتكون الأمور أوضح إذا كنت تقصد نطاق البيانات يبقا التعديل أمره بسيط هتشوف صف البداية وليكن كما في الكود الصف الثالث والأعمدة زي ما ذكرت بدايتها العمود C ونهايتها العمود Z إذاً التعديل يكون في سطر تعيين نطاق البيانات بهذا الشكل Set Rng = Sheet1.Range("C3:Z" & Sheet1.Cells(Rows.Count, 3).End(xlUp).Row)

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

23- الخاصيه ( ShowDrop Button When ):- وهذه الخاصيه تتيح للمستخدم التحكم فى ظهور او عدم ظهورعلامة الـ ComboBox عند عرض الفورم شاهد الصورة توضح لك الامر ************************************************************************************************************* 24- الخاصيه ( Style ):- وهى بنظرى من اهم الخصائص للكمبوبوكس زى ما احنا عارفين لفتح القائمة الخاصه بالكمبوبوكس للاختيار منها لابد من الضغط على السهم لتفتح القائمه ولكن هذه الخاصيه تتيح للمستخدم التحكم فى وقت فتح القائمة الخاصه بالكمبوبوكس فلها خيارين الخيار الاول Fm StyleDropDown Combo - 0 :- هو الافتراضى لابد من الضغظ على السهم لفتح القائمة كما تتيح للمستخدم كتابة اى شئ بالكمبوبوكس غير موجود بالقائمه بمعنى لا تلزم المستخدم من الخيار من القائمة والخيار الثانى Fm StyleDropDown List - 2 : -هو فتح القائمة من خلال الضغط على السهم او بمجرد وقوف مؤشر الماوس على الكمبوبوكس وكمان ميزة ثالته وهى مهمه جدا هو انه لا يمكن للمستخدم كتابة اى شئ فى الكمبوبوكس يعنى كانك عامل خاصيه حمايه للكمبوبوكس ولا سبيل امام المستخدم الا من الاختيار من القائمه ******************************************************************************* 25-الخاصيه (Text Align) :- وهذه الخاصيه تتيح للمستخدم التحكم فى اتجاه النص ( المحازاه للنص )داخل الـكمبوبوكس هل يكون يميناً أو يساراً أو وسط الـكمبوبوكس لو ذهبت للخصائص وعند الخاصيه Text Align ستجد سهم اضغط عليه ستجد 3 خيارات امامك وهى fm Text Align Left -1 عند الاختيار ستجد ان اتجاه النص داخل ComboBox يبداء من اليسار fm Text Align Center -2 عند الاختيار ستجد ان اتجاه النص داخل ComboBox فى المنتصف fm Text Align Right -3 عند الاختيار ستجد ان اتجاه النص داخل ComboBox يبداء من اليمين ******************************************************************************************** 26-الخاصيه (Tab index ) وهذه الخاصيه تتيح للمستخدم ترتيب التنقل بين الازرار على الفورم بعد الخروج منها من خلال الزر انتر ويمكن تعطيل هذه الخاصيه من خلال استخدام الخاصيه Tab stop = True هحاول اشرحها بشكل مبسط بفرض عندك فورم أنشئت فيه 3 عناصر ( Combobox1 - Textbox2 - Textbox1 )على نفس الترتيب فأن الفيجوال بيسك بشكل افتراضى يقوم بترتيب التنقل بينهم حسب ترتيب أنشائهم فعند تشغيل الفورم وانت واقف فى Textbox1 وضغط انتر سينتقل مؤشر الماوس الى Textbox2 ثم ضغط انتر سينتقل مؤشر الماوس الى Combobox1 فلو نا عايز وانا واقف فى Textbox1 واضغط انتر ينتقل الى Combobox1 وليس Textbox2 هنا تاتى اهميه الخاصيه Tab index اذهب لشاشة تصميم الفورم فى الفيجوال وحدد Textbox2 وفى الخاصيه Tab index اكتب رقم 4 ثم حدد Combobox1 ومن الخاصيه Tab index له اكتب رقم 2 ثم ارجع وحدد Textbox2 وفى الخاصيه Tab index اكتب رقم 3 بدلا من 4 وبكدا عند تشغيل الفورم والوقوف فى Textbox1 والضغط انتر سينتقل مؤشر الماوس الى Combobox1 وليس Textbox2 ارجوا ان تكون وضحت الفكره 27-الخاصيه (Tab Stop ) وهذه الخاصيه تحمل خيارين True و False عندد اختيار True يتم تعطيل خاصيه Tab index وعند اختيار False ٍسوف تفعل خاصيه Tab index للتنقل بين الازرار حسب الترتيب الذى ترغب فيه ******************************************************************************************** 28- الخاصيه ( ٍِSpecial Effect ) هذه الخاصيه من الخصائص الهامه للـ Combobox وهى تعطى اشكال مبهره ومميزه للـ Combobox ولها خمس اشكال اختر منها ما يناسب ذوقك شاهد الصوره التاليه **************************************************************************

بسم الله الرحمن الرحيم الاخوه الكرام اليوم بمشيئة الله سنتكلم عن شروحات الكمبوبوكس ( ComboBox) كما قلنا من قبل ان ComboBox هو عباره عن وعاء يتم تعبئته ببيانات محدده لتظهر للمستخدم ليختار منها اثناء العمل على الفورم أن شاء الله هيتم تناول الموضوع على خمس مراحل 1- كيفية انشاء ComboBox على الفورم اثناء عملية التصميم 2- التعرف على خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم 3-وقت تنفيذ الكود الخاص بالـ ComboBox 4-التعامل مع الـ ComboBox فى لغة البرمجه 5-معرفة مهارات تعبئة وتغذية ComboBox باكثر من طريقه التقليديه والاحترافيه منها 6-كيفية اجبار المستخدم على الاختيار من الـ ComboBox نبدأ بسم الله أولا :- كيفية انشاء ComboBox على الفورم اثناء عملية التصميم لأضافه كمبوبوكس جديد على الفورم يوجد طريقتين الطريقه الاولى الطريقه الثانية هذه الطريقه يتم من خلالها نسخ اى عنصر او اكثر من العناصر على الفورم ولصقها لعمل عناصر جديده وسوف يكون لها نفس الخصائص للعناصر الذى تم اخذ النسخ منها وفيما يعد يمكنك تغيير الخصائص للعناصر الجديد كما يحلو لك ******************************************************************************************** ثانيا:- التعرف على خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم فى الصورة قبل السابقه على اليسار يوجد خصائص الكمبوبوكس محاطه بمستطيل احمر وهذه صوره مكبره لخصائص الكمبوبوكس هنمسك اهم الخصائص والاكثر شيوعا فى الاستخدام ونبدا نشرح بالتفصيل 1- الخاصيه (Name) :- Name هو اسم الـ ComboBox المستخدم فى الاكواد وعند انشاء اى ComboBox يقوم الفيجوال بيسك بأعطاء اسم افتراضى له ComboBox1 واذا قمنا بعمل ComboBox ثانى فأن الفيجوال بيسك يعطى له اسم افتراضى ComboBox2 وانا افضل عدم تغيير اسماء ComboBox الافتراضيه التى عرفها الفيجوال بيسك فعندما نريد كتابه كود خاص بالعنصر ComboBox1 فى حدث Change على سبيل المثال يكون بداية الكود كالتالى Private Sub ComboBox1_Change() فأذا قمنا بتغيير اسم ComboBox1 كما عرفه الفيجوال بيسك الى اسم اخر من خاصيه Name وليكن مثلا غيرناه الى (Customers ) فهنا عند كتابة كود فى حدث Change يكون كالتالى Private Sub Customers_Change() ففى حال تغيير الاسم وعدم التزامك بالاسم داخل محرر الاكواد وكتابة كود يحدث Error ------------------------------------------------------------------------------------------------------------------------------------------------ 2- الخاصيه ( Back Color):- هذه الخاصيه تتيح للمستخدم تغيير لون خلفية للـ ComboBox على اليسار يوجد سهم اضغط عليه ستظهر لك قائمة يمكنك من خلالها اختيار اللون المناسب كما يحلو لك أنظر الصوره التاليه 3- الخاصيه ( Back Style):- هذه الخاصيه تحمل خيارين هما Fm Back Style TransParent - 0 ( عند الاختيار سيتوقف عمل الخاصيه Back Color حتى ولو كان تم اختيار لون بها وليكن خلفية سماوية كما هو بالمثال السابق سيظهر الـ ComboBox بخلفية ساده ) Fm Back Style Opague - 1 ( عند الاختيار سيتم عمل الخاصيه Back Color وهيكون الـ ComboBox بخلفية حسب الاختيارك من Back Color ) لذالك هذه الخاصيه مرتبطه بالخاصيه Back Color ********************************************************************************************************************** 4- الخاصيه ( Border Color):- هذه الخاصيه تتيح للمستخدم تغيير لون حدود اللـ ComboBox على اليسار يوجد سهم اضغط عليه ستظهر لك قائمة يمكنك من خلالها اختيار اللون المناسب كما يحلو لك 5- الخاصيه ( Border Style):- هذه الخاصيه تحمل خيارين هما Fm BorderStyle none - 0 ( عند الاختيار سيتوقف عمل الخاصيه Border Color حتى ولو كان تم اختيار لون بها وليكن لون حد أحمر سيظهر الـ ComboBox بلون حد ساده ) Fm BorderStyle Single - 1 ( عند الاختيار سيتم عمل الخاصيه Border Color وهيكون حدود الـ ComboBox بخلفية حسب الاختيارك من Border Color) لذالك هذه الخاصيه مرتبطه بالخاصيه Border Color مثال لو اختارنا لون خلفيه للـ ComboBox لون سماوى ولون حدود احمر شاهد الصورة ولاحظ ان الخاصيه Back Color اختيارها 1 وايضا الخاصيه Border Color اختيارها 1 شاهد الصوره التالية ولكن لو كان الخاصيه Back Color اختيارها 0 وايضا الخاصيه Border Color اختيارها 0 سوف يكون لون الخلفية ساده والحدود بدون لون **************************************************************************************************************** 6- الخاصيه ( Bound Column):- هذه الخاصيه تتيح للمستخدم تحديد العمود الذى سيظهر فى عنصر اخر عند الاختيار من الكمبوبوكس سنرى لاحقا مثال عملى ************************************************************************************************* 7- الخاصيه ( Column Count):- هذه الخاصيه تتيح للمستخدم تحديد كم عدد الاعمده التى ستظهر فى اللـ ComboBox بمعنى ادق يمكن عرض اكثر من عمود فى الكمبوبوكس سنرى لاحقا مثال عملى ************************************************************************************************* 8- الخاصيه ( Row Source ):- هذه الخاصيه هى اولى الطرق التقليدية لتعبئة الكمبوبوكس بالبيانات مثال عام على الخاصيه ( Bound Column) و الخاصيه ( Column Count) و الخاصيه ( Row Source ) لدينا شيت به بيانات افتراضيه كما هو ظاهر بالصوره التالية وعندى فورم بصممه شاهد الصورة أنا دلوقتى عايز اظهر اسماء العملاء من الخلية A2 : A5 فى الكمبوبوكس اللى فى الفورم من شاشة الخصائص اروح للخاصيه Row Source واكتب المدى A2:A5 شاهد الصورة شاهد النتيجة عن تشغيل الفورم طيب لو عايزين نظهر عدد 2 عمود بمعنى اظعر عمود اسماء العملاء وايضا عمود كود العميل اذن لازم اغير المدى فى الخاصيه Row Source واكتب المدى A2:B5 وايضا لازم احدد عدد الاعمده فى الكمبوبوكس يكون 2 من الخاصيه Column Count شاهد الصورة ستجد النتيجة عند تشغيل الفورم طبعا عند الاختيار من الكمبوبوكس سيظهر اسم العميل (اللى هى تعتبر العمود رقم واحد فى الكمبوبوكس ) فى الكمبوبوكس وتختفى قائمة العملاء فلو انا عايز عند الاختيار ايضا يظهر كود العميل فى التكست بوكس رقم 1 ( اللى هو باللون الاصفر فوق) اذن لازم نروح للخاصيه Bound Column واكتب 2 ( أى العمود رقم 2 هو القيمة التى ستظهر فى التكست بوكس رقم 1 ) شاهد الصورة باقى خطوة تانية وهى عمل كود فى حدث تغيير الكمبوبوكس كالتالى Private Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Value End Sub هذا الكود كتبنا فيه ان التكست بوكس 1 يساوى الكمبوبوكس ( واحد هيقولى مش الكمبوبوكس فى عمودين اذن التكست بوكس هيكون اى عمود عند الاختيار هقوله ان الخاصيه Bound Column كتبنا فيها العمود رقم 2 اذن القيمة التى ستظهر فى التكست بوكس 1 هى العمود 2 ) وبكدا عند التشغيل الفورم والاختيار من الكمبوبوكس سيظهر قيمة العمود رقم 1 وهو اسم العميل فى الكمبوبوكس وسيظهر قيمة العمود رقم 2 وهو كود العميل فى التكست بوكس 1 ( بناء على تحديد الخاصيه Bound Column كتبنا فيها العمود رقم 2 وايضا الكود بحدث تغيير الكمبوبوكس ) وعند تشغيل الفورم واختيار من الكمبوبوكس شاهد النتيجة كدا اخدنا مثال عملى على الثلاث خصائص وهما الخاصيه ( Bound Column) و الخاصيه ( Column Count) و الخاصيه ( Row Source ) ************************************************************************************************************************** 9- الخاصيه ( Column Heads ):- وهذه الخاصيه تتيح للمستخدم التحكم فى ظهور رؤوس للاعمده او عدم ظهورها وهى تحمل خيارين أما True أو False عندد اختيار False وهو الاختيار الافتراضى بالفيجوال لا يظهر رؤوس للاعمده بـ ComboBox1 على الفورم عند فتحه شاهد الصوره عندد اختيار True يظهر رؤوس للاعمده بـ ComboBox1 على الفورم عند فتحه شاهد الصوره كما هو مبين بالصورة ان رؤوس الاعمده هى الخلية A1 والخلية B1 وذالك لان المدى للكمبوبوكس هو من A2:B5 فالفيجوال بيسك يقوم بشكل تلقائى بقراءة اول خلية تسبق المدى *********************************************************************************** 10- الخاصيه ( Column Widths ):- وهذه الخاصيه تتيح للمستخدم التحكم فى عرض الاعمده التى ستظهر فى الكمبوبوكس فى سبيل المثال عرض العمود رقم 1 هو 200 وعرض العمود رقم 2 هو 100 اذن لازم تتكتب كالتالى 200Pt;100Pt ( بينهم فاصله ; تكتب من خلال جعل لغة الكيبورد انجلش ثم اضغط على حرف ك بالعربى) شاهد الصوره واحد شاطر هيقولى هو لازم علشان اظهر العمود الثانى اتحرك بالاسكرول بار هقوله لا يوجد طريقه حلوة وهى الخاصيه ( List Width ) هنشرحها ونعرف ازاى نخليها تحل لنا المشكله وتظهر الاعمده بدون الاسكرول بار 11- الخاصيه ( List Width ):- عرض List الافتراضى هو عرض الكمبوبوكس مجموع عرض الاعمده كتبنا فى المثال السابق فى الخاصيه Column Widths ان عرض الاعمده هو 200Pt;100Pt اذن لابد من جعل عرض List مجموع عرض الاعمده 200Pt;100Pt يعنى هيساوى 300Pt وبكدا مش هيكون فى اسكرول بار والاعمده كلها ظاهر عند تشغيل الفورم شاهد الصوره ************************************************************************************************************** 12- الخاصيه ( DropButtonStyle ):- هذه الخاصيه تتيح للمستخدم التحكم فى شكل الكمبوبوكس شاهد الصوره اختر أى من الاشكال فى الصورة التى تناسب ذوقك ********************************************************************************** 13- الخاصيه ( Enabled ):- هذه الخاصيه تحمل خيارين true و False عند اختيار true سوف يكون بأمكان المستخدم الاختيارمن محتوى ComboBox وهو الاختيار الافتراضى بالفيجوال وعند اختيار False لا يكون بأمكان المستخدم الاختيارمن محتوى ComboBox ويكون الشكل باهت ********************************************************************************************** 14- الخاصيه ( Locked ):- هذه الخاصيه تحمل خيارين true و False عند اختيار False سوف يكون بأمكان المستخدم الاختيارمن محتوى ComboBox وهو الاختيار الافتراضى بالفيجوال وعند اختيار True لا يكون بأمكان المستخدم الاختيارمن محتوى ComboBox يعنى هيكون فى حمايه على ComboBox وهذه الخاصيه تشبه تماما الخاصيه Enabled الفرق الوحيد بينهم هو فى شكل التنسيق للكمبوبوكس ********************************************************************** 15- الخاصيه ( Font ):- وهذه الخاصيه تتيح للمستخدم التحكم فى نوع وسماكة وحجم الخط للنص داخل الـ ComboBox الافتراضى فى الفيجوال بيسك نوع الخط هو ( Tahoma ) والسماكه هى (Regular) وحجم الخط هو ( 8) ********************************************************************************************************** 16- الخاصيه ( Font Color ):- وهذه الخاصيه تتيح للمستخدم التحكم فى اختيار لون الخط للنص داخل الـ ComboBox ********************************************************************************************* 17- الخاصيه ( Height ):- وهذه الخاصيه تتيح للمستخدم التحكم فى ارتفاع الـ ComboBox فيمكنك أما من خلال التصميم السحب بالماوس للاسفل لتحديد الارتفاع للـ ComboBox أو كتابة رقم للارتفاع فى الخاصيه Height ********************************************************************************************* 18- الخاصيه ( Left ):- وهذه الخاصيه تتيح للمستخدم التحكم فى بعد الـ ComboBox عن الضلع الايسر للفورم **************************************************************************** 19- الخاصيه ( Top ):- وهذه الخاصيه تتيح للمستخدم التحكم فى بعد الـ ComboBox عن الضلع الاعلى للفورم مثال لو وضعنا قيمة Left 78 *** وقيمة Top 138 ستجد الصوره التالية *********************************************************************************************************************** 20- الخاصيه ( List Row ):- هذه الخاصيه من الخصائص المهمه لانها تتيح للمستخدم التحكم فى عدد الصفوف التى يتم عرضها عند فتح الـ ComboBox شاهد الصوره لو عايزين اظهار عدد 3 صفوف فقط شاهد الصوره التالية ************************************************************************************************************ 20- الخاصيه ( List Style ):- شاهد الصوره تتضح لك اهميه الاداه فمن خلالها يمكن التحكم فى طريقه عرض البيانات عن فتح الكمبوبوكس **************************************************************************************************************** 21- الخاصيه ( Width ):- وهذه الخاصيه تتيح للمستخدم التحكم فى عرض الـ ComboBox فيمكنك أما من خلال التصميم السحب بالماوس للاسفل لتحديد العرض للـ ComboBox أو كتابة رقم للعرض فى الخاصيه Width **************************************************************************************************************** 22- الخاصيه ( Visible ):- وهذه الخاصيه تتيح للمستخدم التحكم فى ظهور او عدم ظهور ComboBox عند عرض الفورم وعند الضغط على السهم المجاور لها ستجد لها خيارين True و False عندد اختيار True سوف يظهر الـ ComboBox على الفورم عند فتحه ( وهذا هو الخيار الافتراضى من الفيجوال بيسك ) وعند اختيار False ٍسوف يختفى الـ ComboBox على الفورم عند فتحه يعنى هيكون غير ظاهر ومخفى لا يراه المستخدم ****************************************************************************************************************

الاخوة اعضاء المنتدى .... ارجو مساعدتي على اعلامنا على طريقة مبسطة لاستيراد sheet اكسيل الى قاعدة بيانات اكسيس من خلال استخدام commandbuttom داخل فورم مع خالص شكري وتقديري للجميع

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