ياسر خليل أبو البراء

أخي الحبيب أبو يوسف أبقي على هذا الجزء Key1:=Range("B1:B10") أو يمكنك التعديل فيه ليكون بهذا الشكل Key1:=Range("B1")

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

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

جميل أخي الحبيب أبو يوسف وعليكم السلام والله كدا بقا شكله أحسن ولا ايه رأيك ندخل على الخطوة التالية وأنا مش مستعجل خلينا نحول الكود لكود صحيح 100% إن شاء الله ايه رأيك في السطرين دول Range("B1:B10").Select Selection.ClearContents عايزني نلغي كلمة Select لأنها ملهاش لازمة في معظم الأكواد .. وطبعاً كلمة Selection مرتبطة بيها .. فايه رأيك تشيل الاتنين دول وتخلي السطرين سطر واحد بمعنى إنك تشير للمدى ثم نقطة ثم الحدث المطلوب تفعيله على المدى ألا وهو مسح النطاق .. تقبل تحياتي

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

بوركت وجزيت خيراً بمثل ما دعوت لي أخي الغالي مختار

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

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

أخي الكريم محمد جرب تبدل كلمة ActiveDocument إلى كلمة myDoc وكذلك أضف كلمة Application متبوعة بنقطة قبل الأربعة كلمات CentimetersToPoints

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

صلاة مقبولة إن شاء الله .. نلتقي بعد صلاة الجمعة تقبل وافر تقديري وحبي واحترامي

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

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

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

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

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

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

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

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

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

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

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

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

الكود يعمل بشكل عادي عندي عموماً جرب الكود التالي بدلاً منه Sub زر3_نقر() 'Sheets("List").Select 'Range("A1").Select Application.Goto Sheets("List").Range("A1") MsgBox prompt:="إنتبه فأي تعديل في هذه الصفحه يعني تغيير البيانات المدخله مسبقاً", Title:="رسالة تأكيد" End Sub أرجو أن يفي بالغرض

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