المساعدة في تطبيقي لفورم القرعة لآستاذنا الرائع عبد الله باقشير

[عاشق الاسلام]

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

ولكم وافر الاحترام والتقدير.

ملف.rar

[عبدالله باقشير]

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

قرعة 3.rar

[عاشق الاسلام]

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

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

[عاشق الاسلام]

 

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

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

 

[عاشق الاسلام]

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

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

قرعة1.rar

[عبدالله باقشير]

 

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

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

 

 

وعليكم السلام

 

اذهب الى الملف الذي عملته انا وادخل على الاسماء

اكسل 2003 : من القائمة ادراج .......الاسم .....تعريف

اكسل احدث من 2003 : من القائمة صيغ ....ادارة الاسماء

 

واخبرنا ماذا وجدت ؟

[عاشق الاسلام]

 

 

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

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

 

 

وعليكم السلام

 

اذهب الى الملف الذي عملته انا وادخل على الاسماء

اكسل 2003 : من القائمة ادراج .......الاسم .....تعريف

اكسل احدث من 2003 : من القائمة صيغ ....ادارة الاسماء

 

واخبرنا ماذا وجدت ؟

 

استاذي الغالي كل عام وانتم بالف خير.انا استعمل اوفس 2010 ولم اجد ادارة الاسماء.الله يبارك فيك استاذي ممكن تساعدني اكثر ولو بصورة توضيحية.

[عبدالله باقشير]

 

 

 

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

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

 

 

وعليكم السلام

 

اذهب الى الملف الذي عملته انا وادخل على الاسماء

اكسل 2003 : من القائمة ادراج .......الاسم .....تعريف

اكسل احدث من 2003 : من القائمة صيغ ....ادارة الاسماء

 

واخبرنا ماذا وجدت ؟

 

استاذي الغالي كل عام وانتم بالف خير.انا استعمل اوفس 2010 ولم اجد ادارة الاسماء.الله يبارك فيك استاذي ممكن تساعدني اكثر ولو بصورة توضيحية.

 

 

[عاشق الاسلام]

 

 

 

 

السلام عليكم

 

في اسمين معرفين  لم تقم باضافتهما في هذا الملف

 

شاهد المرفق 2003

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

 

 

وعليكم السلام

 

اذهب الى الملف الذي عملته انا وادخل على الاسماء

اكسل 2003 : من القائمة ادراج .......الاسم .....تعريف

اكسل احدث من 2003 : من القائمة صيغ ....ادارة الاسماء

 

واخبرنا ماذا وجدت ؟

 

استاذي الغالي كل عام وانتم بالف خير.انا استعمل اوفس 2010 ولم اجد ادارة الاسماء.الله يبارك فيك استاذي ممكن تساعدني اكثر ولو بصورة توضيحية.

 

 

names.gif

 

نعم ياستاذي الفاضل الله يبارك فيك ويرفع من مقامك لقد وجدتها ادارة الاسماء ,ولان ماذا اعمل

[عبدالله باقشير]

اولا اجب على هذا السؤال

ماذا وجدت في ملفي بعد فتح ادارة الاسماء ؟؟

[عاشق الاسلام]

اولا اجب على هذا السؤال

ماذا وجدت في ملفي بعد فتح ادارة الاسماء ؟؟

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

[عبدالله باقشير]

السلام عليكم

 

هذا سبب الخطأ في ملفك

قم باضافتهما  الى ملفك

[عاشق الاسلام]

السلام عليكم

 

هذا سبب الخطأ في ملفك

قم باضافتهما  الى ملفك

وعليكم السلام  ياستاذي الرائع لقد نجحت في تطبيق الملف والفضل يعود لله واليك ياستاذي القدير والمبدع وارجو من الله سبحانه وتعالى ان  يرفع من مقامك  وان لايحرمنا من وجودك الغالي والرائع.وتقبل مني وافر الاحترام والتقدير.

تم تعديل أكتوبر 6, 2014 بواسطه عاشق الاسلام

[عاشق الاسلام]

السلام عليكم

 

هذا سبب الخطأ في ملفك

قم باضافتهما  الى ملفك

استاذي الغالي ممكن ان اجعل عداد الوقت يعمل تنازلياً وليس تصاعدياً وتقبل مني وافر الاحترام والتقدير.

[عاشق الاسلام]

السلام عليكم  استاذي الغالي انا انتظر الجواب منكم والله سبحانه وتعالى  يبارك فيك ويجعل هذا العمل في ميزان حسناتك .وتقبل مني وافر الاحترام والتقدير.

[عبدالله باقشير]

السلام عليكم

 

استبدل هذا بالموجود

Private Sub Update_Par()
Dim PauseTime, Start, tm, tx
Dim i As Long, iRnd As Long
On Error GoTo kh_ex
'----------------------------------
If Me.ListBox1.ListCount = Me.ComboBox3.Value Then
    If Me.ComboBox3.ListIndex Then
        If MsgBox("هل تريد مسح قائمة الانتقاء السابقة ؟ ", vbOKCancel + vbMsgBoxRtlReading, "تنبيه") = vbCancel Then GoTo kh_ex
    End If
    Me.ListBox1.Clear
    Set Obj = CreateObject("Scripting.Dictionary")
End If
'----------------------------------
kh_Enabled False
PauseTime = kh_on_off()
Start = Timer
'----------------------------------

Do
    i = i + 1
    tm = Timer - Start
    If i Mod (Me.ComboBox1.ListIndex + 1) * X = 0 Then
11
        DoEvents
        iRnd = Int((Rnd * iCont) + 1)
        tx = mRng.Cells(iRnd, 1).Value
        If Obj.Exists(tx) Then GoTo 11
        Me.LabelTxt = tx
        
        If PauseTime Then If tm >= PauseTime Then kh_Enabled True
        If tst Then Exit Do
    End If
    tm = Format(Abs(PauseTime - tm), "00")
    Me.LabelTime = "00:" & tm
Loop
'----------------------------------
Obj.Add tx, 1
With Me.ListBox1
    .AddItem tx
    .ListIndex = .ListCount - 1
End With
kh_ex:
End Sub

تحياتي

[عاشق الاسلام]

السلام عليكم

 

استبدل هذا بالموجود

Private Sub Update_Par()
Dim PauseTime, Start, tm, tx
Dim i As Long, iRnd As Long
On Error GoTo kh_ex
'----------------------------------
If Me.ListBox1.ListCount = Me.ComboBox3.Value Then
    If Me.ComboBox3.ListIndex Then
        If MsgBox("هل تريد مسح قائمة الانتقاء السابقة ؟ ", vbOKCancel + vbMsgBoxRtlReading, "تنبيه") = vbCancel Then GoTo kh_ex
    End If
    Me.ListBox1.Clear
    Set Obj = CreateObject("Scripting.Dictionary")
End If
'----------------------------------
kh_Enabled False
PauseTime = kh_on_off()
Start = Timer
'----------------------------------

Do
    i = i + 1
    tm = Timer - Start
    If i Mod (Me.ComboBox1.ListIndex + 1) * X = 0 Then
11
        DoEvents
        iRnd = Int((Rnd * iCont) + 1)
        tx = mRng.Cells(iRnd, 1).Value
        If Obj.Exists(tx) Then GoTo 11
        Me.LabelTxt = tx
        
        If PauseTime Then If tm >= PauseTime Then kh_Enabled True
        If tst Then Exit Do
    End If
    tm = Format(Abs(PauseTime - tm), "00")
    Me.LabelTime = "00:" & tm
Loop
'----------------------------------
Obj.Add tx, 1
With Me.ListBox1
    .AddItem tx
    .ListIndex = .ListCount - 1
End With
kh_ex:
End Sub

تحياتي

وعليكم السلام ياستاذي المبدع والرائع وانا لاعرف كيف اعبر عن شكري لكم ولكني ارجو من الله سبحانه وتعالى ان يرفع من مقامك ويزيد في علمك وعمرك وان لايحرمنا من وجودك الغالي.وتقبل مني وافر الاحترام والتقدير.