الفشل2004 قام بنشر فبراير 15, 2005 مشاركة قام بنشر فبراير 15, 2005 (معدل) طبعا اشكر كل الشكر اخواني الاعزاء في قسمة الاكسل وانا كلي اسف لانشغالي الفترة الماضية من دخول المنتدى لكي استفيد وكان السبب الانشغال بالعمل لكن اول ما اردت التعلم والاستفادة عدت الى المنتدى لاني كلي ثقة باني سوف استفيد واتعلم الجديد من هنى...... اخواني الاعزاء هذا المرة عندي طلب بسيط: يمكن احد يعطيني كود في الفجول لزر بحيث عنما اضغط عليه يفتح لي صفحة الاكسل ............................................يعني عندي كثير من الملفات في الاكسل 1)ملف ادخال الدرجات ، 2)ملف اخال الدرجات النهائية ، 3)ملف الكشوفات النهائية وغيرها... وقد قمة بتقسم الملفات عدت ملفات اكسل لكبر الملف سابقا لكن عند رغبتي فتح احد الملفات اذهب في كل مرة واقوم بفتحه ثم اقفل الملف واذهب لفتح الاخر وهكذا ولكن بعد التفكير قررت اعمل صفحة تشغيل في الفجول البسك بحيث اقوم بتشغيل برنامج بعد تصميمه بحيث يحوي مجموعة من الازرار وعند اختيار احد الازرار يتم فتح الاكسل للملف المطلوب فارجو من الاخوة الاعزاء افادتي في ذالك واعطائي كود الفجول بيسك الذي يسمح لي بتشغيل برامج الاكسل التي قمة بتصميمها بضغط على احد الازرار وتحياتي الحارة لكل الاعضاء تم تعديل فبراير 15, 2005 بواسطه الفشل2004 رابط هذا التعليق شارك More sharing options...
فلسطيني قام بنشر فبراير 15, 2005 مشاركة قام بنشر فبراير 15, 2005 جرب ما يلي Sub open_1() Workbooks.Open Filename:="F:\excell\Clean.xls" End Sub بحيث يتم تغيير موقع و اسم الملف الذي تريد فتحه حسب ما تريد رابط هذا التعليق شارك More sharing options...
الفشل2004 قام بنشر فبراير 16, 2005 الكاتب مشاركة قام بنشر فبراير 16, 2005 شكرا اخي العزيز فليسطيني لكن الكود لا يعمل؟؟ قمة بنصخه وتغير موقع الملف واسم الملف لكن لم يعمل؟؟ رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر فبراير 17, 2005 مشاركة قام بنشر فبراير 17, 2005 السلام عليكم ... تأكد أخي من أنك كتبت اسم المسار بشكل صحيح ، وعلى كل حال فيمكنك الاستعانة بالأسلوب GetOpenFilename بدلاً من الأسلوب التقليدي Open. الفرق بين الأسلوبين هو أنه في الأسلوب GetOpenFilename يعرض لك صندوق حوار فتح ملف وهذا قد يكون أفضل. نستطيع تغيير الكود السابق إلى : Sub open_1() Dim FName As String FName = Application.GetOpenFilename If FName = "False" Then Exit Sub Workbooks.Open Filename:=FName End Sub بالتوفيق رابط هذا التعليق شارك More sharing options...
الفشل2004 قام بنشر فبراير 18, 2005 الكاتب مشاركة قام بنشر فبراير 18, 2005 اخي العزيز محمد قمة بنسخ الكود ولصقة في الشيفرة لكن لثاني مرة لم يعمل حيث عندما قمة قمة بتجريبه واخترة زر ابدء في الفجول ظهر الزر وقمة بضغط عليه لكن لم يحدث شي واعيد شرحي للي اريده انا مة وعلى افتراض بتخزين ملف اكسل في المسار التالي مثلا: c:\frf\ee.xls لكن في الطريقتان لم يعمل ارجو التوضيح وشكرا لكم على الاهتمام رابط هذا التعليق شارك More sharing options...
محمد حجازي قام بنشر فبراير 19, 2005 مشاركة قام بنشر فبراير 19, 2005 السلام عليكم ... لا أعرف لماذا لا يعمل الكود عندك؟ ، أنا الكود عندي شغال! على أية حال ، هناك طريقة أخرى لحل مشكلتك ، وذلك عن طريق الارتباط التشعبي. جرب و أخبرني بالنتيجة رابط هذا التعليق شارك More sharing options...
الردود الموصى بها