نسخ البيانات باستخدام الفورم Copy Data By UserForm

[khaled_1960]

اعتقد اننا متتبعون لكل اساتذتنا ومن المهم ان يكون الاصدار في المتناول .. اقصد اعلى تقدير 2007 طالما يمكن 2003 وبالتالي نتفادى زوبعة تعمينا عن مجهودكم وترهقكم وترهقنا

تم أرفاق ملف نسخة 2007

ارجو منك اعلامي بالنتيجة للاهمية

[khaled_1960]

الاخوة الاعزاء    حفظكم الله

بعد معاناه كثيرة نتيجة الغالي الاوفس لدي و تنزيل اوفس 2013 و 2010 و عدم تمكني من تحميل كافة المكتبات

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

و هو

Microsoft Office Home & Student 2010

وهذا بعد تجربة و بالفعل عدت اليه من جديد

فكل شخص عاني في هذا الملف علية محاولة تحميلة و العمل علية

 

تم تعديل أبريل 18, 2015 بواسطه khaled_1960

[ياسر خليل أبو البراء]

اخي الحبيب خالد

لا أعتقد أنه يجب علينا تحميل هذه النسخة لتشغيل الملف ..أنا أعتقد أن المشكلة في المكتبات المضافة على حسب ظني ، لابد وأن هناك طريقة لإضافة هذه المكتبات عن طريق ملفات DLL .هذا والله أعلم

[khaled_1960]

اخي الحبيب خالد

لا أعتقد أنه يجب علينا تحميل هذه النسخة لتشغيل الملف ..أنا أعتقد أن المشكلة في المكتبات المضافة على حسب ظني ، لابد وأن هناك طريقة لإضافة هذه المكتبات عن طريق ملفات DLL .هذا والله أعلم

كلامك صحيح و لكني حاولت أضافتها على اوفس 2013 و لم اتوصل لحل لها حتى الان

عدلت الملف بأسم

New Copy & Paste 2015  هل قمت بتجربتة أرجو منك الرد

[ياسر خليل أبو البراء]

أخي الحبيب خالد

جربت الملف في المشاركة رقم 25 ويعمل بشكل ممتاز ..

 

ولكن ليست المشكلة في عمل الملف الآن ..المشكلة معي ما هي الإضافات الموجودة لديك وكيف تمت إضافتها أقصد References لأنها تقريباً ليس لها علاقة بالإصدار

وأريد حل تلك المسألة حيث أنك طرحت موضوعات أخرى بها نفس المشكلة تقريباً ..

[khaled_1960]

أخي الحبيب خالد

جربت الملف في المشاركة رقم 25 ويعمل بشكل ممتاز ..

 

ولكن ليست المشكلة في عمل الملف الآن ..المشكلة معي ما هي الإضافات الموجودة لديك وكيف تمت إضافتها أقصد References لأنها تقريباً ليس لها علاقة بالإصدار

وأريد حل تلك المسألة حيث أنك طرحت موضوعات أخرى بها نفس المشكلة تقريباً ..

عزيزي ياسر

ادخل الي هذه الصفحة

https://support.microsoft.com/en-us/kb/297381

حمل الملف MSCOMCT2.cab

بعد ذلك أتبع هذه الخطوات

 

1. Extract Both Files | the .inf file and the .ocx file
2. Install | right-click the .inf file | hit "Install"
3. Move .ocx file | Move from "C:\Windows\system32" to "C:\Windows\sysWOW64"
4. Run CMD | Start Menu -> Search -> "CMD.exe" | right-click the icon | Select "Run as administrator"
5. Register Active-X File | Type "regsvr32 c:\windows\sysWOW64\MSCOMCT2.ocx"
6. Open Excel | Open VB Editor
7. Activate Control | Tools->References | Select "Microsoft Windows Common Controls 2-6.0 (SP6)"
8. Userform Controls | Select any userform in VB project | Tools->Additional Controls
9. Select "Microsoft Monthview Control 6.0 (SP6)"
10. Use 'DatePicker' control for VBA UserForm

هذه العملية سوف تضيف لك

• Microsoft Animation Control
• Microsoft UpDown Control
• Microsoft MonthView Control
• Microsoft Date and Time Picker Control
• Microsoft Flat ScrollBar Control

يمكنك أن تبحث في نفس الموقع على الباقي و سوف أحاول أن اساعد ايضا في ذلك

[khaled_1960]

 

أخي الحبيب خالد

جربت الملف في المشاركة رقم 25 ويعمل بشكل ممتاز ..

 

ولكن ليست المشكلة في عمل الملف الآن ..المشكلة معي ما هي الإضافات الموجودة لديك وكيف تمت إضافتها أقصد References لأنها تقريباً ليس لها علاقة بالإصدار

وأريد حل تلك المسألة حيث أنك طرحت موضوعات أخرى بها نفس المشكلة تقريباً ..

عزيزي ياسر

ادخل الي هذه الصفحة

https://support.microsoft.com/en-us/kb/297381

حمل الملف MSCOMCT2.cab

بعد ذلك أتبع هذه الخطوات

 

1. Extract Both Files | the .inf file and the .ocx file
2. Install | right-click the .inf file | hit "Install"
3. Move .ocx file | Move from "C:\Windows\system32" to "C:\Windows\sysWOW64"
4. Run CMD | Start Menu -> Search -> "CMD.exe" | right-click the icon | Select "Run as administrator"
5. Register Active-X File | Type "regsvr32 c:\windows\sysWOW64\MSCOMCT2.ocx"
6. Open Excel | Open VB Editor
7. Activate Control | Tools->References | Select "Microsoft Windows Common Controls 2-6.0 (SP6)"
8. Userform Controls | Select any userform in VB project | Tools->Additional Controls
9. Select "Microsoft Monthview Control 6.0 (SP6)"
10. Use 'DatePicker' control for VBA UserForm

هذه العملية سوف تضيف لك

• Microsoft Animation Control
• Microsoft UpDown Control
• Microsoft MonthView Control
• Microsoft Date and Time Picker Control
• Microsoft Flat ScrollBar Control

يمكنك أن تبحث في نفس الموقع على الباقي و سوف أحاول أن اساعد ايضا في ذلك

 

في حالة استخدامك أوفس 2013

ادخل الي الموقع التالي

https://msdn.microsoft.com/en-us/library/office/ff837594.aspx

و سوف تجد أن شاء الله الحل بشكل كامل

[khaled_1960]

????????????

 

????????????

 عزيزي 

على ما اعتقد أن حل المشكلة يوجد بالصفحة التالية 

https://msdn.microsoft.com/en-us/library/office/ff837594.aspx

[ياسر خليل أبو البراء]

بارك الله فيك أخي الغالي خالد على مثابرتك معي

جربت المشاركة رقم 31 خطوة خطوة

وتمت الخطوات بشكل جيد إلى الخطوة المفترض فيها إضافة Reference المسمى Microsoft Windows Common Controls 2-6.0 (SP6

فلم أجد هذا المرجع ...!!

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

Method or data member not found

[khaled_1960]

 

بارك الله فيك أخي الغالي خالد على مثابرتك معي

جربت المشاركة رقم 31 خطوة خطوة

وتمت الخطوات بشكل جيد إلى الخطوة المفترض فيها إضافة Reference المسمى Microsoft Windows Common Controls 2-6.0 (SP6

فلم أجد هذا المرجع ...!!

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

Method or data member not found

 

الان ظهرت Additional Controls لديك

عند فتح الفورم من VBA هل تظهر عندك TXETBOX

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

و أن شاء تعمل

ملاحظة

عند تنفيذ الاجراءات التي قمت بها يتم تغيرر مواصفات Additional Controls و يمكن ان لا تعمل هذه الايقونات مباشرة على الفورم

في هذه الحالة علية حذفها و اعادة تحميلها ايضا من Additional Controls لكي تأخذ مواصفات و مسار الملف بشكل سليم

[محي الدين ابو البشر]

ال

 

الاخ صلاح و الاخ ياسر

انا غلبتكم معي كثير و لكن صديق لي حضر و معة الجهاز الخاص به و عندة نفس المشكلة

و فعلا هي مشكلة في additional controls نتيجة تحديث معين في الاوفس

وانا الان احاول الوصول لحل لها

ولكن قمت ببعض التعديلات و بالفعل تم تنفيذ الملف على جهاز صديقي بدون مشاكل

أرجو أن يعمل لديكم و لدي باقي أعضاء المنتدي

والحل كان في استبدال TextBox  باستخدام ComboBox

و استبدال CheckBox باستخدام OptionButton

الملف المعدل اتمني أن يعمل لديكم الملف

New Copy And Paste 2015.rar

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

عندي أوفيس 2013 ويمل المرف بشل جيد

برك الله ب وبجهودك وجعها في ميزان أعمالك

[صلاح الصغير]

ا / خالد الملف الاخير يعمل بشكل جيد

 

و لكن هناك ملاحظة هل يجب الخروج من الفورم و الدخول مرة اخرى بعد عمل clear  لاختيار range  اخر 

[مختار حسين محمود]

تم تجربة الملف الأخير  يعمل بنجاح

تم تعديل أبريل 19, 2015 بواسطه مختار حسين محمود

[ياسر خليل أبو البراء]

أخي الغالي خالد ..ملفك خلاني أسطب أوفيس 2013 .. وبعد التجربة من أول مرة اشتغل الملف بشكل عااااااااادي وطبيعي ولا كأن فيه مشكلة

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

يبدو أنه قد حان الانتقال لأوفيس 2013 .. اوعى حد يكون نظره ضعيف ويشوفها 2003

تقبل تحياتي

[رشراش علي]

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

ولكن ملحوظة فقط اتمنى ان لا اكون صاءبا فيها وإن كانت مجدية فلكم الشكر ولله الحمد من قبل ومن بعد واللله يوفقك استاذي.

 

المرفق

يظهر خطاء اذا لم احدد شئ.rar

[khaled_1960]

السلام عليكم

اسف على تأخري في الرد عليكم و ذلك نتيجة مروري بوعكة صحية

الحمد الله على كل شئ

احمد المولي عز وجل ان نسبة عمل الملف الان في تزايد 

بخصوص الملاحظات

لا يوجد داعي للخروج من الفورم و نكتفي بعمل clear و من ثم نقوم بتنفيذ الامر الثاني

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

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

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

فأنت مؤهل للحكم على كل عمل تستفيد منه 

بخصوص الرسالة التي اشرت اليها هي تحدث عند عدم تحديد اي من الاشياء المطلوبة لاتمام عملية النسخ

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

اذا اخطأت في تحديد اي مطلوب او لتنفيذ الامر مرة اخري 

اتمني من المولي عز وجل ان يحفظكم جميعا

 

   

اللهم يا فاتح الابواب ومنزل الكتاب وجامع الاحباب يا الله ارزقهم رزقا
كالامطار حين تصب واجمعهم بكل من يحبون ، وهون عليهم كل صعب ،
واجعل ايامهم عيد يا الله ويومهم سعيد وعمرهم مديد ،واجعل لهم من كل هم
فرجا ومن كل ضيق مخرجا اللهم يا عزيز يا جبار اجعل قِلوبنا تخشع من
تقواك واجعل عيوننا تدمع من خشياك واجعلنا يا ربي من أهل التقوى
وأهل المغفرة وارزقنا الهدى والتقى والعفاف" .. آمين

 

   

تم تعديل أبريل 20, 2015 بواسطه khaled_1960

[صلاح الصغير]

ا / خالد 

حضرتك لم تجيب على سؤالى

فى حالة عمل مسح لا يمكن تحديد نطاق اخر 

[khaled_1960]

ا / خالد 

حضرتك لم تجيب على سؤالى

فى حالة عمل مسح لا يمكن تحديد نطاق اخر 

الاخ الفاضل/ صلاح الصغير

أسف جدا جدا لم اشاهد ملاحظتك 

هذه ليست مشكلة في الملف و لكنها نتيجة خصائص مكونات الفورم

من عيوب ComboBox انة لا يقبل اعادة التحميل بسهولة 

لكي تعمل هذه الخاصية بالملف لديك

ادخل علي UserForm

أستبدل Combobox عدد 2 باستخدام عدد 2 textbox

لا تنسي ان تعدل الاسماء داخل الكود

وسوف يعمل الملف معك

ملاحظة اول ملف قمت بتحميلة كان باستخدام TxtxBox

و لكن نتيجة بعض الملاحظات و لكي يعمل الملف عند بعض الاشخاص تم تعديلة

و من أجل عيونك هذا الملف معدل

اخيراً أكرر أسفي لك عن عدم ملاحظتي ما طلبت

 

              New Copy And Paste 2015.rar      

[صلاح الصغير]

ا / خالد

لا داعى ابدا للاسف

و كده الملف تمام و فى انتظار ابداعات اخرى

[khaled_1960]

ا / خالد

لا داعى ابدا للاسف

و كده الملف تمام و فى انتظار ابداعات اخرى

الف شكر لك

الان انا في مرحلة اعداد عدد 2 ملف جديد

الاول تفقيط الارقام مع أمكانية تغيير اللغة حسب الرغبة

الثاني خاص بشركات المقاولات عمل مستخلصات جارية

أن شاء في القريب يتم انجازهم

[رشراش علي]

الحمد لله على عودتك والفظل والمنة له،