قنديل الصياد

الحلقات التكرارية For Next اخفاء المعادلات فى الاكسل حساب المجموع وفقاُ لشرط محدد - الدالة SUMIF مقارنة عناصر قائمتين بإستخدام الدالة MATCH

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

ملف اكسل ذاتي الحفظ إضافة زر أمر التصفية المتقدمة أساسيات VBA إكسل_استخدام العنصر Range _ Cells _ Offset - استخدام الداله Convert

كيفية اضافة الاكواد فى ملف اكسل تحويل الصفوف الى اعمدة والاعمدة الى صفوف تحديد محل الميلاد بواسطة الرقم القومى تحديد اكبر قيمة رقميةالدالة Max

طرق تنفيذ الماكرو _ الأكواد من داخل الإكسل حساب المجموع التراكمي فورم تتغير محتوياته حسب اعمدة الشيت

شرح الدالة if استخدام الجمع والطرح فى ميزانيتك شرح عمل الشهادات بدالة vlookup

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

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

مرفق كود لمعرفة رقم العمود ورقم الصف واسم الخلية التى تقف بها

مرفق كود لاستخراج عدد أوراق العمل بالملف Private Sub SheetCount() MsgBox ThisWorkBook.Sheets.Count & "أوراق عمل موجودة بهذا الملف" MsgBox "مع تحياتى / قنديل الصياد" End Sub

لاثراء الموضوع وبعد اذن اساتذتى الافاضل المشاركين ترقيم تلقائى بالكود Dim x As Integer Private Sub CommandButton1_Click() Cells(6, 1) = 1 For i = 7 To 20 If Cells(i, 1) = "" And Cells(i, 2) = "" Then Exit Sub Else Cells(i, 1) = i - 2 End If Next i End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row < 6 Then MsgBox ("áä íÈÏÇ ÇáÊÑÞíã ãä åäÇ") Cells(6, 1) = 1 Exit Sub ElseIf Target.Row = 6 Then Cells(Target.Row, 1) = 1 Else Cells(Target.Row, 1) = Cells((Target.Row) - 1, 1) + 1 End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub مرفق ملف به التطبيق

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

أعجبنى هذا الكود Sub Macro() Range("A6:C15").Select Selection.Copy ActiveCell.Range("f1").Select ActiveSheet.Paste Application.CutCopyMode = False Selection.Sort _ Key1:=Worksheets("Sheet1").Range("h6"), Order1:=xlAscending, _ Key2:=Worksheets("Sheet1").Range("g6"), Order2:=xlAscending, _ Key3:=Worksheets("Sheet1").Range("f6"), Order3:=xlAscending End Sub Sub Macro1() Range("F6:H15").Select Selection.ClearContents Range("F6").Select End Sub مرفق ملف به التطبيق

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

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

مثال على الدالة ISNUMBER =ISNUMBER(A1)

تفسير كلمات القرآن

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

كود صغير لاظهار خاصية البحث والاستبدال Sub Replace() Application.SendKeys ("^f") End Sub مرفق ملف به التطبيق

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

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

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

كل الشكر والتقدير والاحترام لمروركم الجميل اساتذتى الكرام كل عام وحضراتكم بخير ورمضان كريم استاذى الجميل استاذى الرائع استاذى المبدع استاذنا الكبير والمتالق دائما

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

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