الصـقر

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

رابعاً:- التعامل مع خصائص الـ ComboBox فى لغة البرمجه فى الدرس قبل السابق عرفنا ازاى نتحكم فى خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم فماذا لو حبينا نتحكم فى خصائص ComboBox ولكن من خلال الاكواد وليس من شاشة الخصائص فى مرحله التصميم هنبدأ على طول بمثال عملى ونشرح عليه اضغط دبل كليك على اى مكان فاضى فى الفورم وهندخل محرر اكواد الفورم ونعمل كود فى حدث فتح الفورم اتبع الصوره هتلاقى الصوره دى فى المكان المظلل باللون الاحمر هنا موضوع كتابه الاكواد ولكتابة اى كود خاص بأى عنصر تحكم فى الفورم يكون على الشكل التالى الخاصيه ( Back Color):- زى ما قلنا قبل كدا ان هذه الخاصيه تتيح للمستخدم تغيير لون خلفية للـ ComboBox عايزين نكتب فى المربع الاحمر كود يجعل لون خلفية الكمبوبوكس (سماوى ) عند فتح الفورم لو حضرتك محترف كتابة انجلش كويس على الكيبورد وسريع خلاص لا تهتم بالقائمة المساعده للخصائص اللى بيعرضها الفيجوال بيسك واكتب انت بنفس سطر الكود ناخد مثال اخر عن الخاصيه ( Back Style):- ناخد مثال اخر عن الخاصيه ( Row Source ):- ComboBox1.RowSource = "A1: b5" سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم المدى المراد اظهاره فى الكمبوبوكس ( المدى تم كتابته بين اقواس تنصيص " المدى " وهذه الاقواس كما قلنا انها تكتب من خلال الضغط على شيفت + حرف ط بالعربى ) ناخد مثال اخر عن الخاصيه ( Column Heads ):- ComboBox1.ColumnHeads = True سطر الكود زى ما هو ظاهر تم كتابة اسم العنصر ثم . ثم اسم الخاصيه ثم = ثم نوع الخاصيه اما True أو false وكذالك لباقى الخصائص الخاصه باى عنصر تحكم على الفورم هذا هو الكود بشكله النهائى على الاربع خصائص السابقه Private Sub UserForm_Initialize() ComboBox1.BackColor = 15849925 ComboBox1.BackStyle = fmBackStyleOpaque ComboBox1.RowSource = "A1: b5" ComboBox1.ColumnHeads = True End Sub هل يمكن ايضا كتابة الكود بشكل ابسط نعم يوجد طريقه اخرى من خلال استخدام With وطبعا لازم نقفل With بـ End with ويكون بداية سطر الكود هو . ثم اسم الخاصيه ثم = ثم نوع أو قيمة النتيجة شاهد الكود كالتالى Private Sub UserForm_Initialize() With ComboBox1 .BackColor = 15849925 .BackStyle = fmBackStyleOpaque .RowSource = "A1: b5" .ColumnHeads = True End With End Sub أنا عايزك تجرب باقى الخصائص بنفسك ولو صدفك اى مشكله لا تتردد انك تراسلنى تابعونا

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

الاخ الحبيب والاستاذ الفاضل بكار شكرا لك على مرورك العطر وثناءك على الشرح طلبك على العين والراس لكن اعذرنى والله انا الان مشغول جدا فى شرح الفروم على الرابط التالى http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/ وطبعا دا مشوار بدأناه ولازم نكمله أوجه دعوه لكل الاستاذه بالمنتدى وأخص بالذكر الاستاذ الفاضل محمد الريفى والاستاذا الفاضل سليم حاصبيا والاستاذ الفاضل ياسر خليل ان كان لديهم متسع من الوقت ان يقوم بشرح الدالتين اللى ذكرتهما تقبل اسفى واعتذارى

والله ليك وحشه يا غالى اتمنى ان تكون بخير وصحه وعافيه وان تكون بيننا فى القريب العاجل

للرفع واحياء ذكريات الماضى

لتطبيق فكرة الملف على الملف الخاص بك اتبعى الخطوات التالية الخطوه الاولى :- فتح محرر الاكواد من خلال Alt+f11 هتظهر معاك الصورة التالية فى الصورة دائرة حمراء صغيرة بداخلها Insert اضغطى عليها هتفتح معك قائمة اختارى منها Module ستجدى صفحه شاشة بيضاء جديده شاهدى الصورة أنسخ الكود التالى واعملى له لصق فى الشاشة البيضه Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "النسخ واللصق والحفظ باسم غير مسموح به فى هذا الملف" End Sub Sub n() Call ToggleCutCopyAndPaste(True) End Sub الخطوه الثانية فى هذه الصورة يوجد دائره حمراء بداخلها ThisWorkbook اضغطى عليها هتظهر معك الصوره التالية فى الشاشة البيضه المسماه ThisWorkbook انسخى الكود التالى وقمى بصلقه فى هذا الشاشة ( حدث المصنف ) Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Me.Save Cancel = True End If End Sub اذا كنت تريد عمل زر لتفعيل خاصيه النسخ واللصق مره اخرة نفذ الخطوة الثالته والرابعه لو مش عايز انتقل للخطوة الخامسه مباشرة الخطوه الثالثه :- الخطوة الرابعه :- يتم تحديد الزر بالوقوف عليه ثم الضغط كليك يمين شاهدى الصورة الخطوه الخامسه :- هى حفظ الملف بضيغه Xlsm شاهد الصورة ارجوا ان يكون شرح تطبيق نقل الكود واضح تقبلوا تحياتى

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

ثالثا :- وقت تنفيذ الكود الخاص بــ ComboBox دلوقتى هنتكلم عن أهم طرق وقت تنفيذ الكود واكثرها شيوعا فى الاستخدام 1- Afterupdate :- هنا يتم تنفيذ الكود بمجرد الانتهاء من الادخال فى ComboBox والانتقال الى اى عنصر اخر ( وهو يشبه كثير طريقة Exit) 2-EXit :- هنا يتم تنفيذ الكود بمجرد الخروج من ComboBox والانتقال الى اى عنصر اخر ( يشبه كثير طريقه Afterupdate ) 3-Change :- هنا يتم تنفيذ الكود عند حدوث اى تغيير فى ComboBox 4-DblClick :- هنا يتم تنفيذ الكود عند الضغط دبل كليك بالماوس داخل ComboBox 5-Enter :- هنا يتم تنفيذ الكود بمجرد وضع مؤشر الماوس داخل صندوق ComboBox دلوقتى هنعرف ازاى بيكون كتابه الاعلان على الاكواد الخاصه بالـ ComboBox ( وهى نفس الطريقه لكل عناصر التحكم فى الفورم ) مثال على حدث Afterupdate Private Sub ComboBox1_AfterUpdate() 'هنا بيتم كتابه الكود المراد تنفيذه End Sub السطر الاول هو بداية الاعلان عن الكود فنقوم بكتابة Private Sub ستجد لونها بالكود أزرق ( وهو بداية لاى كود خاص لأى عنصر تحكم داخل الفورم ) ثم نقوم بكتابة اسم العنصر المراد عمل الكود له وهو بمثالنا ComboBox ثم نقوم بكتابة _ ( تكتب من خلال الضغط على Shift+زر الطرح الموجود بالاعلى بجوار زر + ) ثم نقوم بكتابة وقت تنفيذ الكود (اللى هو موضوعنا اليوم) ثم كتابة () قوسين بهذا الشكل وبمجرد الضغط انتر ستجد الكود عمل سطر تانى فيه End sub يوجد طريقه اخرى وهى اتبع الصوره التالية توضح لك قم بالضغط على اى مكان فاضى بالفورم وادخل لمحرر الاكواد الخاص بالفورم

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

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

استاذى الحبيب جرب المرفق تم عمل طلبك رقم 2 وهو كود المورد واسم المورد حسب ما طلبت جرب وعلمنى برائيك وبدعو حضرتك بزيارة الرابط التالى http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/ ان شاء الله يعجبك ويفيدك وايضا جرب برنامج EMA المحاسبى برنامج شامل المخازن وانا متاكد بنه به كل متطلباتك وزياده ومميزات اخرى رائعه جربه وعلمنى تقبل تحياتى Book1.zip

الاخ الكريم انا عملت حيله كدا ولكن هى مش حل علمى ولكنه حل عملى طبعا ويؤدى الغرض جرب المرفق وقلى رائيك كشف الزيارات معدل.zip

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