COKING

السلام عليكم أعجبني الموضوع جدا ولدي سؤال إذا سمحت لي كيف ينفذ العمل بالكامل من خلال الفورم؟ أي بمعنى آخر هل نستطيع فتح ملفات والتعامل معها تصدير وإستراد دون أن نراها؟ جزاكم الله كل خير

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

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

اخي الفاضل COKING تفضل المرفق السلام عليكم هذا ما أردته أشكرك جزيل الشكر وجزاك الله كل خير

السلام عليكم أشكرك أخي أبو أحمد على الإهتمام ولكن أنا أريد عمل مفاتيح التصغير والتكبير كما في في أعلى يمين هذه الشاشة وكل الشاشات شكرا لكم مرة أخرى

السلام عليكم ورحمة الله وبركاتة أساتذتي الكرام هل من الممكن عمل مفتاح تصغير وتكبير للفورم من VBA جزاكم الله كل خير

شكرا جزيلا يا أخي سأحاول العمل بنصيحتكم شكرا مرة أخرى

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

السلام عليكم Private Sub UserForm_Activate() MyPath = Workbooks("The Cooker_without.xls").Path & "\SCHED_without.xls" Set Mybook = Workbooks.Open(Filename:=MyPath) End sub هذاالروتين كان يعمل ثم توقف فجأة ولا أعرف السبب ويعطيني رسالة"Compile Error:Object required" ويقف على عبارة Mybook أرجو المساعدة حيث أنني لا أرى سببا لهذا العطل شكرا جزيلا لكم

السلام عليكم طرحت مشكلتي ووجدت 15 مشاهدة ولم يساعدني أحد ربما سؤالي غامض سأحاول توضيحه بمثال MyPath = Workbooks("ْْْْXXXX").Path & "\YYYY" Set MyBook = Workbooks.Open(Filename:=MyPath) Endrow = Range("A2").CurrentRegion.Rows.Count For F = 2 To Endrow Cells(F, 4).Value = (Left(Cells(F, 1), 7)) Cells(F, 1).Value = Cells(F, 4) Cells(F, 4).Clear Next ACT = UCase(ActiveCell.Text) MyBook Left UCase هذه الأوامر لا تعمل وقدكانت تعمل قبل فرمتة الجهاز ماذا أفعل ؟ وأنا مطالب بتقديم البرنامج سريعا رجاء التكرم بالرد علي ولكم جميعا جزيل الشكر

السلام عليكم لدي برنامج كان يعمل بإمتياز قبل أن أفرمت الجهاز وبعد فرمتة الجهاز وتنصيب الأوفيس فوجئت بأن البرنامج يتوقف عند أوامر لم يكن يتوقف عنها قبلا على سبيل المثال لايتعرف على Set MyBook = Workbooks.Open(Filename:=MyPath) أو UCase(ActiveCell.Text) أو (Left(Cells(Arows, 10), 10)) وهكذا ولست أدري ما السبب هل برنامج الإكسل ينقصه شيئ كان موجود قبلا أو ماذا فأنا في حيرة من أمري ولست أدري ماذا أفعل وأنا في شدة الإحتياج إلى هذا البرنامج رجاء مد يد العون ولكم جميعا جزيل الشكر

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

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