نجوم المشاركات

السلام عليكم ممكن حل آخر Sub test() Dim a Dim i& a = Sheets("Form Responses 1").Cells(4, 1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) If a(i, 3) = Cells(2, 3) Then If Not .exists(a(i, 3) & a(i, 1)) Then .Add a(i, 3) & a(i, 1), Array(a(i, 3), a(i, 5), a(i, 6), a(i, 7), a(i, 8), a(i, 10), a(i, 15), a(i, 17), a(i, 19)) End If: End If Next a = Application.Index(.items, 0, 0) End With With Sheets("Report").Cells(4, 2).Resize(UBound(a) - 1, 9) .ClearContents .Value = a End With End Sub

أهلا بكم.. لكن كيف تقوم الأداة بتخزين البيانات في حقل مصدر التحكم؟ وأيضا ماذا لو كان النموذج غير مرتبط بمصدر بيانات؟ هذه الأسئلة لا يمكن تجاهل الإجابة عنها!! عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)! فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟! السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع). وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ يمكن استخدام التابع Join لهذا الغرض.. Private Sub cmdRequired_Click() Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل End Sub

معذرة لم انتبه للطلب الثانى وهو الطباعة تم عمل كود الطباعة وهو للمعاينة قبل الطباعة Retails Sales Report .xlsm

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

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

عدل من اعدادت التاريخ في لوحة التحكم لويندوز

يمكنك استخدام هذه المعادلة في أوفيس 2019 في الخلية C2 =TEXTJOIN(",", 1,IF($A$2:$A$20=A2,$B$2:$B$20, "")) بالتوفيق

حل آخر Sub test() Dim a Dim i& a = Sheets("DATA").Cells(1).CurrentRegion With CreateObject("scripting.dictionary") For i = 2 To UBound(a) If a(i, 3) = Sheets("RESULT").Cells(1, 5) Then If Not .exists(a(i, 1)) Then .Add a(i, 1), Array(a(i, 1), a(i, 2), a(i, 3)) End If Next a = Application.Index(.items, 0, 0) End With With Sheets("RESULT").Cells(1).CurrentRegion.Offset(1) .ClearContents .Resize(UBound(a), 3) = a End With End Sub

أخى وأستاذ الكريم / محي الدين ابو البشر شكرا جزيلا لمرور حضرتك الكريم على موضوعى مجرد مرورك شرف لى كود أكثر من رائع وقمت بتجربته بالفعل ويقوم بنفس المطلوب شكرا جزيلا وجعله الله فى ميزان حسناتك أخى الحبيب الأستاذ / احمد عبدالحليم لا أجد من الكلمات التى تعبر عن مدى شكرى وإمتنانى لحضرتك جعله الله فى ميزان حسناتك هذا هو المطلوب بالفعل أدام الله فضله ونعمه وزادك من علمه

تفضل اخى هذا كود بحث وليس ترحيل جرب الملف MY_RESULT.xlsm

أخى الفاضل الأستاذ / أحمد عبد الحليم هذا هو المطلوب بالضبط سلمت يمينك كود رائع للأستاذ العلامة / ياسر العربى وأيضا أستاذ / ومعلمى القدير أخى فى الله ياسر خليل أبو البراء جعله الله فى ميزان حسناتهم جميعا

تفضل اخى جرب هذا المف والكود للعلامة الاستاذ / ياسر العربى (كود البحث باستخدام المصفوفات وقام بشرحه بالتفصيل العلامة الاستاذ/ ياسر خليل ابو البراء Retails Sales Report .xlsm

آمين يا رب العالمين ولكم بمثله آمين

ولكم بمثل ما دعوتم أخي الحبيب @Yasser Fathi Albanna فائق شكري وامتناني لمروركم العطر وكلماتكم الطيبة

أخي الكريم استعمال معادلات الصفيف في نطاق واسع يبطئ الملف جدا وأحد الحلول لعمل تصفية بالمعادلات هي وجود عمود مسلسل مساعد في شيت البيانات الكبير وتغيير معادلة المسلسل في شيت التقرير ومعادلة البحث في شيت التقرير هذا ملفك بعد التعديل لإيصال الفكرة (يمكنك استكمال معادلة البحث في باقي الأعمدة) بالتوفيق Retails Sales Report.xlsx

جزاك الله كل الخير أخى الحبيب وجعله الله فى ميزان حسناتك

محاولة لتحقيق طلبك حسب تصميمك للنماذج AR_EN_Indian2.rar

فوزى فوزى كرما اضغط زر أفضل إجابة في رد الأستاذ احمد عبدالحليم

مجرد تخمين Sub Button1_Click() Dim i As Long For i = Sheet1.Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1 If Sheet1.Cells(i, 3) = "ناجح" Or Sheet1.Cells(i, 3) = "راسب" Then Sheet1.Range("a" & i & ":c" & i).Copy Sheet3.Cells(Rows.Count, 1).End(xlUp).Offset(1) End If Next End Sub

يمكنك وضع هذه المعادلة في الخلية B4 =DATE(MID(LEFT(RIGHT(I4,12),8),1,4),MID(LEFT(RIGHT(I4,12),8),5,2),MID(LEFT(RIGHT(I4,12),8),7,2)) والاستغناء عن الأعمدة المساعدة بالتوفيق

وعليكم السلام حل آخر =(SUMPRODUCT(الصرف!$C$2:$C$8;--(MONTH(الصرف!$A$2:$A$8)=MONTH(D2))*(الصرف!$B$2:$B$8=$A$1)*(الصرف!$C$2:$C$8>0))*$L$1)-(SUMPRODUCT(الصرف!$C$2:$C$8;--(MONTH(الصرف!$A$2:$A$8)=MONTH(D2))*(الصرف!$B$2:$B$8=$A$1)*(الصرف!$C$2:$C$8<0))*-1) مصنف (1).xlsx

حسب فهمي للمطلوب يلزمك تغيير المعادلة في الخلية E2 إلى =SUMIFS(الصرف!$C$2:$C$8,الصرف!$B$2:$B$8,$A$1,الصرف!$A$2:$A$8,">="&D2,الصرف!$A$2:$A$8,"<="&EOMONTH(D2,0),الصرف!$C$2:$C$8,">="&0)*$L$1+SUMIFS(الصرف!$C$2:$C$8,الصرف!$B$2:$B$8,$A$1,الصرف!$A$2:$A$8,">="&D2,الصرف!$A$2:$A$8,"<="&EOMONTH(D2,0),الصرف!$C$2:$C$8,"<"&0) رغم اعتراضي على اختلاف طريقة تسجيل البيانات فإذا كان العدد 3 يتم ضربه في 1000 لذلك يجب كتابة ال 500 على صورة 0.5 فهذا سيقلل المعادلة ويضبط المخرجات بالتوفيق

تعديل ممتاز تسلم ايديك هو المطلوب ربنا يجزيكم خير ويبارك فيكم وفى والديكم

وعليكم السلام ورحمة الله تعالى وبركاته استاذي الكريم @ابو جودي هل هو المطلوب ؟ Get Value Combo Box Multi Select.accdb

تفضل اخى لعل هذا المطلوب نرحيل.xlsm

وعليكم السلام يمكن أيضا عمل الفكرة بالكود أمر طباعة وزيادة العدد ويمكن إضافة عبارات مع الرقم تفضل أرقام.xlsx

بعد اذن الاخ كمال هذا برنامج صادر ووارد سبق ان طرحه احد الاعضاء لا اذكر اسمه اومعرفه فجزاه الله عنا خيرا الصادر والوارد.xlsm

تجربة معرفة بداية الأسبوع ونهايته بالذكاء الاصطناعي للويب فكرة طرأت ببالي أعرضها على سبيل الاطلاع فقط : ظهرت النتيجة كما يلي:

السلام عليكم أخي الكريم @Yasser Fathi Albanna كيف حالكم تم الحل بالنظر إلى المعادلة التي تحوي على النطاق المعرف مطروحاً من النطاق الصف( Y_7 ) - 3 كما يظهر في الصورة: رجعت إلى النطاق المعرف وحددته بالضبط ليس كما وجدت حيث كان معظم الشيت معرف على أنه ( Y_7 ) ولضبط ارتفاع الصفوف وضعت 3 صفوف فوقه هذا والله أعلى وأعلم والسلام عليكم ورحمة الله وبركاته

yy - mm - dd

بارك الله فيكم جميعا جميل جدا هذا العمل إبداع وهذه مساهمتي للبحث في موضوعات منتدى الاكسس ولكن في مجال الويب حتى يمكن البحث بسرعة بمجرد الكتابة ولو في الموبايل بدون الحاجة إلى برنامج الأوفيس https://officena.net/team/mas/access.html بالتوفيق للجميع دعواتكم

أهلا بك @Moosak أشكرك على ثناءك العطر.. لكن لا تبالغ 😊 أقول لك بصدق؛ إن الأفكار كثرت عليّ، وما أدري ما الذي أقدم منها فقلت أبدأ بالأيسر، ثم أتناقش معكم ماهو الأفضل والأنسب.. بعد أن أستعرض معكم مفاتيح البحث التي يوفرها الموقع. هذا صحيح! لأن الهدف هو جلب البيانات من الموقع وتكديسها في قاعدة البيانات، ثم النظر فيما بعد في كيفية استثمار تلك البيانات وفقاً لمتطلبات المطور..

كي نفعل ذلك يجب ان نحتال على اكسل اليك هذه الحيلة: 1-قبل عملية النسخ قم باستبدال علامة"=" قي كل الورقة بأي شي اخر مثلاً "##^^" و ذلك من خلال الضغط على Ctrl+H والقيام يعملية الاستبدال Replace All بذلك تتعطل كل المعادلات في الورقة ( حيث لا يوجد "=" لتنفيذ المعادلة) 2-قم بنسخ الورقة الى المكان المطلوب 3- قم باستبدال "##^^" يعلامة "=" في الورقتين المصدر و الهدف