قنديل الصياد

اخى العزيز انسخ هذا الكود وضعه فى ملفك الجديد ثم ضع المعادلة فى اوراق العمل وستعمل جيدا 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 كيفية إستخراج تاريخ الميلاد من خلال الرقم القومي

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

الحلقات التكرارية 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)

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

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