أبو حنــــين

الاسلام عليكم هذا مثال المضاعف.rar

السلام عليكم يمكن وضع الكود التالي في الحدث Workbook_Open Private Sub Workbook_Open() ActiveSheet.CircleInvalid End Sub او تحديد الورقة بعينها مثلا ورقة1 Private Sub Workbook_Open() ورقة1.CircleInvalid End Sub

السلام عليكم هناك اكثر من طريقة مثال 1 Private Sub CommandButton1_Click() Range("b1") = Val(Range("a1")) + Val(Range("a2")) End Sub مثال 2 Private Sub CommandButton1_Click() Range("b1") = Application.WorksheetFunction.Sum(Range("A1:A2")) End Sub

جزاك الله خيرا أخي الأستاذ : قنديل الصياد على مروركم حفظكم الله و رعاكم

استعمل هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.Value = Date End Sub

السلام عليكم جرب المرفق 2003 الحجم.rar

السلام عليكم اضافة لما قدمه أخي المميز شوقي هدا مثال آخر جدول حضور وانصراف للاعبين.rar

السلام عليكم هذا هو الشرح 1.rar

السلام عليكم يمكن ان تضع هذا الكود في ورقة in تحدد خلية التاريخ في صفحة in فقط Private Sub Worksheet_SelectionChange(ByVal Target As Range) Last = Sheets("out").Cells(Rows.Count, "A").End(xlUp).Row + 1 On Error Resume Next If Target.Column = 1 Then With Range(ActiveCell, ActiveCell.Offset(0, 11)) .Select .Copy Sheets("out").Cells(Last, 1) .Delete Shift:=xlUp End With End If End Sub

و هذا تعديل بسيط انشاء دالة جديدة2.rar

السلام عليكم جرب المرفق قاعدة بيانات ادخال وبحث11.rar

السلام عليكم جرب المرفق انشاء دالة جديدة2.rar

يمكن ان تضع هذه المعادلة =IF(F5="";"";C5+F5)

السلام عليكم قم اولا بيغيير شيت كشف ناجع كالتالي العمود a ترقيم العمود b الاسم العمود c رقم الجلوس و نفس الشيئ بالنسبة لشيت : كشف الدور الثاني ثم انسخ الكود التالي بدلا من الكود السابق : Sub KH_START1() Dim R As Integer, M As Integer, N As Integer Sheets("كشف ناجح").Range("B7:Es1000").ClearContents Sheets("كشف الدور الثاني").Range("B7:Es1000").ClearContents M = 6: N = 6: S = 6 Application.ScreenUpdating = False For R = 10 To 750 If Cells(R, 74) = "ناجح" Then M = M + 1 Range("A" & R).Range("a1:c1,d1,m1,q1,u1,z1,ad1,ag1,aj1,bm1,ap1,as1,av1,ay1,bb1,bi1,bj1,bp1,bt1,bv1").Copy With Sheets("كشف ناجح") .Range("A" & M).PasteSpecial xlPasteValues .Range("A" & M).PasteSpecial xlPasteFormats .Range("A" & M) = M - 6 End With Application.CutCopyMode = False ElseIf Cells(R, 74) = "دور ثان" Then N = N + 1 Range("A" & R).Range("a1:c1,d1,m1,q1,u1,z1,ad1,ag1,aj1,bm1,ap1,as1,av1,ay1,bb1,bi1,bj1,bp1,bt1,bv1").Copy With Sheets("كشف الدور الثاني") .Range("a" & N).PasteSpecial xlPasteValues .Range("a" & N).PasteSpecial xlPasteFormats .Range("a" & N) = (N - 6) End With Application.CutCopyMode = False ElseIf Cells(R, 74) = "راسبة" Then S = S + 1 Range("A" & R).Range("a1:c1,d1,m1,q1,u1,z1,ad1,ag1,aj1,bm1,ap1,as1,av1,ay1,bb1,bi1,bj1,bp1,bt1,bv1").Copy With Sheets("كشف راسبة") .Range("A" & S).PasteSpecial xlPasteValues .Range("A" & S).PasteSpecial xlPasteFormats .Range("A" & S) = (S - 6) End With Application.CutCopyMode = False End If Next MsgBox "تم ترحيل " & M - 6 & " طالب ناجح" & Chr(10) & Chr(10) & _ "تم ترحيل " & (N - 6) & " طالب دور ثاني" & Chr(10) & Chr(10) & _ "تم ترحيل " & (S - 6) & " طالب راسب", vbMsgBoxRight, "الحمدلله" Application.ScreenUpdating = True End Sub

السلام عليكم اذا كان لديك أوفيس 2003 : من القائمة : أدوات ----------> خيارات -----------> ثم تحرير قم بوضع علامة صح على : تحرير مباشر في الخلية

استعمل هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) With TextBox1 .Value = Format(Application.WorksheetFunction.Sum(Range("C4:C24")), "#,##0") .Font.Size = 16 .Font.Bold = True End With End Sub

استعمل هذا الكود Private Sub Worksheet_SelectionChange(ByVal Target As Range) TextBox1 = Application.WorksheetFunction.Sum(Range("C4:C24")) End Sub

السلام عليكم جرب اخي المرفق A22.rar

السلام عليكم جرب اخي المرفق تطبيق.rar

استعمل هذا الكود Private Sub Image1_Click() Sheets("ورقة1").PrintOut End Sub

دائما تبدع في اعمالك اخي عبد الله حفظكم الله و رعاكم

مرحبا بك اخي بين اخوانك حفظكم الله و رعاكم

الف الف مبروك الأخت الفاضلة على الترقية

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

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