عبدالعزيزالمدني

الأستاذ ياسر خليل أبو البراء  عندنا مثل يقول ( ما قدر للعجل قال حمله امه  ) انا ما أقدر اقرأ الكلمات الإنجليزي اللي كتبتها فضلا عن عمل بحث فيها وبصراحه احرجتنا امام الناس

في ‏٠١‏/‏٠٣‏/‏٢٠١٦ at 12:21, ياسر خليل أبو البراء said:

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

إخواني الكرام وأحبابي في الله

أقدم لكم فورم يقوم بتوليد أرقام عشوائية ما بين رقمين ..

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

على سبيل المثال ..أول ما تشغل الفورم يكون رق البداية 1 ورقم النهاية 100 .. قم بتغيير الرقم 1 إلى 5 والرقم 100 إلى 200 ... ونفذ الكود واخرج من الفورم وأغلق المصنف وأعد فتحة مرة أخرى .. ستجد أن الأرقام الأخيرة 5 ، 200 تم الاحتفاظ بهما

أرجو أن ينال الفورم إعجابكم

الكود التالي يوضع في موديول

Public Const PUPNAME As String = "Officena Forums"
Public Const APPNAME As String = "Random Number Generator"

Sub GetRandomNumber()
    With UserForm1
        .StartUpPosition = 0
        .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
        .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
        .Show
    End With
End Sub

والكود التالي يوضع في حدث الفورم

Option Explicit

Dim Stopped As Boolean
Dim Cnt As Long

Private Sub UserForm_Initialize()
    On Error Resume Next
    Label1.BackColor = ActiveWorkbook.Theme.ThemeColorScheme(msoThemeDark2).RGB
    On Error GoTo 0
    Me.Caption = APPNAME
    If GetSetting(PUPNAME, "Settings", "RememberSettings", True) Then
        TextBox1.Text = GetSetting(PUPNAME, APPNAME, "TextBox1", 1)
        TextBox2.Text = GetSetting(PUPNAME, APPNAME, "TextBox2", 100)
    End If
End Sub

Private Sub StartStopButton_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call Start_Or_Stop
End Sub

Private Sub StartStopButton_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    '"S" Keys Starts And Stops
    If KeyCode = 83 Then Call Start_Or_Stop
End Sub

Private Sub Start_Or_Stop()
    Dim Low As Double, Hi As Double
    
    If StartStopButton.Caption = "Start" Then
        LabelNumberCount.Visible = False
        
        'Validate Low And High Values
        If Not IsNumeric(TextBox1.Text) Then
            MsgBox "Non-Numeric Starting Value.", vbInformation, APPNAME
            With TextBox1
                .SelStart = 0
                .SelLength = Len(.Text)
                .SetFocus
            End With
            Exit Sub
        End If
        
        If Not IsNumeric(TextBox2.Text) Then
            MsgBox "Non-Numeric Ending Value.", vbInformation, APPNAME
            With TextBox2
                .SelStart = 0
                .SelLength = Len(.Text)
                .SetFocus
            End With
            Exit Sub
        End If
        
        'Make Sure They Aren't In The Wrong Order
        Low = Application.Min(Val(TextBox1.Text), Val(TextBox2.Text))
        Hi = Application.Max(Val(TextBox1.Text), Val(TextBox2.Text))
        
        'Adjust Font Size If Necessary
        Select Case Application.Max(Len(TextBox1.Text), Len(TextBox2.Text))
            Case Is < 5: Label1.Font.Size = 72
            Case 5: Label1.Font.Size = 60
            Case 6: Label1.Font.Size = 48
            Case Else: Label1.Font.Size = 36
        End Select
        
        StartStopButton.Caption = "Stop"
        Stopped = False
        Randomize
        Cnt = 0
        Do Until Stopped
            Label1.Caption = Int((Hi - Low + 1) * Rnd + Low)
            Cnt = Cnt + 1
            DoEvents
        Loop
    Else
        Stopped = True
        StartStopButton.Caption = "Start"
        With LabelNumberCount
            .Visible = True
            .Caption = Cnt
        End With
    End If
End Sub

Private Sub CancelButton_Click()
    Stopped = True
    Unload Me
End Sub

Private Sub UserForm_Terminate()
    Stopped = True
    SaveSetting PUPNAME, APPNAME, "TextBox1", TextBox1.Text
    SaveSetting PUPNAME, APPNAME, "TextBox2", TextBox2.Text
    On Error GoTo 0
    Unload Me
End Sub

Private Sub PUPHelpButton_Click()
    MsgBox "Random Number Generator By YasserKhalil From Officena", 64
End Sub

وإليكم الملف المرفق مطبق فيه الأكواد

تقبلوا تحياتي

Random Number Generator UserForm YasserKhalil.rar

جزاك الله خير الجزاء أستاذ ياسر نحتاج مثل هذا الكود لوضع الأرقام  اثناء المسابقات والاختيار العشوائي ولكن هل يمكن الاحتفاظ بالاختيارات السابقه

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

جزاك الله الف خير أستاذ ياسر دائما مبدع سلمت اناملك وزادك الله علما وبصيره

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

تسلم أستاذ جعفر

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

استاذي العزيز جعفر

هذا ما ظهر لي عندما عملت ما وجهتني به أستاذ جعفر

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

لكن لا يقبل التحرير لأنه في الأساس كان نموذج  لإدخال الدرجات 

فاين الخطاء في عملي

فاذا تخلصنا من النموذج الفرعي

فانا اريده كما النموذج تمام في التصفية والتحرير

ويكون فيه زر معاينة طباعه وتحديد الظاهر ونسخه ليتم لصقه في اكسل ان لم يكن كتصدير

؟

الاخوة الأعزاء

لدي ملف وورد A   ولدي ملف اكسيل B  

عملت دمج مراسلات في الورد من ملف اكسيل B

الملفان جميعهما على القرص D   بعد فتره نقلتهما معا الى القرص F    

فلم تنجح عملية الدمج السابقه ولابد من تجديدها مرة أخرى

فكيف اجعل عملية الدمج ثابته حتى وان اختلف موقع الملفات افيدونا جزيتم خيرا

بعد اذن حضرة استاذنا ياسر

اخي شعبان

اجمالي مبلغ الفاتورة مقسوم على مبلغ الخصم   والناتج يضرب في قيمة كل صنف

الاخوة الأعزاء

استاذي العزيز جعفر

هل من الممكن عمل التصفية في التقارير كما في صورة النموذج التالي

حيث بصراحه جعلني الأستاذ العبقري جعفر بإبداعاته اكتفي عن عمل استعلامات وتقارير  بهذا النموذج الرائع فهو يعمل ادخال بيانات ويعمل عمل الاستعلامات بالتصفية

ام  اكتفي بطلب عمل  أزار لل (  طباعه      وتصدير الى اكسيل     و إخفاء بعض الأعمدة المحددة ) من النموذج هذا نفسه

المعلم اليمني المجموع والمحصله.rar

21 ساعات مضت, رمهان said:

احسن الله عزاؤكم اخ عبدالعزيز وبشر الصابرين

امين يارب تسلم اخي العزيز رمهان ولا اراكم الله وبلدكم الحبيب أي شر ومكروه 

تسلم أستاذي العزيز جعفر

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

ولا املك الا ان ادعو لك في ظهر الغيب جزاك الله خيرا وزادك الله علما ونفع بك الإسلام والمسلمين

15 دقائق مضت, jjafferr said:

اعطني اسم النموذج ، وكيف استطيع ان ارى هذه الرسائل؟

 

 

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

المعلم اليمني بعد اضافة المعيار.rar

6 دقائق مضت, jjafferr said:

عفوا ، عندك مسافة اضافية بين [ mostwa1]

جرب

IIf(Len([Forms]![frm_Data_Entry]![mostwa1] & "")<>0;[Forms]![frm_Data_Entry]![mostwa1];[mostwa])

.

واذا ما صار ، فرجاء اخباري اين اجد المشكلة

 

جعفر

استاذي العزيز جعفر

لا لم تتغير النتيجه وهذا ما يحصل عندما افتح النموذج واوافق على ادخال قيمه معلمه كما في الصور

13 دقائق مضت, jjafferr said:

عندك قوس زائد 

الكود الصحيح:

 IIf(Len([Forms]![frm_Data_Entry]![ mostwa1] & "")<>0;[Forms]![frm_Data_Entry]![mostwa1];[mostwa])

 

 

جعفر

اذا لماذا تظهر رساله ادخله القيمه المعلمه للمحصله والمستوى

تسلم استاذي العزيز جعفر لدي بعض الاستفسارات

1- كنت قد كتبتها بنفس المعادله ولم الاحظ الخطاء الذي وقعت انا فيه  سابحث انا الان عن الخطاء واقارنه لانها لم تظهر لي الاصفار في عملي هذه المعادله الذي استخدمتها انا

( magmoa: Nz([althryry];0)+Nz([alsafhy];0)+Nz([alwagp];0)+Nz([almoatapa];0) ) 

2- عملت نفس خطواتك في النموذج التصفيه ( ادخال الدرجات )       للمستوى والنتيجه  وعندما اضع الشرط التالي  في المعيار داخل الاستعلام     يعمل رسالة خطاء  هذا  هو

الكود ( IIf(Len([Forms]![frm_Data_Entry]![ mostwa1] & "")<>0;[Forms]![frm_Data_Entry]![mostwa1];[mostwa]   )

المعلم اليمني المجموع والمحصله.rar

هل اضيف اعمده جديده في الاستعلام لوضع هذا الامر Nz فيه  وتستمد بياناتها منه ومن ثم يكون المجموع منها

ام اضيف الامر Nz في الحقول نفسها ( الواجب  المواظبة التحريري الشفهي ) كمعيار

امين يارب تسلم استاذي العزيز جعفر ورحم الله جميع موتى المسلمين واحسن الله عزائنا جميعا

1- بالنسبه للمستويات والنتيجه كما في الصوره المرفقه  من خلال عمود المجموع اذا حصل الطالب >49,5 ناجح وغيره راسب او غائب اذا كنت درجات الماده فارغه      اما المستويات  اكثر من 74 جيد واقل منها الى 50 متوسط والقل من 50 ضعيف وجزيت الف خير استاذي   

2-  استاذي ظهرت لي مشكله جديده بعد ادخال كود الجمع على الاستعلام  يرفض جمع الخانات الفارغه من الدرجات

لا اعرف اين اخطاءت لكن اعتذر على كثرة اسئلتي وجزيتم من الله كل الخير

السلام عليكم اساتذتي الاجلاء  تم الحمد لله الجمع واستخراج المحصله  في الاستعلام كما في المرفق ورأي استاذنا جعفر يهمني

وبقي لي كيف يكون صياغة المعادله في الاستعلام  النتيجه ( للراسب والناجح )   والمستوى ( متوسط جيد ضعيف )

المعلم اليمني المجموع والمحصله.rar

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

في ‏٠١‏/‏٠٣‏/‏٢٠١٦ at 15:31, عبدالعزيزالمدني said:

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

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

المعلم اليمني المجموع والمحصله.rar

المعلم ليمني.rar

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

5 ساعات مضت, رضا محمد على احمد said:

السلام عليكم

على حد علمي فى الاكسيس  اجعل فى الجدول الحقول الرقميه -  القيمه الافتراضيه ( 0 )   ثم        

ممكن تكون التجميع بهذا الشكل        ([Sum([a]+[p]+[m]+[f تسوي

يرفض هذه المعادله في حقل محسوب

6 ساعات مضت, jjafferr said:

السلام عليكم 

 

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

 

للعلم 

 

جعفر

نعم استاذ جعفر  ظننت ان الاسهل عمل المجاميع هنا مادام ولدي حقول محسوبه

6 ساعات مضت, karrar sabry said:

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

 

لانني لا استطيع عمل المعادله في الاستعلام  اخاف يتلخبط لاستعلام اللي صممه الاستاذ جعفر

للافاده

العام 2009ـ2010 لايوجد درجات  اما العام 2030 فقد قمت بتعبئة الدرجات

هذا من اجل المقارنه