اذهب الي المحتوي
أوفيسنا

تعديل كود التصدير الى اكسيل


Ahmed_J

الردود الموصى بها

السلام عليكم اساتذتي الاعزاء

هل ممكن التعديل على كود التصدير الى اكسيل في النموذج المرفق الصورة 1 

ليصبح منسق كما في الصورة 2 من حيث (حجم الخط 12 والتوسيط وتحديد كافة الحدود) ففط

علما اني استخدم اوفيس 2010

تحياتي للجميع

1.jpg

2.jpg

export excel.accdb

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته

جرب تنسيق الملف مسبقاً يالتسيقات اللازمة

ثم قم بعمل تصدير

ستجد الملف يحتفظ بالتنسيقات المعدة مسبقاً

تحياتي

  • Like 1
رابط هذا التعليق
شارك

2 ساعات مضت, Ahmed_J said:

السلام عليكم اساتذتي الاعزاء

هل ممكن التعديل على كود التصدير الى اكسيل في النموذج المرفق الصورة 1 

ليصبح منسق كما في الصورة 2 من حيث (حجم الخط 12 والتوسيط وتحديد كافة الحدود) ففط

علما اني استخدم اوفيس 2010

تحياتي للجميع

1.jpg

2.jpg

export excel.accdb 872 kB · 6 downloads

 

ان شاء الله تجد الحل هنا
حاول الفهم والتطبيق وان تعثرت لا قدر الله ابشر سوف اقوم بتعديل مرفقكم فورا بامر الله

 

 

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم اساتنذتي الاعزاء 

بالنسبة للاستاذ @محمد أبوعبدالله  انا قمت بتنسيق الجداول سايقا  ولم تتغير النتيجة

علما بان الملف المستخرج هو من استعلام توحيدي  ولا استطيع تنسيقة ؟؟؟؟؟

تحياتي لك وبارك الله فيك

بالنسبة للاستاذ @Eng.Qassim  

قمت باافة كود الى الاكواد الخاصة بك

 xlWB1.Worksheets("Qtoexport").Range("A1:E7").EntireColumn.Font.Bold = True

واصبح كما في الصورة ولايوجد توسيط او تحديد للجقول

اما بالنسبة للاستاذ @ابا جودى استاذنا الكبير 

لم افهم طريقتك؟ اعذرني   وان الملف لااريده معد مسبقا

ياريت يكون التعديل على ملفي المرفق

تحياتي للجميع

 

Untitled.jpg

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

13 دقائق مضت, Ahmed_J said:

الملف لااريده معد مسبقا

مش فاهم بصراحة قصدك فى الجملة دى تحديدا

انا ما اقصده معد مسبقا هو ملف اكسل بالتنسيقات وحجم الخط واللألوان ان اردت 

هل اشرع فى العمل على طريقتى الخاصة ام لكم رأى اخر

  • Like 1
رابط هذا التعليق
شارك

استاذي العزيز Eng.Qassim

1- التوسيط (توسيط الخلايا)

2- خطوط الشبكة 

2.jpg.e1387ced0e9ef77e13b57d48d8622b57.jpg

استاذ  @ابا جودى

اشكرك كثيرا

ياريت التعديل يكون  على ملفي بالمشاركة الاولى  وبنفس الطريقة التي استخرج بها كود الاكسيل 

ولا اريد ملف اكسيل تم اعاده سابقا  لانه يتعارض كليا مع عملي 

 

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

السلام عليكم استاذ @AlwaZeeR  

تسلم يداك يابطل

كلوا تمام 

لي طلب صغير اخر لو سمحت 

ممكن رؤوس العناوين تكون بلون اصغر او احمر  كما في الصورة

واكون شاكر لك 

تحياتي 

Untitled.jpg

رابط هذا التعليق
شارك

السلام عليكم

تم اضافة الكود التالي للوحدة النمطية واصبح كل شيء تمام وممتاز

.Range("A1:E1").Interior.Color = vbYellow

الله يباركم فيكم اساتذتي الاعزاء

تحياتي للجمبع

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

السلام عليكم اساتذتي الكرام

استاذ @AlwaZeeR تحياتي لك

عند اكمال البرنامج واجهتني مشكلة صغيرة لم استطع حلها حتى من الانترنت

وهي عند تحديد المدى للخلايا (Range) يبقى اللون الاصغر ثابتا  عند زيادة سجل او عدة سجلات في  الجداول كما قي الصور 1و2و3

وعند عمل مدى لكل الصف الاول ("A1:XDF1") Range  يصل اللون الى كل من اول خلية الى اخر خلية  بالاكسل كما في الصورة 4

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

علما باني استخدم اوفيس 2010  ولدي عدد مختلف من السجلات في الجداول

وشكرا لتعاونكم

حفظكم الله

1.jpg

2.jpg

3.jpg

4.jpg

export excelw.accdb

  • Like 1
رابط هذا التعليق
شارك

4 ساعات مضت, Ahmed_J said:

السلام عليكم اساتذتي الكرام

استاذ @AlwaZeeR تحياتي لك

عند اكمال البرنامج واجهتني مشكلة صغيرة لم استطع حلها حتى من الانترنت

وهي عند تحديد المدى للخلايا (Range) يبقى اللون الاصغر ثابتا  عند زيادة سجل او عدة سجلات في  الجداول كما قي الصور 1و2و3

وعند عمل مدى لكل الصف الاول ("A1:XDF1") Range  يصل اللون الى كل من اول خلية الى اخر خلية  بالاكسل كما في الصورة 4

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

علما باني استخدم اوفيس 2010  ولدي عدد مختلف من السجلات في الجداول

وشكرا لتعاونكم

حفظكم الله

1.jpg

2.jpg

3.jpg

4.jpg

export excelw.accdb 1.11 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

 

استخدم هذا ... <<<<<<<<<>>>>>>>>>

.usedRange.rows(1).Interior.Color = vbYellow

 

تفضل ملفك ....

 

export _kanory.accdb

  • Like 5
رابط هذا التعليق
شارك

السلام غليكم اساتذتي الاعزاء

شكرا لكم  اساتذتي  @AlwaZeeR   @محمد أبوعبدالله @د.كاف يار  @kanory  @ابا جودى @Eng.Qassim

على تفاعلكم مع الموضوع

عندي طلب اخير لوسمحتم لكي ياخذ الموضوع كل جوانبه لما فيه فائدة لك الاعضاء

عند حذق سجل من الجدول مثلا tb3 وتصديره الى اكسل  يكون التسلسل غير صحيح في الملف المصدر

هل من الممكن عن طريق الكود  تصحيح التسلسل من خلال الوحدة النمطية حصرا الموجودة بالملف المرفق 

وشكرا لكم 

 

Untitled.jpg

export _kanory.accdb

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

وعليكم السلام ورحمة الله وبركاته

تستطيع استخدام الاستعلامات للتصدير واستخدام جمل (SQl) وتوظيفها بما تحتاجه

مثلاً:

SELECT DCount("1","[tb3]","[ت] <= " & [ت]) AS AutoNumber, *
FROM tb3
ORDER BY [ت];

استخدم السابق في استعلام جديد وقم بتسميته مثلاً: QryTbl3

ثم قم باجراء التغييرات حسب ما تريد لبرنامجك حيث يمكنك تصدير autonumber بدل ت لملف الاكسل

::

تحياتي

  • Like 1
رابط هذا التعليق
شارك

السلام علكم استاذ @AlwaZeeR

شكرا جزيلا لك على اهتمامك الكريم

جربت هذه الطريقة  لكن واجهتني مشكلة انه انا عامل استعلام توحيد لثلاث جداول بالاستعلام  ولم استطع اضافة الكود لهم

جربت كود   ونجح 50% في الوحدة النمطية لكن فيه مشكلتين:

1- ان يبدا الترقيم من الخلية A2

2- ان لايتجاوز الترقيم اخر صف بالجدول كما في الصورة على اعتبار ان عدد السجلات متغيرة دائما

 

Dim I As Integer
    I = 1
    For I = 1 To 10
   .Range("A" & I).Value = I
Next

تحياتي للجميع

Untitled.jpg

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

استاذي العزيز

بعد اضافة الكود الخاص بك

اصبح العمل كما في الصورة التسلسلات غير صحيحة والكود يتجاوز  الصغوف

هنالك خطا ما بالكود لااعرفه

تحباتي

 

Untitled.jpg

export _kanory.accdb

تم تعديل بواسطه Ahmed_J
رابط هذا التعليق
شارك

شكرا لكم اساتذتي الاعزاء

كلوا تمام  تم حل الموضوع من قبل الاستاذ الفاضل  محمد صالح عن طريق الكود التالي

Dim I As Integer
For I = 2 To .range("b" & .rows.count).end(3).row
.Range("A" & I).Value = I-1
Next I

بارك الله فيكم جميعا

جعلها الله في ميزان حسناتكم

تحياتي للجميع

تم تعديل بواسطه 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.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information