Ahmed_J قام بنشر سبتمبر 24, 2021 قام بنشر سبتمبر 24, 2021 (معدل) السلام عليكم اساتذتي الاعزاء هل ممكن التعديل على كود التصدير الى اكسيل في النموذج المرفق الصورة 1 ليصبح منسق كما في الصورة 2 من حيث (حجم الخط 12 والتوسيط وتحديد كافة الحدود) ففط علما اني استخدم اوفيس 2010 تحياتي للجميع export excel.accdb تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J
محمد أبوعبدالله قام بنشر سبتمبر 24, 2021 قام بنشر سبتمبر 24, 2021 وعليكم السلام ورحمة الله وبركاته جرب تنسيق الملف مسبقاً يالتسيقات اللازمة ثم قم بعمل تصدير ستجد الملف يحتفظ بالتنسيقات المعدة مسبقاً تحياتي 1
ابو جودي قام بنشر سبتمبر 24, 2021 قام بنشر سبتمبر 24, 2021 2 ساعات مضت, Ahmed_J said: السلام عليكم اساتذتي الاعزاء هل ممكن التعديل على كود التصدير الى اكسيل في النموذج المرفق الصورة 1 ليصبح منسق كما في الصورة 2 من حيث (حجم الخط 12 والتوسيط وتحديد كافة الحدود) ففط علما اني استخدم اوفيس 2010 تحياتي للجميع export excel.accdb 872 kB · 6 downloads ان شاء الله تجد الحل هنا حاول الفهم والتطبيق وان تعثرت لا قدر الله ابشر سوف اقوم بتعديل مرفقكم فورا بامر الله 1
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب قام بنشر سبتمبر 24, 2021 (معدل) السلام عليكم اساتنذتي الاعزاء بالنسبة للاستاذ @محمد أبوعبدالله انا قمت بتنسيق الجداول سايقا ولم تتغير النتيجة علما بان الملف المستخرج هو من استعلام توحيدي ولا استطيع تنسيقة ؟؟؟؟؟ تحياتي لك وبارك الله فيك بالنسبة للاستاذ @Eng.Qassim قمت باافة كود الى الاكواد الخاصة بك xlWB1.Worksheets("Qtoexport").Range("A1:E7").EntireColumn.Font.Bold = True واصبح كما في الصورة ولايوجد توسيط او تحديد للجقول اما بالنسبة للاستاذ @ابا جودى استاذنا الكبير لم افهم طريقتك؟ اعذرني وان الملف لااريده معد مسبقا ياريت يكون التعديل على ملفي المرفق تحياتي للجميع تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J
Eng.Qassim قام بنشر سبتمبر 24, 2021 قام بنشر سبتمبر 24, 2021 12 دقائق مضت, Ahmed_J said: ياريت يكون التعديل على ملفي المرفق ما الذي تريده بالضبط.. النتيجة ظهرت كما اردت انت 1
ابو جودي قام بنشر سبتمبر 24, 2021 قام بنشر سبتمبر 24, 2021 13 دقائق مضت, Ahmed_J said: الملف لااريده معد مسبقا مش فاهم بصراحة قصدك فى الجملة دى تحديدا انا ما اقصده معد مسبقا هو ملف اكسل بالتنسيقات وحجم الخط واللألوان ان اردت هل اشرع فى العمل على طريقتى الخاصة ام لكم رأى اخر 1
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب قام بنشر سبتمبر 24, 2021 (معدل) استاذي العزيز Eng.Qassim 1- التوسيط (توسيط الخلايا) 2- خطوط الشبكة استاذ @ابا جودى اشكرك كثيرا ياريت التعديل يكون على ملفي بالمشاركة الاولى وبنفس الطريقة التي استخرج بها كود الاكسيل ولا اريد ملف اكسيل تم اعاده سابقا لانه يتعارض كليا مع عملي تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J
AlwaZeeR قام بنشر سبتمبر 24, 2021 قام بنشر سبتمبر 24, 2021 تفضل التنسيق في وحدة نمطية export excelw.accdb 3 1
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب قام بنشر سبتمبر 24, 2021 السلام عليكم استاذ @AlwaZeeR تسلم يداك يابطل كلوا تمام لي طلب صغير اخر لو سمحت ممكن رؤوس العناوين تكون بلون اصغر او احمر كما في الصورة واكون شاكر لك تحياتي
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب قام بنشر سبتمبر 24, 2021 (معدل) السلام عليكم تم اضافة الكود التالي للوحدة النمطية واصبح كل شيء تمام وممتاز .Range("A1:E1").Interior.Color = vbYellow الله يباركم فيكم اساتذتي الاعزاء تحياتي للجمبع تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J
Ahmed_J قام بنشر سبتمبر 27, 2021 الكاتب قام بنشر سبتمبر 27, 2021 السلام عليكم اساتذتي الكرام استاذ @AlwaZeeR تحياتي لك عند اكمال البرنامج واجهتني مشكلة صغيرة لم استطع حلها حتى من الانترنت وهي عند تحديد المدى للخلايا (Range) يبقى اللون الاصغر ثابتا عند زيادة سجل او عدة سجلات في الجداول كما قي الصور 1و2و3 وعند عمل مدى لكل الصف الاول ("A1:XDF1") Range يصل اللون الى كل من اول خلية الى اخر خلية بالاكسل كما في الصورة 4 هل من الممكن التعديل على الوحدة النمطية في الملف المرفق مثلا جعل الخلايا التي ليس بها بيانات بدون لون او كلما يزيد سجل في الجداول ياخذ لونه بصورة تلقائية علما باني استخدم اوفيس 2010 ولدي عدد مختلف من السجلات في الجداول وشكرا لتعاونكم حفظكم الله export excelw.accdb 1
kanory قام بنشر سبتمبر 27, 2021 قام بنشر سبتمبر 27, 2021 4 ساعات مضت, Ahmed_J said: السلام عليكم اساتذتي الكرام استاذ @AlwaZeeR تحياتي لك عند اكمال البرنامج واجهتني مشكلة صغيرة لم استطع حلها حتى من الانترنت وهي عند تحديد المدى للخلايا (Range) يبقى اللون الاصغر ثابتا عند زيادة سجل او عدة سجلات في الجداول كما قي الصور 1و2و3 وعند عمل مدى لكل الصف الاول ("A1:XDF1") Range يصل اللون الى كل من اول خلية الى اخر خلية بالاكسل كما في الصورة 4 هل من الممكن التعديل على الوحدة النمطية في الملف المرفق مثلا جعل الخلايا التي ليس بها بيانات بدون لون او كلما يزيد سجل في الجداول ياخذ لونه بصورة تلقائية علما باني استخدم اوفيس 2010 ولدي عدد مختلف من السجلات في الجداول وشكرا لتعاونكم حفظكم الله export excelw.accdb 1.11 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads استخدم هذا ... <<<<<<<<<>>>>>>>>> .usedRange.rows(1).Interior.Color = vbYellow تفضل ملفك .... export _kanory.accdb 5
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب قام بنشر سبتمبر 28, 2021 (معدل) السلام غليكم اساتذتي الاعزاء شكرا لكم اساتذتي @AlwaZeeR @محمد أبوعبدالله @د.كاف يار @kanory @ابا جودى @Eng.Qassim على تفاعلكم مع الموضوع عندي طلب اخير لوسمحتم لكي ياخذ الموضوع كل جوانبه لما فيه فائدة لك الاعضاء عند حذق سجل من الجدول مثلا tb3 وتصديره الى اكسل يكون التسلسل غير صحيح في الملف المصدر هل من الممكن عن طريق الكود تصحيح التسلسل من خلال الوحدة النمطية حصرا الموجودة بالملف المرفق وشكرا لكم export _kanory.accdb تم تعديل سبتمبر 28, 2021 بواسطه Ahmed_J
AlwaZeeR قام بنشر سبتمبر 28, 2021 قام بنشر سبتمبر 28, 2021 وعليكم السلام ورحمة الله وبركاته تستطيع استخدام الاستعلامات للتصدير واستخدام جمل (SQl) وتوظيفها بما تحتاجه مثلاً: SELECT DCount("1","[tb3]","[ت] <= " & [ت]) AS AutoNumber, * FROM tb3 ORDER BY [ت]; استخدم السابق في استعلام جديد وقم بتسميته مثلاً: QryTbl3 ثم قم باجراء التغييرات حسب ما تريد لبرنامجك حيث يمكنك تصدير autonumber بدل ت لملف الاكسل :: تحياتي 1
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب قام بنشر سبتمبر 28, 2021 (معدل) السلام علكم استاذ @AlwaZeeR شكرا جزيلا لك على اهتمامك الكريم جربت هذه الطريقة لكن واجهتني مشكلة انه انا عامل استعلام توحيد لثلاث جداول بالاستعلام ولم استطع اضافة الكود لهم جربت كود ونجح 50% في الوحدة النمطية لكن فيه مشكلتين: 1- ان يبدا الترقيم من الخلية A2 2- ان لايتجاوز الترقيم اخر صف بالجدول كما في الصورة على اعتبار ان عدد السجلات متغيرة دائما Dim I As Integer I = 1 For I = 1 To 10 .Range("A" & I).Value = I Next تحياتي للجميع تم تعديل سبتمبر 28, 2021 بواسطه Ahmed_J
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب قام بنشر سبتمبر 28, 2021 (معدل) استاذي العزيز بعد اضافة الكود الخاص بك اصبح العمل كما في الصورة التسلسلات غير صحيحة والكود يتجاوز الصغوف هنالك خطا ما بالكود لااعرفه تحباتي export _kanory.accdb تم تعديل سبتمبر 28, 2021 بواسطه Ahmed_J
kanory قام بنشر سبتمبر 28, 2021 قام بنشر سبتمبر 28, 2021 جرب المرفق واعلمنا بالنتيجة <<<<<<<<>>>>>>> export _kanory.accdb 4
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب قام بنشر سبتمبر 28, 2021 (معدل) شكرا لكم اساتذتي الاعزاء كلوا تمام تم حل الموضوع من قبل الاستاذ الفاضل محمد صالح عن طريق الكود التالي Dim I As Integer For I = 2 To .range("b" & .rows.count).end(3).row .Range("A" & I).Value = I-1 Next I بارك الله فيكم جميعا جعلها الله في ميزان حسناتكم تحياتي للجميع تم تعديل سبتمبر 28, 2021 بواسطه Ahmed_J
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.