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

لم تشير الى اي شيء اسمه حدف عندما تقوم بالغاء اختيار checkbox اطلاقا ليس من البديهي ان ارى ما في داخل محرر الاكواد واتابعه سطر بسطر واسالك ماذا يفعل الكود . هنا اتعامل عن تركيبة البيانات في الورقة واليوزرفورم ثم تنشر النتائج المتوقعة كيف تكون في كل حالة . لذلك لا تستغرب ان لا احد ينظر الى موضوعك وتكرره اكثر من مرة دون ابداء اي استعداد منك لمراجعة ملفك ونشر مزيد من التفاصيل . على الاقل لماذا لم تحاول حتى محاولة من خلال قراءة كود @Mohamed Hicham لتفهمه كان من الممكن فعل ذلك من خلال فكرة بسيطة . في موديول اليوزرفورم Private Sub ForAllCheckBoxes(ChkBox As Control) Dim fndHead As Range With sh2 Set fndHead = .Rows("1:1").Find(What:=ChkBox.Caption, LookAt:=xlWhole) If Not fndHead Is Nothing Then .Columns(fndHead.Column).Delete End With End Sub وقم باستدعائه لكل واحد منهم من حدث التشيك بوكس مع مراعاة رقمه If .Value = False Then Call ForAllCheckBoxes(CheckBox1)

ضع هذا الشيء في نهاية كودك 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