عبدالفتاح في بي اكسيل

ضع  هذا  الشيء  في  نهاية كودك 

Me.TextBox1.SetFocus

اتمنى ينجح  معك  لانه  عمل  معي 

data2.xlsm

هل هذه الصيغة  التي  تريدها ؟ 

23/12/2022

لانك  تكتب  ارقام  لا  اعرف اين  الشهر  واليوم

حسنا  

ارفق  الملف  الذي  تعمل  عليه  الان  .  اريد  ارى  شيئا   اتمنى  ان  ينجح ذلك 

حينها  غيرها  في  الاسطر  التي  اعطيتك  ايه   

اعذرني  لا ادري  كيف  اخطات   في  الصيغة بهذا  الشكل 

ولكن  حتى  لو كان  بالاسبانية   ماهي  صيغة  التاريخ  لديك  بالجهاز ؟

هل  هي  كما  في  الفورم  D/M/YYYY ؟

@Alaaq3  هل  قرات توقيعي في  الاسفل  حتى تطلب  متطلبات جديدة .

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

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

كان  وجب  عليك  اضافة كل  تفاصيلك  بدلا  من  كل  مرة  تطلب  شيء .

تحياتي .

هل  نزلت الملف الاخير  الذي  اعطيتك  اياه  ام  قمت  بتطبيقة  على ملف  مشاركتي  السابقة  ، لا ن هناك  اختلاف  في  تنسيق  التاريخ  في  الاعمدة للملف  السابق.

بناء  على  اخر  ملف   البرنامج  شغال  معي  واخترت اسم  اخر  انظر  الى الصورة .

جرب  هذا  الملف  ..لقد  تم  وضع  زر  لمسح  بيانات  الورقة  الثانية اذا  اردت  بدء  العملية من جديد

check column (1).xlsm

اعطني  اسماء  التيكست بوكس  التي  بها  التاريخ  لا  تظهر  لي  عند  الدخول  لمحرر  الاكواد   ليس  لدي  الوقت  للبحث  عنهم .

هل  التاريخ  يعتمد  على  تاريخ  اليوم عند  الادخال ؟

حسنا  الموضوع  ليس  كما  تصورت   من  خلال  الكود  يبدو  انه رقم 7 , 8  يقوم  باضافة  التيكست بوكس  اوتوماتيكيا  عند  تشغيل  اليوزرفورم  ، هذا  معقد  بعض  الشيء  ، كانت العملية شاقة بالنسبة لي حتى ارى جميع  الاكواد  ولا انصح  بها  لان  لااحد  سيقوم بمراجعة  مجموعة اكواد  . من  الوهلة  الاولى سيتم  البحث  عن رقم  التيكست بوكس  ولكن  لن  يتم  ايجاده  بهذه  الطريقة  .اعتقد  ان هذا  سينجح  معك 

تم اضافة سطرين  في  حدث  UserForm_Initialize() في  نهاية  الكود 

Me.Controls("textbox" & 7).Value = Format(Me.Controls("textbox" & 7).Value, "d /m / yyyy")
Me.Controls("textbox" & 8).Value = Format(Me.Controls("textbox" & 8).Value, "d /m / yyyy")

data.xlsm

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

@ابواميمةجرب هذا واعلمني 

data.xlsm

ولكن كله نفس  التاريخ ،  لماذا تحتاج  الى تحديد تاريخ ؟

احرص على ان  كل  الارقام تحتوي على Bytes   ..جرب هذه المعادلة  C50

=SUMPRODUCT(SUBSTITUTE("0"&C2:C49,"Bytes","")+0) & "Bytes"

شكرا استاد محمد  اعلم  انه  غير  متوفر  ، فقط  مجرد  اقتراح  ان  امكن  الفريق  التقني للموقع  اضافة هكذا  خيارات تساعد  الاعضاء   كثيرا  .

@خالد الشيخ لا فائدة من ان تنشر كود  ناقص   . اجدر بك  انك  وضعت  ملفات   ووضعت  النتائج  الذي  ترجوها  بدلا  من  وضع  كلام  عامي   لا  احد  سينظر  اليه  . 

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

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

تذكر  دائما  قبل  ان  تنشر  موضوع  وجب  عليك  وضع  تفاصيل  كاملة  وغير  ناقصة حتى تحصل  على فرصة اكبر للمساعدة

تحياتي .

السلام عليكم 

نتمنى من  الاخوة القائمين  على  هذا  الموقع  الرائع   ان تتم  اضافة  مزيد الخيارات  عند  ادراج  الكود . فمثلا  عند  الاشارة الى  سطر  معين  من  الكود  لتوضيح  المشكلة للسائل  عادة  نقوم  باستخدام  B  لتغليظ  السطر  المعني او تلوين عن طريق A     ولكن للاسف غير موجود  اي  خيارات عند  اظهار  المربع  الحواري  للكود كما  في  حالتي  الان  عندما  اريد جذب  انتباه لجملة  محددة  عن طريق  تلوينه  بلون  مخالف  او تغليظها اثناء  كتاب  هذه الرسالة    . 

تحياتي .

ولماذا لا تقول  ما  هي  مشكلتك ، هل  يوجد خطأ  ام  لا يظهر  شيء؟

ولماذا لا تشرح الية عمل برنامج  البحث  يتم عن اي  عمود , هل  علينا  ان  ندخل داخل  البرنامج ونراجع سطر  بسطر  حتى  نعلم كيف  يعلم  البرنامج؟

تذكر  دائما  نشر  التفاصيل  كاملة لموضوعك تجعل  فرصة  اجابة  الاعضاء  لك كبيرة جدا .

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

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

isearch = Worksheets("sheet4").Range("a1").CurrentRegion.Rows.Count

عندما  تريد  ان تشير  الى اسم  الصفحة  اما  ان تستخدم   Worksheets("sheet4") او  sheet4  على حسب  التسمية  الموجودة  حيث  كل  طريقة  بها  اسم  مختلف  يمكن ان تلاحظه من داخل محرر الاكواد وانت  في  كودك  اشرت الى sheet4 باستثناء  السطر  الذي  به  الخطا ، حينها تغير  الى هذا 

isearch = sheet4.Range("a1").CurrentRegion.Rows.Count

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

بناء  على  النواة  التي  عندك  

ضعه  في  هذا  الامتداد  

C:\Windows\SysWoW64

ونفذ  باقي  الخطوات .

يتضح  من  الرسالة  ان  الملف  غير  موجود  في  هذا  الامتداد  الذي  تحاول  الوصول  اليه .

هل  قمت  بفك  الملف   الى  امتداد  النظام  الصحيح   حسب  الارشادات في  الرابط وما  نواة  النظام  لديك  هل 64bit؟

اطلاقا  لست  بحاجة  ان  تصمم  ورقة لكل  فريم  فقط  تقوم  بتعيين  رقم  الفورم  من  خلال  اجراء  معين  من  خلال  حلقة  تكرارية   لكل  الفريمات  ثم  تقوم  باختيار  الفريم  الذي  تريده   عن  طريق   checkbox  او  optionbutton   لورقة  واحدة  فقط  يتم  تخصيصها  للطباعة   ، ثم  لماذا  تستخدم  كل  هذه  الفريمات ؟

قريم  واحد  فقط  لاي  عدد  من  الاوراق    فقط  تقوم  بحلقة  تكرارية  لكل  الاوراق  من  خلال  فريم  واحد    يتم  جلب  الورقة  المحددة  داخل  نفس  الفريم  بناء  على  الكومبوبوكس .تحياتي .

لا اعتقد  انه  مشكلة  كما  ان  يبدو  انك  لم  تفهم  علي ، ما  قصدته  ان  تنشيء ورقة  مساعدة  متخصصة  بطباعة  ما  يظهر  باليوزرفورم سواء  كانت  بيانات  ورقة  او عدة  اوراق .

مجرد محاولة 

OfficinaExample(3).xlsx

اذا كنت  لاتريد  اظهار  اليوزرفورم   كله  لا  حاجة لليوزرفورم استعين  بورقة لطباعة بيانات محددة من خلال  تحديد خلايا  محددة ، ثم  ما  الهدف  والفائدة من وراء ذلك؟