khaled_1960

السلام عليكم

أرجو وضع الملاحظات من أجل اكتمال العمل

السادة اعضاء المنتدي   حفظهم الله

السلام عليكم

مرفق ملف لعمل مستخلصات للمشاريع

جميع البيانات يتم اضافتها عن طريق الفورم

امكانية اضافة أي عدد من المستخلصات

أرجو من الجميع تجربة الملف و اعطائي الملاحظات لكي يتم انجاز العمل بشكل كامل

المرفقات

=================

Payment.rar

=================

ا / خالد

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

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

الف شكر لك

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

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

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

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

ا / خالد 

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

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

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

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

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

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

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

ادخل علي UserForm

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

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

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

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

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

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

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

              New Copy And Paste 2015.rar      

السلام عليكم

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

جربت المشاركة رقم 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 لكي تأخذ مواصفات و مسار الملف بشكل سليم

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

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

 عزيزي 

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

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

 

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

جربت الملف في المشاركة رقم 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

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

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

جربت الملف في المشاركة رقم 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

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

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

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

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

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

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

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

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

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

و هو

Microsoft Office Home & Student 2010

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

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

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

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

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

أخي العزيز رشراش علي

تفضل الملف على أكسل 2007

Excel 2007 Copy And Paste 2015.rar

أرجو منك تجريب الملف و أعطائي النتيجة أنا في أنتظار رد منك للاهمية

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

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

أول رسالة عند فتح الملف ..

Couldn't load some objects because they are not available on your machine

معنى الكلام إن فيه بعض الكائنات مش موجودة عندي على جهازي .. طيب ايه هي طبيعة الكائنات ..

هل هناك إضافة يجب إضافتها أو مرجع Reference ؟

أرجو منك مشاهدة الملف الاخير و اعطائي النتيجة لو سمحت ولك جزيل الشكر

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

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

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

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

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

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

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

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

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

New Copy And Paste 2015.rar

الاخ صلاح الصغير

الاخ ياسر

حفظهم الله

لقد قمت بأزالة الاوفس من الجهاز عندي و تحميل اوفس 2013 بروفيشنل

و الملف يعمل ايضا بشكل جيد مع العلم بأن أيضا additional controls  لا تستجيب عندي

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

لكي اشاهدة و اتابع معكم

قد يكون اختلاف النسخة هو السبب في عدم عمل الملف عندي ..

عموما ننتظر أيضاً ردود الأخوة الذين لديهم نفس الإصدار ليقرروا إذا ما كان الملف يعمل أم لا

شاهد هذه الصفحة 

http://davaohandymom.blogspot.com/2013/05/solution-to-missing-not-showing.html

انا عندى اوفيس 2013

و الملف لا يعمل عندى ايضا

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

علما بان نفس ال dll دى موجودة عندى فى نفس الفولدر و لكن من داخل الاوفيس عند الظغط على additional controls لا يستجيب

و اعتقد ان مشكلة additional controls اثيرت قبل ذلك

 

و الله اعلم

http://davaohandymom.blogspot.com/2013/05/solution-to-missing-not-showing.html

أنا استخدم برنامج

Microsofft 2010

في هذا السطر

Me.txt_Copy

method or data member not found

أعتقد أن المشكلة الآن متعلقة بالكائن المستخدم في الفورم ..

يرجى الإفادة

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

الاخ ياسر المحترم

فكرة الملف كما يلي

انشاء UserForm بأسم Copy_Paste

انشاء عدد (2 )    -             Text Box

TextBox1 Name = txt_Copy

TextBox2 Name = txt_Paste

أنشاء عدد (3)  -                        CommandButtom

CommandButton1 Name = cmdCopy

commandButton2 = cmdClear

CommandButton3 Name = cmdExit

أنشاء عدد 6         -    CheckBox

ChekBox1 Name = ch_Value

CheckBox2 Nmae = ch_Cl_Width

CheckBox3 Nmae = ch_Skip_Blanks

CheckBox4 Name = ch_Formals

CheckBox5 Name = ch_Transpose

CheckBox6 Name = ch_Copy_All

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

لا تنسي اضافة عدد 3   -   Label

أرجو أن تخبرني بالنتيجة وأرسال الملف لي 

السادة الكرام

هذا كل ما استخدمة

ثاني صورة هي استكمال للصفحة الاولي

في هذا السطر

Me.txt_Copy

method or data member not found

أعتقد أن المشكلة الآن متعلقة بالكائن المستخدم في الفورم ..

يرجى الإفادة

Me.txt_Copy = txtxbox

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

 

فيه رسالة خطأ في هذا السطر

Sheet(1).Select

أعتقد يجب أن يكون

Sheets(1).Select

صحيح