أ / محمد صالح

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

تفضل أخي الكريم تم اجراء بعض التعديلات حتى تتناسب مع الكود والتكرار بالتوفيق تكرار الخلايا بالكود.xlsm

لاضافة دالة معرفة الى ملفك اضغط alt+f11 لفتح نافذة ال vba من قائمة insert اختر module الصق كود الدالة في الموديول وفي الخلية المطلوب اظهار جمع الارقام اكتب =sumparts(A1) حيث ان A1 هي الخلية التي تحتوي على العدد المراد تقسيمه بالتوفيق

يوجد ضمن اعدادات الحساب الحماية والخصوصية والتي تتحكم في كون المستخدم مرئيا online او مخفيا hidden ربما تكون عدلتها بغير قصد بالتوفيق

الكود لا علاقة له بنت فريم وورك لكن له علاقة بسرعة خط الانترنت لديك ملفك يعمل عندي بدون مشاكل حتى باستخدام دوال vlookup لكن مع تعديل وهو تحديد الصفوف من 6 إلى كذا على العموم هذه آخر محاولة مني على ملفك: تم الاستغناء عن فتح برنامج الواتس آب عن طريق ارسال الرابط لمتصفح انترنت اكسبلوورر وفتحه عن طريق مستكشف الويندور windows explorer مع نقل التركيز الي البرنامج مباشرة (فلن تحتاج الي الضغط علي ايقونة البرنامج في شريط المهام) جرب هذا ملف يرسل لأرقامي للتجربة كل ما عليك فعله بالترتيب: * تشغيل برنامج الواتس للكمبيوتر وربطه بالموبايل وتجهيزه علي الارسال مع بقاء الموبايل مفتوحا * فتح ملفك المرفق في هذه المشاركة والضغط على ارسال الرسائل * ترك الكود يفتح البرنامج ويكتب نص الرسالة ويضغط انتر بدون تدخل منك بالتوفيق Send Via Whatsapp للتجربة.xlsm

جرب المعادلة التالية في الخلية E1 =MID(A1,FIND("الاسم:",A1)+6,FIND("القسم",A1)-1-FIND("الاسم:",A1)-6) بالتوفيق

يمكنك استعمال هذا الاجراء Sub twolines2columns() Range("A2:A21").TextToColumns Destination:=Range("B2"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:=Chr(10), FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True End Sub لاحظ ان رمز السطر الجديد هو chr(10) بالتوفيق

الملف فارغ من اي أكواد

مفيش مشكلة جرب هذا المعادلة =MAX(IF(A:A=H2, D:D)) ولكن مع ضغط ctrl+shift+enter لأنها معادلة مصفوفات

ما نسخة الاوفيس لديك؟ ربما هي السبب

يمكنك وضع هذه المعادلة في الخلية C2 =IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)=0,"",IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)>1,MINIFS(C$1:C1,A$1:A1,A2,B$1:B1,B2),COUNT(C$1:C1)+1)) إن شاء الله تكون هي المطلوبة

هل ما تذكره بعد التجربة ام مجرد تخمين ؟ على العموم جرب هذا التعديل If Me.ComboBox2.Value = cstr(ws.Cells(i, "AH").value) Then بالتوفيق

بعكس الحاجات المذكورة في المشاركة السابقة تقليل معادلات البحث عدم وجود معادلات في صفوف فارغة تحويل بعض المعادلات الي اكواد تحويل الملف لامتداد يدعم السرعة والحجم القليل مثل xlsb وغيرها الكثير

جرب استعمال هذه المعادلة في الخلية F1 =CONCATENATE(A1,B1,C1,D1,TEXT(E1,"yyyy/mm/dd")) بالتوفيق

جرب حذف val من هذا الشرط If Val(Me.ComboBox2.Value) = ws.Cells(i, "AH") Then ليصبح If Me.ComboBox2.Value = ws.Cells(i, "AH") Then

كثرة المعادلات وخصوصا معادلات البحث والمعادلات في الصفوف الفارغة هي التي تبطئ الملف يمكن ضبط ملفك بحيث يستهلك وقتا اقل

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

على افتراض ان الخلية التي تحتوي على الرقم هي A1 يمكنك استعمال المعادلة التالية =IF(A1>60,25,IF(A1>30,10,0)) وهي تحتوي على معادلتين اف متداخلتين بالتوفيق

يمكنك وضع المعادلة التالية في الخلية K2 =MAXIFS(D:D,A:A,H2) ويمكن سحب المعادلة لاسفل بالتوفيق

إن شاء الله يفيدك هذا التعديل تم وضع معادلا للجمع وشروط لاختبار الاجمالي مع المساحة ملف فارغ لحساب - حصر المزروعات - للرفع.xls

الكود ليس به اي عناصر غير userform2 & listbox1 لذا انصح بعمل compile من قائمة debug ساعتها يظهر المشكلات في المشروع كله

الكود يأخذ من خلية رقم الموبايل قيمتها وليس معادلتها وظهور الخطأفي هذا السطر يعني تركيبة خلية الرقم برنامج الواتس آب لك حلان فيه مع رقم الموبايل: * إذا كان الرقم من نفس دولة رقم صاحب الحساب لا يحتاج الى كتابة مفتاح الدولة والصفر الاول من رقم الموبايل فمثلا نحن في مصر مفتاح الدولة +2 ورقم الموبايل مثلا يبدأ ب 010 يتم كتابة 10 ثم بقية الرقم * كتابة الرقم كاملا مع مفتاح الدولة (وهذا الذي أفضله لتفادي مشكلة كتابة الصفر قبل 10 مرتين) ويبدأ ب +2010 أرجو أن يكون اتضح الامر لاني جربت الكود في ملفك على رقمين بنفس نص الرسالة في ملفك وعمل بصورة طبيعية جدا

شغال عادي جدا بعد الضغط على الزر في اكسل قلت لك نشط برنامج الواتس علشان نص الرسالة يكتب تلقائيا ويتم الضغط على انتر ولتفادي الصفوف الفارغة في نهاية الجدول يمكنك استعمال for next بدلا من جميع خلايا الجدول بعدد الصفوف المطلوبة من 6 الى كذا Sub WhatsApp() Dim Contact As String Dim Message As String Dim n As Long For n = 6 To 22 Contact = Cells(n, 8).Value Message = Cells(n, 9).Value Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.navigate "whatsapp://send?phone=" & Contact & "&text=" & Message Application.Wait Now() + TimeSerial(0, 0, 5) SendKeys "~" Set IE = Nothing Next n MsgBox "Done!" End Sub بالتوفيق

العمود contact والذي يفترض به ارقام الموبايل به صفر فقط في sheet1 لان الكود عندك يقرأعمود contact من جدول tbl ومعظم العمود فارغ وهذا يظهر أخطاء في برنامج الواتس آب

حسب فهمي للمطلوب جرب هذه الدالة المعرفة بنسخ هذا الكود في،موديول جديد Function sumparts(num As String) As Long Dim n As Long, a As Long a = 0 For n = 1 To Len(num) a = a + Val(Mid(num, n, 1)) Next n If Len(CStr(a)) > 1 Then sumparts = sumparts(CStr(a)) Else sumparts = a End If End Function وبعد البحث في الانترنت عن هذا الأمر يمكن اختصار هذه الدالة إلى Function sumparts(num As String) As Long sumparts = num - 9 * Int((num - 1) / 9) End Function وطريقة استدعائها داخل الخلية =sumparts(A1) حيث A1 هي الخلية التي تحتوي على العدد المراد معرفة مجموع أرقامه ويمكن الوصول لهذا الهدف مباشرة في معادلة اكسل بهذه الصورة =A1-9*INT((A1-1)/9) بالتوفيق