helmy_foad

شكراً جزيلاً أخ على السحيب على التوضيح

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

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

أشكرك يا أستاذنا على و الله أنت مثلى الاعلى فى الأكسيل و أتمنى ان أكون مثلك فى يوم من الأيام

المعذرة يا إخوانى ، فبعد دقائق من نشر الموضوع ، فكرت أنة يمكننى عمل ذلك عن طريق تسجيل الماكرو ، و حاولت و نجحت فى عمل هذا الكود Sub Macro4() Range("B10:G25").Select ActiveSheet.PageSetup.PrintArea = "$B$10:$G$25" ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveSheet.PageSetup.PrintArea = "" End Sub و لكن طبعاً اكيد الأخوة المشرفين الكرام لديهم المزيد . الحقيقة أنا خجلان لأنى وجدت أن سؤالى تافة و كنت أظن أنة شئ صعب

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

لم يعمل الملف عندى و يعطينى run-time error '1004' cannot start the source application for this object

يمكنك وضع هذا الكود فى ال sheet و ستكون خانة التاريخ هى خانات العمود b Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then If Range("B" & Target.Row) <> Now Then Range("B" & Target.Row) = Now End If End Sub الحقيقة هذا الكود أخذتة من أحد مواضيع المنتدى ، و لكن لا أذكر من صاحبة فأنا أحتفظ بكمية كبيرة من الأكواد فى ملف خاص بذلك و لدى أيضاً ملف خاص بأحد مشرفين المنتدى أيضاً بة دالة أخرى أنظر المرفق __________________.zip

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

أرجو أن يفيدك هذا الحل لقد حاولت مساعدتك على قدر معرفتى ____________.rar

ألف شكر لمشرفنا العزيز على السحيب جعل الله هذا الرد فى ميزان حسناتك

أنتظر الرد من السادة المشرفين

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

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

حسناً يا اخى سأحاول ان أجيبك على قدر معلوماتى بالنسبة لسؤالك كيف يحدث هذا فهو عن طريق وضع أكواد برمجية vba ، و شرح هذة الطريقة متوفر بكثرة فى المنتدى ، فقط ما عليك سوى التصفح و البحث فى المنتدى ( كما فعلت أنا ، فقد دخلت هذا المنتدى لا أفقة شيئاً عن الأكسيل) ، و ستعرف كيف تقوم بعمل مثلها . أما السؤال الثانى فهذا ناتج عن خطأ فى برمجة ملف الإكسيل ، حيث لم يتم وضع كود برمجى يقوم بإعادة الأوضاع كما كانت علية ، عند إغلاق الملف ، فأنت تضع كود لإلغاء شريط الأدوات عند فتح الملف ، و كود أخر لإعادة شريط الأدوات عند إغلاق الملف . و الأن ماذا تفعل للتغلب على ما حدث عندك فى برنامج الإكسيل ؟ أغلق برناج الأكسيل أفتح قائمة start أضغط على الامر run أكتب regedit أختار HKEY_CURRENT_USER ثم software ثم microsoft ثم office ثم 10.0 ثم excel ثم option و هنا تقوم بالضغط كليك يمين ثم إختيار delete ، أى أنك تحذف المجلد option بكاملة ، و تعيد فتح الأكسيل ستجد كل شئ على ما يرام إن شاء الله

أخ تامر أرجو أن تعلمنى كيفية إدراج الدالة فى ملف أقوم بحفظة عن طريق save as فقد فشلت فى ذلك تماماً

الاخ تامر هناك شئ غير واضح أنا بالفعل ارفقت الدالة مع الملف و إذا ضغطت على f11 فستجد module بة الدالة كما أن الملف يعمل عندى بكفاءة لا أعرف أين المشكلة كما أن دالة ifyes مفعلة عندى فى الأكسيل فى tools - addins أرجو أن توضح لى أين المشكلة

إذا كنت قد فهمتك جيداً فاعتقد أن هذا المرفق بة حل مشكلتك ifyes.rar

السلام عليكم و رحمة الله و بركاتة قمت بعمل ملف أكسيل ، وضعت فية بعض ال modules مربوطة بأزرار ، منها زر للطباعة و زر للخروج و زر للحفظ ، و أنا قمت بعمل الملف بطريقة الشاشة الكاملة ، و قمت بحجب جميع القوائم و أشرطة الأدوات ، و لما كان هذا الملف بة العديد من الأصناف تقترب من 1000 صنف ، فكان من المهم أن يكون هناك زر للبحث داخل الملف ، بحيث يستطيع المستخدم الوصول إلى الصنف الذى يريدة عن طريق إستخدام خاصية البحث ، أنا لا أريد محرك بحث خاص ، و لكن كل ما أريدة هو كود ماكرو يسمح بفتح الوظيفة find (التى نفتحها من قائمة edit أو بالضغط على ctrl+f) ، لأن هذة الوظيفة قوية جداً فى البحث و تجعل المستخدم يصل مباشرة إلى الخلية التى بها الكلمة التى يبحث عنها . و أشكركم مقدماً للمساعدة