أبومروان

وعليكم السلام بعدد اذن @أبوأحـمـد ابدا ابحث عن هذه الدوال @mo7amed2221 دوال الأساسية لتعلم الإكسل دوال الإكسل هي عبارة عن مجموعة من الوظائف التي يمكنك استخدامها في برنامج Excel لتنفيذ مهام وحسابات مختلفة. يوجد العديد من الدوال المتاحة في Excel، ولكن هنا سنذكر بعض الدوال الأساسية التي يمكن أن تساعد في البدء في تعلم الإكسل. **1. SUM:** هذه الدالة تستخدم لحساب مجموع مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد قيمة المجموع. **2. AVERAGE:** تستخدم هذه الدالة لحساب المتوسط الحسابي لمجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد قيمة المتوسط. **3. MAX:** تُستخدم هذه الدالة للعثور على القيمة الأكبر في مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد القيمة الأكبر. **4. MIN:** تستخدم هذه الدالة للعثور على القيمة الأصغر في مجموعة من الأرقام. تأخذ الدالة مجموعة أرقام كمدخلات وتعيد القيمة الأصغر. **5. COUNT:** تستخدم هذه الدالة لحساب عدد الخلايا المحتوية على بيانات في مجموعة معينة. تأخذ الدالة مجموعة خلايا كمدخلات وتعيد عدد الخلايا المحتوية على بيانات. **6. IF:** تستخدم هذه الدالة لتنفيذ شرط معين وإجراء عملية معينة اعتمادًا على الشرط. تأخذ الدالة قيمة شرط، وإجراء في حالة إرجاع الشرط صحيح، وإجراء آخر في حالة إرجاع الشرط غير صحيح. هذه هي بعض الدوال الأساسية المستخدمة في Excel. هناك مجموعة أكبر من الدوال المتاحة ويمكنك استكشافها لمزيد من الوظائف المتقدمة في Excel.

وعليكم السلام ورحمه الله لفتح متصفح Edge من داخل ملف Excel والتصفح والتحكم فيه، يمكنك اتباع الخطوات التالية: 1. قم بفتح برنامج Excel وابدأ بإنشاء جدول بيانات جديد أو افتح ملف Excel الحالي. 2. في خلية أي مكان في الجدول، اكتب العنوان أو الرابط الذي ترغب في فتحه في متصفح Edge. 3. اضغط على مفتاح Enter للانتقال إلى الخلية التالية. 4. انقر نقرًا مزدوجًا على الرابط الذي قمت بكتابته أو اضغط على Ctrl + النقر على الرابط لفتحه في متصفح Edge. بعد اتباع هذه الخطوات، سيتم فتح متصفح Edge وتصفح الرابط المحدد في Excel. يمكنك التحكم في المتصفح وتنفيذ الإجراءات المختلفة تمامًا كما لو كنت تستخدم المتصفح بشكل مستقل عن Excel. **ملاحظة:** يجب عليك التأكد من تثبيت متصفح Edge على جهازك قبل محاولة هذه الخطوات. إذا لم يكن لديك متصفح Edge، يمكنك تنزيله وتثبيته من موقع Microsoft الرسمي. أتمنى أن يكون هذا مفيداً! .

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

عمل اكثر من رائع جزاك الله خيرا ❤️❤️❤️🌹

وعليكم السلام حل اخل لاثراء الموضوع = "الشاطبية" & MID(C4, SEARCH("-", C4, 1) + 1, LEN(C4)) + 1 & "-" & MID(C4, SEARCH("-", C4, 1) + 1, LEN(C4)) + 5

وعليكم السلام ورحمة الله وبركاته Private Sub TextBox1_Change() If InStr(1, Me.TextBox1.Value, "k", vbTextCompare) > 0 Then MsgBox "الحرف موجود" End If End Sub Private Sub TextBox1_Change() If TextBox1.Value Like "*k*" Then MsgBox "الحرف موجود" End If End Sub Private Sub TextBox1_AfterUpdate() If Me.TextBox1.Value <> "" Then MsgBox Me.TextBox1.Value End If End Sub

وعليكم السلام ورحمه الله راجع الموضوعات لعلها تفيدك

وعليكم السلام ورحمه الله وبركاته

وعليكم السلام ورحمه الله جرب الكود التالي لعله المطلوب Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'تحديد الخلية النشطة Dim sel_r As Integer, sel_c As Integer sel_r = ActiveCell.Row sel_c = ActiveCell.Column 'حماية الشيت و فتح الخلايا من B1 إلى صف 653 في نفس العمود النشط ActiveSheet.Unprotect If sel_c = Range("B1").Column And sel_r <= 653 And sel_r >= Range("B1").Row Then ActiveSheet.Protect MsgBox "هذه الخلية محمية" Else ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End If End Sub

انا لله وانا اليه راجعون البقاء لله غفر الله له واسكنه فسيح جناته

وعليكم السلام ورحمه الله

السلام عليكم ورحمه الله راجع الموضوع ادناه لعله المطلوب

الشكر لله وحده الحمد لله الذي بنعمته تتم الصالحات، وبفضله تتنزل الخيرات والبركات وبتوفيقه تتحقق المقاصد والغايات

اتفضل ي استاذ @الفارس محمد رجب جرب هذا الكود Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If Shift = (vbCtrlMask Or vbShiftMask) Then Unload Me End If End Sub ودا كود تعطيل زر جرب Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True MsgBox "تم تعطيل زر الإغلاق!", vbInformation, "تحذير" End If End Sub

وعليكم السلام اكتب اول حرف +Ctrlمع الضغط علي زرالمسافه

وعليكم السلام ورحمه الله اولاً الصوره المرفقه مش وضحه ولكن جرب الكود التالي On Error Resume Next Dim last As Long last = Sheet1.Range("B90").End(xlUp).Row + 1 Sheet1.Cells(last, "B").Value = Me.TextBox2.Value ' الرقم التعريفي Sheet1.Cells(last, "C").Value = Me.TextBox15.Value 'الرقم التسجيل Sheet1.Cells(last, "E").Value = Me.TextBox8.Value ' اللقب Sheet1.Cells(last, "D").Value = Me.TextBox16.Value 'الاسم Sheet1.Cells(last, "G").Value = Me.TextBox10.Value 'مكان الميلاد Sheet1.Cells(last, "F").Value = Me.TextBox11.Value 'تاريخ الميلاد Sheet1.Cells(last, "AE").Value = Me.TextBox9.Value 'اللقب بالاتننية Sheet1.Cells(last, "AF").Value = Me.TextBox17.Value 'الاسم بالاتننية Sheet1.Cells(last, "AG").Value = Me.TextBox18.Value 'مكان الميلاد بالاتننية Sheet1.Cells(last, "AH").Value = Me.TextBox19.Value 'ولاية Sheet1.Cells(last, "AC").Value = Me.TextBox12.Value 'تخصص Sheet1.Cells(last, "AD").Value = Me.TextBox20.Value 'تخصص بالاتننية Sheet1.Cells(last, "AL").Value = Me.TextBox13.Value ' رقم الوسيط Sheet1.Cells(last, "AJ").Value = Me.TextBox21.Value ' رقم هاتف MsgBox "تم ترحيل البيانات بنجاح", vbInformation + vbMsgBoxRight + vbMsgBoxRtlReading, "تأكيد" Me.TextBox2.Value = "" Me.TextBox15.Value = "" Me.TextBox16.Value = "" Me.TextBox8.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox9.Value = "" Me.TextBox17.Value = "" Me.TextBox18.Value = "" Me.TextBox19.Value = "" Me.TextBox12.Value = "" Me.TextBox20.Value = "" Me.TextBox13.Value = "" Me.TextBox21.Value = "" ThisWorkbook.Save

السلام عليكم يمكنك استخدام هذه المعادله لعله المطلوب =IF(I21>1,$I$19,IF(H21>1,$H$19,IF(J21>1,$J$19,""))) داله.xlsx

وعليكم السلام جرب هذا يمكنك استخدام الكود التالي في VBA لمنع ظهور النموذج form1 عندما يتم النقر فوق مفتاح معين، على سبيل المثال Ctrl أو Shift: يمكنك استخدام الكود التالي في VBA لمنع ظهور النموذج form1 عندما يتم النقر فوق مفتاح معين، على سبيل المثال Ctrl أو Shift: ``` Private Sub Workbook_Open() UserForm1.Hide End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) UserForm1.Hide End Sub Private Sub Workbook_WindowActivate(ByVal Wn As Excel.Window) UserForm1.Hide End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) UserForm1.Hide End Sub Private Sub Workbook_SheetActivate(ByVal Sh As Object) UserForm1.Hide End Sub Private Sub Workbook_WindowDeactivate(ByVal Wn As Excel.Window) UserForm1.Hide End Sub Private Sub Workbook_WindowScroll(ByVal Wn As Excel.Window) UserForm1.Hide End Sub Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) UserForm1.Hide End Sub Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) UserForm1.Hide End Sub Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) UserForm1.Hide End Sub Private Sub Workbook_SheetCalculate(ByVal Sh As Object) UserForm1.Hide End Sub ```

وعليكم السلام ورحمه الله يمكنك استخدام التالي لتحويل أي نص من الأحرف (الإنجليزية على سبيل المثال) إلى أحرف عربية: Function ConvertNumbersToArabic(ByVal strInput As String) As String Dim ch As String Dim Result As String Dim i As Integer Result = "" For i = 1 To Len(strInput) ch = Mid$(strInput, i, 1) Select Case ch Case "0" Result = Result & "٠" Case "1" Result = Result & "١" Case "2" Result = Result & "٢" Case "3" Result = Result & "٣" Case "4" Result = Result & "٤" Case "5" Result = Result & "٥" Case "6" Result = Result & "٦" Case "7" Result = Result & "٧" Case "8" Result = Result & "٨" Case "9" Result = Result & "٩" Case Else Result = Result & ch End Select Next i ConvertNumbersToArabic = Result End Function يمكنك استدعاء هذه الدالة على سبيل المثال على النحو التالي TextBox1.Value = ConvertNumbersToArabic(TextBox1.Value)

وعليكم السلام ورحمه وبركاته جرب الكود التالي عدله حسب ما تريد Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$2" And Target.Value = "0" Then Rows("15:200").EntireRow.Hidden = True End If End Sub

السلام عليكم ورحمه الله

الشكر لله وحده. الحمد لله الذي بنعمته تتم الصالحات، وبفضله تتنزل الخيرات والبركات وبتوفيقه تتحقق المقاصد والغايات

يمكنك استخدام الكود التالي Application.Visible = False 'إخفاء الاكسل Application.Visible = True 'إظهار الاكسل

للمعلومة .. فما أجمل أن يكون الإنسان شمعة تُنير دروب الحائرين. يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى. جزاكم الله خيرا علي كل هذه الأعمال الرائعة @ابوحبيبه @Mohamed Hicham 🌹🌹

مستخدم 3 لديه فتح جميع الملفات Sub Login() Dim username As String Dim password As String username = InputBox("Enter your username:") password = InputBox("Enter your password:") If username = "user1" And password = "password1" Then Worksheets("Sheet1").Visible = True Worksheets("Sheet1").Activate ElseIf username = "user2" And password = "password2" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet2").Activate Else ElseIf username = "user3" And password = "password3" Then Worksheets("Sheet2").Visible = True Worksheets("Sheet3").Visible = True Worksheets("Sheet1").Visible = True Worksheets("Sheet2").Activate MsgBox "Invalid username or password" End If End Sub