اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


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

السلام عليكم

ارجو المساعدة

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

مرفق ملف الوورد وبه نمودج من الداتا وايضا ملف اكسل بحيث تظهر الداتا كما فى النمود الاكسل

وذلك توفيرا للوقت

فلقد حاولت ولكن وجدت ان لازم اقوم بادخالها مرة اخرى

او استعمل نظام copy و paste وهو ما سوف يأخذ من الوقت الكثير

فهل اجد لديكم حلا لهذه المشكلة

وجزاكم الله خيرا على مجهودكم الرائع

فى ايجاد الحلول لكل مشكلة وتعليم الاخرين

فخيركم من تعلم العلم وعلمه

مع تحياتى لكم ولجميع اعضاء المنتدى

نموذج الجدول المطلوب.rar

نموذج المؤسسات والشركات.rar

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

السلام عليكم

أخي الكريم

تفضل الملف المرفق بالإكسل

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

الخطوات

1. نسخ ملف الوورد بالكامل

2. وضعه في الخلية A1

3. ضغط زر الماكرو

للإيضاح أكثر أنظر الفيديو المرفق أيضا

vevazalata.rar

word_2_excel.rar

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

السلام عليكم

أخي الكريم

تفضل الملف المرفق بالإكسل

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

الخطوات

1. نسخ ملف الوورد بالكامل

2. وضعه في الخلية A1

3. ضغط زر الماكرو

للإيضاح أكثر أنظر الفيديو المرفق أيضا

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

السلام عليكم

الاخ الفاضل طارق

بارك الله فيك وجزاك الله خيرا

فلقد انقذتنى حقيقى فى هذا الملف

لاننى بدأت اعمل ادخال بيانات من جديد بطريق النسخ واللصق

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

على مجهودك ومجهود الاخوة الافاضل فى المنتدى

الا ان ادعو لك عن ظهر قلب

ان يجعل هذه الاعمال والمساعدات فى ميزان حسنات وتكون مع الابرار فى العليين

وارجو ان اكون قد اثقلت عليك

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

ان ملف الوردعندما قمت بنسخة على الاكسل اعطانى 13740 صف

فظهرت رسالة عندى للماكرو تقول هناك خطأ

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

سؤالى هل اعمل نسخ جزء جزء وهذا افضل

ام ان هناك حل لنسخ الملف كامل بلا مشاكل او رسائل الخطأ

وجزاك الله خيرا وجعله فى ميزان حسناتك

وبارك الله فيك وفى رزقك وعملك وفى عمرك وحياتك وجعلها نورا ورخاء

اخوك

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

السلام عليكم

المفروض ألا يحدث هذا

ولكني مش فاضي الآن

كحل مؤقت سريع

في ملف vevazalata.xls

إفتح الفيجوال بيزيك عن طريق ضغط Alt- F11

ثم في أول سطور البرنامج غير السطر الثالث اللي في x

ليكون



Sub re_arrange()

tsjel = [d1].Value


x = 15000


For i = 1 To x

بدلا من


Sub re_arrange()

tsjel = [d1].Value


x = ActiveCell.SpecialCells(xlLastCell).Row


For i = 1 To x

وبهذا يكون x = 15000 أكثر مما تريد

لكن الوقت سيكون أطول قليلا

سامحني لقلة الوقت

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

السلام عليكم

اخى الفاضل طارق

جزاك الله كل خير

وانا اعرف ان وقت قليل لذلك ارجو المعذرة

وانا جربت وغيرت فى الفيجوال بيسك وجعلتها 15000 كما قلت لى

ولكن تظهر عندى رسالة خطأ

وفتحت ديبيجو لتظهر هذه الرسالة باللون الاصفر

nashat = Selection.Offset(-3, -1).Value

ارجو ان يكون هناك حل لها

انا ملف الورد 346 صفخة

وهو يأتى على الصفحة 158 فقط

ولا يستطيع الاكمال

وانا اسف حقا على الاطالة عليك

وجزاك الله خيراوجعله فةى ميزان حسناتك

فخيركم من تعلم العلم وعلمه

وانت خير حقيقى جزاك الله على مجهودك الطيب والرائع

اخوك

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

  • 7 years later...

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

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

جزاكم الله كل خير وبارك الله فيكم

 

vevazalata.rar

word_2_excel.rar

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

من البداية تذهبى الى ملفات الورد ثم تقومى بتحديد الجداول التى تريدى نسخها ونقلها الى الإكسيل

ثم عمل ضغطة يمين من الماوس ثم تختارى نسخ copy

ثم بعد ذلك تذهبى الى ملف الإكسيل الذى أرسلته اليك وبداية من الخلية A1

تقومى بعمل ضغطة يمين بالماوس ثم تختارى لصق Paste

أتمنى أن يكون ذلك واضح لكى

بارك الله فيك وجزاك خيرا

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

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

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

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