أبو حنــــين

السلام عليكم رقم واحد بدون اي منازع جزاكم الله خيرا

السلام عليكم يمكن استعمال هذا الكود Private Sub CommandButton1_Click() Dim i As Byte For i = 1 To 13 If Me.Controls("CheckBox" & i).Value = True Then TextBox1 = TextBox1 & Me.Controls("CheckBox" & i).Caption & "-" Sheet1.Range("A1") = Sheet1.Range("A1") & Me.Controls("CheckBox" & i).Caption & "-" End If Next i End Sub

السلام عليكم أخي ابراهيم جزاكم اللله خيرا على هذا الشعور النيبل حفظكم الله و رعاكم *********************************************** اخي احمد قمت بالمطلوب حسب فهمي لطلبكم New Microsoft Office Excel Worksheet (6).rar

السلام عليكم استاذ أكرم في الواقع لم انتبه لذلك لانني لم اجرب اسم ثنائي او ثلاثي على كل حال قمت بالتصحيح في المرفق التالي New Microsoft Office Excel Worksheet (5).rar

السلام عليكم جرب هذه المحاولة سجل.rar

هذا تعديل على الملف السابق و ذلك باضافة ارتباط تشعبي للرجوع للصفحة الرئيسية New Microsoft Office Excel Worksheet (4).rar

السلام عليكم جرب المحاولة حسب فهمي للموضوع New Microsoft Office Excel Worksheet (3).rar

أخي الحبيب : رجب جاويش جزاكم الله خيرا على المرور

السلام عليكم زر الاضافة يصبح بهذا الكود Private Sub CommandButton1_Click() Lr = Cells(Rows.Count, "B").End(xlUp).Row + 1 Cells(Lr, 2) = TextBox1.Value Cells(Lr, 3) = TextBox2.Value TextBox1 = "" TextBox2 = "" End Sub

السلام عليكم جرب هذه المحاولة Book2_2.rar

في هذه الحالة تضيف هذا الكود Sub sFind_A() Dim Ary() Dim i As Integer, ii As Integer, Lr As Integer Me.ListBox1.Clear With Sheet1 Lr = .Cells(.Rows.Count, "a").End(xlUp).Row For i = 3 To Lr If InStr(1, .Cells(i, "L"), "A", vbTextCompare) = 1 Then ii = ii + 1 ReDim Preserve Ary(1 To Cont, 1 To ii) Ary(1, ii) = .Cells(i, 1).Value Ary(2, ii) = .Cells(i, 2).Value Ary(3, ii) = .Cells(i, 3).Value Ary(4, ii) = .Cells(i, 4).Value Ary(5, ii) = .Cells(i, 11).Value Ary(6, ii) = .Cells(i, 6).Value Ary(7, ii) = .Cells(i, 7).Value Ary(8, ii) = .Cells(i, 8).Value Ary(9, ii) = .Cells(i, 9).Value Ary(10, ii) = .Cells(i, 10).Value Ary(11, ii) = Format(.Cells(i, 5).Value, DateFormt) Ary(12, ii) = .Cells(i, 12).Value End If Next End With If ii Then Me.ListBox1.Column = Ary Erase Ary End Sub ثم في الحدث UserForm_Activate Private Sub UserForm_Activate() ListBox1.ColumnCount = Cont sFind_A End Sub

السلام عليكم سيصبح الكود بهذه الطريقة مع الملاحظة ان البحث سيكون حسب العمود L Private Sub ButtonFind_Click() Dim Ary() Dim i As Integer, ii As Integer, Lr As Integer Dim dt1 As Double, dt2 As Double Dim ib As Boolean Me.ListBox1.Clear With Sheet1 Lr = .Cells(.Rows.Count, "a").End(xlUp).Row If IsDate(Me.TextDate1) Then dt1 = CDate(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("E3").Resize(Lr)): Me.TextDate1 = Format(dt1, DateFormt) If IsDate(Me.TextDate2) Then dt2 = CDate(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("E3").Resize(Lr)): Me.TextDate2 = Format(dt2, DateFormt) For i = 3 To Lr Select Case .Cells(i, "E").Value2: Case dt1 To dt2 If InStr(1, .Cells(i, "L"), Me.TextFind, vbTextCompare) = 1 Then ii = ii + 1 ReDim Preserve Ary(1 To Cont, 1 To ii) Ary(1, ii) = .Cells(i, 1).Value Ary(2, ii) = .Cells(i, 2).Value Ary(3, ii) = .Cells(i, 3).Value Ary(4, ii) = .Cells(i, 4).Value Ary(5, ii) = .Cells(i, 11).Value Ary(6, ii) = .Cells(i, 6).Value Ary(7, ii) = .Cells(i, 7).Value Ary(8, ii) = .Cells(i, 8).Value Ary(9, ii) = .Cells(i, 9).Value Ary(10, ii) = .Cells(i, 10).Value Ary(11, ii) = Format(.Cells(i, 5).Value, DateFormt) Ary(12, ii) = .Cells(i, 12).Value End If End Select Next End With If ii Then Me.ListBox1.Column = Ary Erase Ary End Sub Private Sub UserForm_Initialize() Me.TextFind = "A" End Sub

السلام عليكم جزاكم الله خيرا و جعل اعمالكم في ميزان حسناتكم

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

السلام عليكم الأخ الحبيب : عبد الله لا اجد الكلمات التي توفيك حقك لكنني اقول : اللهم احفظه و يسر امره و ادخله الجنة

السلام عليكم بعد اذن اخي محمود هذا المرفق بالكود بحت عن مرتبات.rar

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

السلام عليكم المرفق به المطلوب لترتيب القائمة 456-2.rar

السلام عليكم جرب هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) With Target If .Column = 1 Then If IsEmpty(.Value) Then .Offset(0, 4) = "" Exit Sub Else .Offset(0, 4).Formula = "=B" & .Offset(0, 1).Row & "+C" & .Offset(0, 2).Row End If End If End With End Sub

السلام عليكم لرفع ملف يجب ضغظه ببرنامج ضغط مثل الونرار

السلام عليكم هذه محاولة عسى ان تفي بالغرض New Microsoft Office Excel Worksheet_2.rar

هو نفس الكود يقوم بالاظهار و الاخفاء جرب وضع عملية في احد الخلايا المعنية معادلة جمع مثلا مثال الخلية B10 معنية بالاخفاء ضع المعادلة التالية في الخلية B10 =D1+D2 ثم ضع D1=0 و D2=1 ليكون الناتج في الخلية B10 هو 1 اضغط على الزر يختفي السطر غير قيمة D1 او D2 ليكون الناتج 2 او 3 او 4 او .... واضغط مرة اخرى على نفي الزر فيظهر الصف

السلام عليكم 1 - تقوم بتحديد المدى الذي تريد تطبيق التنسيق الشرطي عليه 2 - من القائمة تنسيق تختار تنسيق شرطي 3 - ثم من واجهة التنسيق الشرطي و من علامة الثبوت ( شرط واحد ) تختار : الصيغة 4 - تقوم بنسخ الدالة التالية : =IF($A$1<>""; FIND($A$1;D1:E13)) 5 - تظغط على موافق

استعمل هذا الكود للاخفاء و الاظهار حسب قيمة الخلية Sub Macro2() Application.ScreenUpdating = False For Each cl In Range("B6:B20") With cl If .Value = 1 Then .Rows.EntireRow.Hidden = True Else .Rows.EntireRow.Hidden = False End With Next Application.ScreenUpdating = True End Sub

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