علي سالم 75

من خصائص الفرمة اجعل الخاصية Cycle Cycle = fmCycleCurrentForm او ضيف الكود ادناه في كود الدخول للفورم Private Sub UserForm_Initialize() Me.Frame1.Cycle = fmCycleCurrentForm End Sub Book1.rar

ممكن الكود التالي: Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(Trim(TextBox1)) = 0 Then Cancel = True End Sub

السلام عليكم حط هذه المعادلة للتنسيق الشرطي للخلايا $O$4:$DJ$38 =$M4>=O$3 النقاط.rar

اخي سمي كل مجموعة باسم وحتعمل كل مجموعة على حدة مثلا: Private Sub UserForm_Initialize() Me.OptionButton1.GroupName = "s1" Me.OptionButton2.GroupName = "s1" Me.OptionButton3.GroupName = "s2" Me.OptionButton4.GroupName = "s2" End Sub جرب بنفسك وقلي النتيجة

السلام عليكم استخدم OptionButton OptionButton1 OptionButton2 وعين لاحدهم لاحدهم القيمة true عند فتح الفورم مثلا Private Sub UserForm_Initialize() Me.OptionButton1.Value = True End Sub وحيعمل معاك حسب طلبك هذا ما تعلمناه من منتدانا الحبيب

ما شاء الله ملف رائع واكواد مفيدة بارك الله فيك استاذ يحياوي

حب وعشق وابتســــــــــــــــــــــامة

شكرا لمجهودك ولكن هذا الحل غير صالح لانه عند تغيير الرقم 7 الى رقم اخر لا يتغير الناتج فى الخلية E1 انا كنت فاكر ان الارقام تسلسلية غير المعادلة بهذه =INDEX($G$1:$G$7;MATCH(0;$H$1:$H$7;0))

هذه محاولة شوف المرفق 111.rar

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

السلام عليكم ده كود للاخ خبور Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("E7,E9:F257")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "خلية لا يمكن تعديلها" End If End Sub يعمل اذا غيرت الخلايا المحددة في الكود

السلام عليكم كود لادخال الارقام فقط في التاكست Private Sub TextBox3_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0 End If End Sub

السلام عليكم ورحمة الله وبركاته ادخل هذا الكود في موديل الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 8 And Target.Row > 2 Then If IsNumeric(Target) Then MsgBox "ادخل التاريخ" Cells(Target.Row, "R").Select End If End If End Sub هذا ما تعلمناه من هذا المنتدى

مشكور مشكور مشكور مشكور مشكور مشكور

شكرا شكرا وكل عام وانت بخير

السلام عليكم ورحمة الله وبركاته اخي الخالدي ما المقصود بهذا 5^9 المستخدم في المعادلات

اخي: حدد الكائن ثم اذهب الى شريط الصيغة واعمل يساوي الخلية التي تريد انتقال بياناتها مثلا =J5 شاهد المرفق السيد عبد الفتاح1.rar

عدل الكود Sub Add_Drop_Down_Menu_HHCell() With Range("A1").Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, _ Formula1:="=$D$1:$D$3" .IgnoreBlank = True .InCellDropdown = True End With End Sub

على قدر فهمي غي الكود بالشكل ده: If MsgBox("تم التسجيل والترحيل إلى الدفتر اليومي والدفتر الشهري هل ترغب بطباعة ايصال مالي للطالب", vbYesNo, "طباعة") = vbYes Then TextBox1 = "" Sheets("Shada (2)").Select ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _ :=True Sheets("farest").Select Range("B19").Select End If

استخدم الكود التالي: من احد اعمال الاستاذ خبور Sub Copy_Past() Dim Sh_Copy As Worksheet, Sh_Past As Worksheet Dim LastRow As Long Set Sh_Copy = Sheets("test") Set Sh_Past = Sheets("جميع الفواتير") Sh_Copy.Range("B1:B9").Copy With Sh_Past LastRow = .Range("A65536").End(xlUp).Row + 1 .Range("A" & LastRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=True End With Application.CutCopyMode = False End Sub

ده كود اضافة رابط الدوائر للاستاذ خبور خير http://www.officena.net/ib/index.php?showtopic=28585 ارجوا الانتباه الى المشاركة رقم 30 يوجد فيها المرفق المعدل وكود ترحيل الناجحين ودور ثاني ارجوا الانتباه الى المشاركة رقم 42 يوجد فيها ملف لعمل الشهادات واضافة الدوائر فيها

جزاك الله خيرا استاذ زيد

مشكورررررررررررررررررررر وجزاك الله خيرا

السلام عليكم عمل اكثر من ممتاز استاذنا خبور مشكور مشكور

مشكور جزاك الله خيرا