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

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


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





لعبة سودوكو

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



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

السلام عليكم ورحمة الله وبركاته
ارجوا من الاخوة اضافة كود عدم تكرار الرقم في جدول لعبة سودوكو و المطلوب هو عدم تكرار الرقم 
1) عدم التكرار في المربع 
2) عدم التكرار في العمود
3) عدم تكرار في الصف
شكرا لكم
Private Sub CommandButton1_Click()
    Range("puzzle").ClearContents
End Sub




Private Sub CommandButton3_Click()
    Comboer
End Sub

Private Sub CommandButton4_Click()
    Range("c4").Select
    For t_Row = 1 To 9
        For t_Col = 1 To 9
            Squares((t_Row - 1) * 9 + t_Col) = ActiveCell.Offset(t_Row, t_Col).Value
        Next t_Col
    Next t_Row
End Sub

Private Sub CommandButton5_Click()
    Range("puzzle").ClearContents
    Range("c4").Select
     For t_Row = 1 To 9
        For t_Col = 1 To 9
            ActiveCell.Offset(t_Row, t_Col).Value = Squares((t_Row - 1) * 9 + t_Col)
        Next t_Col
    Next t_Row
End Sub


 
 
 
  سودوكو.zip   تحميل zip مرات التحميل :(10)
الحجم :(14.955) KB

توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

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

03-03-2022 10:59 مساء
مشاهدة مشاركة منفردة [1]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif لعبة سودوكو
تم تعديل كود و ارجوا تعيل كود الارقام 9 في سطر 15 من B الى j
 
 
  sudoku (2).zip   تحميل zip مرات التحميل :(4)
الحجم :(32.878) KB

توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

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




الكلمات الدلالية
لعبة ، سودوكو ،


 










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

الساعة الآن 04:56 صباحا