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

إخوتي الفضلاء التزاما بقواعد المنتدي فضلت إنشاء موضوع جديد لطرح الفكرة ، لعملية البحث و الفلترة عند الكتابة ضمن نموذج مستمر و تمييز نتائج البحث باللون أو خصائص الخط مثل الخط العريض. حيث طرح السؤال و الطلب ضمن مشاركة احد الاخوة في موضوع يتعلق بالبحث ، بالاضافة لطرح هذا الطلب اكثر من مرة في مواضيع مختلفة . حاولت جعل الكودات بسيطة و قابلة للتعديل حسب التطبيقات التي سيستخدم بها منعا لحدوث اشكالات عند النقل و التطبيق . هناك امور لا بد من مراعاتها عند التعامل مع الفكرة و بعضها رئيسي ومهم لا تنجح الامور الا به ، و هي كما يلي : · نص البحث يكتب ضمن مربع النص txtSearch · البحث و الفلترة تتم في نفس النموذج و هو نموذج مستمر و ليس من خلال نموذج فرعي او مربع قائمة · البحث سيتم ضمن ثلاثة حقول من الجدول tblCustomer ، وهي CompanyName و City و Address يمكن زيادتها حسب الحاجة و مستلزمات التطبيق · مربعات النص في النموذج التي تظهر محتويات الحقول هي غير منضمة unbound · مصدر عنصر التحكم control source للحقول يثبت لكل مربع نص ضمن قائمة الخيارات مثلا (=[CompanyName]) · مربعات النص الثلاثة يجب ان يكون تنسيق النص فيها text format هو (Rich Text) ، وهذه نقطة مهمة حتى يقبل مربع النص كود تغيير خصائص أجزاء النص من حيث اللون و الخط العريض . · كود البحث و الفلترة يكون خلف حدث on change – عند التغيير لمربع النص txtSearch · البحث و الفلترة يفترض في فكرتنا ان تتم عند كل حرف ، وبعد انتهاء الفلترة يعود مؤشر النص ليكتب نص ( حرف ) الفلترة الجديد ، فيصبح مربع النص يتعامل من حرف واحد فقط ، وبالتالي سنضطر لاستخدام خاصية SelStart لتحدد نقطة البداية للنص أو موضع نقطة الإدراج لنتمكن من كتابة اكثر من حرف . · بعد التطبيق اعترضتني مشكلة عدم قبول مربع النص للمسافة بين الاحرف spacebar ، نتيجة استخدام خاصية SelStart و بالتالي كان لا بد من إجبار مربع النص على قبول المسافة بين الاحرف ، و تم ذلك و الحمد لله باستخدام كود في حدث on Key up . · ضمن الكود تم تحديد خاصيتين للخط و هما اللون الاحمر و الخط العريض وذلك لتمييز مكانها ضمن نتائج البحث و الفلترة . · كل حرف يتم كتابته في مربع النص txtSearch تتم بموجبه و مباشرة فلترة النتائج ضمن مربعات النص الثلاثة و تمييز الحرف باللون الاحمر العريض. · بعد الفلترة يتم تغيير مصدر عنصر التحكم عبر الكود باسناد القيم لمربعات النص الثلاثة في النموذج محملة بكود تغيير خصائص الخط لكل حرف تمت كتابته في مربع النص txtSearch · بالضغط على مربع النص txtSearch يتم افراغ مربع النص مما كتب به سابقا لبداية بحث جديد ، كما تظهر كافة سجلات الجدول في مربعات نص النموذج. راجيا من الله عز و جل ان يكون التطبيق وافيا و محققا لحاجات الاخوة ، و ان يكون فيه النفع لهم في تطبيقاتهم . و الله من وراء القصد ... NA_Highlight_Search_results_while_typing.accdb

الأستاذ / سليم حاصبيا جزاك الله خير هو المطلوب فعلا بس بحاول أفهم المعادلة دعواتك

معادلة رائعة بارك الله فيك أستاذى -أحسنت

الحل test Salim.xlsx

جرب هذا المعادلة =INDEX($D$3:$D$60,MATCH($F$5,$C$3:$C$60)+1) و اذا لم تعمل معك استبدل الفاصلة بفاصلة منقوطة لتصبح هكذا =INDEX($D$3:$D$60;MATCH($F$5;$C$3:$C$60)+1)

السلام عليكم ورحمة الله الأخوة الكرام أريد مساعدة بسيطة في إيجاد حلاً برمجياً من خلال كود يسمح بعمل سطر فارغ بين الفقرات النصية المتوالية بدون سطر فارغ بينها مثل 1) قال جابر بن عبدالله رضي الله عنه: «كان رسول الله  يعرض نفسه على الناس بالموقف فقال: (ألا رجل يحملني إلى قومه فإن قريشاً منعوني أن أبلّغ كلام ربي) رواه أبو داود وصححه الألباني». 2) كان النبي  يسأل القبائل ويقول: (ياأيها الناس: قولوا: لا إله إلا الله تفلحوا) وكان وراءه أبو لهب يسير خلفه ويقول: (إنه صابئ كاذب) وكان أبو لهب يؤذي رسول الله  ويرميه بالحجارة حتى أدمى كعبيه الشريفتين وكان  يفر منه فيعرض عنه ولا يلتفت إليه. 3) كانت بيعة العقبة الأولى في السُّنة الثانية عشرة من البعثة في موسم الحج. 4) كان عدد من كان في بيعة العقبة الأولى اثنى عشر رجلاً ليس منهم نساء كانوا من المدينة. 5) تسمى بيعة العقبة الأولى: (بيعة النساء) وذلك قبل أن يُفرض القتال. 6) بعث رسول الله  مصعب بن عمير للمدينة بعد بيعة العقبة الأولى ليقرئهم ويعلمهم الإسلام ويفقهم في الدين فكان يسمى (مقرئ المدينة) وكان منزله على أسعد بن زرارة. 7) أقام أسعد بن زرارة أول جمعة في المدينة وكانوا أربعين رجلاً وأمهم مصعب بن عمير فقد كتب له رسول الله  أن يجمع بهم. 8) قبل حلول موسم حج السُّنة الثالثة عشر عاد مصعب بن عمير لمكة ليبشر رسول الله  بالنجاح في المدينة بعد توفيق الله عز وجل. 9) كانت بيعة العقبة الثانية في السُّنة الثالثة عشر من البعثة في موسم الحج. وشكرا جزيلا لكم

جهزت و عدلت قاعدة تخدم الفكرة و ساجعلها في موضوع جديد قريبا جدا بإذن الله شكرا

جزاك الله كل خير استاذ سليم حاصبيا المعادله لاتيان تواريخ اي شهر افقيا =IF(COLUMNS($B4:B4)>DAY(EOMONTH(DATE($F$2;$F$1;1);0));"";DATE($F$2;$F$1;COLUMNS($B4:B4))) مع اعتبار ان خلية B4 هي خلية بدايه الشهر وخلية F2 هي خليه السنه وخلية F1 هي خليه الشهر والزرين طريقة عملهم : من المطور ..إدراج..Spin botton ثم تنسقه ليقبل الأرقام التي تريد مرتبطاً بخلية معينة فتزداد قيمة الخلية أو تنقص تبعاً لها. رد////// خلية B4 هي خلية بدايه الشهر هذا ليس ضرورياً يمكنك ات تبدأ حيثما تشاء

للعمل على المستوى الافقي (معادلة واحدة تكفي و ليس 30) تسحب يساراً =IF(COLUMNS($B4:B4)>DAY(EOMONTH(DATE($F$2,$F$1,1),0)),"",DATE($F$2,$F$1,COLUMNS($B4:B4))) طبعاً مع تبديل الفاصلة اذا اقتضى الامر

حيث انك لم ترفع ملفاُ للعمل عليه ارفق لك هذا النموذج_(يمكنك تعديل الكود كما تراه مناسباً) Hide_spec_sheet.xlsm

اكمل جميلك واشرح الاسطر الباقيه يحفظك الله ويرعاك استاذ زيزو Sub Circles() 'هذا الكود للمحترم النابغه زؤزو العجوز 'الهدف من الكود هو وضع دوائر على درجات في اعمده معينه 'تم هذا الكود في 19/5/2017 'استدعاء كود المسح اولا Call DeletingShp 'متغيرات Dim ws As Worksheet Dim Arr() As Variant Dim LR As Long, R As Long, i As Long Dim Cel As Range 'اسم صفحه العمل Set ws = Sheets("شيت") If LR < 14 Then LR = 14 'متغير لعد الصفوف LR = ws.Range("C" & Rows.Count).End(xlUp).Row 'ارقام الاعمده المطلوب وضع دوائر فيها Arr = Array(11, 12, 14, 15, 17, 18, 20, 21, 23, 24, 26, 27, 29, 30, 32, 33, 35, 36, 37) 'بدايه الصفوف For R = 14 To LR For i = LBound(Arr) To UBound(Arr) For Each Cel In ws.Cells(R, Arr(i)) If Cel.Value < ws.Cells(13, Cel.Column) Or Cel.Value = "غ" Then Set xx = ActiveSheet.Shapes.AddShape(msoShapeOval, Cel.Left, Cel.Top, Cel.Width, Cel.Height) xx.Fill.Visible = msoFalse xx.Line.ForeColor.SchemeColor = 10 xx.Line.Weight = 1.2 End If Next Next Next End Sub Sub DeletingShp() Dim shp As Shape, x As Long For Each shp In ActiveSheet.Shapes If shp.Type = 1 Then shp.Delete: x = x + 1 Next shp 'MsgBox "تم حذف " & x & " دائرة بنجاح", vbMsgBoxRight, "الحمدلله" End Sub ملف الكودين للمحترم زيزو العجوز ( الكود الاول لوضع الدوائر والكود الثاني لمسح الدوائر ) نسخه منقحه الدوائر.rar

اخى العزيز البرنامج يعمل على اصدار 2010 فقط

تم عمل التالي على الملف المرفق، 1- إضافة 29 صف على الملف المرفق مسبقاً ليصبح مجموع الصفوف 30 صفاً على حسب ايام الشهر الهجري. 2- عند فتح الملف سيتم الوقوف على الصف الخاص بهذا اليوم .. وتم أيضاً وضع زر لهذا الغرض للذهاب إلى الصف الخاص باليوم الحالي متى ما شئت ذلك. ____________________________.rar