قنديل الصياد

كود للترحيب Private Sub CommandButton1_Click() MsgBox "قنديل الصياد يرحب بكم فى منتديات أوفيسنا وكل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعلى الامة الاسلامية بالخير واليمن والبركات" End Sub كود الانتقال للصفحة التالية Private Sub CommandButton2_Click() ActivePresentation.SlideShowWindow.View.Next End Sub كود الانتقال للصفحة السابقة Private Sub CommandButton1_Click() ActivePresentation.SlideShowWindow.View.Previous End Sub

بارك الله فيك اخى العزيز كل عام وانتم بخير

انت رائع ومبدع دائما استاذنا الجميل

تعليم اكسيل 2010 - شرح واجهة البرنامج Learn Excel 2010 نسخ معادلة للكود و تخصيص زر أمر

إظهار ناتج المعادلة فى الشكل التلقائي

لا اجد من الكلمات ما اقول لكى اشكرك واهنيك على ابداعاتك المستمرة استاذنا الكبير الاستاذ /ضاحى الغريب كل عام وحضرتك بخير وجزاك الله هير الجزاء

كود لجمع عمود فى خلية اقوم بتحديدها Sub Macro1() Range("A11").Select ActiveCell.FormulaR1C1 = "=SUM(R[-9]C:R[-1]C)" Range("A12").Select End Sub مرفق ملف به التطبيق الصياد.rar

امتدادا لسلسلة أكواد أعجبتنى كود لجمع عمود اقوم بتحديده Sub formulacopy() Range("f2:f7").Formula = "=SUM(A2,B2,C2,D2,E2)" End Sub مرفق ملف به التطبيق الصياد.rar

جمع الارقام فى شكل تلقائى مرفق ملف به التطبيق الصياد.rar

اخى العزيز كل عام وانتم بخير برجاء الالتزام بقواعد المشاركة http://www.officena.net/Tips/Questions.htm بالنسبة لطلبك يمكن ان تستخدم الدالة UPPER لتحويل الحروف من صمول الى كبتل =UPPER(A8) مرفق ملف به التطبيق الصياد.rar

السلام عليكم اخى العزيز كل عام وحضرتك بخير اتمنى ان يكون هذا هو المطلوب الصياد.rar

شكرا جزيلا استاذ واخى العزيز الاستاذ / اسلام الشيمى كل عام وحضرتك بخير

اخى العزيز حل اخر بالمعادلات واختر ما تريد مرفق الملف كود ترقيم تلقائي.rar

اخى العزيز قمت بادراج معادلة تقوم بالترقم التلقائى بمجرد ان تكتب الاسم فى خلية الاسم يظهر الرقم =IF(D4="";"";ROW()-4+$AG$1) مرفق الملف بعد التعديل كود ترقيم تلقائي.rar

سلسلة أكواد أعجبتنى كود لإظهار الشيتات المخفية كود لمعرفة رقم العمود ورقم الصف واسم الخلية التى تقف بها كود لاستخراج عدد أوراق العمل بالملف كود اعجبنى مجموعة اكواد اعجبتنى أكواد أعجبتنى

جزاك الله خيرا اخى واستاذى العزيز ودائما افكارك رائعة ومثمرة وجميلة وساقوم بتنفيذها

الكود الأول عبارة عن مسج Private Sub CommandButton1_Click() MsgBox "قنديل الصياد يرحب بكم فى منتديات أوفيسنا وكل عام وانتم بخير بمناسبة شهر رمضان المبارك أعاده الله علينا وعلى الامة الاسلامية بالخير واليمن والبركات" End Sub الكود الثانى كتابة فى خلية من خلال فورم Sub GetData() Sales = InputBox(Prompt:="Enter Target Sales") If Sales = "" Then Exit Sub Range("B2").Value = Sales End Sub مرفق ملف به التطبيق Book1.rar

شكرا اخوانى واساتذتى الافاضل وكل عام وحضراتكم بخير

وجزاك الله خير الجزاء استاذى الجميل الاستاذ / طارق كل عام وحضرتك بخير

دورة برنامج Excel فيديو وصوت ( عربي )

دوال إضافية Large_Small طريقة توزيع لجان الاختبارات في المدرسة مع برنامج اكسل شرح الأدوات Clear و Delete في الإكسل استخدام دوال التاريخ والوقت ‫‫‫‫‫‫‫ ناجح راسب

كود لاظهار الشيتات المخفية فى اكسل Sub UnhideAll() Dim WS As Worksheet For Each WS In Worksheets WS.Visible = True Next End Sub مرفق ملف به التطبيق اظهار الشيتات المختفية.rar

بارك الله فيك وعليك اخى العزيز الاستاذ / سعد وكل عام وحضرتك بخير

افتح ملف اكسل جديد وقم بالضغط على Alt+f11 سيتم فتح محرر الاكواد vb ثم اتبع الموجود فى الصورة التالية ثم قم باغلاق محرر الاكواد

مرفق ملف به التطبيق الاستاذ_محبوب.rar