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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله .. روابط الموضوعات للأسابيع الماضية : ************************* نتابع معكم للأسبوع الرابع موضوع البحث ، موضوعنا اليوم بإذن الله كيفية ترتيب الأسماء أو القيم في نطاق بحيث تكون القيمة الأطول (من ناحية عدد الأحرف أي السلسلة النصية) القيمة الأطول في البداية يليها الأقل منها وهكذا .. مثال للتطبيق عليه : ضع القيم التالية في النطاق 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)

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

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

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

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

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

السلام عليكم ...تم التعديل ..جزاكم الله خيراً

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

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

أخي الكريم أبو حماده جرب ملف الريجستري التالي عله يحل مشكلتك LoadControlsInForms.rar

اخي الحبيب ياسر كل الشكر والتقدير غلى هذا الاطراء مما جعلني اعدّل على المعادلة في العامود D2 (لتتجاوز الفراغات الزائدة في النص )الى هذه المعادلة (طبغاً لازم هنا Crt+Shift + Enter) والسحب نزولاً =TRIM(IF(ROWS($B$1:B1)>COUNTA($A$2:$A$100),"",INDEX($A$2:$A$100,MATCH(B2,$C$2:$C$100,0))))

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

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

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

استاذ : ياسر دمت لنا حقيقي انا سعيد بإطراءك وبكل كلمة وحرف في سطور مدحك و مزحك .. ولكن اسمح لي بالتعقيب ، حينما قرأت طلب الاستاذ : عاطف .. تذكرت اني سبق وان راودتني تلك الفكرة التي تعتمد على التاريخ في عدة امور ( الجرد - التسويق - التحصيل - متابعة العملاء ) لجهة معينة خيرية لها اعلانات على مواقع التواصل الاجتماعي وقد اضفت بعض الازرار لصور وعملت هايبرلينك لعدد من الاعلانات لكي تعمل من خلال حبيبنا الاكسيل الذي رحب بذلك . وبمجرد ما رأيت طلب أ.عاطف قمت بمحو وازالة صور تلك الجهة والاعلانات في عجالة .. وارفقت الملف صدقني لم اكن اعلم ان الملف سيعرض على القومسيون ، واعلم جيدا بضآلتي وقلة حيلتي فيما يسمى بالاكواد .. فإن غامرت مرة اخرى وتقدمت بمرفق يحتاج لتهذيب وتشذيب فأنت أهل لذلك وهذا شرف لنا ان تضع بصمتك .. وتدخلك الجراحي واجب ( اختصار الكود - التخفيف على الملف - التسريع والتحسين ) فنحن نعترف بمهارتك وكفاءتك فلا تبخل علينا ( ارجو اعادة ارسال الملف بعد التعديل ) فسامحني .. وإقبل اعتذاري فاكهة المنتدى وحبيبي .. والله سعدت بتعليقك واعجاباتك ، وطمني عليك اليك رقم موبايلي لنتواصل 01123456728

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود 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

السّلام عليكم و رحمة الله و بركاته هذا ما فهمته .. IF YOU TRUST ...SELECT OK إذا كنت تثق في ....... إضغط على OK لن تخسر شيء أخي الغالي إذا جرّبت الضغط على OK .. لترى ما نتيجة ذلك .. و بعدها يحلها ألف حلاّل إن شاء الله خالص إحتراماتي

اخوانى الاعزاء اشارككم الكود الجميل ده مرفق معه اداه تحملوها وباعد ما تضغط رن هيفتحلك انبوت حدد الرنج المراد عكسه بس هنا بيعكسه فى محله اكتشفوا الكود والاداه جميله وفيها حاجات كتير اوى طبعا انتم الاساتذه تعرفونا ايه استعملاتها رابط المصدر رابط الاداه للتحميل Sub FlipColumns() 'Updateby20131126 Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Arr = WorkRng.Formula For j = 1 To UBound(Arr, 2) k = UBound(Arr, 1) For i = 1 To UBound(Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr End Sub بالتوفيق اخوانى

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

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