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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله .. روابط الموضوعات للأسابيع الماضية : ************************* نتابع معكم للأسبوع الرابع موضوع البحث ، موضوعنا اليوم بإذن الله كيفية ترتيب الأسماء أو القيم في نطاق بحيث تكون القيمة الأطول (من ناحية عدد الأحرف أي السلسلة النصية) القيمة الأطول في البداية يليها الأقل منها وهكذا .. مثال للتطبيق عليه : ضع القيم التالية في النطاق A1:A10 Hi Yasser Mohammed Khaledy Salah Baraa Khalil KAL Huda Nader Said Monalizaa المطلوب أن تكون النتيجة بهذا الشكل: Baraa Khalil Nader Said Monalizaa Mohammed Khaledy Yasser Salah Huda KAL Hi لو قمنا بالاستعانة بعمود مساعد ووضعنا الدالة Len لعرفنا طول السلسلة النصية لكل اسم .. الحلول يمكن أن تكون بعمود مساعد أو بدون عمود مساعد ، لا أريد تقييد البحث بشيء محدد ..أطلقوا العنان للأفكار والإبداع وتقبلوا وافر احترامي

صباح الخير اخي ابو البراء توصلت الى احد الحلول (دون الفراغات) عسى ان ينال الاعجاب (ممكن الاستعانة بالدالة التالية في العامود C -بدل الموجودة) =IF(A2<>"",LEN(TRIM(A2))+ROW(A1)/1000,"") Sort_by_text_len.rar

بسم الله الرحمن الرحيم الحمد لله الذي أخرجنا بالإسلام من ظلمات الجهل والوهم إلى أنوار المعرفة والعلم ، ومن وحول الشهوات إلى جنات القربات ، والحمد لله الذي أنزل على عبده الكتاب ولم يجعل له عوجا ، وشرع الإسلام وجعل له منهجاً ، وأعز أركانه على من غالبه ، فجعله أمناً لمن تمسك به ، وسلماً لمن دخله ، وبرهاناً لمن تكلم به ، وشاهداً لمن خاصم عنه ، ونوراً لمن استضاء به ، وفهماً لمن عقل ، ولباً لمن تدبر ، وآيةً لمن توسم ، وتبصرةً لمن عزم ، وعبرة لمن اتعظ ، ونجاة لمن صدق ، وثقة لمن توكل ، وراحة لمن فوض ، وجنة لمن صبر . اما بعد اضع اليوم بين ايديكم احد البرامج التي تستخدم لفك حماية المصنفات من الخارج وشرحه بسيط كل ما عليك ان تحدد كلمة المرور اما حروف او ارقام او الاثنين معا او اضافة لهم علامات وطول كلمة المرور بمعني اذا كنت لاتعلم طول الكلمة فتضع مثلا تخمين من رقم الى 10 ارقام مثلا حسب ما تريد اما اذا كنت تعرف طول الكلمة مثلا 10 ارقام يبقي تكتب من 10 الى 10 لتختصر في وقت البحث وكلما كانت الكلمة سهلة كان الوصول لها اسهل وكلما كانت مركبة كلما تأخر الحصول عليها شرح الطريقة / يتم تنصيب البرنامج ويتم وضع الباتش بداخل مسار البرنامج ويتم فتح الباتش والضغط على كلمة باتش لجعل البرنامج كامل ملحوظة يرجى اغلاق برنامج الحماية اثناء نقل الباتش لانه يعتبره فيرس وبعدها قم بحذف الباتش عادي واعادة تشغيل الحماية انا عارف ان دا مخالف بس انا نزلت احد البرامج عشان الاخوة اللي بيعانو من فقد كلمات المرور يوجد برامج عدة من هذا النوع وانواع اخرى واذا جمعت بعض منها ويكون كامل سأضعه لكم باذن الله نجح مع ملفات xls شرح طريقة فك ملف اكسيل مرفق فيديو به الشرح تقبلو تحياتي ياسر العربي yasser1.rar Excel Password Unlocker v4.0.2.3 + PATCH [Win 32+64 Bits].rar

الاخوه فى هذا الصرح العلمى الكبير اعتذر عن قلة تواجدى فى الاونه الاخيره ولكن يعلم الله انى مشغول جدا هذه الايام اسالكم الدعاء لى بالتوفيق والسداد اليوم بأقدم لكم شرح مبسط عن النسخ والقص أو الترحيل بواسطة Destination وهى تعنى هدف الوصول أو مكان الوصول أو المكان المقصود هنعرف 1 - أزاى نعمل ده بدون اكواد من خلال التعامل مع الشيت مباشرة 2- أزاى نعمل ده بالاكواد نبدأ بسم الله عايزك تفتح شيت اكسيل وتكتب فى الخليه A1 مثلا اى شئ مثلا اكتب " اوفيسنا " المطلوب بعد ما تكتب فى الخليه A1 نقوم بنسخها الى اى خليه اخرى طبعا زى ما حضراتكم عارفين بيكون من خلال تحديد الخليه المطلوب نسخها وهى A1 تم نعمل Ctrl+C ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها وليكن الخلية D1 ثم نعمل Ctrl+V وفى طريقه تانية وهى الوقوف على الخليه A1 وكليك يمين بالماوس واختيار نسخ ثم تحديد الخليه D1 وكليك يمين ونعمل لصق لكن اليوم هنعمل عملية النسخ بطريقه Destination طيب ازاى ؟؟؟ حدد الخليه A1 ثم حرك الماوس الى اى ضلع من اضلاع الخليه ستجد فى سهم مثل هذا السهم دا صوره مكبره منه عندما يظهر هذا السهم على ضلع من اضلاع الخلية اضغط من الكيبورد على زر Ctrl ومع الاستمرار بالضغط على الزر اضغط على زر الماوس الايسر واسحب الماوس الى الخليه D1 مكان اللصق اللى احنا عايزينه طيب ده بالنسبه لعملية النسخ طيب عملية القص ؟؟ الطريقه الاولى تحديد الخليه المطلوب قصها وهى A1 تم نعمل Ctrl + X ونذهب الى المكان اللى احنا عايزين نقوم بعملية لصق الخليه بها وليكن الخلية D1 ثم نعمل Ctrl+V الطريقه التانية وهى الوقوف على الخليه A1 وكليك يمين بالماوس واختيار قص ثم تحديد الخليه D1 وكليك يمين ونعمل لصق الطريقه الثالثه اللى هى اساس موضوعنا هنعمل عملية القص بطريقه Destination طيب ازاى ؟؟؟ حدد الخليه A1 ثم حرك الماوس الى اى ضلع من اضلاع الخليه ستجد فى سهم عند ظهوره يمكنك الضغط على زر الماوس الايسر والسحب الى المكان المراد اللصق فيه الخلاصه الطريقه عملية النسخ عملية القص 1- من خلال الكيبور اضغط Ctrl+C ثم انتقل الى الخلية اضغط Ctrl+X ثم انتقل الى الخلية المراد النسخ بها واعمل Ctrl+V المراد اللصق بها واعمل Ctrl+V --------------------------------------------------------------------------------------------------------------------------------------------- 2- من خلال الماوس قم بتحديد الخلية وكليك يمين بالماوس قم بتحديد الخلية وكليك يمين بالماوس واختار نسخ ثم انتقل الى الخليه المراد واختار قص ثم انتقل الى الخليه المراد اللصق بها واعمل كليك يمين بالماوس اللصق بها واعمل كليك يمين بالماوس واختار لصق واختار لصق --------------------------------------------------------------------------------------------------------------------------------------------- 3-Destination حدد الخلية المطلوب نسخها واتجه بالماوس حدد الخلية المطلوب نسخها واتجه بالماوس ( المكان المقصود) الى اى ضلع من اضلاع الخليه هيظهر سهم الى اى ضلع من اضلاع الخليه هيظهر سهم اضغط من الكيبورد على زر Ctrl ومع الاستمرار اسحب الماوس الى المكان المطلوب اللصق به بالضغط اسحب الماوس الى المكان المطلوب اللصق به ----------------------------------------------------------------------------------------------------------------------------------------------------- طيب ازاى نعمل الطريقه رقم 3 Destination ( المكان المقصود) بالاكواد Sub Alsaqer1() Range("A1").Copy Destination:=Range("d1") End Sub طبعا السطر الاول والثالث معروف وهو الاعلان عن بداية الكود ونهايته السطر اللى فى المنتصف بقى هو اللى هنوضحه كتبت اسم الخلية A1 المطلوب نسخها من خلال الخاصيه Range كالتالى ("Range("A1 وبعدين كتبت . اللى هى الضغط على حرف ز بالعربى من الكيبور ثم Copy وتعنى نسخ وبعدين مسافه وكتبة Destination متبوعه =: ثم الخلية المراد اللصق بها ("Range("D1 طيب الكود هيكون ازاى لو عايز اعمل قص وليس نسخ بسيطه جدا نفس الكود مع استبدال Copy Sub Alsaqer2() Range("A1").Cut Destination:=Range("d1") End Sub طيب الكلام كله عن نسخ او قص خليه واحده ماذا لو كان المطلوب نسخ نطاق من الخلايا مثلا من A1:C5 الى الخلايا H1:J5 اولا من خلال شيت الاكسل حدد الخلايا من A1:C5 وحرك الماوس الى اى ضلع من اضلاع التحديد سيظهر امامك السهم عند ظهوره اضغط على زر Ctrl ومع الاستمرار بالضغط حرك الماوس الى الى الخلية H1 ستجد تم نسخ الخلايا طيب ولو عملية القص هيكون نفس الخطوات ولكن بدون الضغط على زر Ctrl يعنى عند ظهور السهم اسحب الماوس الى الخليه H1 طيب ومن خلال الكود لو نسخ شاهد الكود Sub Alsaqer3() Range("A1:C5").Copy Destination:=Range("h1") End Sub نفس الاكواد السابقه الفرق فقط هو بدل ("Range("A1 جعلتها ("Range("A1:C5 ولو قص الخلايا يبقى الكود كالتالى استبدل Copy بــ Cut Sub Alsaqer4() Range("A1:C5").Cut Destination:=Range("h1") End Sub ماذا لو كان المطلوب نسخ الخلايا الى شيت اخر شاهد الكود نفس السابق ولاحظ انت الفرق Sub Alsaqer5() Range("A1:C5").Cut Destination:=Sheet2.Range("h1") End Sub استبدلت ("Range("h1 بــ ("Sheet2.Range("h1 لو احنا عايزين ننسخ عمود A كله مثلا الى العمود F طبعا من خلال الشيت يبقى تحدد العمود كله واذهب الى اى ضلع من العمود هيظهر السهم اضغط على زر Ctrl ومع استمرار الضغط اسحب الماوس الى العمود المطلوب وهو F ولو قص يبقى نفس الخطوات بدون الضغط على زر Ctrl ولو عايزين نعمله بالكود شاهد الكود Sub Alsaqer6() Columns("a:a").Copy Destination:=Columns("f:f") End Sub ------ ماذا لو كان عندى نطاق متغير مثلا من جدول من العمود A الى C ولكن عدد صفوف الادخال غير محدد فى زياده او نقصان فى الحاله دى هعمل سطر لتحديد اخر صف به بيانات فى العمود A شاهد الكود Sub Alsaqer7() lr = Cells(Rows.Count, "A").End(xlUp).Row Range("A1:C" & lr).Copy Destination:=Range("h1") End Sub واخيرا الفائده من هذه الطريقه هى افضل بالاكواد نظرا لسرعه تنفيذ الكود وبساطه كتابته وفهمه كدا انا خصلت كل الامثله باقى انك بس تجرب بنفسك اسال الله تعالى لى ولكم التوفيق والسداد تقبلوا تحياتى

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

كل الحق معك اخي الحبيب ياسر (غلطة مطبعية ليس الّا) زيادة في اثراء الموضوع هذا الملف Sort_by_text_len advanced.rar

السلام عليكم أهلا بك أخي المنار في هذا المنتدى ونتمنى لك طيب الإقامة بعد إذنك أخي الفلاحجي جرب هذا المرفق الخطوات كالآتي بعد أن تكون جميع الملفات مفتوحة 1) اكتب جميع الملفات التي عندك في العمود الأحمر وهذه الخطوة ستعملها مرة واحدة فقط 2) اختر الملف الذي تريد إحضار معلوماته 3) اضغط Import data ملاحظة : لمسح جميع البيانات في الشيت اضغط clear all من أين يتم جلب بيانات العمود الأصفر كما في الصورة ؟ تحياتي مجلد جديد ‫‬.rar

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

برافو عليك ! صحيح ! اذا" تظل مشكلة الحذف من الوسط ! تقبل تحياتي اتمنى ان لا نشغل وقتك ابا جنى في المشكلة حتى يعود السائل

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

تفضل وهذا هو كود التأكد: 'check if this medicine is already in the prescription for this patient myCriteria = "[File_No] = '" & Forms!frm_Patient_Drugs!cmb_Patient_Name & "'" myCriteria = myCriteria & " And [Visit_Date] = #" & Forms!frm_Patient_Drugs!iDate & "#" myCriteria = myCriteria & " And [DoseID] = " & Me.ListDosing.Column(7) Is_It_Used = DCount("*", "tbl_Prescription", myCriteria) If Is_It_Used > 0 Then MsgBox "This medicine is already in the Prescription" Exit Sub End If جعفر 298.3.Medication.accdb.zip

عوداً حميداً أخي الحبيب الغالي ياسر فتحي ..المنتدى نور بطلعتك البهية

حبيبى الغالى أ / ياسر العربى

أخي الحبيب أبو يوسف نعم باستخدام خاصية ScreenUpdating قبل التنفيذ تلغي التحديث وبعدها يمكنك تفعيله .. وعلى فكرة حتى لو لم تضف سطر لإعادة التحديث لا يؤثر في شيء حيث تعود الأمور إلى طبيعتها بعد انتهاء عمل الكود أي يمكن فقط استخدام سطر واحد لالغاء التحديث ، ولكن من الباب الجمالي توضع في البداية والنهاية بالنسبة للنطاق الديناميكي الموضوع في غاية السهولة .. فقط اتبع نصيحتي وأنت تعرف كيفية عمل ذلك: النطاق المستخدم هو A1:B10 المطلوب : استبدال الرقم 10 ليصبح رقم آخر صف به بيانات في العمود الأول (اللي هو أساس الشغل بتاعنا في المثال) استخدم الجملة دي مكان رقم 10 Cells(Rows.Count, "A").End(xlUp).Row يبقى المطلوب تعمله تشيل رقم 10 وبس ..لا تمس التنصيص الموجود .. ولا تمس قوس الإغلاق وبعد علامة التنصيص وقبل قوس الإغلاق تضع مسافة بالمسطر ثم علامة & اللي بتيجي من خلال الضغط على Alt + 7 ثم مسافة ... ثم تضع الجملة السحرية اللي أشرت إليها وبس خلاص جرب الكود بإضافة بيانات جديدة للتأكد من فعالية الإضافة .. وبكدا تقدر تتعامل مع النطاق بشكل ديناميكي الأخ الحبيب رمهان اللي يعمل خير ميشورش .. هات ما عندك .. أثري الموضوع بإبداعاتك الأخ الغالي الجموعي بارك الله فيك وجزاك الله خيراً على مرورك العطر بالموضوع وعلى الحل المقدم .. سأطلع عليه ولو فيه أي تعليق هبلغك بيه ... أنا بعمل عملية تشريح لكل كود وكل حل يقدم خلي بالك .. تقبلوا جميعاً تحياتي

عن طريق المعادلة LEN وعملية الفرز من الأكبرإلى الأصغر sort by len character length.rar

هل يتم ذلك بإيقاف تحديث الشاشة ثم إعادة تحديثها بعد تنفيذ الكود ...يرجى الإفادة. وأما المدى الديناميكي ...أكيد بحاجة دراسة.

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

أخي الحبيب أبو يوسف الحمد لله أن تم المطلوب على خير .. هكذا أصبح الكود ناااااااااجح بنسبة 100% .. الله ينور عليك .. أيوا كدا ابدأ اشتغل وخلي الماكنة تطلع قماش .. وإليك حل بأسلوب آخر لنفس الكود Sub SortByLEN() With Range("A1:B10") .Offset(, 1).FormulaR1C1 = "=LEN(RC[-1])" .Sort Key1:=Range("B1"), Order1:=xlDescending, Header:=xlNo .Offset(, 1).ClearContents End With End Sub تقبل تحياتي

السلام عليكم هنا المشكلة أي يتبدل مسار القاعدة الخلفية احيانا طبعاً بإعادة الارتباط فإذا وضعنا مسار محدد لن ينجح فكيف السبيل لاعلام الامر أن القاعدة المرتبطة الآن ؟؟؟! نعم اي ضغط مرة واحدباليوم وعند استدعاء الامر مرة ثانية او ثالثة او ....... يعطي رسالة بأنه تم الضغط هذا اليوم مع تقديري واحترامي للجميع وخاصة صاحب الموضوع أخ سعيد والاستاذ رمهان ..

Sub SortByLEN() With Range("B1:B10") .FormulaR1C1 = "=LEN(RC[-1])" Range("A1:B10").Sort Key1:=Range("B1:B10"), Order1:=xlDescending, Header:=xlNo .ClearContents End With End Sub السلام عليكم ورحمة الله وبركاته ..هذا ما توصلت إليه أخيراً ...وقد عمل بشكل صحيح والسلام عليكم أتعبتكم معي...سامحوني.

مقدرين وقتك ومعذور جزاك الله خير استاذ رمهان

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

أخي الحبيب ياسر العربي بارك الله فيك وجزاك الله خيراً .. الأخ العزيز أبو صهيب مشكور على سؤالك عني جزاك الله خيراً الموضوع جميل وشيق وممتع ومفيد .. ولكن للأسف عملياً لن يكون مجدي (مجدي دا اين عمي لزم ) بنسبة 100 % حيث أن كلمات السر بتكون في غالب الأحيان مكونة من أرقام وحروف .. ويا سلام بقا لو واحد رخم زي حالاتي بيخلي كلمة السر مكونة من حروف صغيرة وحروف كبيرة وأرقام ورموز !!!!!!!!!!! ويا سلا كمان لو واحد أرخم مني هيستخدم حروف عربي .. يعني دنيا تانية من الاحتمالات التي تفوق الخيال .. دا غير إن كلمات السر بتكون مش معروفة طولها ممكن 5 ممكن 10 ممكن 20 أو ممكن واخد رخم تاني وغاوي وناوي على حرق دمي هيخلي كلمة السر مكونة من 50 يبقا إن شاء الله ولا 10 سنين على ما تعرف كلمة السر .... أنا مش بهدم الموضوع عشان متقولش إني سلبي أنا بس بفكر بصوت عالي ، ولا أقولك حاجة أحسن من مفيش ... أهو البرنامج بردو هينفع مع كلمات السر البسيطة ومش هيقول لا جزاكم الله خيراً أخي المتميز ياسر العربي ... متشوف البرنامج اللي بيعطي نسخة demo ده ..يمكن يكون له فايده

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

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً على تفعيل العمل والطلب من الأعضاء الكرام التفاعل الإيجابي بالموارد المتاحة قمت بدوري بالفرز التنازلي حسب عدد الأحرف باستخدام عمود مساعد يتعلق بعمل الدالة LEN كمساهمة بسيطة والسلام عليكم. فرز حسب الأحرف تنازلياً.rar

أولا : من الأفضل إدراج الدالة if (لحساب العمود opex category) في الكود import data ثانيا :ارفق ملف يحتوي على جميع الأعمدة في main file مع الأعمدة التي تضيفها وملف يحتوي على جميع الأعمدة في section A وفي حدود 100 تقريبا سطر كنموذج وملف يحتوي على جميع الأعمدة في section B وفي حدود 100 تقريبا سطر كنموذج ثالثا : عملية إزالة معلومات ملف سيتم معالجتها لاحقا إن شاء الله بعد تطبيق التعديلات في أولا وثانيا

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

لحظة من فضلك أخي الحبيب سليم هل تعتقد أنني سأرى المشاركة دون تجربتها .. كل ما فعلته هو أنك أضفت الدالة Trim في بداية المعادلة فقط .. لما إذاً جعتلها معادلة صفيف ..؟؟!! المعادلة الأخيرة في المشاركة السابقة تعمل دون الضغط على Ctrl + Shift + Enter أي أنها ليس بمعادلة صفيف ..تأكد بنفسك وأعلمنا إذا كان كلامي غير صحيح

وهذه طريقة في تذييل النموذج الفرعي ضعي مربع نص وباسم n وبه المعادلة ويمكن اخفاؤه =-sum([تم]) وفي مربع الحضور وفي خاصية controlsource التعبير التالي =[sdad نموذج فرعي].[Form]![n] بالتوفيق

عن طريق المعادلة INDEX =INDEX($A$1:$A$6;ROWS($A$1:$A$6)-ROWS($A$1:$A2)+1)

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

السلام عليكم ورحمة الله وبركاته إخواني الأحباب الأعزاء والمقربين من قلبي أقدم لكم اليوم موضوع مفيد إن شاء الله ، ألا وهو مقارنة عمودين وسيكون باستخدام التنسيق الشرطي ، لتلوين القيم المميزة أو القيم الفريدة في العمودين ، وكذلك لتلوين القيم المتشابهة في كلا العمودين أترككم مع الفيديو (ولا تنسونا من صالح دعائكم ..فبفضل الله ثم بفضل دعائكم نحيا في هذه الدنيا) كما لا تنسونا من اللايكات .. رابط الفيديو .. مرفق لكم ملف الشرح للتدريب عليه تقبلوا تحياتي ..أخوكم أبو البراء Compare Lists.rar

ابا جودي استمر واترك العلاقات ! واجعل مناقشتك الان هي بمثابة مرحلة تحليل للنظام بالتوفيق

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

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

أخي الكريم محمود شيل الرقم 5 وضع مكانه النطاق Range("A4").Value ..إذا لم يكن المطلوب فيرجى إرفاق ملف

تحياتي أخي الحبيب المعادلات في ملفك هي في العمود S في الورقة 1 تحياتي تكرار salim.rar

كيف ما يريدها الاستاذ القدير ابو البراء ؟ هي فكرة خطرت في البال بعد قراءة الموضوع الرائع !

و عليكم السلام و رحمة الله و بركاته ... في الحقيقة حسب ما فهمت من شرحك ... موجود في المرفق بالضبط القائمة مصدر بياناتها من الجدول 1 ... و بعد اختيار قيمة من القائمة نجدها في الجدول 2 ...

تمام تمام أخي الغالي أبو يوسف لحد هنا باقي محطة واحدة وبس .. وبكدا يكون الكود انتهى وقدرت تعمل الكود بنفسك مع شوية إرشادات بسيطة شايف المدى B1:B10 بص في الـ 3 سطور دول .. ولاحظ إن المدى متكرر فيه خاصية With و القفلة بتاعتها End With دي بنستخدمها امتى ؟ لما يكون هنعمل كذا سطر وفيه شيء مشترك بينهم (المشترك بينهم المدى) يعني ببساطة بعد جملة With نضع المدى أو النطاق المشترك في الأسطر المراد تلخيصها .. ثم الأسطر .. ثم نهاية الجملة End With بس لاحظ إنك هتشيل النطاق من الأسطر وتضع مكانه نقطة وبس .. جرب تعملها وإن شاء الله تنجح فيها وتصل لآخر محطة ..وأعتذر إن كنت قد أتعبتك بالإرشادات كوسيلة مساعدة (استعن بالله ثم بالرابط التالي ) من هنا

أعتقد كل واحد لازم ينزل الملف ويشغله لأن دا مرتبط بإعدادات الريجستري في الويندوز ..

بارك الله فيك أخي الحبيب سليم على الحلول الرائعة والمميزة .. ننتظر حلول أخرى منك بالأكواد .. بس متنساش تعلن عن المتغيرات وإلا هاخدك مخالفة

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

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

السلام عليكم الحقيقة وضعت الرابط السابق للنقطة 2 حيث الشبه الى حد ما بالمطلوب ولكن طلبك اكثر دقة وسنحاول تلبيته ولكن دعنا نكمل النقطة 1 وبعد اذن اخي جعفر انا حبدا معاك باسلوبي والله يكون في عونك ! خلينا نتفق اولا على فهم المطلوب وشرحه اكثر حسب فهمي : لديك جدول مواد به الرصيد ! ولديك جدول اخر به الصرف ! مع امكانية التعديل على الكمية المصروفة في وقت لاحق وبدون اي بيان لهذا التعديل وهذا مخالف كما قال الاستاذ جعفر وانا معه ايضا! وهنا سؤال بزنسي : 1. مالمقصود من التعديل على كمية صرفت سابقا : هل هي بمثابة ارجاع كميه من الكمية السابقة المصروفه - ام كميه مستلمه جديده - ام تصحيح لخطأ في الادخال السابق للكمية ؟ اجب هنا ثم نكمل ! بالتوفيق

field =3 3 هو رقم العمود الذي يتم فيه البحث لو غيرته هايتغير العمود الذي يتم البحث فيه

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar

السلام عليكم ورحمة الله وبركاته إخواني الأحباب أقدم لكم كود خفيف .. الكود يقوم بمنع المستخدم من طباعة أوراق محددة في المصنف .. في المرفق ثلاثة أوراق عمل Data1 - Data2 - Data3 الكود يوضع في حدث المصنف ThisWorkbook Private Sub Workbook_BeforePrint(Cancel As Boolean) Select Case ActiveSheet.Name Case "Data1", "Data2" Cancel = True MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation End Select End Sub يعتمد الكود على جملة Select Case الشرطية .. والقيمة التي تعتمد عليها اسم ورقة العمل النشطة فإذا كانت ورقة العمل النشطة Data1 أو Data2 .. يتم إلغاء عملية الطباعة وظهور رسالة تفيد أن ورقة العمل لا يمكن طباعتها ... يمكنك زيادة أوراق العمل من خلال السطر الذي يبدأ بكلمة Case على أن تكون أسماء أوراق العمل بين أقواس تنصيص .. كما يمكن منع الطباعة بالمصنف بالكامل بحذف أول سطرين من الكود وآخر سطر ، ليصبح بهذا الشكل Private Sub Workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "The sheet " & ActiveSheet.Name & " cannot be printed!", vbInformation End Sub بهذا يمكنك التحكم في طباعة أوراق العمل من عدم طباعتها أرجو أن يكون الموضوع مفيد ...رغم أنه ليس بجديد .. تقبلوا تحيات أخوكم أبو البراء Prevent Worksheets From Printing.rar

يمكن ان تجرب هذا النلف معادلة لحساب عدد كل جنسية مع اهمال التكرار من خلال استخدام Student ID.rar