أبومروان

استخدام Google Drive Google Drive هو أسهل طريقة للعمل في مشروع في وقت واحد. يمكن لأي شخص لديه حساب Google الوصول إلى الملفات وتعديلها حسب الحاجة. سجّل الدخول إلى حسابك وانتقل إلى جوجل درايف. بمجرد دخولك ، يمكنك إنشاء ملف جديد أو تحميل ملف موجود. بمجرد إنشاء المستند أو تحميله ، انقر فوق الزر مشاركةفي الجزء العلوي الزاوية اليمنى من ورقة العمل. سيمنحك هذا الخيار لمشاركة جدول البيانات عن طريق إدخال عنوان بريد إلكتروني أو مشاركة رابط مع زملائك. جميع التغييرات يتم تعقبها وحفظها تلقائيًا. يمكنك العمل على المستند معًا في الوقت الفعلي وهو مناسب جدًا.

و عليكم السلام ورحمه الله وبركاته استاذ @Ashraf Ehab رااجع الموضوع ادناه قد يفيدك

جرب هذا الموقع للتحويل ملفات pdf

وعليكم السلام ورحمه الله دا كود سكون الشاشه لو يكن 10 ثواني وبعدها يظهر فورم1 واخفاء الشيت https://www.raed.net/file?id=210288 im DownTime As Date Sub SetTimer() DownTime = Now + TimeValue("00:00:10") Application.OnTime EarliestTime:=DownTime, _ Procedure:="ShutDown", Schedule:=True End Sub Sub StopTimer() On Error Resume Next Application.OnTime EarliestTime:=DownTime, _ Procedure:="ShutDown", Schedule:=False End Sub Sub ShutDown() Application.DisplayAlerts = False ' MsgBox "انتهت جلسة العمل يجب التفعيل مرة اخرى " & " " & UserName, , " منظومة النتائج الاساسي والثانوي جميع السنوات الدراسية""" Application.Visible = False UserForm1.Show End Sub

السلام عليكم ورحمة الله اتفضل لعله المطلوب حساب تاريخ المعاش.xlsx شاهد الرابط ادناه

السلام عليكم ورحمه الله وبركاته الساده الافاضل تحياتي وكل عام وانتم بخير هل يمكن عمل كود يكون بصيغه add-in xlam لتجنب او تصحيح تلقائي الاخطاء الناتجه عن عدم توافق الكود مع الجهاز 32 او 64 بت كما في الصوره .

استاذ @حسنى سامى محمد اعذرني لجهلي بمفهوم عمل دالهFORECAST في المشاركه السابقه ان شاء الله تكون هذه معادله صحيحه تقبل تحياتي. =FORECAST(AL$3,$B5:$AK5,$B$3:$AK$3) TEST.xlsx

وعليكم السلام ورحمه الله وبركاته دا كود ل اسم المستخدم وكلمه المرور Private Sub CommandButton1_Click() If TextBox1.Text = "username" And TextBox2.Text = "password" Then MsgBox "Welcome " & TextBox1.Text & "!" Else MsgBox "Invalid username or password, please try again." End If End Sub

استاذي الفاضل انتظر ربما نجد أحد يعلمنا هذه الدالة وطريقه عملها افضل . @حسنى سامى محمد

وعليكم السلام ورحمه الله وبركاته لعله المطلوب =FORECAST(AL$3,$B$3:$AK$3,$B5:$AK5) TEST.xlsx

شاهد الموضوع ادناه

وعليكم السلام ورحمه الله وبركاته استخدام الدالة trim في علاج هذه المشكلة ونكتب في خلية فارغة =trim(d2) ونقوم بتطبيق الدالة على هذه الحالة

وجدت هذا الكود ولم اجربه للامانه Sub ExportUserForms() Dim i As Integer For i = 1 To 25 UserForms(i).Export "C:\Users\User\Documents\UserForm" & i & ".frm" Next i End Sub جرب واخبرنا بالنتيجة

وعليكم السلام ورحمه الله وبركاته يمكنك استخدام هذه المعادله =TEXT(A8,"dddd") استخراج اسم اليوم.xls

راجع الموضوع أدناه ⬇️ لعله يفيدك

وعليكم السلام ورحمه الله وبركاته استخدم هذا الكود للاضافه للترحيل بعدا لتعديل عليه بما بناسب الشيت المرفق . Dim i As Byte, Last As Long, Sh As Worksheet Set Sh = Sheets("data") With Sh Last = .Cells(Rows.Count, 2).End(xlUp).Row + 1 For i = 1 To 17 .Cells(Last, i).Value = Me.Controls("Tx" & i).Value Me.Controls("Tx" & i) = "" Next End With tx1.SetFocus

سلمت يمينك يا استاذ👌🌹 @محمد يوسف ابو يوسف

اي كود يعطيك خطأ برجاء ارفق صوره من الخطأ للوصول للحل افضل 🌹

سيتم تحويل حالة العرض الخاصة بكل صفحة بعد تنفيذ هذا الكود. إذا كانت الصفحة مرئية، فسيتم إخفاءها. وإذا كانت مخفية، فستصبح مرئية. يمكنك ضبط الكود حسب احتياجاتك Sub ShowHideSheets() Dim sht As Worksheet For Each sht In ThisWorkbook.Worksheets If sht.Visible = True Then sht.Visible = False Else sht.Visible = True End If Next sht End Sub كود فورم 1 به شاشة دخول للورك بوك Private Sub CommandButton1_Click() ' تحقق من صحة اسم المستخدم وكلمة المرور If TextBox1.Value = "اسم المستخدم الصحيح" And TextBox2.Value = "كلمة المرور الصحيحة" Then UserForm2.Show ' اعرض UserForm2 إذا كانت بيانات الدخول صحيحة Else MsgBox "اسم المستخدم أو كلمة المرور غير صحيحة" ' أظهر رسالة خطأ إذا كانت بيانات الدخول غير صحيحة End If End Sub

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