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

كود فورم قصص الانبياء Uoou_u10





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


شاطر
 

 كود فورم قصص الانبياء

اذهب الى الأسفل 
كاتب الموضوعرسالة
a.kawkab



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

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

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

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

كود فورم قصص الانبياء Empty
مُساهمةموضوع: رد: كود فورم قصص الانبياء   كود فورم قصص الانبياء Avatarالأحد ديسمبر 01, 2019 7:01 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 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
a.kawkab



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

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

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

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

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

الف شكر واى خدمة

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

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

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