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

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


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





نعم ام لا

اخواني هل يمكن اضافة نعم او لا في الكود التالي[code]PGJyIC8+DQpTdWIgQ2xvc2VfRmlsZSgpPGJyIC8+DQpBcHBsaWNhdGlvbi5EaXNwbGF5 ..


موضوع مغلق


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

اخواني
هل يمكن اضافة نعم او لا في الكود التالي

Sub Close_File()
Application.DisplayAlerts = False
ThisWorkbook.Save
" هل تريد حفظ العمل "  MsgBox
نعم او لا اذا كان نعم يحفظ العمل و يستعد للخروج و ان كان لا (يحفظ العمل فقط )
    Application.Quit

" هل تريد الخروج من البرنامج "MsgBox
نعم او لا 
  " شكرا لاستخدامك برنامج مسطاح" MsgBox
" مع السلامة "  MsgBox
End Sub
Sub Close_File()
 


أفضل إجابة مقدمة من YasserKhalil وهي:
جرب الكود بهذا الشكل ، حيث تضع شرط باستخدام If 
Sub Close_File()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    If MsgBox("هل تريد حفظ العمل", vbYesNo) = vbYes Then
        Application.Quit
        MsgBox "هل تريد الخروج من البرنامج", vbYesNo
        MsgBox " شكرا لاستخدامك برنامج مسطاح"
        MsgBox " مع السلامة "
    Else
        MsgBox "Cancelled"
    End If
End Sub
عرض الإجابة



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

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

26-06-2021 08:40 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نعم ام لا
أخي الكريم 
يرجى وضع الكود بين أقواس الكود ليظهر بشكل صحيح
جرب الكود التالي وحاول دراسته لتعرف كيف تستخدمه وإن كنت أحبذ استخدام الأزرار الافتراضية Yes / No بدون الدخول في تعقيدات بلا داعي.
Option Explicit

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
Private Declare Function SetDlgItemText Lib "user32" Alias "SetDlgItemTextA" (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal lpString As String) As Long
Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Private Const IDPROMPT = &HFFFF&
Private Const WH_CBT = 5
Private Const GWL_HINSTANCE = (-6)
Private Const HCBT_ACTIVATE = 5

Private Type MSGBOX_HOOK_PARAMS
    hWndOwner       As Long
    hHook           As Long
End Type

Private MSGHOOK As MSGBOX_HOOK_PARAMS
Dim mbFlags As VbMsgBoxStyle, mbFlags2 As VbMsgBoxStyle, mTitle As String, mPrompt As String, but1 As String, but2 As String, but3 As String

Public Function cMsgBox(hWnd As Long, mMsgbox As VbMsgBoxStyle, Title As String, Prompt As String, Optional mMsgIcon As VbMsgBoxStyle, Optional Button1 As String, Optional Button2 As String, Optional Button3 As String) As String
    Dim mReturn As Long
    mbFlags = mMsgbox
    mbFlags2 = mMsgIcon
    mTitle = Title
    mPrompt = Prompt
    but1 = Button1
    but2 = Button2
    but3 = Button3
    mReturn = MessageBoxH(hWnd, GetDesktopWindow(), mbFlags Or mbFlags2)
    Select Case mReturn
        Case vbAbort
            cMsgBox = but1
        Case vbRetry
            cMsgBox = but2
        Case vbIgnore
            cMsgBox = but3
        Case vbYes
            cMsgBox = but1
        Case vbNo
            cMsgBox = but2
        Case vbCancel
            cMsgBox = but3
        Case vbOK
            cMsgBox = but1
    End Select
End Function

Public Function MessageBoxH(hWndThreadOwner As Long, hWndOwner As Long, mbFlags As VbMsgBoxStyle) As Long
    Dim hInstance As Long, hThreadId As Long
    hInstance = GetWindowLong(hWndThreadOwner, GWL_HINSTANCE)
    hThreadId = GetCurrentThreadId()
    With MSGHOOK
        .hWndOwner = hWndOwner
        .hHook = SetWindowsHookEx(WH_CBT, AddressOf MsgBoxHookProc, hInstance, hThreadId)
    End With
    MessageBoxH = MessageBox(hWndOwner, Space$(120), Space$(120), mbFlags)
End Function

Public Function MsgBoxHookProc(ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If uMsg = HCBT_ACTIVATE Then
        SetWindowText wParam, mTitle
        SetDlgItemText wParam, IDPROMPT, mPrompt
        Select Case mbFlags
            Case vbAbortRetryIgnore
                SetDlgItemText wParam, vbAbort, but1
                SetDlgItemText wParam, vbRetry, but2
                SetDlgItemText wParam, vbIgnore, but3
            Case vbYesNoCancel
                SetDlgItemText wParam, vbYes, but1
                SetDlgItemText wParam, vbNo, but2
                SetDlgItemText wParam, vbCancel, but3
            Case vbOKOnly
                SetDlgItemText wParam, vbOK, but1
            Case vbRetryCancel
                SetDlgItemText wParam, vbRetry, but1
                SetDlgItemText wParam, vbCancel, but2
            Case vbYesNo
                SetDlgItemText wParam, vbYes, but1
                SetDlgItemText wParam, vbNo, but2
            Case vbOKCancel
                SetDlgItemText wParam, vbOK, but1
                SetDlgItemText wParam, vbCancel, but2
        End Select
        UnhookWindowsHookEx MSGHOOK.hHook
    End If
    MsgBoxHookProc = False
End Function

Sub Test_A()
    Dim mReturn As String
    mReturn = cMsgBox(1, vbYesNoCancel, "تخصيص أزرار صندوق الرسائل", "أليس هذا ما تريده?", , "نعم", "لا", "إلغاء")
    cMsgBox 1, vbOKOnly, "تخصيص أزرار صندوق الرسائل", "You Selected The '" & mReturn & " 'Button", , "Okay"
End Sub

Sub Test_B()
    Dim a, b
    b = Array("vbOKOnly", "vbOK", "vbCancel", "vbAbort", "vbRetry", "vbIgnore", "vbYes", "vbNo")
    a = MsgBox("Hello", vbAbortRetryIgnore)
    MsgBox (b(a))
End Sub

26-06-2021 10:04 مساء
مشاهدة مشاركة منفردة [2]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif نعم ام لا

استاذي
اطال الله في عمرك
الكود الذي ارغب فيه هو 
المشكلة بانه يعطيك الخيار YES , NO و لكن عند ضغط على زر NO لا يستجيب للاوامر
اسم المستخدم و الرقم السري : 11
الكود موجود في :   14 module

  Sub Close_File()
Application.DisplayAlerts = False
ThisWorkbook.Save
MsgBox "هل تريد حفظ العمل", vbYesNo
    Application.Quit
 MsgBox "هل تريد الخروج من البرنامج", vbYesNo
  MsgBox " شكرا لاستخدامك برنامج مسطاح"
  MsgBox " مع السلامة "
End Sub

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

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

27-06-2021 04:53 صباحا
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نعم ام لا
جرب الكود بهذا الشكل ، حيث تضع شرط باستخدام If 
Sub Close_File()
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    If MsgBox("هل تريد حفظ العمل", vbYesNo) = vbYes Then
        Application.Quit
        MsgBox "هل تريد الخروج من البرنامج", vbYesNo
        MsgBox " شكرا لاستخدامك برنامج مسطاح"
        MsgBox " مع السلامة "
    Else
        MsgBox "Cancelled"
    End If
End Sub

27-06-2021 06:43 صباحا
مشاهدة مشاركة منفردة [4]
mostah
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-07-2019
رقم العضوية : 13735
المشاركات : 162
الدولة : الامارات العربية المتحدة
الجنس : ذكر
تاريخ الميلاد : 1-1-1966
يتابعهم : 13
يتابعونه : 4
قوة السمعة : 222
 offline 
look/images/icons/i1.gif نعم ام لا
شكرا لك 
أقول لك بكل بساطة أنت إنسان مبدع، ومبدع بامتياز.
توقيع :mostah
نسأل الله أن يرزقنا جميعًا العلم النافع والعمل الصالح، والرزق الطيب الواسع الذي يغنينا به عن خلقه إنه جواد كريم وصلى الله وسلم على نبينا محمد، وعلى آله وصحبه أجمعين.

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

27-06-2021 11:50 صباحا
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نعم ام لا
بارك الله فيك أخي الكريم والحمد لله الذي بنعمته تتم الصالحات.



الكلمات الدلالية
لا يوجد كلمات دلالية ..


 










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

الساعة الآن 03:40 صباحا