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

بسم الله الرحمن الرحيم اقدم لكم كود بحث متقدم كود بحث متقدم يفوق معظم أنواع البحث بالاعتماد على المصفوفات لضمان كفاءة عالية للبحث وسرعة جلب البيانات والمرونة العالية به من حيث البحث داخل كل الأعمدة الموجودة داخل النطاق تم توضيح المتغيرات التي تستطيعوا تعديلها لتتوافق مع ملفاتكم الكود المستخدم داخل الملف Sub Yasser_Serch() Dim myArray, lr, X, targt, targtN Dim SERCH As Worksheet, DATA As Worksheet '____________________________________________ Set DATA = Worksheets("Sheet2") 'اسم شيت قاعدة البيانات Set SERCH = Worksheets("Sheet1") 'اسم الشيت الخاص بالبحث '____________________________________________ lr = DATA.Cells(Rows.Count, 1).End(xlUp).Row 'اخر صف به بيانات SERCH.Range("A4:J" & SERCH.Cells(Rows.Count, 4).End(xlUp).Row + 1).ClearContents 'مسح نطاق البحث القديم targt = SERCH.Range("e1").Value 'خلية البحث targtN = Application.WorksheetFunction.Match(SERCH.Range("D1"), SERCH.Range("A3:J3"), 0) 'دالة لايجاد رقم عمود البحث myArray = DATA.Range("A2:J" & lr + 1) 'نطاق قاعدةالبيانات الذي سيتم البحث فيه '____________________________________________ ReDim Y(1 To lr, 1 To 10) For X = 1 To lr If targt = "" Then Exit Sub If myArray(X, targtN) Like targt & "*" Then rw = rw + 1 Y(rw, 1) = myArray(X, 1): Y(rw, 6) = myArray(X, 6) Y(rw, 2) = myArray(X, 2): Y(rw, 7) = myArray(X, 7) Y(rw, 3) = myArray(X, 3): Y(rw, 8) = myArray(X, 8) Y(rw, 4) = myArray(X, 4): Y(rw, 9) = myArray(X, 9) Y(rw, 5) = myArray(X, 5): Y(rw, 10) = myArray(X, 10) End If Next X If rw > 0 Then SERCH.Cells(Rows.Count, 1).End(xlUp)(2, 1).Resize(rw, 10).Value = Y() End Sub لتحميل الملف اضغط هنا اعداد / ياسر العربي تقبلو تحياتي

اضف الكود الصفراء في حدث بعد تحديت ل رقم فاتورة البرامج مع تقدير

جزاكم الله خيرا استاذ رمهان وابشركم بكل الخير الان خلصنا منه فعلا كان ! كان شبح بالنسبه لي موضوع الفلتره اثناء البحث وتضليل النص ولكم كل الفضل بعد رب العزة سبحانه وتعالى كل الشكر والتقدير لمن حاول مساعدتى فى هذا الموضوع ولم يوفق او لم يستطع او لم يسعفه الوقت او لم يهده الله عزوجل لذلك فكل شئ عنده بمقدار ☻☺♥أخص بالذكر وبالشكر الاستاذ yousef ☻☺♥أخص بالذكر وبالشكر الاستاذ رمهان ☻☺♥أخص بالذكر وبالشكر الاستاذ أبو عبدالله الحلوانى مع العلم بأن كل كلمات الشكر لن تكفيهم ولكن اختص بالذكر الاستاذ القدير رمهان فلقد اتعبته وأجهدته حتى وصلنا الى تلك الحالة التى من رأى المتواضع اعتقد انها حد الكفاف والكمال بكل ما تقتضيه المعانى فيما يخص الية وطرق البحث المتعدد فى اكثر من حقل او فى كل الحقول وكما قال صلى الله عليه وسلم من يسر على مسلم طريق يلتمس به علم يسر الله له به طريقا الى الجنه فاللهم يسر لكل اساتذتى الكرام دون ذكر احد حتى لا ينسينى الشيطان احد اساتذتى الكرام طرقا الى الجنان اللهم اكرم كل من تعلمت على يديهم حرفا فى هذا المنتدى العظيم اللهم زدهم علما اللهم زدهم علما اللهم زذهم علما اللهم اجعل علمهم حجة لهم يارب العالمين اللهم سهل ويسر لهم طرقات الى الجنان اللهم انفعهم بما علمتهم اللهم بارك لهم فى علمهم وعملهم اللهم قربهم اليك وبارك فى اعمارهم واجعل الله كل اعمالهم خالصة لوجهك الكريم اللهم امين امين... امين SearchHighlight.rar

ايه يااستاذ ابا جودي هوه الموضوع ده ماخلصنا منه ! كان شبح بالنسبه لي موضوع الفلتره اثناء البحث وتضليل النص المشكلة كانت في التعبير لانه بقي شرط لم يكتمل استبدل التعبير لعنصر البريد الالكتروني بهذا =IIf(IsNull([txtSearch2]),[E_mail],IIf(IsNull([e_mail]),"",Replace([E_mail],[txtSearch2],"<font color=red>" & [txtSearch2] & "</font>"))) وطبق على بقية العناصر بالتوفيق اخي وعزيزي

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

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى أقدم اليكم قاعدة بيانات للموارد البشرية HR الاصدار الثاني كلمة المرور : 111 و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله الموفق والمستعان و السلام عليكم ورحمة الله و بركاته HR 3 with listbox.rar HR for Windows 8 FADILA.rar

مرفق شيت قوائم الفصول عملته لمدرستى بالاستعانة باكواد اخذتها من موقعكم واخذنا الكثير وحان الوقت ان نعطى ما تعلمناه من موقعكم العظيم الشيت بسيط جدا سهل الاستعمال يعطى القوائم ببساطة ويتم طبعها وعند نهاية العام الدراسى وبداية عام جديد يتم اخذ نسخة من الشيت السابق ويتم حذف صفوف اخر سنة موجودة وعندى هنا الثانوية العامة ويتم الترحيل 1ولى ابتدائى (1) تصبح ثانية ب (2) وهكذا و KG2 ورقم 14 تصبح 1(اولى ب) و KG1 تصبح 14 ( KG2) يتبقى لك KG1 يتم ادخال الاسماء والبيانات فقط وباقى الصفوف يتم اضافة او حذف كما تريد ولو اردت تحويل طالب مثلا فى اولى اعدادى من فصل 4 الى 2 اذهب الى طلبة الصف 7 وغير الفصل يتم تغيره فورا فى القوائم ولكن اضغط على ذر النقل اولا قبل الطباعة عموما انا مستعد لاى سؤال وتحياتى الى الاخ ياسر ومنتظر ردودكم ولو هناك اقتراحات تعديل للاحسن يبقى خير وبركه وان هنا اكثر عدد فصول فى اى فرقة 6 ولو كان عندك اكثر ممكن يتم التعديل قوائم 2016-2017.rar

الأخوة الأفاضل أطمع في تفضلكم عليّ ببرنامج عن شئون العاملين وعمل فورم استطيع من خلاله البحث عن بيانات الموظفين برقم الموظف وبالمرفقات شيت اكسيل فبرجاء عمل الفورم اللازم لذلك بحيث يشمل كل بيانات الموظف كما هو موضح بالشيت وجزاكم الله خيرا Book.rar

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

جرب هذا الماكرو Sub Salim() Dim Mg As Range Set Mg = Range("p1:p4") With Range("B6:N22") .HorizontalAlignment = xlGeneral .Font.Size = 16 End With For i = 6 To 22 With Range("b" & i) For j = 1 To 4 If .Value = Mg.Cells(j) Then .Font.Size = 24 .Resize(1, 13).HorizontalAlignment = xlCenterAcrossSelection End If Next End With Next End Sub

تفضل اخي العزيز SENDBOXDB1.rar

السلام عليكم اخي ياسر العربي : جزاك الله خيرا

ما هو دى تقدر تقول عليها لمسة رمهانية

خليفه العالم العلامه غبد الله باقشير المحترم ياسر العربي يحفظك ربنا ويصونك

دى صورة من واقع تجربة من داخل القاعدة المرفقة تم نسخ القيمة مع الاغلاق والفتح والتبديل بين الفورم copy txt val.rar للعلم انا لم اربط مربع النص باى مصدر بيانات بيانات وللعلم ايضا لو اننا نريد عند فتح النموذج الثانى اضافة سجل جديد سوف يتم تغير طفيف انا فقط كنت اقوم بالتجربة للوصول الى النتيجة المرجوة وبفضل الله تعالى اعتقد تلك النتيجة مرضية ووافية وكافية فقط يتم التعديل حتى يتماشى مع الية عمل قاعدة البيانات ممكن اشرح كل شئ ومستعد للنقاش ان شاء الله تعالى

السلام عليكم يارك الله وادامك ذخراً

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

ماشاء الله تبارك الله دائما مبدع أستاذ ياسر اشكرك يالحبيب

ياسر العربى اخى ياسر شيء جديد فعلها عبدالله باقشير بالبحث في اللست جزاك الله خيرا اخى الله عليك

اولا يجب ان يكون النموذجين مفتوحين وفي حدث عند النقر على الزر في محرر الاكواد اكتب Forms!form4!Text0 = Me.Text0 فورم!اسم الفورم ! اسم الحقل = اي حقل تريد يأخذ منه نصه مع التقدير

ياسر العربى اخى الفاضل ما شاء الله عليك ومتغبش علينا من ابداعاتك

اوكي تمام امهلني نيفا من الوقت اخي محمد تحياتي

جرب هذا الملف Newfolder1.rar

حسب ما فهمت من المشاركة ربما يكون المطلوب name_by_number.rar

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

تمام ولو ترفق المرفق السابق وبه تعديلاتك افضل والكل يستفيد

حياك الله اخ احمد لا اعتقد ان للشبكة دور في ذلك ! هل لديك اكثر من نافذة مفتوحة عند التجربة ؟ وكيف انت عامل المشاركة : هل كل البرنامج في مجلد المشاركة ثم فتحه من اماكن بعيدة ؟ ام فاصل البرنامج جداول وواجهات ؟

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

بسم الله ما شاء الله ربي يزيدك بسطةً في العلم والجسم ويفتح عليك باب فيوضاته لتنعم بقربه وتتمتع برضاه لا أدري ما أكتب والأحرف قد هربت والكلمات تبعثرت والجمل قد ذابت واللسان قد أبهره صنعك فعجز عن التعبير لك عن شكره بالفعل عاجز عن التعبير ولا أدري ما أكتب لك رحم الله والديك يا ابا عيد وتقبل الله عملك وسدد خُطاك لكل خير وسهل دربك لرضاه

وأنا أحترم وجهة نظرك ووجهة نظر الناس .. فقط أردت التعبير عن وجهة نظري وبعدين هصر العجلة والبسكلتة انتهى .. فيه دلوقتي موتوسيكلات تكاتك أو أي حاجة توصلك بسرعة تقبل وافر تقديري واحترامي

أخي الكريم هذا هو رابط الموضوع الأصلي http://yasserkhalilexcellover.blogspot.com.eg/2016/10/hijri-gregorian-converter.html وإليك ملف مرفق وإن كنت لا أحبذ الاعتماد على الملف المرفق وحسب .. لابد لك من تعلم الأساسيات إذا كنت تنوي الاستفادة من المنتدى (فالحكمة تقول لا تعطني سمكة ولكن علمني كيف أصطاد) ... وهذا هو منهجي ، ومن يريده فأهلاً به ، ومن لا يريده فهو على العين والرأس .. TestThis.rar

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

If DLookup("xtype", "table1") = -1 Then Me.ww.Enabled = True Else Me.ww.Enabled = False End If وحششش يا رمهان الله يزيدك من العلم والف شكر عدلت في الكود شي بسيط وميه ميه.....

تفضل اخي الكريم انشئ مجلد في جهاز السيرفر باسم img في القرص D ولا تنسى مشاركته كما ذكرت لك سابقا جرب ووافينا بالنتيجة program.rar

السلام عليكم اخي الكريم ابو هديل شاهد المرفق واخبرني عن رايك . اقبل تحياتي واحترامي تصاريح المنشأة.rar

اخي الكريم سرمد بعد اذن استاذي الكريم ابو عيد حسب طلبك للكاش فان + المفرد يكون مجموع الاعمدة 23 وليس 20 وهذا هو الملف وطبعاً بالطريقة التقليدية توضيح جمع اكثر من خلية من أكثر من ورقة2.rar

تفضل مجموع خلية من كل صفحة1.rar

الكود يوضع في زر اختيار الصورة فبعد اختيارها يقوم بترحيل الصورة الى السيرفر طبق الخطوات التالية 1- في جهاز السيرفر انشئ مجلد في القرص D وليكن اسمه img وقم بمشاركته مع السماح للمستخدمين بالتحكم الكامل طبعا هذه الخصائص تحصل عليها من الويندوز كما في الصورة 2- اضف الكود التالي الى نموذج حفظ الصورة في جميع الاجهزة Dim cr As New filesystemobject cr.CopyFile CurrentProject.Path & "\FileName1.jpg", "\\PcName\D:\img\FileName2.jpg", True End Sub filename1 هو اسم الصورة المراد نسخها من جهازك الى السيرفر pcname هو اسم جهاز السيرفر filename2 هو الاسم الذي ستحفظ به الصورة في جهاز السيرفر لاتنسى اضافة المرجع الموضودفي الصورة جرب ووافينا بالنتيجة

السلام عليكم ايها الاخوة الرجاء المساعدة في قاعدة بياناتي للضرورة القصوى القاعدة كبيرة جداً وهذا مقتضب منها المطلوب البحث عن الشهرة ورقم السجل واسم الاب في محافظة فيخرج لي كافة المعلومات وهنا كل شيء جيد وجميل ما اريده عند تطبيق الريبورت عائلي ان ينفذ ما يلي : ان يجمع الاسم والشهرة في خانة واحدة و ان يحضر لي اسم الاب وشهرته في السطر الاول مع كافة معلوماته وفي السطر الثاني اسم الام وشهرتها (اي الزوجة او الزوجات ) ثم في بقية الاسطر كافة الاولاد حسب تسلسل العمر ولكم جزيل الشكر مرفق ربطا القاعدة ------------------------------ للرفع ------------------------- test beirut.rar

وعليكم السلام استخدام الحروف العربية تسبب لخبطة في ترتيب الجمل داخل الكود مما يصعب فهمه بل يستحيل هذا تعديل للكود بطريقتك if DLookup("[الرف]","التمام_ترحيل","[الرف]='" & [الإلكترونيات] & "'" and "[التاريخ]=#" & date() & "#" )Then وهذا تعديل بعد كتابة الحروف بطريقة صحيحة يفهمها طالب العلم if DLookup("[raf]","tmamTrhel","[raf]='" & [Electronyat] & "'" and "[tareekh]=#" & date() & "#" )Then

اخي ابو منه انا فتحت البرنامج لكن لم افهم شيء بصراحة وبسبب اني منهك من العمل لكن سوف اعطيك فكرة وهيا عامل Betoween هذا العمال مهمتة انه يبحث لك عن المعلومات المطلوبة بين فترتين مثلا انا استخدمة للمندوب بحيث يستخرج لي جميع مبيعات المندوب خلال فترة معينة عن طريق 1- اختار كود المندوب 2- اختار الفترة الاولى مثلاً 1/8/2016 3- اختار الفترة الثانية مثلاً 31/8/2016 وبعدها اضغط على زر التحديث سوف يستخرج لي جميع مبيعات المندوب خلال هذه الفترة .. بستخدام دالة بتوين سوف ارفق لك مثال Between [Forms]![Search]![من] And [Forms]![Search]![الى] هذا الكود ينفع ان تضعه تحت فترة التاريخ ... اما من الى هنا تضغ اسم الحقول التي سوف يعمل عليها الشرط اتمنى ان اكون افدتك ولو بشيء بسيط

السلام عليكم لقد نفذت الطلب الاول وبعونه تعالى و لكن المصيبة هي كيف انفذ الطلب الثاني وشكرا -------------------------------- للرفع ---------------------------------------------

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

الاخت الكريمة تفضلي هذه الفكرة لعلها تفيدك يتم نسخ اسطر لعمل تذييل من كعب الشيت الى شيت ناجح بعد كل 30 طالب مثلا ؟؟؟!! تقبلي تحياتي 1213123.rar

الأخ الفاضل سامي 741 روح للتبويب Formulas ثم Name Manager ثم حدد رقم_الجلوس المراد التعديل عليه (لاحظت أن هناك عدد 2 نطاق مسمى بنفس الاسم ..احذف واحد وأبقي على الآخر للتعديل عليه ) المهم اضغط Edit ثم في الحقل المسمى Refers To قم بوضع المعادلة التالية ثم أوك ثم Close =OFFSET('كنترول شيت'!$B$11,,,COUNTA('كنترول شيت'!$B$11:$B$1000)) تقبل تحياتي Dynamic Defined Name.rar

السلام عليكم بعد اذن استاذنا سليم حاصبيا واستاذنا ابو ساره الحل بطريقتين بدون اكواد عن طريق التنسيق الشرطى . وتنسيق DATE TABLE New ورقة عمل Microsoft Excel (2).rar

السلام عليكم استاذ محمد /اليك هذا الملف ربما يكون المطلوب يمكنك اضافة قد ما تشاء من الاعمدة والصفوف كما يمكنك اعادة تسمية رؤوس الاعمدة التسلسل اوتوماتيكي border.rar

السلام عليكم ما شاء اللع عليك ابو احمد ------------------------------------ اخي الكريم طلبك غامض بعض الشئ وعلى حسب فهمي للموضوع مرفق ملف بحيث يوجد قائمة لاستثناء الصفحات التي لا تريد الترحيل اليها والترحيل للصفحات المتبقية test_hosami.rar

استاذ احمد سلمت يمينك عمل مميز وابداع متقن ابواحمد

السلام عليكم هل الطلب صعب الى هذا الحد طيب اذا كان صعب حد يدلنى على البداية وان شاء الله سأبدأ دمتم بكل خير