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

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

@محمد صغير شعبان ما الهدف منه؟ اليست بوكس يقوم بنفس الشيء !

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

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

هذا يعني في كل الاحوال يجب ان تكون قيمة التيكست بوكس 2 =0 نرجع الى نقطتنا الاولى وهو انه لا داعي لعملية الجمع ! لا يوجد اي فائدة من التيكست بوكس2 ، فيما تستخدمه؟ اعذرني حاولت ان افهم ما المغزى من ذلك ربما احد الاعضاء يفهمك تحياتي

لا ارى اي شيء جديد اضفته اذا كان لديك 8 تيكست بوكس حينها ما عليك الا استبعاد تيكست بوكس2 اين الصعوبة في هذا؟

بكل بساطة الغي عملية الجمع اذا كنت تريد تجاهل التيكست بوكس 2 فلماذا اصلا تقوم بعملية الجمع ! التيكست بوكس 3 ماذا سيجمع ؟ السؤال غير منطقي على الاطلاق الا اذاكان لديك قصد أخر فعليك توضيحه .

@dodo222 هل جربت الكود الذي اعطيتك اياه ؟ هل هناك مشكله بالكود؟ يجب ان توضح ماذا حدث معك بعد تنفيذ الكود

مجرد تخمين Sub kh_RngProper() Dim Cel As Range Dim ws As Worksheet For Each ws In Worksheets For Each Cel In ws.UsedRange Cel.Value = StrConv(CStr(Cel), vbProperCase) Next Next ws End Sub

كان من الاجدر ان ترفق ملف مادام اقتراح @hassona229 ليس ما تريده حينها ستضطر العمل مع كود معين . لا اعلم اذا فهمتك جيدا هذا الماكرو سيقوم بالبحث في كل الاوراق عن الخلايا التي تحتوي على فاصلة بدون اختيار اي خلية Sub Replace_marks() Const MCOMMA = "," Const MDOT = "." Dim ws As Worksheet For Each ws In Worksheets ws.UsedRange.Replace MCOMMA, MDOT, xlPart Next ws End Sub

اقرا تعليقي جيدا سوف تفهم ما عنيه .

ليس بالفكرة السديدة اظهار رسالة اذا كانت بيانات كثيرة لانه لديها حد معين في اظهار البيانات. اقتراحي لك ان تصمم يوزفورم بدلا من ذلك . تحياتي .

قبل ان تطلب اي تعديل وجب عليك قراءة التوقيع جيدا لات هذا اهدار للوقت. جرب هذا التعديل في الرسالة MsgBox ("it's already existed!" & wks.Name)

جرب هذا الملف و لاتقم بضغط الملف تجنبا لاهدار الوقت منع تكرار الاسم.xls

@Abu_Muhsen هل من المعقول ان انتظرك اسبوع حتى ترد . انا اعرف شيء واحد من اراد المساعدة عليه متابعة الموضوع والرد على تساؤلات الاعضاء بشكل سريع . الظاهر من الرسالة انه تم ادراج الاداة ، حقيقة نفذت عندي الخيارات . بعد ادراج الاداة اعيد تشغيل الجهاز وانظر ماذا يحدث واذا لم ينجح الامر . قم بوضع اختصار من برنامج الاكسيل على سطح المكتب وانقر على اليمين ثم من نافذة التوافق لست متاكد جرب خيار نظام xp او win7 ثم تطبيق وموافق . امل ان يفيدك ذلك .

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

@صياد الجراح اعتقدت لقد حصلت على اجابة بناء على منشورك #7 ولكن يبدو انه تم تصميم برنامج يختلف عن منشورك الاصلي . هذا تعديل ابسط مما تتصور وتستطيع فهم كودك بتعديلات بسيطة . Private Sub CommandButton2_Click() Dim ls As Integer Dim ss As Integer, EDt As Date With Me.ListBox1 .ColumnCount = 5 .ColumnWidths = "103;103;103;103;103" .TextAlign = fmTextAlignCenter End With ls = Sheet1.Range("D" & Rows.Count).End(xlUp).Row Me.ListBox1.Clear 'convert text to date EDt = CDate(Me.TextBox1.Text) With Sheet1 For ss = 2 To ls If .Cells(ss, "d") <= EDt Then Me.ListBox1.AddItem .Cells(ss, 1) Me.ListBox1.List(ListBox1.ListCount - 1, 1) = .Cells(ss, "b") Me.ListBox1.List(ListBox1.ListCount - 1, 2) = .Cells(ss, "c") Me.ListBox1.List(ListBox1.ListCount - 1, 3) = Format(.Cells(ss, "d"), "mm/dd/yyyy") Me.ListBox1.List(ListBox1.ListCount - 1, 4) = .Cells(ss, "e") End If Next ss End With End Sub

@Rahem مجرد فضول ولكن لا اعتقد ان المعادلة ستنفع في هذه الحالة اذا صادف اكثر من اسم لنفس اخر تاريخ به حضور !!

نعم هذا ما قصدته وهذا ما فهمته منك ان لديك مشكلة في اظهار كافة الاعمدة .

لم تبحث جيدا ولم تجيبني على مشاركتي الثانية . ماذا يعني لك هذا الجزء Me.ListBox1.AddItem عندما قلت لك يجب ان تشير الى رقم العمود بالليست بوكس ؟

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

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

السؤال الذي يطرح نفسه هل قلت يجب الحدف عند الغاء checkbox لم تشير اليها اطلاقا في شرحك . من قال لك من البديهي ايضا الغاء الاجراء يمكن استخدامه في امور كثيرة ماذا لوكان عند الغاءه يتم الحفاظ عليه ماذا لو عدت لاختياره يقوم بنسخ متكرر كل هذه الامور لم توضحها . هل يجب ان اخمن ما يدور في عقلك . اذا كنت تُصر على ان موضوعك واضح ، اعذرني لقد اخطأت بالدخول الى الموضوع الخاطئ ولن اخوض في مواضيعك مستقبلا . تحياتي .

شكرا استاد محمد على هذا التوضيح .

لم تشير الى اي شيء اسمه حدف عندما تقوم بالغاء اختيار 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)