أبو حنــــين

السلام عليكم هذا مثال و عدل عليه كما تشاء و حسب عدد الصفحات التي لديك برنامج.rar

السلام عليكم أخي خالد الرشيدي انه كتاب رائع بالفعل بعد الاطلالة السريعة عليه جزاك الله خيرا

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

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

جزاك الله خيرا أخي zmzm

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

جرب هذه المعادلة ان كنت قد فهمت المطلوب =IF(I7<80%;H7*50%;IF(AND(I7>=80%;I7<=94%);H7*80%;IF(AND(I7>=81%;I7<=94%);H7*81%;IF(AND(I7>=82%;I7<=94%);H7*82%;IF(AND(I7>=83%;I7<=94%);H7*83%;IF(AND(I7>=84%;I7<=94%);H7*84%;IF(AND(I7>=80%;I7<=94%);H7*80%;IF(I7>94;H7*100%))))))))

السلام عليكم هذه حسب البرنامج هذا مثال على ذلك Private Sub CommandButton1_Click() With ListBox1 .Clear .Height = 13 For i = 1 To .ListCount .Height = 12 * i Next End With End Sub Private Sub UserForm_Activate() With ListBox1 .Font.Size = 10 .Font.Name = "Times New Roman" .SpecialEffect = 6 .Height = 13 End With End Sub

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

جرب هذا If ListBox1.ListCount > 10 Then MsgBox "", vbInformation, "" End If

السلام عليكم اخي مجدي يونس جزاك الله خيرا على هذه المعلومة المهمة

السلام عليكم فورم بحث.rar

جرب المرفق بحث عن رقم قريب22.rar

سعدت بمرورك أخي : الأستاذ أحمد فضيله جزاك الله كل الخير

العفو اخي bouallam و الشكر موصول للأخ عبد الله باقشير لانه هو صاحب الملف

اخي ماذا تعني بالهيدر و الفوتر

جزاك الله خيرا اخي شوقي و الله كنت قد بدأت أيضا في العمل لكن اخي شوقي عمل المطلوب بكل اتقان جزاك الله خيرا

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

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

يمكن التحايل بالطريقة التالية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("e3").Address Then Application.ScreenUpdating = False Range("h:h") = "" x = 2 For i = 4 To Cells(Rows.Count, "B").End(xlUp).Row If Cells(i, 2) = Range("e3") Then Range("c" & i).Copy Range("h" & x) Range("f3") = Application.WorksheetFunction.Max(Range("h:h")) x = x + 1 End If Next Range("h:h") = "" Application.ScreenUpdating = True End If End Sub

مثلا عندما تريد تحديد الصف الثالث تكتب : Private Sub CommandButton1_Click() ListBox1.Value = ListBox1.List(2) End Sub في الواقع هناك غموض في السؤال لو شرحت أكثر

هناك سطر في الكود مكتوب بهذا الشكل Private Const ContColmn As Integer = 11 غير الرقم 11 بالرقم 14 Private Const ContColmn As Integer = 14 ثم اضف 3 لابل Label التي هي بلون اصفر سمي الأول في الخاصية Name بهذا الاسم : Lab12 و سمي الثاني في الخاصية Name بهذا الاسم : Lab13 و سمي الثالث في الخاصية Name بهذا الاسم : Lab14

أخي : / khezzani جزاك الله خيرا على المرور

أخي : / khezzani جزاك الله خيرا

شاهد الفيديو مثال.rar