ابو اسامة العينبوسي

السلام عليكم مشاركة بسيط (لاخفاء المعادله و حمايتها) If Target.HasFormula Then Application.DisplayFormulaBar = False ActiveSheet.Protect Else Application.DisplayFormulaBar = True ActiveSheet.Unprotect End If hide_formulabar.rar

السلام عليكم لم افهم المطلوب ارجو مراجعة عناوين الخلايا التى تريد ترحيلها لان الخليه b11 تمثل عنوان ثابت موجود اصلا في الشيت الثانى

السلام عليكم بهذا الكود For i = 1 To 10 Controls("textbox" & i) = Cells(i, 1) Next From 1_10.rar

السلام عليكم بحث و نقبت لم اجد ما يشير الى ذلك

السلام عليكم لو ترفق ملف يوضح المطلوب

السلام عليكم Book1_2_3.rar

السلام عليكم Book1_2.rar

السلام عليكم Book1335.rar

السلام عليكم لو ترفق ملف توضح فيه المطلوب

السلام عليكم هنا يتم جمع كل ما يدخل الى العمود A كل خليه على حدى اما اذا كن المقصود كل مايدخل الى نطاق معين يجمع في خليه معينه يكون الكود مختلف ارجو الافاده Dim oldval As Double Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 1 Then Target = oldval + Target Application.EnableEvents = True Else Application.EnableEvents = True Exit Sub End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = True If Target.Column = 1 Then oldval = Target End Sub sum AA numbers.rar

السلام عليكم الموقع قيد التطوير و لم ينته بعد من جميع الاعدادات و التعريب ( نقلا عن الاخ محمد الطاهر)

السلام عليكم Private Sub ComboBox1_Change() Dim x As Integer x = Len(Me.ComboBox1) For i = 1 To x If Not IsNumeric(Mid(Me.ComboBox1, 1, x)) Or Mid(Me.ComboBox1, 1, x) < 0 Then MsgBox "ادخال خاطئ" Me.ComboBox1.Value = "" ElseIf IsNumeric(Me.ComboBox1.Value) And Me.ComboBox1.Value - Int(Me.ComboBox1.Value) > 0 Then MsgBox "ادخال خاطئ" Me.ComboBox1.Value = "" Exit Sub End If Next End Sub Add_Remove_________2.rar

السلام عليكم اضف هذا الشرط or Me.ComboBox1.Value - Int(Me.ComboBox1.Value) > 0 Then

السلام عليكم هنا تجمع كل ما يدخل الى A1 sum_A1_numbers.rar

السلام عليكم Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells(1, 1) = Target.Row Cells(2, 1) = Target.Column End Sub row___column.rar

السلام عليكم هل هذا المطلوب Sub Rectangle11_Click() If [k4] = 0 Then MsgBox "The Time End" Exit Sub End If Application.OnTime Now + TimeValue("00:00:01"), "COUNTER" [g5] = Now() End Sub '--------------------------------------------------------------------------- Sub counter() [h5] = [h5] + 1 If [h5] Mod 60 = 0 Then [k5] = [k5] + 1: [h5] = 0 Call Rectangle11_Click End Sub __________2.rar

السلام عليكم بهذا الكود تمنع الاتى :- *ادخال الاحرف(غير مجديه ان كان لديك اوراق عمل اسمها من احرف) *لايقبل ارقام اقل من 0 (الموجبه فقط ) ممكن تضيف الشرط التالى ايضا اذا لم يكن الاسم المدخل مطابق لاى من اسماء الاوراق لديك Private Sub ComboBox1_Change() Dim x As Integer x = Len(Me.ComboBox1) For i = 1 To x If Not IsNumeric(Mid(Me.ComboBox1, 1, x)) Or Mid(Me.ComboBox1, 1, x) < 0 Then MsgBox "ادخال خاطئ" Me.ComboBox1.Value = "" End If Next End Sub

السلام عليكم الجواب هو 13 ؟ اليس كذلك

السلام عليكم و هنا الحل كاملا ___________________112.rar

السلام عليكم انا ساجيب في زاويه اخرى ونكمل الحل هذا الكود افضل من استدعائك للماكرو If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox1.Value < 0 Or TextBox2.Value < 0 Then Beep GoTo 1 End If Dim x As Integer Dim y As Integer x = Me.TextBox1.Value y = Me.TextBox2.Value Sheets("النسخ").Select Range(Cells(1, 1), Cells(y, x)).Select Selection.copy 1

السلام عليكم دخلت موضوعك ولم افهم المطلوب فالعنوان شئ و الرفق شئ اخر على العموم هذه الاوامر تستخدم لتفعيل او عدم تفعيل اى زر مثال على عدم التفعيل Me.CommandButton1.Enabled = False التفعيل Me.CommandButton1.Enabled = True

السلام عليكم ____________2.rar

السلام عليكم ______________2.rar

السلام عليكم لو ترفق ملف

السلام عليكم بهذا الكود Private Sub Workbook_Open() Userform1.Show False End sub