أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
وليد 99999 لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة تعديل معادلة صفيف اكسيل اسئله واجابات


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





مراجعة الاكواد

السلام عليكم ورحمة الله وبركاته الأساتذة الكرام أرجو المساعدة في مراجعة هذا الاكواد و تعديل عليها ان وجد و حذف الكلمات ..



subject icon غير مجابة مراجعة الاكواد
25-06-2021 09:41 صباحا
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 

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

1) كود دخول للبرنامج

Private Sub CommandButton1_Click()
form2.TextBox1.Value = TextBox1.Value
Dim UserName As String, Password As String
Dim rngUser As Range
Dim firstUser As String
Dim UserFound As Boolean
If TextBox1.Value = "" Then
    MsgBox ("ÃÏÎá ÇÓã ÇáãÓÊÎÏã"), vbOKOnly
    TextBox1.SetFocus
    Exit Sub
End If
If TextBox2.Value = "" Then
    MsgBox ("ÃÏÎá ßáãÉ ÇáãÑæÑ"), vbOKOnly
    TextBox2.SetFocus
    Exit Sub
    End If
UserName = TextBox1.Value
Password = TextBox2.Value
With Range("D:D")
    Set rngUser = .Find(UserName, lookat:=xlWhole)
    If Not rngUser Is Nothing Then
        firstUser = rngUser.Address
        Do
            If Password = rngUser.Offset(0, 1).Value & "" Then
                UserFound = True
                Unload Me
                MsgBox ("ÃåáÇ æÓåáÇ Èß Ýí ÈÑäÇãÌ ãÓØÇÍ"), vbOKOnly
                form1.Hide
                form2.Show
               Else
                Set rngUser = .FindNext(rngUser)
            End If
            
        Loop While Not rngUser Is Nothing And firstUser <> rngUser.Address
    Else
        MsgBox "ÇÓã ÇáãÓÊÎÏã ÛíÑ ÕÍíÍ !", vbExclamation, "UserName Not Found!"
        TextBox1.Value = ""
        TextBox2.Value = ""
        Exit Sub
    End If
End With
If Not UserFound Then
MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ!", vbOKOnly
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox1.SetFocus
End If
    End Sub
    Private Sub CommandButton2_Click()
'ThisWorkbook.Save
Application.Quit
End Sub
Private Sub CommandButton3_Click()
form2.TextBox1.Value = TextBox1.Value
End Sub
Private Sub Label2_Click()
End Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = True
End Sub

  شكرا جزيلا

 
Private Sub CommandButton1_Click() form2.TextBox1.Value = TextBox1.Value Dim UserName As String, Password As String Dim rngUser As Range Dim firstUser As String Dim UserFound As Boolean If TextBox1.Value = "" Then     MsgBox ("ÃÏÎá ÇÓã ÇáãÓÊÎÏã"), vbOKOnly     TextBox1.SetFocus     Exit Sub End If If TextBox2.Value = "" Then     MsgBox ("ÃÏÎá ßáãÉ ÇáãÑæÑ"), vbOKOnly     TextBox2.SetFocus     Exit Sub     End If UserName = TextBox1.Value Password = TextBox2.Value With Range("Dbiggrin2")     Set rngUser = .Find(UserName, lookat:=xlWhole)     If Not rngUser Is Nothing Then         firstUser = rngUser.Address         Do             If Password = rngUser.Offset(0, 1).Value & "" Then                 UserFound = True                 Unload Me                 MsgBox ("ÃåáÇ æÓåáÇ Èß Ýí ÈÑäÇãÌ ãÓØÇÍ"), vbOKOnly                 form1.Hide                 form2.Show                Else                 Set rngUser = .FindNext(rngUser)             End If                      Loop While Not rngUser Is Nothing And firstUser <> rngUser.Address     Else         MsgBox "ÇÓã ÇáãÓÊÎÏã ÛíÑ ÕÍíÍ !", vbExclamation, "UserName Not Found!"         TextBox1.Value = ""         TextBox2.Value = ""         Exit Sub     End If End With If Not UserFound Then MsgBox "ßáãÉ ÇáãÑæÑ ÛíÑ ÕÍíÍÉ!", vbOKOnly     TextBox1.Value = ""     TextBox2.Value = ""     TextBox1.SetFocus End If     End Sub     Private Sub CommandButton2_Click() 'ThisWorkbook.Save Application.Quit End Sub Private Sub CommandButton3_Click() form2.TextBox1.Value = TextBox1.Value End Sub Private Sub Label2_Click() End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True End Sub
 
 
Peace, mercy and blessings of God
 
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 

25-06-2021 02:08 مساء
مشاهدة مشاركة منفردة [1]
محمد الدسوقى
خبير
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 47
المشاركات : 826
الجنس : ذكر
تاريخ الميلاد : 14-10-1973
الدعوات : 79
يتابعهم : 9
يتابعونه : 763
قوة السمعة : 8651
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif مراجعة الاكواد
استاذى الفاضل
من الأفضل دائما لطرح مشكلة أو سؤال أن ترفق ملف وتحديد المشكلة بشكل أوضح
ليتسنى للسادة الأعضاء سرعة التركيز على المشكلة نفسها بدلا من الارهاق فى المرور على كل هذه الأكواد

تقبل تحياتى

25-06-2021 03:29 مساء
مشاهدة مشاركة منفردة [2]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif مراجعة الاكواد
استاذى الفاضل
اطال الله في عمرك لا يوجد عندي انا اي مشكلةو لكن ربما يوجد خطاء و انا لا اعرف الخطاء
لذلك تم عرضه عليكم للاستفادة من خبراتكم و في نفس الوقت ان يستفيد منه الاخرون في الصح و الخطاء
رقم السري و اسم المستخدم :11
تقبل تحياتى
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 

30-06-2021 10:37 مساء
مشاهدة مشاركة منفردة [3]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif مراجعة الاكواد
في الانتظار
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

زكاة العلم تعليمه
 




الكلمات الدلالية
مراجعة ، الاكواد ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 10:51 صباحا