shar قام بنشر نوفمبر 8, 2010 قام بنشر نوفمبر 8, 2010 نأمل من الأخوة المساعدة حيث أنه لدي بيانات في ملف أكسل وهي عبارة عن خمسة أعمدة : عمود لرقم الموظف والعمود الثاني للاسم الأول والعمود الثالث للاسم الثاني وعمود الرابع للاسم الثالث والعمود الخامس للقب . والمطلوب نقل هذه البيانات إلى ملف أكسل أخر بضغطة زر بالملف الثاني المراد نقل البيانات إليه على أن ينقل رقم الموظف في العمود الأول والاسم كاملا ( الرباعي ) في العمود الثاني اختصار للوقت .... مع الشكر والتقدير مقدماً.
احمدزمان قام بنشر نوفمبر 9, 2010 قام بنشر نوفمبر 9, 2010 السلام عليكم و رحمة الله وبركاته أخي الفاضل نحتاج منك فولدر به مثالين للملفين المراد العمل عليهم مع التحية
طارق محمود قام بنشر نوفمبر 10, 2010 قام بنشر نوفمبر 10, 2010 السلام عليكم كود نقل البيانات في هذه الحالة ممكن يكون كالتالي Sub Shift_Data() ' ' Macro2 Macro ' Macro recorded 09/11/2010 by web Dim file_1 As String On Error Resume Next file_1 = ActiveWorkbook.Path & "\Book1.xls" Workbooks.Open Filename:=file_1 Workbooks("Book1.xls").Activate z = Range("B1", [E1000].End(xlUp)).Rows.Count For j = 1 To z x = "" For i = 1 To 4 x = x & " " & Cells(j, 1 + i) Next i Range(Cells(j, 3), Cells(j, 5)).Clear Cells(j, 2) = x Next j Range("A1", "B" & z).Copy Workbooks("Book1.xls").Close False Workbooks("Book2.xls").Activate [A2].Select ActiveSheet.Paste [A2].Select End Sub مرفق الملف Book2.xls وبه الكود Book2.rar
shar قام بنشر نوفمبر 10, 2010 الكاتب قام بنشر نوفمبر 10, 2010 جاري التحميل والتجربة .... وجزاك الله خير
shar قام بنشر نوفمبر 10, 2010 الكاتب قام بنشر نوفمبر 10, 2010 (معدل) عزيزي الله يسعدك دنيا وأخرة عند سؤال في طريقة ربط الزر الذي يضغط عليه كيف طريقة ربطه لو اريد تغير نوع الأزار مثلا على شكل صورة ، وثانياً ارغب بدلا من أن يكون الملف المراد النقل منه اسم Book1 أنا أريد أن يسحب من أي ملف مفتوح وبأي أسم كان وبشكل عام ... ومعليش على الإزعاج " عضو مبتدي " وشكرا لك . تم تعديل نوفمبر 10, 2010 بواسطه shar
طارق محمود قام بنشر نوفمبر 10, 2010 قام بنشر نوفمبر 10, 2010 السلام عليكم أخي الكريم مافيش إزعاج أبدا طريقة ربط الزر الذي يضغط عليه كيف طريقة ربطه لو اريد تغير نوع الأزار مثلا على شكل صورة ، يجوز عمل الربط علي الصورة أو الأشكال الجاهزة بالأوفيس وطريقة الربط واحدة كليك بالماوس يمين علي الشكل او الصورة ثم إختر Assign Macro ستجد قائمة بها أسماء الماكروهات المتاحة ، كليك علي ماتشاء منها مرفق فيديو للتوضيح وثانياً ارغب بدلا من أن يكون الملف المراد النقل منه اسم Book1 أنا أريد أن يسحب من أي ملف مفتوح وبأي أسم كان وبشكل عام في الكود الذي بالملف والموجود أيضا في المشاركة #6 من هذا الموضوع إستبدل كل كلمة Book1 باسم الملف الذي تريد وهي موجودة 3 مرات في الكود مثلا لو الملف إسمه SHAR.xls فيكون الكود كالتالي Sub Shift_Data() ' ' Macro2 Macro ' Macro recorded 09/11/2010 by web Dim file_1 As String On Error Resume Next file_1 = ActiveWorkbook.Path & "\SHAR.xls" 'هنا Workbooks.Open Filename:=file_1 Workbooks("SHAR.xls").Activate 'هنا z = Range("B1", [E1000].End(xlUp)).Rows.Count For j = 1 To z x = "" For i = 1 To 4 x = x & " " & Cells(j, 1 + i) Next i Range(Cells(j, 3), Cells(j, 5)).Clear Cells(j, 2) = x Next j Range("A1", "B" & z).Copy Workbooks("SHAR.xls").Close False 'هنا Workbooks("Book2.xls").Activate [A2].Select ActiveSheet.Paste [A2].Select End Sub مع التحية ASSIGN_Macro.rar
shar قام بنشر نوفمبر 10, 2010 الكاتب قام بنشر نوفمبر 10, 2010 (معدل) في الكود الذي بالملف والموجود أيضا في المشاركة #6 من هذا الموضوع إستبدل كل كلمة Book1 باسم الملف الذي تريد وهي موجودة 3 مرات في الكود مثلا لو الملف إسمه SHAR.xls قصدي يسحب من أي ملف مفتوح مع Book2 على سطح المكتب (مسار مفتوح ) أي بدون تحديد اسم في الكود ... وشكرا تم تعديل نوفمبر 10, 2010 بواسطه shar
طارق محمود قام بنشر نوفمبر 10, 2010 قام بنشر نوفمبر 10, 2010 في هذه الحالة تسجل نسخة من الملف الذي به الماكرو كملحق من ملحقات الإكسل علي جهازك أي Add-In لو كنت تستخدم 2003 فستجد خيار التسجيل هذا في آخر خيارات حفظ بإسم Save As وسينتج عنه نسخة من الملف بامتداد xla وليس xls وستحفظ في فولدر الإكسل وستجد إسم هذا الملف موجود في قائمة الـ Add-In التي تجدها في Tools > Add-In ويكون هذا الملف بما فيه من ماكروهات قيد التنفيذ مع الإكسل بشرط تنشيطه من تلك القائمة
طارق محمود قام بنشر نوفمبر 10, 2010 قام بنشر نوفمبر 10, 2010 يفضل عمل زر إختصار بدل الزر في هذه الحالة قبل تسجيل الملف كما سبق في الشرح إضغط Alt-F8 سيظهر لك اسم الماكرو من Options إختر زر وليكن k مثلا ليسهل عليك استدعاء الماكرو فيما بعد عن طريق ضغط Ctrl مع k
shar قام بنشر نوفمبر 10, 2010 الكاتب قام بنشر نوفمبر 10, 2010 تحت التجربة وسؤال أخير كيف يمكن إحفاء علامات التبويب للأورق في أسفل صفحة برنامج الاكسل وشكرا
طارق محمود قام بنشر نوفمبر 10, 2010 قام بنشر نوفمبر 10, 2010 عفوا لم أفهم إن كنت تقصد إخفاء ظهور اسماء الشيتات من Tools Options View Windows Options إمسح العلامة أمام الـ Sheet Tabs
shar قام بنشر نوفمبر 10, 2010 الكاتب قام بنشر نوفمبر 10, 2010 (معدل) أوفيس 2007 وحاولت من خيارات وإطهار علامات التبويب في المطور ... هل هذه الطريقة أو يوجد طريقة أخرى ؟؟؟ تم تعديل نوفمبر 10, 2010 بواسطه shar
shar قام بنشر نوفمبر 10, 2010 الكاتب قام بنشر نوفمبر 10, 2010 في هذه الحالة تسجل نسخة من الملف الذي به الماكرو كملحق من ملحقات الإكسل علي جهازك أي Add-In لو كنت تستخدم 2003 فستجد خيار التسجيل هذا في آخر خيارات حفظ بإسم Save As وسينتج عنه نسخة من الملف بامتداد xla وليس xls وستحفظ في فولدر الإكسل وستجد إسم هذا الملف موجود في قائمة الـ Add-In التي تجدها في Tools > Add-In ويكون هذا الملف بما فيه من ماكروهات قيد التنفيذ مع الإكسل بشرط تنشيطه من تلك القائمة ------ يفضل عمل زر إختصار بدل الزر في هذه الحالة قبل تسجيل الملف كما سبق في الشرح إضغط Alt-F8 سيظهر لك اسم الماكرو من Options إختر زر وليكن k مثلا ليسهل عليك استدعاء الماكرو فيما بعد عن طريق ضغط Ctrl مع k بصراحة مش عارف الطريقة ولو يوجد ملف مرفق للتوضيح خاصة وأنا الآن أعمل على أوفيس 2007 معليش على الإزعاج وشكرا
طارق محمود قام بنشر نوفمبر 10, 2010 قام بنشر نوفمبر 10, 2010 مرفق فيديو لتوضيح كيفية عمل ذلك عل 2010 للأسف ليس عندي الآن 2007 ASSIGN_Macro2.rar
shar قام بنشر نوفمبر 10, 2010 الكاتب قام بنشر نوفمبر 10, 2010 عزيزي اشكرك على جهدك الرائع في الشرح ولكن يمكن أنا لم استطيع توصيل الفكرة بشكل واضح حيث كان المطلوب : أولا : أن يقوم المفتاح أو الاختصار في ملف الاكسل Book2 بسحب البيانات من المصدر ونقطة الاختلاف هو هذا المصدر فأنا لا اريد أن يكون محدد لا بأسم B00k1 أو Book5 وأنما اريد أن يسحب البيانات من أي ملف مفتوح على سطح المكتب (طبعاً يكون واحد فقط ) ويحتوي على البيانات ذات الخمسة أعمدة أي عام . ثانيا : بالنسبة لعلامات التبويب للأوراق أنا عندي برنامج ذات واجه تحتوي على أزارير وأريد طريقة إخفاء علامات تبويب الأوراق والإكتفاء فقط بالواجه للتنقل عبر الأوراق طبعا الأوفيس 2007 أو 2010 . ثالثت : والأخير هو كيف يمكن تخزين بيانات ملف الاكسل كقاعة بيانات يحتفظ بها داخل الاكسل ويكون مصدرها مثلا جدول داخل البرنامج وذلك بدلا مثلا من أن اقوم بحفظ ملف منفصل كل سنة على حدة وأسف على كثرة الأسئلة والإزعاج ولكم الشكر والتقدير
shar قام بنشر نوفمبر 11, 2010 الكاتب قام بنشر نوفمبر 11, 2010 ملف للتوضيح المطلوب في الفقرة الثانية والثالثة Book10.rar
طارق محمود قام بنشر نوفمبر 11, 2010 قام بنشر نوفمبر 11, 2010 السلام عليكم واحدة بواحدة أولا جرب الملف المرفق أضفت للكود سطر مع مايلزم يسألك عن الملف الذي تريد منه البيانات جرب وأخبرني وبعدين نشوف ثانيا وثالثا Book2.rar
shar قام بنشر نوفمبر 11, 2010 الكاتب قام بنشر نوفمبر 11, 2010 السلام عليكم واحدة بواحدة أولا جرب الملف المرفق أضفت للكود سطر مع مايلزم يسألك عن الملف الذي تريد منه البيانات جرب وأخبرني وبعدين نشوف ثانيا وثالثا ممتاز ولكن اريد أن يسحب من أي ملف مفتوح مسبقا ويكون نشط على سطح المكتب بدلا من كتابة اسم في المربع وشكرا
هادى محمد المامون سالم قام بنشر نوفمبر 11, 2010 قام بنشر نوفمبر 11, 2010 بسم الله الرحمن الرحيم طريقه اخرى للترحيل http://www.officena.net/ib/index.php?showtopic=19642&st=0&p=89651&hl=دفعه&fromsearch=1&#entry89651 السلام عليكم
طارق محمود قام بنشر نوفمبر 13, 2010 قام بنشر نوفمبر 13, 2010 السلام عليكم مازلنا في أولا جرب الملف المرفق أضفت مايلزم للكود ، لن يسألك عن إسم الملف ولن يتحدد باسم الملفات أو عددها سيرحل كل البيانات من جميع الملفات المفتوحة أسفل بعضها في الملف الأصلي لابد ان تكون قد فتحت الملفات قبل بدأ الكود ولايهم ان تكون علي سطح المكتب أم لا المهم أن تكون مفتوحة جرب وأخبرني وبعدين نرجع مرة أخري لثانيا وثالثا Book2_new.rar
shar قام بنشر نوفمبر 13, 2010 الكاتب قام بنشر نوفمبر 13, 2010 ممتاز بارك فيك وهو المطلوب بالفعل ... بإنتظار الثاني والثالث وكل عام وانت والجميع بخير
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.