محمد يحياوي

اخي عيد سانتظر تكملة الجزء الثاني ليكون الكتاب شاملا

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

الاخ الكريم تم عمل المطلوب لكن ينقصه بعض التنسيق P-11 المشتريات والمخازن.rar و هذا شرح بكيفية تغيير اتجاه الصفحة تغيير اتجاه صفحة.rar

اخي الكريم تم التخلص من عبارة الخطأ لاحظ الملف ... نعم و يمكنك تغيير اللاحقة حفظ فاتورة.rar

الاخ الكريم اعمل كما في الصورة او

اخي الكريم حسب ما فهمت انك تريد ارسال فاتورة كملف و ليس كمطبوعة هذا الملف قد يفي بالغرض ... اضغط على امر حفظ فاتورة واختيار اسم الفاتورة سيقوم بانشاء ملف الفاتورة وحدها مع جميع البيانات حفظ فاتورة.rar

الاخ الكريم ستجد الاجابة في هذا الموضوع (موضوع مميز ) تجميعة حساب السن

الاخ الكريم اذا كنت تقصد ادراجالصور داخل الملف نفسه فلاحظ المثالين اسماء التلاميذ3.rar اسماء التلاميذ4.rar لمزيد من الفائدة هذان الرابطان (موضوع مميز) عرض الصور في الخلايا حسب الاسماء (تمت الاجابة) ادراج صورة فى خلية

الاستاذ الكريم احمد وفقك الله و دمت بالف خير

اخي الكريم عذرا على التاخير بفرض ان الماكرو الذي تريد تنفيذه هو star1 و star2 Sub star1() MsgBox "مرحبا" End Sub Sub star2() MsgBox "شكرا" End Sub فهذا الكود لعمل التول بار Sub CreateMenubar() Dim iCtr As Long Dim MacNames As Variant Dim CapNamess As Variant Dim TipText As Variant Call RemoveMenubar MacNames = Array("star1", "star2") CapNamess = Array("star1", "star2") TipText = Array("star1", "star2") With Application.CommandBars.Add .Name = ToolBarName .Left = 200 .Top = 200 .Protection = msoBarNoProtection .Visible = True .Position = msoBarFloating For iCtr = LBound(MacNames) To UBound(MacNames) With .Controls.Add(Type:=msoControlButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & MacNames(iCtr) .Caption = CapNamess(iCtr) .Style = msoButtonIconAndCaption .FaceId = 71 + iCtr .TooltipText = TipText(iCtr) End With Next iCtr End With End Sub طبعا يحتوي على التسميات و بعض الخصائص اما هذا الكود فهو لحذف التول بار Sub RemoveMenubar() On Error Resume Next Application.CommandBars(ToolBarName).Delete On Error GoTo 0 End Sub اما هذه الجملة في للتصريح بثابت و عو تصريح عام و تكتب قبل كتابة الكود Public Const ToolBarName As String = "MyToolbarName" اما هذين الكودين للتنفيذ و الحذف التلقائي Sub Auto_Open() Call CreateMenubar End Sub Sub Auto_Close() Call RemoveMenubar End Sub ارجو انني وُفقت في الشرح

استاذنا ابو احمد ماشاء الله قمة الروعة بارك الله فيك

الاخ الكريم المطلب الثاني موجود في المشاركة رقم 3 طباعة الشهادات حسب الطلب اما عن دمج الموضوعين فهما يحملان نفس الفكرة و هي طبع الشهادات (كل الشهادات او حسب الطلب)

الاخ الفاضل اظن ان محتوى الموضوع يندرج في الموضوع السابق الذي فتحته لذلك سيتم دمج الموضوعين ارجوا عدم تكرار المواضيع التي تحمل نفس الفحوى تم تعديل العنوان للدلالة

لمزيد من الفائدة راجع الموضوعين ملف اكسل تنفيذي تحويل الاكسل الى ملف تنفيذي (EXE) حمل الملف من هذا الرابط

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

الاخ الكريم من قواعد الاساسية لقانون المنتدى حفظ حقوق الملكية و الخصوصية لذلك لايمكن افادتك بشيئ حتى يتم التاكد من ملكيتك لهذا الملف و خاصة انت عضو جديد الاخ الكريم ارجو ان تكون مقدرا لهذه الحالة ... وفقك الله

اخي الكريم الرسالة تفيد انك لم تحدد الماكرو ... راجع الفيديو جيدا او لاحظ الصورة

الاخ الفاضل لاحظ الشرح التالي ربط ماكرو.rar

الاخ الفاضل هذا مثال وظيفة اظافية احفظ الكود في موديل Option Explicit Public Const ToolBarName As String = "MyToolbarName" '=========================================== Sub Auto_Open() Call CreateMenubar End Sub '=========================================== Sub Auto_Close() Call RemoveMenubar End Sub '=========================================== Sub RemoveMenubar() On Error Resume Next Application.CommandBars(ToolBarName).Delete On Error GoTo 0 End Sub '=========================================== Sub CreateMenubar() Dim iCtr As Long Dim MacNames As Variant Dim CapNamess As Variant Dim TipText As Variant Call RemoveMenubar MacNames = Array("aaa") CapNamess = Array("AAA Caption") TipText = Array("AAA tip") With Application.CommandBars.Add .Name = ToolBarName .Left = 200 .Top = 200 .Protection = msoBarNoProtection .Visible = True .Position = msoBarFloating For iCtr = LBound(MacNames) To UBound(MacNames) With .Controls.Add(Type:=msoControlButton) .OnAction = "'" & ThisWorkbook.Name & "'!" & MacNames(iCtr) .Caption = CapNamess(iCtr) .Style = msoButtonIconAndCaption .FaceId = 71 + iCtr .TooltipText = TipText(iCtr) End With Next iCtr End With End Sub '=========================================== Sub AAA() MsgBox "aaa" End Sub '=========================================== ثم اغلق محرر الاكواد بكلمة سر ثم احفظ الملف بامتداد xla بعدها افتح اي ملف و استدعاء الوضيفة الاظافية

هناك نشرة دورية تصدر عن ادارة المنتدى تهتم في كل موعد بنشر اعمال احد اعلام المنتدى و ان شاء الله عن قريب نرى نشرة خاصة بالاستاذ خبور... يمكنك زيارة المنتدى المفتوح و كما اشار الاخوة هناك صفحة خاصة بالاستاذ خبور في توقيعه

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

اخي الفاضل هناك بعض الطابعات بها هذه الخاصية ... و هناك برنامج FinePrint جميل جدا و مجرب يعمل ذلك وبه الكثير من الخصائص ستكتشفها مع التجربة كل ماعليك سوى تثبته و سيظهر كاحدى الطابعات لديك . zwt.rar

الاخ الكريم كما اشار اخونا احمد زمان من خلال النافذة تخصيص حدد الايقونة التي تريد و اسحبها بالماوس الى شريط الادوات

اخي الكريم ستجد الاجابة في هذا الموضوع دالة مستحدثة جديدة (دالة TOPTEN) لايجاد العشرة الأوائل

اخي الكريم لاحظ الشرح Sheet Name.rar