قنديل الصياد

امتدادا لسلسلة أكواد أعجبتنى كود لجمع عمود اقوم بتحديده 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

اخى العزيز انسخ هذا الكود وضعه فى ملفك الجديد ثم ضع المعادلة فى اوراق العمل وستعمل جيدا Function SheetNum(Optional celRef As Range) As Long With Application.Caller.Parent If celRef Is Nothing Then SheetNum = .Index Else SheetNum = celRef.Parent.Index End If End With End Function المعادلة =1499+SheetNum() جرب واعلمنى بالنتيجة

اى معادلة تريد نسخها اخى العزيز التى وردت فى ملف الاستاذ حمادة ام الملف المرفق منى وعموما سانسخ لك المعادلتين =IF(B3="";"";ROW()-3+$A$1) =1499+SheetNum()

جهد مشكور استاذ حمادة وكل عام وحضرتك بخير

اخفاء الصفوف بناءا على محتوى خلية تفقيط الأرقام ( عربى - انجليزي ) طريقة كتابة وتسلسل الارقام كيفية تنسيق الكتابة فى اكسل

السلام عليكم اخى العزيز كل عام وحضرتك بخير اتمنى ان يكون هذا هو المطلوب بمجرد الكتابة فى الخلية B سيظهر الرقم تلقائيا =IF(B3="";"";ROW()-3+$A$1) مرفق الملف بعد التعديل ABC.rar

استخدام الدوال now, Today كيفية إستخراج تاريخ الميلاد من خلال الرقم القومي

لا يوجد أروع واجمل منك يا استاذى العزيز بارك الله فيك وعليك استاذنا الغالى الاستاذ / حمادة عمر