سعيد 1428

السلام عليكم الا يوجد رد على هذا الموضوع أيها الاخوة الكرام

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

أيها الإخوة الكرام السلام عليكم ورحمة الله مرفق لكم ملف اكسيل يحتوي على يوزر فورم أريد المساعدة منكم في ما يلي : 1- معالجة سبب البطأ في عمل زر الإضافة 2- زر التعديل لا يعمل بالشكل المطلوب لم أعرف السبب وشكرا حركة المتعمرين.xlsm

نعم أخي الكريم تم حل المشكلة بفضل جهودكم ..بارك الله فيكم ونفع بكم

السلام عليكم ورحمة الله ..أخوتي مرفق لكم ملف يتضمن دالة البحث vloocup والمشكلة هي أن الدالة لا تعمل في حالة إخفاء الشيت الذي يتضمن مرجع البيانات وهذا جعلني أقوم بإظهار الشيت (sheet1) وتنشيطه عند فتح اليوزر فورم وحيث أني ارغب في بقاء هذا الشيت مخفي دائما فإني ارجو منكم المساعدة بحث تعمل دالة البحث حتى ولو كان الشيت مخفي وشكرا Private Sub ComboBox1_Change() Dim NAT As Long Dim sh As Sheets Dim Name As String Dim myrange As Range On Error Resume Next Sheets("sheet1").Visible = True Sheets("sheet1").Active Name = Me.ComboBox1.Value With Sheets("sheet1") Set myrange = Range("B3:M9") TextBox1.Value = Application.WorksheetFunction.VLookup(Name, myrange, 2, False) TextBox2.Value = Application.WorksheetFunction.VLookup(Name, myrange, 3, False) End With End Sub Private Sub UserForm_Initialize() Sheets("sheet1").Activate End Sub ملف العمل.xlsm

السلام عليكم تفضل هذا مثال من احد المواقع الاجنبية قمت بإضافة مربع لإظهار رقم الصف في الليست بوكس .. موفقين Userform_multipage_control.xlsm

UP

تمت إضافة دالة الخطأ إلى المعادلة vlookup&choose .vba (1).xlsm

تفضل أخي آمل أن يكون هذا هو المطلوب vlookup&choose .vba (1).xlsm

إخوتي الكرام السلام عليكم ورحمة الله مرفق ملف يتضمن يوزر فورم وأريد المساعدة في : 1- تعديل البيانات في ورقة العمل من خلال الضغط على زر تحديث 2- قمت بتحديد السطر المطلوب تعديل بياناته من خلال الضغط علبه في الليست بوكس فكيف يمكن اجراء بحث في اللسيت بوكس برقم الحجز بحيث يتم عرض السطر المطابق وشكرا لكم hote1l.xlsm

احسن الله إليكم

الإخوة الأفاضل السلام عليكم عندي ملف اكسيل يوجد فيه ماكرو يقوم بمجموعة من التأثيرات على الملف عند فتحه ولكن الاشكال هو أن بعد الخروج من الملف وتشغيل أي ملف اكسيل ثاني ألاحظ أن بعض خصائص هذه الملفات تغيرت هي الاخرى بسبب الماكرو الموجود في الملف السابق وعليه ارجو المساعدة في حل هذا الاشكال وشكرا Private Sub Workbook_Open() 'Worksheets("MINE").Activate 'With thisApplication 'Application.ScreenUpdating = False 'Application.ExecuteExcel4Macro "show.toolbar(""ribbon"",false)" 'Application.DisplayFormulaBar = False 'ActiveWindow.DisplayHeadings = False 'Application.DisplayScrollBars = False 'Application.DisplayStatusBar = False 'Application.ScreenUpdating = True ' End With end sub

أيها الإخوة السلام عليكم تم التعديل على الملف المرفق حيث تم تعطيل زر الإغلاق القياسي في الاكسيل (x) إلا أنه ظهرت مشكلة أخرى وهي تعطيل ماكرو الإغلاق المرتبط بزر الإغلاق الشخصي وعليه آمل منكم المساعدة في هذا الموضوع ودمتم بخير close.xlsm

أخي أحمد شكرا على التجاوب بعد تجربة الملف اتضح أن الماكرو الخاص بالفلاش لم يعد يشتغل حيث تم تعطيل هذا السطر 'Application.OnTime BlinkTime, "Blink" وشكرا مرة أخرى

الإخوة في المنتدى السلام عليكم ورحمة الله في الملف المرفق قمت بإنشاء زر للخروج من الأكسيل وتعطيل ماكرو لفلاش غير أنه عند التنفيذ تظهر رسالة خطأ وعليه أرجو المساعدة في تشغيل هذا الماكرو ومن ناحية أخرى أريد تعطيل زر الإغلاق القياسي في الاكسيل ( X ) وجعل المستخدم ينفذ الخروج من خلال الزر المرتبط بالماكرو. وشكرا close.xlsm

بارك الله فيكم اخي علي محمد علي

شكرا أخي أحمد على الاهتمام لم أكن أريد الحل بهذه الطريقة وإنما كنت أريد أن يكون تحديد الشيت يتم بطريقة مرنة من خلال تعديل قيمة الخلية C2 لنفترض وجود أكثر من 100 ورقة عمل عندها سنحتاج إلى أكثر من 100 دالة IF ولا شك أن هذا ممل جدا وشكرا مرة أخرى SUMIF.xlsx

شكرا أخي أحمد على الاهتمام لم أكن أريد الحل بهذه الطريقة وإنما كنت أريد أن يكون تحديد الشيت يتم بطريقة مرنة من خلال تعديل قيمة الخلية C2 لنفترض وجود أكثر من 100 ورقة عمل عندها سنحتاج إلى أكثر من 100 دالة IF ولا شك أن هذا ممل جدا وشكرا مرة أخرى

الإخوة الكرام السلام عليكم ورحمة الله في الملف المرفق أريد المساعدة في جعل ورقة العمل التي سيتم تجميع البيانات منها تتغير بتغير قيمة الخلية C2 اي أنه عندما تكون قيمة هذه الخلية 1 تشتغل المعادلة على الشيت 1 وعندما تكون 2 تشتغل المعادلة على الشيت 2 وهكذا وشكرا SUMIF.xlsx

وعليكم السلام اكتب في الخلية A2 المعادلة التالية ومن ثم اختر التنسيق المناسب لك =NOW() DATE.xlsm

السلام عليكم ارجوا المساعدة في هذا الموضوع

من علامة التبويب إدراج تختار أشكال تظهر قائمة الأشكال تختار منها الشكل المناسب بعد رسم الشكل تضغط عليه وتختار علامة التبويب تنسيق وتضغط على : بلا تعبئة ومن خلال علامة التبويب تنسيق الشكل تستطيع اختيار التنسيقات المناسبة لك

الإخوة الكرام أريد المساعدة في معرفة الخطا في الكود التالي " Private Sub TextBox8_Change() If TextBox8.Value = "" Then ListBox1.Clear: Exit Sub ListBox1.Clear k = 0 With Sheets("DATA") ss = ThisWorkbook.Worksheets("Data").Cells(Rows.Count, 15).End(xlUp).Row For Each C In Sheets("DATA").Range("B2:B" & ss) b = InStr(C, TextBox8) If b > 0 Then ListBox1.AddItem ListBox1.List(k, 0) = Sheets("DATA").Cells(C.Row, 1).Value ListBox1.List(k, 1) = Sheets("DATA").Cells(C.Row, 2).Value ListBox1.List(k, 2) = Sheets("DATA").Cells(C.Row, 3).Value ListBox1.List(k, 3) = Sheets("DATA").Cells(C.Row, 4).Value ListBox1.List(k, 4) = Sheets("DATA").Cells(C.Row, 5).Value ListBox1.List(k, 5) = Sheets("DATA").Cells(C.Row, 6).Value ListBox1.List(k, 6) = Sheets("DATA").Cells(C.Row, 7).Value ListBox1.List(k, 7) = Sheets("DATA").Cells(C.Row, 8).Value ListBox1.List(k, 8) = Sheets("DATA").Cells(C.Row, 9).Value ListBox1.List(k, 9) = Sheets("DATA").Cells(C.Row, 10).Value ListBox1.List(k, 10) = Sheets("DATA").Cells(C.Row, 11).Value ListBox1.List(k, 11) = Sheets("DATA").Cells(C.Row, 12).Value k = k + 1 End If Next C End With End Sub listBox.xlsm

هل تقصد عمل مثل هذا الإطار

أخي/ أحمد شكرا على الاهتمام المشكلة ليست في حجم الاعمدة وإنما : في أن الاعمدة في شيت 12 والذي يظهر في اليست بوكس هو 9 فقط ثم أنه عند اختيار صف من اليست لعرضه في الفورم يظهر رسالة الخطا المرفق وشكرا على الاهتمام listBox.xlsm