أكواد صناديق الحوار vba

[smail_d]

صندوق تكبير و تصغير

Sub MacroQuelconque()
  Application.Dialogs(xlDialogZoom).Show
End Sub

[smail_d]

صندق التنسيق الشرطي

Sub FormatConditionnel()
  SendKeys ("{TAB}{TAB}2{TAB}7")
  Application.Dialogs(xlDialogConditionalFormatting).Show
End Sub

[smail_d]

فتح الملفات

Sub ChoixFichier()
Application.GetOpenFilename ("Textes purs, *.txt,Fichiers office, *.xls;*.doc;*.ppt")
End Sub

[smail_d]

صندوق فتح الملفات مع حوار

Sub OuvreFichier2()
  Dim QuelFichier
  QuelFichier = Application.GetOpenFilename()
  If QuelFichier <> False Then
    MsgBox QuelFichier
  Else
    MsgBox "انت لم تختار اي ملف"
  End If
End Sub

[smail_d]

فتح الملفات مع جميع اللاواحق

Sub OuvreFichier3()
  Dim QuelFichier
  QuelFichier = Application.GetOpenFilename("Fichiers Visual Basic,*.bas;*.txt, Trucs Excel, *.xls;*.xlt;*.xla")
  MsgBox QuelFichier
End Sub

[smail_d]

خروج من الاكسيل

Sub Excel_beenden()
  Application.Quit
End Sub

[smail_d]

صندوق تنسيق الخلايا (الاطارات )

Sub MacroQuelconque()
With Application.Dialogs(xlDialogBorder)
        .Show
    End With
End Sub

[smail_d]

استدعاء صندوق خيارات الحساب

Sub MacroQuelconque()
With Application.Dialogs(xlDialogCalculation)
        .Show
    End With
End Sub

[smail_d]

صندوق تنسيق الخلايا ( الحماية )

Sub MacroQuelconque()
With Application.Dialogs(xlDialogCellProtection)
        .Show
    End With
End Sub

[smail_d]

معاينة

Sub MacroQuelconque()
With Application.Dialogs(xlDialogPrintPreview)
        .Show
    End With

End Sub

[smail_d]

حماية الورقة

Sub MacroQuelconque()
With Application.Dialogs(xlDialogProtectDocument)
        .Show
    End With

End Sub

[smail_d]

حفظ الملف

Sub MacroQuelconque()
With Application.Dialogs(xlDialogSaveAs)
        .Show
    End With

End Sub

[smail_d]

تنسيق الخلايا

الألوان

Sub MacroQuelconque()
With Application.Dialogs(xlDialogPatterns)
        .Show
        End With
 End Sub

[smail_d]

استدعاء صندوق الطباعة

Sub MacroQuelconque()
 Application.Dialogs(xlDialogPrint).Show
 End Sub

[smail_d]

معاينة

Sub MacroQuelconque()
 Application.Dialogs(xlDialogPrintPreview).Show
 End Sub

[smail_d]

الخطوط

Sub MacroQuelconque()
 Application.Dialogs(xlDialogReplaceFont).Show
 End Sub

[smail_d]

ارتفاع الصف ل

Sub MacroQuelconque()
 Application.Dialogs(xlDialogRowHeight).Show
 End Sub

[smail_d]

تسيمة الورقة

Sub MacroQuelconque()
 Application.Dialogs(xlDialogWorkbookOptions).Show
 End Sub

[halwim]

شكرا لك أخي smail_d لي سؤال ربما ليس له علاقة بالموضوع وهو :

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

[smail_d]

النص البرمجي يوضع كما هو مشار في الصورة

[smail_d]

تنسيق الارقام

Sub MacroQuelconque()
Application.Dialogs(xlDialogFormatNumber).Show
End Sub

[smail_d]

صندوق استهداف الخلايا

Sub MacroQuelconque()
Application.Dialogs(xlDialogGoalSeek).Show
End Sub

[smail_d]

صندوق خيارات

Sub MacroQuelconque()
Application.Dialogs(xlDialogOptionsEdit).Show
End Sub

[smail_d]

خيارات العرض

Sub MacroQuelconque()
Application.Dialogs(xlDialogOptionsView).Show
End Sub

[smail_d]

اعداد الصفحة

Sub MacroQuelconque()
Application.Dialogs(xlDialogPageSetup).Show
End Sub