الاستاذ مجدى
فورم اكسل لقصص انبياء الله للاطفال والكبار 613623
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا فورم اكسل لقصص انبياء الله للاطفال والكبار 829894
ادارة المنتدي فورم اكسل لقصص انبياء الله للاطفال والكبار 103798

فورم اكسل لقصص انبياء الله للاطفال والكبار Uoou_u10





 
الرئيسيةالأستاذ التعليمضع التسجيلدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل tota_2012 فمرحبا به


شاطر
 

 فورم اكسل لقصص انبياء الله للاطفال والكبار

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالثلاثاء نوفمبر 26, 2019 8:05 am

فورم اكسل لقصص انبياء الله للاطفال والكبار


الفيديو




ضع رد لظهور رابط الملف


_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11


عدل سابقا من قبل مجدى يونس في الثلاثاء نوفمبر 26, 2019 3:07 pm عدل 1 مرات
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
ابو الوفاء



عدد المساهمات : 1
تاريخ التسجيل : 26/11/2019

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالثلاثاء نوفمبر 26, 2019 1:45 pm

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالثلاثاء نوفمبر 26, 2019 2:50 pm

الف شكر

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
ahmedabdulaziz



عدد المساهمات : 28
تاريخ التسجيل : 14/10/2019

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالثلاثاء نوفمبر 26, 2019 7:49 pm

thnx
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالثلاثاء نوفمبر 26, 2019 8:23 pm

thnx

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
عبدالله الضراسي



عدد المساهمات : 6
تاريخ التسجيل : 13/04/2019

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالأربعاء نوفمبر 27, 2019 6:00 pm

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالخميس نوفمبر 28, 2019 3:38 pm

الف شكر

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
Manned



عدد المساهمات : 5
تاريخ التسجيل : 28/03/2019

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالخميس نوفمبر 28, 2019 5:33 pm

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالخميس نوفمبر 28, 2019 6:56 pm

اى خدمة

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
a.kawkab



عدد المساهمات : 15
تاريخ التسجيل : 31/05/2017

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالسبت نوفمبر 30, 2019 7:53 pm

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالأحد ديسمبر 01, 2019 7:05 am

اليك الكود

الكود:
Option Explicit
Dim TopicCount, CurrentTopic As Integer, Data As Worksheet

'Customize The Following Statement To Correspond To The Worksheet That Contains The Help Topics
Const DataName As String = "Data"

'Custom‎ze The Following Statement To Change The Caption Displayed On The Form
Const HelpFormCaption As String = "Data"

Private Sub CommandButton4_Click()
Dim X, d, yuk As Integer

If CommandButton4.Caption = "8" And Data_Form.Width = 410 Then
For d = 1 To 158
DoEvents
yuk = 310
Data_Form.Width = yuk - d
Next
ComboBoxTopics.Enabled = True
ComboBoxTopics.ListIndex = 0
CommandButton4.Caption = "9"
Exit Sub
End If

If CommandButton4.Caption = "9" And Data_Form.Width = 352 Then
For X = 1 To 458
DoEvents
yuk = 252
Data_Form.Width = yuk + X
Next
ComboBoxTopics.Enabled = False
CommandButton4.Caption = "8"
End If

End Sub

Private Sub Frame1_Click()

End Sub

Private Sub LabelTopic_Click()

End Sub

Private Sub ListBox1_Click()
CurrentTopic = ListBox1.ListIndex + 1
ListBox1.ListIndex = CurrentTopic - 1
ComboBoxTopics.ListIndex = ListBox1.ListIndex
Me.Caption = HelpFormCaption & " (" & CurrentTopic & " of " & TopicCount & ")"
 
    With LabelTopic
        .Caption = Data.Cells(CurrentTopic, 2)
        .AutoSize = False
        .Width = 350
        .AutoSize = True
    End With
End Sub

Private Sub SpinButton1_SpinDown()
On Error Resume Next
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
With Me.ListBox1
        .ListIndex = .ListIndex + 1
    End With
End Sub

Private Sub SpinButton1_SpinUp()
On Error Resume Next
If ListBox1.ListIndex = 0 Then Exit Sub
With Me.ListBox1
        .ListIndex = .ListIndex - 1
    End With
    End Sub

Private Sub UserForm_Initialize()
'  Executed before the form is shown
    Dim Row As Integer
    Me.Width = 352
    Set Data = ThisWorkbook.Sheets(DataName)
    TopicCount = Application.WorksheetFunction.CountA(Data.Range("A:A"))
    For Row = 1 To TopicCount
        ComboBoxTopics.AddItem Data.Cells(Row, 1)
        ListBox1.AddItem Data.Cells(Row, 1)
    Next Row
    ComboBoxTopics.ListIndex = 0
    CurrentTopic = 1
    UpdateForm
End Sub

Private Sub UpdateForm()
'  Updates the topics
    ComboBoxTopics.ListIndex = CurrentTopic - 1
    Me.Caption = HelpFormCaption & " (" & CurrentTopic & " of " & TopicCount & ")"
    With LabelTopic
        .Caption = Data.Cells(CurrentTopic, 2)
        .AutoSize = False
        .Width = 312
        .AutoSize = True
    End With
    Frame1.ScrollTop = 1
    Frame1.ScrollHeight = LabelTopic.Height + 5
    If CurrentTopic = 1 Then PreviousButton.Enabled = False Else PreviousButton.Enabled = True
    If CurrentTopic = TopicCount Then NextButton.Enabled = False Else NextButton.Enabled = True
    On Error Resume Next
    If NextButton.Enabled Then NextButton.SetFocus Else PreviousButton.SetFocus
End Sub

Private Sub ComboBoxTopics_Click()
'  Executed when combobox is changed
    CurrentTopic = ComboBoxTopics.ListIndex + 1
    UpdateForm
    ListBox1.ListIndex = CurrentTopic - 1
End Sub

Private Sub PreviousButton_Click()
'  Executed when the PreviousButton is clicked
    If CurrentTopic <> 1 Then
        CurrentTopic = CurrentTopic - 1
        UpdateForm
    End If
End Sub

Private Sub NextButton_Click()
'  Executed when the NextButton is clicked
    If CurrentTopic <> TopicCount Then
        CurrentTopic = CurrentTopic + 1
        UpdateForm
    End If
End Sub

Private Sub ExitButton_Click()
'  Executed when the ExitButton is clicked
    Unload Me
End Sub

Private Function SheetExists(sht) As Boolean
    Dim TempSheet As Worksheet
    On Error Resume Next
    Set TempSheet = ThisWorkbook.Worksheets(sht)
    If Err = 0 Then SheetExists = True Else SheetExists = False
End Function

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
حازم التميمي



عدد المساهمات : 1
تاريخ التسجيل : 01/12/2019

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالإثنين ديسمبر 02, 2019 1:45 pm

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

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالإثنين ديسمبر 02, 2019 1:53 pm

الف شكر

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
حسين عبدالمريدمحمد



عدد المساهمات : 5
تاريخ التسجيل : 04/12/2019

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالخميس ديسمبر 05, 2019 1:35 am

مشكورة جزاك الله خير
الرجوع الى أعلى الصفحة اذهب الى الأسفل
مجدى يونس
Admin
مجدى يونس

عدد المساهمات : 3008
تاريخ التسجيل : 22/02/2013
العمر : 65

فورم اكسل لقصص انبياء الله للاطفال والكبار Empty
مُساهمةموضوع: رد: فورم اكسل لقصص انبياء الله للاطفال والكبار   فورم اكسل لقصص انبياء الله للاطفال والكبار Avatarالخميس ديسمبر 05, 2019 7:16 am

الف شكر لك

_________________
لا تعطيني سمكة ... و لكن علمني كيف أصطاد السمك

فورم اكسل لقصص انبياء الله للاطفال والكبار Aaa11
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://magdi54.forumegypt.net
 
فورم اكسل لقصص انبياء الله للاطفال والكبار
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: