إكسل vba الدرس 333 البحث بين تاريخين لحذف الصفوف الحصورة بين التاريخين. كود جديد وبسيط
شرح صيغ ووظائف Excel
يعد Excel
برنامج جداول بيانات قويًا يسمح للمستخدمين بتخزين البيانات وتنظيمها وتحليلها.
تُستخدم صيغ ووظائف Excel
لإجراء عمليات حسابية على البيانات المخزنة في خلايا ورقة العمل. الصيغ هي معادلات
تقوم بإجراء عمليات حسابية على القيم في ورقة العمل الخاصة بك، بينما الدالات هي
صيغ محددة مسبقًا تأتي مع Excel.
الصيغ
الصيغ هي معادلات تقوم بإجراء عمليات حسابية على القيم في ورقة العمل
الخاصة بك. يمكن أن تكون بسيطة مثل إضافة رقمين معًا أو معقدة مثل إجراء التحليل
الإحصائي على مجموعات البيانات الكبيرة. يمكن استخدام الصيغ لحساب الإجماليات
والمتوسطات والحد الأقصى والحد الأدنى ومعلومات التلخيص الأخرى من بياناتك.
لإنشاء صيغة في Excel،
يجب عليك أولاً تحديد الخلية حيث تريد ظهور نتيجة الصيغة. ثم اكتب علامة التساوي
(=) متبوعة بالصيغة التي تريد استخدامها. على سبيل المثال، إذا أردت إضافة رقمين معًا،
فاكتب = A1
+ A2
في الخلية حيث تريد أن تظهر النتيجة. يشير A1 وA2 إلى الخلايا A1 وA2 في ورقة العمل الخاصة
بك حيث يتم تخزين الأرقام التي تريد إضافتها معًا.
يمكنك أيضًا استخدام عوامل حسابية مثل + (إضافة)، - (طرح)، * (الضرب)،
/ (القسمة)، ^ (الأس) و٪ (النسبة المئوية) في الصيغ الخاصة بك. على سبيل المثال،
إذا أردت حساب 10٪ من رقم مخزن في الخلية A3، فاكتب = A3 * 0.1 في الخلية التي تريد أن تظهر النتيجة فيها.
المهام
الدالات عبارة عن صيغ محددة مسبقًا تأتي مع Excel ويمكن استخدامها
للحسابات الشائعة مثل جمع القيم أو حساب المتوسطات. لاستخدام دالة في Excel، اكتب علامة التساوي (=)
متبوعة باسم الوظيفة وأي وسيطات مطلوبة لهذه الوظيفة داخل الأقواس (). على سبيل المثال،
إذا أردت حساب متوسط نطاق من الخلايا من A1 إلى A10، فاكتب = AVERAGE (A1: A10).
هناك المئات من الوظائف المتاحة في Excel تتراوح من وظائف الرياضيات الأساسية مثل SUM () أو PRODUCT () إلى وظائف إحصائية أكثر تقدمًا مثل CORREL () أو LINEST (). يمكنك العثور على
قائمة كاملة بالوظائف المتاحة بالنقر فوق علامة التبويب "الصيغ" في أعلى
ورقة العمل الخاصة بك ثم تحديد "إدراج وظيفة" من القائمة المنسدلة.
استخدام الصيغ والوظائف معًا
يمكنك الجمع بين الصيغ والوظائف معًا لإنشاء حسابات أو تحليلات أكثر
تعقيدًا من بياناتك. على سبيل المثال، إذا كنت تريد حساب متوسط جميع الأرقام التي
تزيد عن 50 رقمًا مخزنة في الخلايا من A1 إلى A10، فيمكنك استخدام صيغة ودالة معًا على النحو
التالي: = AVERAGE (IF (A1: A10> 50؛ A1: A10)). في هذا المثال،
نستخدم عبارة IF
ضمن دالة AVERAGE الخاصة بنا والتي ستعمل
فقط على متوسط تلك القيم الأكبر من 50 من نطاق الخلايا لدينا من A1 إلى A10.
******************************************************
كود حذف الصفوف المحصورة بين تاريخين
Sub DeleteRows1()
On Error Resume Next
Dim StartDate As Date, EndDate As Date
Dim lr As Long, i As Long
StartDate = InputBox("ادخل تاريخ البداية")
EndDate = InputBox("ادخل تاريخ النهاية")
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = lr To 1 Step -1
If Cells(i, 3) >= StartDate And Cells(i, 3) <= EndDate Then Rows(i).Delete
Next i
End Sub
***********************************************************
Sub DeleteRows2()
On Error Resume Next
Dim StartDate As Date, EndDate As Date
Dim lr As Long, i As Long
StartDate = form1.txt1.Text
EndDate = form1.txt2.Text
lr = Cells(Rows.Count, "A").End(xlUp).Row
For i = lr To 1 Step -1
If Cells(i, 3) >= StartDate And Cells(i, 3) <= EndDate Then Rows(i).Delete
Next i
End Sub
