smail_d
-
Posts
310 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو smail_d
-
صندوق استهداف الخلايا Sub MacroQuelconque() Application.Dialogs(xlDialogGoalSeek).Show End Sub
-
تنسيق الارقام Sub MacroQuelconque() Application.Dialogs(xlDialogFormatNumber).Show End Sub
-
النص البرمجي يوضع كما هو مشار في الصورة
-
تسيمة الورقة Sub MacroQuelconque() Application.Dialogs(xlDialogWorkbookOptions).Show End Sub
-
ارتفاع الصف ل Sub MacroQuelconque() Application.Dialogs(xlDialogRowHeight).Show End Sub
-
الخطوط Sub MacroQuelconque() Application.Dialogs(xlDialogReplaceFont).Show End Sub
-
معاينة Sub MacroQuelconque() Application.Dialogs(xlDialogPrintPreview).Show End Sub
-
استدعاء صندوق الطباعة Sub MacroQuelconque() Application.Dialogs(xlDialogPrint).Show End Sub
-
تنسيق الخلايا الألوان Sub MacroQuelconque() With Application.Dialogs(xlDialogPatterns) .Show End With End Sub
-
حفظ الملف Sub MacroQuelconque() With Application.Dialogs(xlDialogSaveAs) .Show End With End Sub
-
حماية الورقة Sub MacroQuelconque() With Application.Dialogs(xlDialogProtectDocument) .Show End With End Sub
-
معاينة Sub MacroQuelconque() With Application.Dialogs(xlDialogPrintPreview) .Show End With End Sub
-
صندوق تنسيق الخلايا ( الحماية ) Sub MacroQuelconque() With Application.Dialogs(xlDialogCellProtection) .Show End With End Sub
-
استدعاء صندوق خيارات الحساب Sub MacroQuelconque() With Application.Dialogs(xlDialogCalculation) .Show End With End Sub
-
صندوق تنسيق الخلايا (الاطارات ) Sub MacroQuelconque() With Application.Dialogs(xlDialogBorder) .Show End With End Sub
-
يتبع فتح الملفات و خاصة منها الاكسيل Sub FichierOuvrir() FichierAOuvrir = Application.Dialogs(xlDialogOpen).Show MsgBox FichierAOuvrir End Sub
-
بسم الله الرحمن الرحيم انا في مخيلتي أعتقد لا يوجد اي أحد من الأعظاء في هذا المنتدى العريق كما تلاحظ اخي الكريم hs889
-
بسم الله الرحمن الرحيم اظهار الفورم Private Sub cmdShowForm_Click() UserForm1.Show End Sub
-
بارك الله فيك يأخي الكريم تزويد الاعظاء بهذه الكودات القصيرة التي يحتاجها كل مستخدم في بعض البرامج و يمكن تعديلها اذا امكن ذللك
-
اعادة شريط الادوات الى ما كان عليه Sub MenueleisteEinblenden() Application.CommandBars("Worksheet Menu Bar").Enabled = True End Sub
-
بسم الله الرحمن الرحيم كيف يتم حذف شريط الادوات -ملف -ادوات -تحرير ... الخ Sub MenueleisteAusblenden() Application.CommandBars("Worksheet Menu Bar").Enabled = False End Sub
-
بسم الله الرحمن الرحيم كيف يتم تثبيت تاريخ اليوم و الوقت في احد الخلايا Sub LetztesSpeicherdatumEintragen() Range("d1").Value = _ ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value End Sub
-
كتابة الكلمة او الجملة بالالوان في احدى الصفوف Sub LaTomateRouge() Application.Range("B6").Font.Color = 255 Application.Range("B6").Value = "بسم الله " End Sub
-
اليرقيم المتسلسل Sub test() For Ctr = 1 To 10 Range("A1:A10")(Ctr) = Ctr Next End Sub
-
بسم الله الرحمن الرحيم كتابة هذه الجملة في العمود الثاني و الصف الرابع Sub Test() Cells(4, 2) = "صلي و سلم على سيدنا محمد صلى الله عيه و سلم" End Sub