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

استراحة الدورة البرمجية االسلام عليكم إخواني الأحباب أهديكم برنامج يقوم بحل لعبة السودوكو اليابانية المشهورة لا تنسونا بالدعاء sudoku solver.rar أخوكم أبو البراء

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

السلام عليكم إخواني الموضوع قديم بعض الشيء وأنا دوخت على ما عثرت عليه إذ أن البرنامج شغل تفكيري لعدم عمله لدي وقد توصلت لحل قد ينفع البعض وقد لا ينفع عند البعض الآخر قم بنسخ الملف المرفق بعد فك الضغط عنه طبعاً إلى المسار C:/Windows/System32 ثم قم بتشغيل الملف المسمى Function أخوكم أبو البراء VB5DB.rar

عفواً نسيت الملف المرفق أخوك أبو البراء MSCAL.rar

الأخ شرنقة إمتى بقى تطلع من الشرنقة دي وتطير معانا إحنا ف انتظارك كما فهمت من خلال عرضك للمشكلة أن الكائن Calendar غير موجود في المسار الخاص به قم بتجربة المحاولة التالية وأخبرني بالتيجة 1 - قم بتحميل الملف المرفق 2 - فك الضغط عن الملف المرفق ليظهر لك الملف MSCAL.OCX قم بنسخه إلى المسار التالي C:/Program Files/Microsoft Office/Office 11 أو Office 12 أو حسب إصدار الأوفيس لديك 3 - قم بتشغيل الملف الذي لديك واستمتع!!! 4 - لا تنسى أن تدعو لي سواء نجحت المحاولة أم لم تنجح أخوك أبو البراء

أخي خالد أسعد الله كل أوقاتك كنت عايز الإيميل الخاص بك بالنسبة لسؤالك أجاب عنه الأخ سالم وها هو مرة أخرى نفترض أنك أعطيت الورقة الثالثة الاسم Khaled فيكون الكود كالتالي Sheets("Khaled").Activate أو Sheets("Khaled").Select جزاكم الله خيراً على التفاعل المثمر أخ سالم أخوكم أبو البراء

أخي سالم جزاك الله خيراً وبارك الله فيك التجميعة دي رائعة رغم إن حجمها كبير هدية جميلة من صديق حبيب بالنسبة لسؤالك حول تحديد خلية في ورقة أخرى Sheets("Sheet1").Range("A1:B5").copy Destination:=Sheets("Sheet2").Range("E1") أخي أحمد حافظ جزاكم الله خيراً على الرابط الذي أعطيتني إياه عبر الإيميل بالنسبة للكود اللي طلبت شرحه موجود في أحد المشاركات على ما أعتقد فالأخ صاحب المشاركة ممكن يفيدك أكتر ، وماتنساش أنا زي زيك لسه بتعلم اعذرني إن كنت لا أجيد الرد على استفساراتك أخوك أبو البراء

أخي أيم راية ياسلام لو أعطيتنا البرنامج الذي قمت بفك كلمة السر بواسطته يبقى جزاك الله كل خير أخوك أبو البراء

الأخ جودة من فضلك ارفق ملف للعمل عليه أخوك أبو البراء

مرحباً بك أخي امتياز في منتدانا الحبيب لو أعطيتني الإيميل الخاص بك !! أخوك ياسر أبو البراء

الأخ امتياز لو عرفنا اسمك الخقيقي يكون أفضل بالنسبة للطريقة فهي تعتمد كما رأيت في الملف على فصل الأرقام أولاً باستخدام الدالة mid وهي لها 3 بارامترات الأول يحدد النص المراد العمل عليه ، والثاني بداية البحث ، والثالث عدد الرموز المراد البحث عنها ، ثم قمت بتسمية النطاق الذي فيه الأرقام المنفصلة باسم MyRange وذلك عن طريق تحديد النطاق ثم في مربع الاسم كتبت myRange ثم ضغطت Enter ، ثم قمت بعد الأرقام في النطاق المسمى MyRange باستخدام الدالة Countif ولها 2 بارامتر الأول النطاق المراد العد عليه والثاني الشرط الذي على أساسه يتم العد أرجو أن أكون وفقت في توصيل المعلومة ، وأهلاً بك دائماً في المنتدى الغالي وتيقن أنك لن تندم أبداً بدخولك المنتدى وستتعلم الكثير كما تعلمنا نحن!!! أخوك أبو البراء

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

أخي أحمد كنت عايز الإيميل الخاص بك أخوك أبو البراء

أخي أحمد أكون لك ممتن لو أرسلته على الإيميل الخاص بي yakh777@yahoo.com أو الأفضل ترفعه على أحد مواقع رفع الملفات لتعم الفائدة وياسلام لوعندك برنامج بيكسر حماية VBA أكون لك شاكر جداً أخوك أبو البراء

أخي الكريم إليك الملف المرفق التالي أخوك أبو البراء YK.rar

السلام عليكم أخ امتياز لو أرفقت ملف بطلبك يكون أفضل السؤال غير واضح بعض الشيء : هل تريد عد مرات تكرار الأرقام في كل خلية على حده أم في كل الخلايا؟؟ أرجو الإفادة يا أخ امتياز ( يجب أن تكون اسم على مسمى وأحسبك كذلك!!) أخوك أبو البراء

السلام عليكم أخي أيسم يمكن أيضاً استبدال الأمر البرمجي الذي ذكرته بأمر آخر هو vbCrLf الأخ أحمد حافظ بالنسبة لسؤالك فقلد أردت الاستفاضة من أحد الجهابذة !!! أعتقد أن لكل كائن أحداث خاصة به فمثلاُ إذا أردت إظهار رسالة ترحيب عند فتح المصنف فيوضع الكود في الحدث Workbook_Open أما إذا أردت التغيير في خلايا معينة بمجرد إدخال بيانات في خلايا أخرى وبدون الضغط على أي أزرار أي تنفيذ الماكرو مباشرة فيكون الحدث Worksheet_SelectionChange هو الحدث المناسب أو Workbook_SheetChange هذا على قدر المعلومات التي لدي ، ولا تنسى أخي أحمد أنني أتعلم معكم أيضاً فما أتعلمه أنا تتعلمه أنت وهكذا اعذرني إن لم أوفق في الرد على استفسارك بشكلٍ جيد أو مرضي أخوكم أبو البراء

السلام عليكم الأخ سالم تمام الواجب وياريت دايماً تسأل ومايهمكش حتى لو كانت حاجة عدت علينا يمكن بالإشارة إلى الخلية المراد إظهار النص فيها مثلاً للإشارة إلى الخلية D5 نستخدم ٌRange("D5")="Salem is my friend" الأخ أيسم يشرفني أن تنضم إليا في دورتنا المتواضعة أخوكم أبو البراء

أخ أحمد بيبو لو أرفقت ملف يكون أفضل أخوك أبو البراء

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

أخي الحبيب أحمد الإجابة ببساطة أنه لن يحدث شيء إذا نقرت على No إلا إذا قمت بالتعديل على الكود وأضفت السطر التالي Answer = MsgBox(Prompt:="Are you a doctor?", Buttons:=vbYesNo) If Answer = vbYes Then ActiveCell.Value = "I like doctors" Else ActiveCell.ClearContents End If ماذا سيحدث ؟ إذا نقرت Yes سيقوم الكود بتنفيذ الجزء الأول بعد Then أي أنه سيضع القيمة النصية I like doctors في الخلية النشطة ، أما إذا نقرت No سيقوم بتنفيذ الجزء الثاني بعد Else ألا وهو مسح محتويات الخلية النشطة لا تنسى أن تضع الجملة End If في نهاية الكود لإغلاق If أخوك أبو البراء

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

الأخ hbsqn جزاكم الله خيراً على هذه الملعومة المفيدة أود معرفة اسمك الحقيقي أخوك أبو البراء

السلام عليكم إخواني متابعي الدورة هل لديكم أي استفسارات أو أسئلة أم أن كل شيء واضح ؟؟ أريد إكمال الدورة بثبات ولكن.....يبقى السؤال كم منا يريد التعلم حقاً؟؟؟ أخوكم أبو البراء

جزاكم الله خيراً أبو عمار الاختصار يشمل الخلايا الفارغة أيضاً وأنا لا أريد أن أشمل الخلايا الفارغة