عبدالله بشير عبدالله قام بنشر الأحد at 20:38 قام بنشر الأحد at 20:38 السلام عليكم ورحمة الله وبركاته عذرا لتأخرى في الرد حسب الصورة المرفقة مع ردكم الكريم اظافة عنصر فارغ في القائمة e5 وبناء عليه تكون b10&g10 فارغتان تم التعديل و يمكنك تعديل نطاق القائمة كما تشاء يمكنك الاسنغناء عن زر انقر هنا للبحث وإذا لاحظت أي شيء يحتاج تعديل أو عندك أي فكرة تحب نضيفها، أنا حاضر بأي وقت، لك كل الود والتقدير طريقة اخرى للبحث معدلة6.xlsb 1
algammal قام بنشر الثلاثاء at 20:21 الكاتب قام بنشر الثلاثاء at 20:21 أخي الكريم الفاضل الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته كل عام وأنتم جميعا بخير وصحة وسعادة بمناسبة اقتراب عيد الأضحى المبارك أعاده الله عليكم وعلينا وعلى الأمة الإسلامية جميعا بالخير واليمن والبركات والعام القادم بأمر الله نكون سويا على جبل عرفات اللهم آمين رب العالمين. وكل عام وجميع أوفيسنا (Excel) الكرام جميعا بخير في 31/5/2025 at 22:07, محمد هشام. said: ربما ما لم تلاحظه هو أن القيم تعبأ على عناصر الكومبوبوكس مع تجاهل الفراغات والتكرارات ولهذا السبب تظهر معك مرة واحدة فقط وذلك لأن أرقام التسلسل الموجودة على ورقة معاشات هي نفسها الموجودة على الـ DATA ما يهمنا هنا هو جلب جميع البيانات المتوفرة على الورقتين التي تتضمن شروط التصفية المختارة بداية أحييكم وأشكر لكم روعة وتفصيل الرد ما أروع وما أجمل ما صنعت يداكم حفظكم الله ورعاكم؛ وسلمتم وسلمت يداكم على هذا الجمال وهذه الروعة؛ وعلى كل ما قدمتموه؛ فلقد صار البدر قمرا منيرا؛ ووصل لمرحلة التمام والكمال؛ فجزاكم الله خير الجزاء؛ وفي ميزان حسناتكم بأمر الله. وكل عام وأنتم بخير؛ ودامت دياركم عامرة بكل ما يحبه الله ويرضاه.
algammal قام بنشر الثلاثاء at 20:33 الكاتب قام بنشر الثلاثاء at 20:33 أخي الكريم الفاضل الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته كل عام وأنتم جميعا بخير وصحة وسعادة بمناسبة اقتراب عيد الأضحى المبارك أعاده الله عليكم وعلينا وعلى الأمة الإسلامية جميعا بالخير واليمن والبركات والعام القادم بأمر الله نكون سويا على جبل عرفات اللهم آمين رب العالمين. وكل عام وجميع أوفيسنا (Excel) الكرام جميعا بخير في 1/6/2025 at 23:38, عبدالله بشير عبدالله said: عذرا لتأخرى في الرد ليس عليكم اعتذار؛ وإنما الاعتذار واجب منا لكم على تعبكم معنا؛ فتقبلوا اعتذارنا مغلفا بكامل الشكر والاحترام والتقدير لشخصكم الكريم في 1/6/2025 at 23:38, عبدالله بشير عبدالله said: وإذا لاحظت أي شيء يحتاج تعديل أو عندك أي فكرة تحب نضيفها، أنا حاضر بأي وقت، هذا ما عهدناه عليكم أدامكم الله عزا وعونا لنا؛ وهذا ما يشجعنا ويجعلنا نسألكم دوما بدون تردد مرة تلو الأخرى وكلنا ثقة ويقين في تقديم الإجابات والحلول الناجحة الشافية لكل ما نسأل عنه في 1/6/2025 at 23:38, عبدالله بشير عبدالله said: لك كل الود والتقدير ولكم منا كل ود واحترام وتقدير وشكر بلا حدود ما أروع وما أجمل ما صنعت يداكم حفظكم الله ورعاكم؛ وسلمتم وسلمت يداكم على هذا الجمال وهذه الروعة؛ وعلى كل ما قدمتموه؛ فلقد صار البدر قمرا منيرا؛ ووصل لمرحلة الكمال؛ فجزاكم الله خير الجزاء؛ وفي ميزان حسناتكم بأمر الله. مجرد تساؤل فقط: هل من الممكن أن يكون هناك ارتباط بين الخلية الفارغة في (E5) وزر (أنقر هنا لمسح البيانات) بحيث يقوم الزر بنفس وظيفة الخلية الفارغة بأبسط طريقة ممكنة؟ مع بيان شرح مبسط لذلك إن وجد. وكل عام وأنتم بخير؛ ودامت دياركم عامرة بكل ما يحبه الله ويرضاه.
عبدالله بشير عبدالله قام بنشر الثلاثاء at 21:40 قام بنشر الثلاثاء at 21:40 (معدل) وعليكم السلام ورحمة الله وبركاته 4 طرق لمسح البيانات 1- زر به كود مسخ البيانات (جديد) يقوم الزر بنفس وظيفة الخلية الفارغة 2- اخنيار الخلية الفارغة من E5 (بعد عمل زر المسخ ليس لها ضرورة ) 3- الخروج من شيت SEARCH ثم العودة اليه 4- النقر مرتين في اي خلية في شيت SEARCH وايسرها كما تفضلتم زر المسح او النقر مرنين كما انوه ان تحديث البيانات اظافة وظيفة جديدة ..... الخ الى شيت DATA او معاشات يتم تلقائيا مع الانتباه لزيادة مدى البيانات للقائمة من التحقق من صحة البيانات انمنى اتى قدمت ما بقيد وما زال الباب مفتوحا لمفترحاتكم او ملاحظاتكم وكل عام وانتم بالف خير طريقة اخرى للبحث معدلة7.xlsb تم تعديل الثلاثاء at 21:47 بواسطه عبدالله بشير عبدالله 1
محمد هشام. قام بنشر الثلاثاء at 22:43 قام بنشر الثلاثاء at 22:43 1 ساعه مضت, algammal said: بداية أحييكم وأشكر لكم روعة وتفصيل الرد ما أروع وما أجمل ما صنعت يداكم حفظكم الله ورعاكم؛ وسلمتم وسلمت يداكم على هذا الجمال وهذه الروعة؛ وعلى كل ما قدمتموه؛ فلقد صار البدر قمرا منيرا؛ ووصل لمرحلة التمام والكمال؛ فجزاكم الله خير الجزاء؛ وفي ميزان حسناتكم بأمر الله. وكل عام وأنتم بخير؛ ودامت دياركم عامرة بكل ما يحبه الله ويرضاه. العفو أخي الكريم @algammal سعدنا دائما بمشاركتنا في إثراء الموضوع وتقديم الاقتراحات التي تساعدك على تحقيق النتائج المطلوبة والشكر الكبير للأستاذ الفاضل عبد الله على جهوده القيمة ومساهمته المتميزة بعد مراجعة الملف المقدم من أستاذنا الفاضل @عبدالله بشير عبدالله لاحظنا أنك تعتمد على معيار واحد فقط لجلب البيانات وليس عدة معايير كما ظننا في البداية لو عرفنا هذا منذ البداية لكان بإمكاننا تقديم حلول أبسط مما تم تطبيقه ضمن اليوزرفورم حيث كنا نعتقد أنك تحتاج بحثا ديناميكيا بعدة معايير مع ذلك لديك الآن عدة طرق مختلفة وجميعها فعالة ويمكنك اعتماد الأنسب منها حسب طبيعة عملك واحتياجاته 1
algammal قام بنشر الأربعاء at 12:18 الكاتب قام بنشر الأربعاء at 12:18 أخي الكريم الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحمة الله وبركاته كل عام وأنتم بخير وصحة وسعادة 14 ساعات مضت, عبدالله بشير عبدالله said: انمنى اتى قدمت ما بقيد لقد كفيت ووفيت؛ جعلكم الله من سعداء الدنيا والآخرة؛ ووضع لكم القبول في الأرض والسماء؛ وجزاكم الله خيرا. وعيد أضحى مبارك أخي الكريم الأستاذ / @محمد هشام. السلام عليكم ورحمة الله وبركاته كل عام وأنتم بخير وصحة وسعادة 13 ساعات مضت, محمد هشام. said: بعد مراجعة الملف المقدم من أستاذنا الفاضل @عبدالله بشير عبدالله لاحظنا أنك تعتمد على معيار واحد فقط لجلب البيانات وليس عدة معايير كما ظننا في البداية لو عرفنا هذا منذ البداية لكان بإمكاننا تقديم حلول أبسط مما تم تطبيقه ضمن اليوزرفورم حيث كنا نعتقد أنك تحتاج بحثا ديناميكيا بعدة معايير بالفعل أخي الكريم كنت أحتاج بحثا ديناميكيا بعدة معايير. لقد كفيت ووفيت؛ جعلكم الله من سعداء الدنيا والآخرة؛ ووضع لكم القبول في الأرض والسماء؛ وجزاكم الله خيرا. وعيد أضحى مبارك أخي الكريم الأستاذ الفاضل / @عبدالله بشير عبدالله أخي الكريم الأستاذ الفاضل / @محمد هشام. ما قدمتموه لي كالعين اليمنى واليسرى لا يستطيع الإنسان الاستغناء عن أي منهما أو كلاهما لإبصار تام؛ فكلاهما في منتهى الغلاوة؛وأبشركما أن كلا من الملفين لن أستغني عن أحدهما؛ وبأمر الله تعالى سيتم العمل بهما معا فكل منهما له استخدامه. وجزاكم الله خير الجزاء؛ ولن أنساكم من دعاء يوم عرفة فضلا وعرفانا بجميلكم دمتم عونا لكل من أراد العون ومثلا يحتذى لكل من أراد القدوة
algammal قام بنشر الأربعاء at 22:21 الكاتب قام بنشر الأربعاء at 22:21 أخي الكريم الأستاذ الفاضل / @محمد هشام. السلام عليكم ورحمة الله وبركاته ظهرت لي هذه المشكلة عندما قمت في آخر تحديث من قبلكم باختزال الوظائف لثلاث وظائف فقط هي (محامي؛ عامل؛ طبيب) الغريب في الأمر أنها لا تظهر إلا عن اختيار وظيفة: محامي أو عامل فقط؛ في حين عند اختيار وظيفة طبيب تظهر النتائج كاملة؛ حاولت الوصول لحل ولم أعرف. فرجاء مساعدتي في الحل وجزاكم الله خيرا
عبدالله بشير عبدالله قام بنشر بالامس في 04:24 قام بنشر بالامس في 04:24 (معدل) السلام عليكم ورحمة الله وبركاته بعد ملاحظة ااستاذنا الفاضل محمد هشام. جزاه الله خيرا والتي ذكر فيها بعد مراجعة الملف المقدم من أستاذنا الفاضل @عبدالله بشير عبدالله لاحظنا أنك تعتمد على معيار واحد فقط لجلب البيانات وليس عدة معايير كما ظننا في البداية لو عرفنا هذا منذ البداية لكان بإمكاننا تقديم حلول أبسط مما تم تطبيقه ضمن اليوزرفورم حيث كنا نعتقد أنك تحتاج بحثا ديناميكيا بعدة معايير وتعليقكم 16 ساعات مضت, algammal said: بالفعل أخي الكريم كنت أحتاج بحثا ديناميكيا بعدة معايير. وكما اشار معلمنا الفاضل في 4/6/2025 at 00:43, محمد هشام. said: مع ذلك لديك الآن عدة طرق مختلفة وجميعها فعالة ويمكنك اعتماد الأنسب منها حسب طبيعة عملك واحتياجاته اليك الملف يبحث بعدة معايير لكما كل الود والتقدير والاحترام طريقة اخرى للبحث بعدة معايير.xlsb تم تعديل بالامس في 04:27 بواسطه عبدالله بشير عبدالله 1
محمد هشام. قام بنشر بالامس في 10:03 قام بنشر بالامس في 10:03 11 ساعات مضت, algammal said: الغريب في الأمر أنها لا تظهر إلا عن اختيار وظيفة: محامي أو عامل فقط؛ في حين عند اختيار وظيفة طبيب تظهر النتائج كاملة المرجوا إرفاق الملف الذي يتضمن نفس البيانات والوظائف المذكورة للوقوف وراء سبب ظهور رسالة الخطأ معك 1
algammal قام بنشر منذ 20 ساعات الكاتب قام بنشر منذ 20 ساعات (معدل) 15 ساعات مضت, عبدالله بشير عبدالله said: اليك الملف يبحث بعدة معايير أخي الحبيب الأستاذ / @عبدالله بشير عبدالله السلام عليكم ورحم الله وبركاته عيد أضحى مبارك أعاده الله عليكم أعواما عديدة وأزمنة مديدة؛ وأنتم بخير وصحة وسعادة ما أجمل أن تدعو لأخيك بظهر الغيب؛ فما بالك إن كان الدعاء يوم عرفة؛ دعوت اليوم لكم بالاسم؛ حفظكم الله ورعاكم؛ وجزاكم الله خيرا. أخي الحبيب الأستاذ / @محمد هشام. السلام عليكم ورحم الله وبركاته عيد أضحى مبارك أعاده الله عليكم أعواما عديدة وأزمنة مديدة؛ وأنتم بخير وصحة وسعادة ما أجمل أن تدعو لأخيك بظهر الغيب؛ فما بالك إن كان الدعاء يوم عرفة؛ دعوت اليوم لكم بالاسم؛ حفظكم الله ورعاكم؛ وجزاكم الله خيرا. 9 ساعات مضت, محمد هشام. said: المرجوا إرفاق الملف الذي يتضمن نفس البيانات والوظائف المذكورة للوقوف وراء سبب ظهور رسالة الخطأ معك إليك الملف أخي الحبيب توحيد البحث في شيت واحد v6.xlsb تم تعديل منذ 20 ساعات بواسطه algammal
algammal قام بنشر منذ 20 ساعات الكاتب قام بنشر منذ 20 ساعات أخي الحبيب الأستاذ / @عبدالله بشير عبدالله أخي الحبيب الأستاذ / @محمد هشام.
محمد هشام. قام بنشر منذ 16 ساعات قام بنشر منذ 16 ساعات أعتقد ان إستبدال هدا السطر سيوفي بالغرض من If xtbl > 0 Then Sh1.Range("A5").Resize(xtbl, 13).Value = Application.Index(v, Evaluate("ROW(1:" & xtbl & ")"), Evaluate("COLUMN(1:13)")) End If إلى If xtbl > 0 Then If xtbl = 1 Then Sh1.Range("A5").Resize(1, 13).Value = v Else Sh1.Range("A5").Resize(xtbl, 13).Value = v End If End If بطريقة مختلفة وأسرع نوعا ما Private Sub CommandButton1_Click() Dim i&, r&, c&, k&, t&, f&, xtbl&, lastRow&, n As Boolean, ok As Boolean, val$ Dim s, data, a(), ky(), tb(), j(), criteria() SetApp False ReDim ky(1 To MaxCombo): ReDim tb(1 To MaxCombo): ReDim j(1 To MaxCombo) For i = 1 To MaxCombo val = Trim(LCase(Me("ComboBox" & i).Value)) If val <> "" And val <> "*" Then ky(i) = val: n = True Else ky(i) = "" Next If Not n Then MsgBox "الرجاء تحديد معايير البحث", vbExclamation: GoTo CleanUp For i = 1 To MaxCombo If ky(i) <> "" Then f = f + 1: tb(f) = ColArr(i - 1): j(f) = ky(i) Next With Sh1 lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row If lastRow >= 5 Then .Range("A5:M" & lastRow).ClearContents End With data = OnRng: k = UBound(data, 1): t = 13 ReDim a(1 To k, 1 To t), criteria(1 To f) For r = 1 To k ok = True For i = 1 To f s = data(r, tb(i)) criteria(i) = IIf(IsDate(s), Format$(s, "yyyy/mm/dd"), LCase(Trim(CStr(s)))) If criteria(i) <> j(i) Then ok = False: Exit For Next If ok Then xtbl = xtbl + 1 For c = 1 To t: a(xtbl, c) = data(r, c): Next If IsDate(a(xtbl, 9)) Then a(xtbl, 8) = xDayName(Format(a(xtbl, 9), "dddd")) If IsDate(a(xtbl, 12)) Then a(xtbl, 11) = xDayName(Format(a(xtbl, 12), "dddd")) End If Next If xtbl > 0 Then Sh1.Range("A5").Resize(xtbl, t).Value = a AddBorders Sh1.Name CleanUp: SetApp True End Sub توحيد البحث في شيت واحد v7.xlsb 1
algammal قام بنشر منذ 2 ساعات الكاتب قام بنشر منذ 2 ساعات أخي الحبيب الأستاذ الفاضل / @محمد هشام. السلام عليكم ورحمة الله وبركاته شكرا لكم وجزاكم الله خيرا ممكن أعرف كيفية عمل الصورة المتحركة في هذا التعليق ()
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.