Ahmed_J قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 (معدل) السلام عليكم اساتذتي الاعزاء هل ممكن التعديل على كود التصدير الى اكسيل في النموذج المرفق الصورة 1 ليصبح منسق كما في الصورة 2 من حيث (حجم الخط 12 والتوسيط وتحديد كافة الحدود) ففط علما اني استخدم اوفيس 2010 تحياتي للجميع export excel.accdb تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 وعليكم السلام ورحمة الله وبركاته جرب تنسيق الملف مسبقاً يالتسيقات اللازمة ثم قم بعمل تصدير ستجد الملف يحتفظ بالتنسيقات المعدة مسبقاً تحياتي 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 تفضل اخي التعديل export excel.accdb رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 2 ساعات مضت, Ahmed_J said: السلام عليكم اساتذتي الاعزاء هل ممكن التعديل على كود التصدير الى اكسيل في النموذج المرفق الصورة 1 ليصبح منسق كما في الصورة 2 من حيث (حجم الخط 12 والتوسيط وتحديد كافة الحدود) ففط علما اني استخدم اوفيس 2010 تحياتي للجميع export excel.accdb 872 kB · 6 downloads ان شاء الله تجد الحل هنا حاول الفهم والتطبيق وان تعثرت لا قدر الله ابشر سوف اقوم بتعديل مرفقكم فورا بامر الله 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب مشاركة قام بنشر سبتمبر 24, 2021 (معدل) السلام عليكم اساتنذتي الاعزاء بالنسبة للاستاذ @محمد أبوعبدالله انا قمت بتنسيق الجداول سايقا ولم تتغير النتيجة علما بان الملف المستخرج هو من استعلام توحيدي ولا استطيع تنسيقة ؟؟؟؟؟ تحياتي لك وبارك الله فيك بالنسبة للاستاذ @Eng.Qassim قمت باافة كود الى الاكواد الخاصة بك xlWB1.Worksheets("Qtoexport").Range("A1:E7").EntireColumn.Font.Bold = True واصبح كما في الصورة ولايوجد توسيط او تحديد للجقول اما بالنسبة للاستاذ @ابا جودى استاذنا الكبير لم افهم طريقتك؟ اعذرني وان الملف لااريده معد مسبقا ياريت يكون التعديل على ملفي المرفق تحياتي للجميع تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 12 دقائق مضت, Ahmed_J said: ياريت يكون التعديل على ملفي المرفق ما الذي تريده بالضبط.. النتيجة ظهرت كما اردت انت 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 13 دقائق مضت, Ahmed_J said: الملف لااريده معد مسبقا مش فاهم بصراحة قصدك فى الجملة دى تحديدا انا ما اقصده معد مسبقا هو ملف اكسل بالتنسيقات وحجم الخط واللألوان ان اردت هل اشرع فى العمل على طريقتى الخاصة ام لكم رأى اخر 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب مشاركة قام بنشر سبتمبر 24, 2021 (معدل) استاذي العزيز Eng.Qassim 1- التوسيط (توسيط الخلايا) 2- خطوط الشبكة استاذ @ابا جودى اشكرك كثيرا ياريت التعديل يكون على ملفي بالمشاركة الاولى وبنفس الطريقة التي استخرج بها كود الاكسيل ولا اريد ملف اكسيل تم اعاده سابقا لانه يتعارض كليا مع عملي تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر سبتمبر 24, 2021 مشاركة قام بنشر سبتمبر 24, 2021 تفضل التنسيق في وحدة نمطية export excelw.accdb 3 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب مشاركة قام بنشر سبتمبر 24, 2021 السلام عليكم استاذ @AlwaZeeR تسلم يداك يابطل كلوا تمام لي طلب صغير اخر لو سمحت ممكن رؤوس العناوين تكون بلون اصغر او احمر كما في الصورة واكون شاكر لك تحياتي رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 24, 2021 الكاتب مشاركة قام بنشر سبتمبر 24, 2021 (معدل) السلام عليكم تم اضافة الكود التالي للوحدة النمطية واصبح كل شيء تمام وممتاز .Range("A1:E1").Interior.Color = vbYellow الله يباركم فيكم اساتذتي الاعزاء تحياتي للجمبع تم تعديل سبتمبر 24, 2021 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 27, 2021 الكاتب مشاركة قام بنشر سبتمبر 27, 2021 السلام عليكم اساتذتي الكرام استاذ @AlwaZeeR تحياتي لك عند اكمال البرنامج واجهتني مشكلة صغيرة لم استطع حلها حتى من الانترنت وهي عند تحديد المدى للخلايا (Range) يبقى اللون الاصغر ثابتا عند زيادة سجل او عدة سجلات في الجداول كما قي الصور 1و2و3 وعند عمل مدى لكل الصف الاول ("A1:XDF1") Range يصل اللون الى كل من اول خلية الى اخر خلية بالاكسل كما في الصورة 4 هل من الممكن التعديل على الوحدة النمطية في الملف المرفق مثلا جعل الخلايا التي ليس بها بيانات بدون لون او كلما يزيد سجل في الجداول ياخذ لونه بصورة تلقائية علما باني استخدم اوفيس 2010 ولدي عدد مختلف من السجلات في الجداول وشكرا لتعاونكم حفظكم الله export excelw.accdb 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر سبتمبر 27, 2021 مشاركة قام بنشر سبتمبر 27, 2021 تفضل هذا التعديل export excelw.accdb 2 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب مشاركة قام بنشر سبتمبر 28, 2021 (معدل) السلام غليكم اساتذتي الاعزاء شكرا لكم اساتذتي @AlwaZeeR @محمد أبوعبدالله @د.كاف يار @kanory @ابا جودى @Eng.Qassim على تفاعلكم مع الموضوع عندي طلب اخير لوسمحتم لكي ياخذ الموضوع كل جوانبه لما فيه فائدة لك الاعضاء عند حذق سجل من الجدول مثلا tb3 وتصديره الى اكسل يكون التسلسل غير صحيح في الملف المصدر هل من الممكن عن طريق الكود تصحيح التسلسل من خلال الوحدة النمطية حصرا الموجودة بالملف المرفق وشكرا لكم export _kanory.accdb تم تعديل سبتمبر 28, 2021 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 وعليكم السلام ورحمة الله وبركاته تستطيع استخدام الاستعلامات للتصدير واستخدام جمل (SQl) وتوظيفها بما تحتاجه مثلاً: SELECT DCount("1","[tb3]","[ت] <= " & [ت]) AS AutoNumber, * FROM tb3 ORDER BY [ت]; استخدم السابق في استعلام جديد وقم بتسميته مثلاً: QryTbl3 ثم قم باجراء التغييرات حسب ما تريد لبرنامجك حيث يمكنك تصدير autonumber بدل ت لملف الاكسل :: تحياتي 1 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
AlwaZeeR قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 جرب .usedRange.Columns(1).rows(2) = i 1 رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر سبتمبر 28, 2021 الكاتب مشاركة قام بنشر سبتمبر 28, 2021 (معدل) استاذي العزيز بعد اضافة الكود الخاص بك اصبح العمل كما في الصورة التسلسلات غير صحيحة والكود يتجاوز الصغوف هنالك خطا ما بالكود لااعرفه تحباتي export _kanory.accdb تم تعديل سبتمبر 28, 2021 بواسطه Ahmed_J رابط هذا التعليق شارك More sharing options...
kanory قام بنشر سبتمبر 28, 2021 مشاركة قام بنشر سبتمبر 28, 2021 جرب المرفق واعلمنا بالنتيجة <<<<<<<<>>>>>>> export _kanory.accdb 4 رابط هذا التعليق شارك More sharing options...
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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.