أ / محمد صالح

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

تحتاج فقط إلى ضبط عرض الأعمدة سواء في خصائص العنصر أو بالكود التالي Private Sub UserForm_Activate() CM_ListFind.ColumnWidths = "40,80,200,110,80,80,80" End Sub مع تحريك العناوين الموجودة فوق القائمة ويفضل جعل محاذاة القائمة يمين وليس توسيط بالتوفيق

أعتقد لابد من وضع نسبة من الاثنين حتى يمكن الحصول على الثانية لأن خلية النسبة داخلة في معادلة العمود I التي يتم حساب الخلية G11 بناء على مجموع العمود i مع وضع g11 على شكل رقم وليس معادلة وهذا جهدي المتواضع فيما يخص هذه الطريقة وقد أوضحت فيها: * حساب مجموع العمود i في الخلية (i11) في حالة معرفة G11 * حساب النسبة في حالة معرفة القيمة المقابلة في i بالتوفيق ves.xlsx

يمكنك استعمال هذه المعادلة في الخلية m6 وسحب المعادلة لأسفل =IF(L6>6,0,IF(L6>5,0.5,IF(L6>4,0.4,IF(L6>3,0.3,1))))*K6 مع مراعاة الفاصلة أو الفاصلة المنقوطة حسب اعدادات جهازك بالتوفيق

الحمد لله الذي،وفقنا لهذا

إن كان ناتج هذه المعادلة مرجع نطاق مثل A1 فيمكن استعمال هذه المعادلة =HYPERLINK("#"&CELL("address",INDIRECT("data!"&IFERROR(VLOOKUP(H11;DATA!A3:AQ252;43;FALSE);VALUE(("0"))))),"click here") ويمكن تغيير نص الرابط click here إلى أي نص مرغوب بالتوفيق

جميعا بإذن الله

يمكنك استعمال هذا الكود Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) Select Case KeyAscii Case vbKey0 To vbKey9, vbKeyBack, vbKeyClear, vbKeyDelete, _ vbKeyLeft, vbKeyRight, vbKeyUp, vbKeyDown, vbKeyTab If KeyAscii = 46 Then If InStr(1, TextBox1.Text, ".") Then KeyAscii = 0 Case Else KeyAscii = 0 End Select End Sub بالتوفيق

جميعا بإذن الله

يتم ذلك عن طريق تحديد الأعمدة المراد تجميعها ثم تبويب بيانات data ثم outline مخطط خارجي تقريبا ثم group تجميع بالتوفيق

حسب فهمي للمطلوب يتم تنفيذ أمر الطباعة أولا ActiveSheet.PrintOut ثم سطر التصدير إلى. Pdf في نفس مسار ملف الاكسل باسم FileName.pdf الذي يمكن تغييره ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "/" & "FileName.pdf", , , False بالتوفيق

حسب فهمي للمطلوب فلا تحتاج لكتابة today في خلية وإنما تحتاج لكتابة تاريخ البداية مثلا A1 وتاريخ النهاية B1 ونستعمل هذه المعادلة =IF(AND(TODAY()>A1,TODAY()<B1),"yes","no") مع تغيير yes و no إلى النص المراد في الحالتين بالتوفيق

الكود ينفذ المطلوب حذف الصف كاملا EntireRow.Delete لخلايا العمود c من الصف الأول إلى آخر صف مكتوب فيه Cells(Rows.Count, 3).End(3).Row بشرط أن تكون الخلايا فارغة SpecialCells(4) بالتوفيق

الشكر لله الذي وفقنا لهذا وهذا رابط لشرح دالتي index & match في البحث

نفع الله بكم البلاد والعباد وزادكم من فضله

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

لكي يتم هذا الأمر تحتاج إلى: خلية بها تاريخ النهاية وليكن A1 وخلية بها مسار المجلد وليكن B1 ثم تستعمل هذا الشرط If date >= [a1] and [b1] <> "" then your delete code [b1] = "" end if بالتوفيق

جميعا بإذن الله

يمكنك إضافة هذا السطر If TextBox4 >= 1 And TextBox5 >= 6 Then TextBox3 = DateAdd("d", -45, TextBox3) بعد هذا السطر TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2) بالتوفيق

Subtotal تعمل على اكسل 2007 وما بعده ولجمع الصفوف المرئية فقط نستعمل هذه المعادلة =SUBTOTAL(109,E1:E20) أما إذا كان المطلوب جمع الأعمدة المرئية فقط فلابد من تدخل جراحي vba بهذه الدالة المعرفة بعد إضافتها في موديول جديد في نافذة vbe التي نصل إليها ب alt+f11 Function SumVCols(Rng As Range) As Double Dim Cell As Range Application.Volatile For Each Cell In Rng If Cell.EntireColumn.Hidden = False And IsNumeric(Cell) Then SumVCols = SumVCols + Cell Next Cell End Function ويتم استعمالها هكذا =SumVCols(A1:F1) بالتوفيق

يمكنك وضع هذه المعادلة في الخلية E8 لجلب اسم المورد =IFERROR(INDEX(A:A,MATCH($D8,$B:$B,0)),"") مع سحب المعادلة لأسفل بالتوفيق

الشكر لله الذي وفقنا لهذا

أشكر خبيرنا الكبير @أبوعيدلتصميمه الملف الذي لم يكن هو مطلوب الأخ صاحب الاستفسار والأولى أن يرفق صاحب الاستفسار ملفه وبه محاولاته السابقة للوصول للمطلوب مع توضيح المطلوب بصورة تفصيلية وشكل الملف بعد تنفيذ المطلوب (النتائج المتوقعة) على كل حال للوصول للمطلوب يمكن كتابة تاريخ بداية الشهر في خلية A1 مثلا وفي الخلية A2 نستعمل هذه المعادلة =WORKDAY.INTL(A1,1,"1111100") مع سحب المعادلة لأسفل حتى يبدأ الشهر الجديد ووأيضا تنسيق الخلية بتنسيق التاريخ المطلوب ملحوظة: الدالة تعمل على أوفيس 2010 وما بعده بالتوفيق

حسب فهمي للمطلوب يتم تعديل الكود الأصلي إلى Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing Then Range("b" & Target.Row & ":o" & Target.Row).ClearContents End If End Sub إن شاء اللّه يكون هو المطلوب بالتوفيق

لا يوجد مشكلة حتى تبحث عن حل تنفيذ الكود صحيح وتم جلب كل الأرقام التي أولها 2 فعلا لاحظ أن بداية الرقم على اليسار وكل الأرقام في عمود الكود أولها من جهة اليسار 2 بالتوفيق