ابو تميم

بسيطة ضع الكود فقط في Thisworkbook وسيعمل على جميع أوراق العمل بدون استثناء

دمت في حفظ الله أستاذي ابو نصار في بداية الأمر أعطاني نفس الخطأ السابق ولكن قمت بإضافة السطر التالي لتجاوز الاخطاء في بداية الكود On Error Resume Next وفعلا بعد إضافة هذا السطر لم يعطيني خطأ وتم مسح الصور بشكل ممتاز ولكن هنا يعطيني مشكلة بسيطة أعتقد حلها سهل بالنسبة إليكم أستاذنا وهذه المشكلة هي انه عند مسح أول صورة يعطيني الرسالة ( لاتوجد ملفات في المسار ) وبعد الضغط على Ok يتم مسح الصورة بشكل سليم ولكنه لا يقوم بتسميتها ويبقى اسم الصورة فارغا ( " " ) وفي هذه الحالة عندما أقوم بمسح صورة أخرى يتم مسحها بدون مشاكل ولكنه هنا يقوم بمسح الصورة الجديدة واستبدال الصورة السابقة التي بدون اسم ولا يبدأ بالترقيم إلا إذا قمنا بإعطاء الصورة الاولى رقما معيناوبعدها يبدأ البرنامج بالترقيم بناء على هذا الرقم فإذا وضعنا الصورة الأولى بالرقم 1 يكون رقم الصورة الثانية هو 2 وإذا كانت الصورة الاولى 50 تكون الصورة الثانية 51 وهكذا الخلاصة : الترقيم يكون صحيح مئة بالمئة ولكن مشكلتنا بقيت في الصورة الاولى فقط وهي التي يكون اسمها فراغ وتتبعها باقي الصور بدون أسماء ويتم استبدال الصورة الموجودة دائما بالصورة الجديدة وهنا دائما يكون لدينا في المجلد صورة واحدة فقط عذرا على الإطالة جزاكم الله خيرا

شكرا جزيلا أستاذ ابو نصار جربت الكود بداية الأمر أعطاني خطأ على السطر التالي في بداية التشغيل وقمت بإزالته من الكود وبعدها اشتغل الكود بشكل طبيعي : .Properties("6152").Value = 1167 ولكنه لا يبدأ في العمل حتى يتم وضع صورة في المجلد المسار C:\Ali ثم يبدأ في العمل ويقوم بمسح صورة واحدة فقط ويسميها M_A وبعد ذلك لا يمسح أية صورة أخرى ويعطي خطأ على النقطة x(i) = M_v(i) أرجو التكرم بالتعديل إذا توفر لديكم الوقت جزاكم الله خيرا علما أني أريد تسمية الصور بأرقام تسلسلية تبدأ من الرقم 1 جزاكم الله خيرا

جزاك الله خيرا أستاذ رجب تقبل مروري وتحياتي

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

درر أستاذ ابو نصار سلمت يداك فعلا كود مميز قمت بتطبيقه وهو يعمل أسرع من الكود القديم بألف مرة حتى أني لا انتبه إلى أنه تم تحميل الصورة على الجهاز بهذه السرعة ولكن لدي سؤال على هذا الكود هل يمكننا التعديل على المود بحيث يكون حفظ الصور في المسار المحدد بحسب تسلسل أرقام أي أنه يبحث في المسار على أكبر رقم موجود ويتم الرقم التسلسلي الذي يليه ثانيا : في حال نقل الملف من جهاز إلى جهاز آخر هل يجب إدراج وتفعيل المكتبة جزاكم الله خيرا

up

تحية طيبة في المرفقات ملف اكسل يحتوي على كود يعمل على استدعاء السكانر ( الماسح الضوئي ) داخل الاكسل لمسح صورة معينة وحفظها على الجهاز هل يمكن التعديل على الكود بحيث يمكننا من تحديد مكان الحفظ على الجهاز وتحديد الاسم الذي ستحفظ فيه الصورة على الجهاز حيث ان الكود يعمل فقط على استدعاء السكانر وباقي الأمور تتم يدويا جزاكم الله خيرا scan2Excel1111.rar

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

روائع أستاذنا الكبير عبد الله باقشير وأيضا يعمل الملف على ويندوز 7 بشكل ممتاز جدا جزاك الله خيرا

في المرفقات مجلد يحتوي على ملفين اكسل وكل ملف يحتوي على فورم مسمى باسمه المطلوب هو عندما اكون أعمل على ملف رقم 1 وأفتح الفورم الخاص به وأضغط من الفورم ( فتح الملف الثاني ) يتم الانتقال إلى الملف الثاني وفتح الفورم الخاص به بدون إغلاق الفورم الاول أي أن الفورم الأول يبقى قيد العمل ويأتي فوقه الفورم الثاني ( أي يكون الفورم الثاني إلى الأمام والفورم الأول إلى الخلف ) وبحيث يكون الملف الفعال هو الملف الثاني ( ويمكن أن يتم تصغير الفورم الأول والإبقاء على الفورم الثاني بشرط ان يتم إعادة فتح الفورم الأول عندما يتم الضغط على إغلاق الفورم الثاني .... وبحيث لا يتم إغلاق الفورم الاول نهائيا أثناء عمل الفورم الثاني ) والعكس ... عندما اكون في الملف الثاني وأضغط من الفورم الثاني على زر ( فتح الملف الأول ) يتم الانتقال إلى الملف الأول ويكون الملف الأول هو الفعال والفورم الأول هو الفعال ( وهنا لا يشترط تصغير الفورم الثاني عندما يتم الانتقال إلى الفورم الاول والملف الاول وهنا يجب إغلاق الملف الثاني والفورم الثاني عندما يتم الضغط على close في الفورم الثاني ) أرجو أن يكون السؤال واضحا جزاكم الله خيرا Forms2File.rar

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

أيضا استفسار آخر لو تكرمتم <<< مهم جدا >>> هل يمكن ربط الكود الأول الذي موقعه حدث الورقة ويكون في موديول بدل من حدث الورقة ؟؟؟؟؟ جزاكم الله خيرا

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

أستاذنا العزيز ابو نصار بعد تجربتي للكود ومحاولة تحليل خفاياه لتطبيقه على ملف العمل عندي وجدت الملف يحتوي على أمور غامضة حاولت تعديل الكود وتغيير نطاق النسخ واسم الملف الذي يتم النسخ إليه ولكن واجهتني صعوبة في التطبيق أرجو التكرم بتوضيح الأمور التي يجب علي تعديلها بحسب حاجة الملف عندي والأمور التي أرغب بتوضيحهاهي ما يلي ==== في الملفات التسلسلية ======= 1. أرغب بتغيير المكان الذي يتم فيه تحديد الرقم 1 لنسخ القيمة المطلوبة وهي هنا D1 .... أنا عدلتها في الملف ولكن للتاكد أرجو توضيحها على الكود 2. تعديل مكان الخلية التي يتم النسخ منها وهي هنا C1 أرغب بتغييرها إلى M1 مثلا أو غيرها بحسب مستجدات الملف ====== في الملف main ======== 1. الورقة التي يتم النسخ إليها .... أنا حاولت في الملف ولكن لم أستطع تحديد الورقة التي يجب النسخ إليها ... وهل مسار الملف له علاقة ... وأيضا هل اسم المجلد DB له علاقة في الكود ؟؟؟؟ 2. في الجدول إذا وضعنا في الملف التسلسلي رقم 1 في الخلية D1 اكثر من مرة يتم تكرار قيمة الخلية C1 في الجدول أكثر من مرة ... أرجو بعد إذنك تعديل الكود بحيث لا يسمح بتكرار نفس القيمة في الجدول وإشعار المستخدم بوجود الملف في الجدول فإذا رغب المستخدم بالتكرار يتم ذلك وإلا لا يتم تنفيذ الكود ================ أرجو أستاذنا ابو نصار التكرم بشرح بنود الكود داخل الكود نفيه لو تكرمت لأن الكود بالنسبة إلى شخص جديد في عالم الاكواد مثلي فهو صعب جدا ولا يمكنني تحليله بالطريقة التي تم تصميمه بها وهذا الكود لا يفهمه إلا شخص عملاق في هذا المجال مثلكم أستاذنا الكبير أعلم أني أزعجتك بطلباتي فاعذرني جزاك الله خيرا دمتم بالصحة والعافية

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

جزاك الله خيرا أستاذ عباد حتى الآن العمل ممتاز جدا وتم تنفيذ المطلوب الأول وهو نسخ قيمة الخلية C1 عند تحقق الشرط وهو وجود الرقم 1 في الخلية D1 أما الشرط الثاني وهو حذف القيمة السابقة للملف المحدد من الجدول في الملف main فهو يكون كما يلي في الملفات التسلسلية تكون قيمة الخلية D1 إما 1 , 0 فإذا كانت 1 يتم تنفيذ الكود الاول وهو نسخ القيمة C1 إلى الجدول في main أما إذا كانت قيمة الخلية D1 = 0 يتم حذف قيمة الخلية C1 الخاصة بالملف من الجدول ويتم سحب الجدول في main إلى الأعلى بحيث لا يبقى فراغات في الجدول أما من ناحية التكرار فهو مستحيل لأن قيمة الملف إما أن تكون 1 , 0 وبهذا الحالة لا يمكن التكرار لأن وجود الملف نفسه في الجدول أكثر من مرة يعني إرسال نفس الملف إلى المصدر التالي بعدد مرات تكراره في الجدول أرجو أن يكون الرد واضح وجزاك الله كل الخير

up

تحية طيبة في المرفقات مجلد يحتوي على ملف اكسل اسمه main ومجلد اسمه DB والمجلد يحتوي على ملفات اكسل مرقمة تسلسليا المطلوب في ملفات الاكسل داخل المجلد DB إذا كانت قيمة الخلية D1 في الملف = 1 يتم جلب / نسخ قيمة الخلية C1 من هذا الملف وكتابتها في ملف الاكسل الذي اسمه main بحيث يكون العمل في الملف main ضمن الجدول المحدد في الملف ويكون مداه العامود كاملا وبشرط أن تتم الكتابة بدون وجود فراغات في الجدول أي أني لا أريد أن أربط خلية معينة من الجدول بملف محدد وإنما تكون الكتابة في الجدول بشكل متسلسل وفي حال اختلاف الشرط في أحد الملفات يتم حذفه من الجدول في الملف main وهكذا المهم أن يكون الجدول في الملف main لا يحتوي على فراغات ( خلايا فارغة ) ضمن العمود علما أن النقل يكون أثناء وجود الملفين مفتوحين معا أي أن العمل على الملفين سيكون بنفس الوقت أي أنه لا يوجد ملف منهما مغلق وأيضا العمل لا يقتصر على الملفات الخمسة في المجلد DB أي أنه يمكن أن تتكاثر هذه الملفات في المجلد وتتزايد يوميا أرجو أن يكون السؤال واضح جزاكم الله خيرا mainbook.rar

تحية طيبة أحتاج نسخة Virtual pc- windows 7 64-bit ويفضل أن يكون رابط تحميل مباشر غير رابط مايكروسوفت الذي يطلب تنزيل ملف التحقق من نسخة الويندوز قبل تنزيل البرنامج وحبذا لو كان الرابط شغال والنسخة مجربة جزاكم الله خيرا

حتى الآن العمل ممتاز جدا أخي ابو حنين جزاك الله خيرا نحن هنا عرضنا الملفات المطلوبة وحددنا أحجامها عند الاختيار ولكن الآن المشكلة هي عندما أختار ملفات بحسب الحجم المطلوب أحتاج إلى ترحيلها وإزالتها من قائمة الاختيار أو حتى حذفها أي أنني عندما أختار المفات لا أستطيع العمل عليها بعد ذلك ولا يمكنني إعادة الاختيار مرة أخرى ولا أستطيع الترحيل أو إجراء ملاحظات عليها ببساطة أنا اخترت الملفات ذات الارقام 1 و 2 مثلا ومجموع أحجامها وصل إلى الحد المطلوب أحتاج إلى إزالتها من قائمة الاختيار واختيار ملفات أخرى وترحيلها ولنفترض حاليا أني أحتاج إلى ترحيلها إلى مجلد آخر اسمه DATA2 بنفس المجلد وبهذه الطريقة نحن أخرجناه من قائمة الاختيار ويمكننا اختيار ملفات أخرى وترحيلها وهكذا ملاحظة أخرى : عندما نقوم باختيار ملفات لا يمكننا معرفة أرقامها ويظهر لدينا في المربع الثاني فقط أحجام الملفات أرجو أن تكون الفكرة واضحة ولكم جزيل الشكر والاحترام

up

تحية طيبة أستاذنا القدير عبد الله باقشير بعد تجربتي للملف وتطبيقه على ملفاتي لاحظت ما يلي الطريقة تم تطبيقها على أكثر من امتداد xlsm , xlsb فوجدتا على امتداد xlsm تعمل بشكل ممتاز كما هو لديكم أما على امتداد xlsb فهو يعمل أيضا ولكن في هذا الامتداد تظهر لدينا أوراق العمل ويمكن العمل عليها قبل تفعيل الماكرو وبعد الضغط على تفعيل الماكرو يختفي الملف ويظهر لدينا فورم كلمة المرور ويعمل باقي الكود بشكل طبيعي هل يمكن التعديل على الكود بحيث أنه لا يظهر الملف في امتداد xlsb جزاكم الله خيرا

أخي ابو حنين مع تعديل الكود أصبح الفورم لا يعمل نهائيا أعتقد أن العبارة Set Files = Application.FileSearch في الكود غير متوافقة مع الأوفيس عندي وهي تعمل فقط على أوفيس 2003 أنا أعمل على أوفيس 2010 شكرا لتعاونكم

شكرا جزيلا أخي ابو حنين بالنسبة إلى الملف يعطيني خطأ كما في الصورة المرفقةوهو لا يعمل أما بالنسبة إلى الترحيل فهو هنا فقط لإعطاء خيار للبدء بتحديد ملفات جديدة و وضع ملاحظة بجانب الملفات التي تم ربطها سابقا أي أنه كلما حددنا ملفات و وصل حجمها إلى 2MB عندها لا نستطيع تحديد ملفات جديدة حتى يتم الضغط على زر ترحيل البيانات المحددة وظهور رسالة تم التترحيل و وضع ملاحظة لدى الملفات أنها تم ترحيلها وهذا الخيار في ملف العمل سيتم استبدال كود الرسالة بكود آخر يقوم بإرسال الملفات المحددة عبر الايميل بدلا من ظهور رسالة تفيد بأنها تم ترحيلها