-
Posts
4,431 -
تاريخ الانضمام
-
Days Won
191
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
يمكنك استعمال هذا الكود 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 تجميع بالتوفيق
-
هل بالامكان الطباعة على طابعتين بنفس الوقت
أ / محمد صالح replied to نثغةثمسخبف's topic in منتدى الاكسيل Excel
حسب فهمي للمطلوب يتم تنفيذ أمر الطباعة أولا 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 إلى النص المراد في الحالتين بالتوفيق
-
نفع الله بكم البلاد والعباد وزادكم من فضله
-
جميعا بإذن الله الأمر الثاني بسيط جدا ولا يحتاج لمحاولات كثيرة فقط يحتاج لفهم الشرطين وحذف أحدهما بالتوفيق
-
لكي يتم هذا الأمر تحتاج إلى: خلية بها تاريخ النهاية وليكن A1 وخلية بها مسار المجلد وليكن B1 ثم تستعمل هذا الشرط If date >= [a1] and [b1] <> "" then your delete code [b1] = "" end if بالتوفيق
-
كيفية جمع خلايا الأعمدة الظاهرة فقط
أ / محمد صالح replied to شكيب عمار's topic in منتدى الاكسيل Excel
جميعا بإذن الله -
يمكنك إضافة هذا السطر If TextBox4 >= 1 And TextBox5 >= 6 Then TextBox3 = DateAdd("d", -45, TextBox3) بعد هذا السطر TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2) بالتوفيق
-
كيفية جمع خلايا الأعمدة الظاهرة فقط
أ / محمد صالح replied to شكيب عمار's topic in منتدى الاكسيل Excel
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) بالتوفيق -
إظهار أيام آخرالأسبوع فقط أعني السبت والأحد
أ / محمد صالح replied to Lahlou's topic in منتدى الاكسيل Excel
أشكر خبيرنا الكبير @أبوعيدلتصميمه الملف الذي لم يكن هو مطلوب الأخ صاحب الاستفسار والأولى أن يرفق صاحب الاستفسار ملفه وبه محاولاته السابقة للوصول للمطلوب مع توضيح المطلوب بصورة تفصيلية وشكل الملف بعد تنفيذ المطلوب (النتائج المتوقعة) على كل حال للوصول للمطلوب يمكن كتابة تاريخ بداية الشهر في خلية A1 مثلا وفي الخلية A2 نستعمل هذه المعادلة =WORKDAY.INTL(A1,1,"1111100") مع سحب المعادلة لأسفل حتى يبدأ الشهر الجديد ووأيضا تنسيق الخلية بتنسيق التاريخ المطلوب ملحوظة: الدالة تعمل على أوفيس 2010 وما بعده بالتوفيق -
لا يوجد مشكلة حتى تبحث عن حل تنفيذ الكود صحيح وتم جلب كل الأرقام التي أولها 2 فعلا لاحظ أن بداية الرقم على اليسار وكل الأرقام في عمود الكود أولها من جهة اليسار 2 بالتوفيق
-
الإفادة في تحقيق العبادة
أ / محمد صالح replied to Arafottaa's topic in المنتدى التقني العام و تطبيقات الأوفيس الأخرى
جزاكم الله خيرا -
الشكر لله يفضل ذلك حتى يكون أحد الخيارين محددا حتى وإن نسي المستخدم تحديد أحدهما
-
المثال المرفق من حضرتك هو نفس المثال الوهمي المستعمل في مشاركتي السابقة يمكنك استعمال نفس المعادلة مع تغيير كلمة value إلى الاسم المراد البحث عنه أو مرجع خلية بها الاسم بالتوفيق
-
الشكر لله لو كان السؤال به مثال لأوضحت عليه لذلك تم استعمال مثال وهمي لتقريب الصورة بالتوفيق
-
يمكن الوصول لذلك تعديل هذا السطر الذي يحدد بداية النص ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 وتغييره إلى هذا الشرط If Me.OptionButton2 = 0 Then ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) >= 1 Else ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 End If لاحظ أن اكبر من او تساوي 1 تعني في أي مكان في النص ويفضل جعل القيمة الافتراضية value في خيار بحث بأي حرف تساوي true بالتوفيق
-
تم التطرق لهذا الأمر كثيرا وهذا الموضوع أحد النتائج وهذا أيضا بالتوفيق
-
مساعدة لاستعادة بيانات ملف اكسيل محمي بكلمة مرور منسية
أ / محمد صالح replied to makarem's topic in منتدى الاكسيل Excel
يمكنك استعمال برنامج مثل aopr Advanced office password recovery بعد البحث عنه في جوجل مثلا بالتوفيق