الصـقر

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

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

اخى الفاضل ممكن بعد اذن حضرتك ترفق الملف اللى فيه الكود ياريت تراجع التوجيهات للاعضاء http://www.officena.net/ib/topic/63020-توجيهات-للأعضاء-لمعرفة-كيفية-التعامل-مع-المنتدى-بشكل-أفضل/?do=findComment&comment=408853 تقبل تحياتى

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

اخى الكريم انت من البدايه لم توضح طلبك هل تريدها بالفورم ام تريدها على الشيت بقائمه منسدله وبخصوص حلك كويس انك بتطور فى الكود لكن جرب كدا تطلع من الشيت وبعدين ترجع تانى ستجد القائمة بتكرر كل مره بتدخل بالشيت وعلشان تمنع التكرار لازم تضيف السطر ده بداية الكود ورقة10.Range("x:x").ClearContents عموما شاهد المرفق دا الكود فى حدث تغيير تحديد الخلايا داخل الشيت 1003 عند الوقوف على الخلية A1 وهو بيعمل قائمه منسدله بالكود ولا داعى لتصميمها من Data Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then Range("cv:cv").ClearContents For i = 1 To Sheets.Count If IsNumeric(Sheets(i).Name) Then lr = Cells(Rows.Count, "cv").End(xlUp).Row Cells(lr + 1, 100) = Sheets(i).Name End If Next Range("a1").Select With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=OFFSET($CV$2,0,0,COUNTA(CV:CV))" End With End If End Sub جرب تحذف اى شيت او تضيف شيت او تعدل اسم شيت الى رقم وشاهد تغيير القائمة المنسدله قائمة منسدلة بالصفحات الارقام فقط.zip

اخى الفاضل الشيبانى جرب الكود ده فى حدث تغيير الكمبوبوكس Private Sub ComboBox1_Change() a = ComboBox1.Value Sheets(a).Select End Sub وشاهد الملف المرفق قائمة منسدلة بالصفحات الارقام فقط.zip

رابعاً :- التعامل مع خصائص الــ Frame فى لغة البرمجه فى الدرس السابق عرفنا ازاى نتحكم فى خصائص الــ Frame اثناء مرحلة التصميم واليوم بأذن الله هنعرف ازاى نتعامل مع الخصائص فى الاكواد لكتابة اى كود خاص بأى عنصر تحكم فى الفورم يكون على الشكل التالى شاهد الصوره شوف الصوره دى هنعرف ازاى نكتب الكود وازاى الفيجوال بيسك بيقدم لنا مساعده لو حضرتك محترف كتابة انجلش كويس على الكيبورد وسريع خلاص لا تهتم بالقائمة المساعده للخصائص اللى بيعرضها الفيجوال بيسك واكتب انت بنفسك سطر الكود كدا عرفنا بشكل عام ازاى نكتب سطر الكود ناخد بعض الامثله الخاصيه ( Caption ):- Frame1.Caption = "سند قبض" نلاحظ هنا اننا كتبنا سند قبض بين علامتى تنصيص " " ----------------------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Enabled ):- هذه الخاصيه تحمل خيارين true و False لو عايز الفريم يكون متاح للعمل امام المستخدم Frame1.Enabled = True ولو عايز الفريم يكون غير متاح للعمل امام المستخدم Frame1.Enabled = False ------------------------------------------------------------------------------------------------------------------------------------------------------- الخاصيه ( Font ):- هذه الخاصيه تتيح للمستخدم تغيير نوع وحجم وسماكة الخط لعنوان الـ Frame ( الذى يتم كتابته بالخاصيه Caption ) لتحديد نوع الخط بالكود وليكن يكون tahoma Frame1.Font = tahoma لتحديد سماكة الخط بالكود ( true لجعل الخط سميك ) ( False لجعل الخط عادى غير سميك ) Frame1.Font.Bold = True لاحظ اننا بعد كلمة font وضعنا . ثم Bold لتحديد نوع السماكه لتحديد حجم الخط بالكود وليكن 20 Frame1.Font.Size = 20 لاحظ اننا بعد كلمة font وضعنا . ثم Size لتحديد حجم الخط ثم كتبنا = 20 أنا مش هعمل امثله تانية لان انا عرفتك القاعده العامه فى بناء سطر الكود لاى خاصيه لاى عنصر وعايزك انت تجرب بنفسك باقى الخصائص بنفسك ولو صادفك اى مشكله لا تتردد انك تراسلنى ---------------------------------------------------------------------------------------------------------- شوف الكود بشكله النهائى Private Sub UserForm_Initialize() Frame1.BackColor = 15849925 Frame1.Caption = "ÓäÏ ÞÈÖ" Frame1.Enabled = True Frame1.Font = tahoma Frame1.Font.Size = 20 End Sub يمكن ايضا كتابة الكود بشكل ابسط نعم يوجد طريقه اخرى من خلال استخدام With وطبعا لازم نقفل With بـ End with ويكون بداية سطر الكود هو . ثم اسم الخاصيه ثم = ثم نوع أو قيمة النتيجة شاهد الكود كالتالى Private Sub UserForm_Initialize() With Frame1 .BackColor = 15849925 .Caption = "ÓäÏ ÞÈÖ" .Enabled = True .Font = tahoma .Font.Size = 20 End With End Sub **************************************************************************************** الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية اضافة عناصر تحكم للفريم اثناء عمل الفورم وهو نشط وايضا التحكم فى الاسكرول بار انتظرونا تقبلوا تحياتى

تفضل الحل بالملف المرفق قائمة منسدلة بالصفحات الارقام فقط.zip

اخى الفاضل جرب الملف المرفق تقبل تحياتى برنامج EMA نسخة جميع اصدارات الاوفيس.zip

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

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

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

تفضل استاذى الفاضل هذا هو الكود المستخدم Private Sub UserForm_Initialize() TextFind.SetFocus End Sub اعتذر منك حاولت رفع الملف لكن للاسف يبدو فى مشكله فى رفع الملفات

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

يا حى يا قيوم اصلح لى شأنى كله ولا تكلنى الى نفسى طرفة عين

استاذى الفاضل بفرض ان التكست بوكس عندك هو 1 TextBox1.SetFocus طبعا السطر ده هيكون فى حدث تهئية الفورم Private Sub UserForm_Initialize() TextBox1.SetFocus End Sub تقبل تحياتى