اذهب الي المحتوي
أوفيسنا

سعيد 1428

02 الأعضاء
  • Posts

    85
  • تاريخ الانضمام

  • تاريخ اخر زياره

كل منشورات العضو سعيد 1428

  1. السلام عليكم الا يوجد رد على هذا الموضوع أيها الاخوة الكرام
  2. أيها الإخوة الكرام السلام عليكم ورحمة الله مرفق لكم ملف اكسيل يحتوي على يوزر فورم أريد المساعدة منكم في ما يلي : 1- معالجة سبب البطأ في عمل زر الإضافة 2- زر التعديل لا يعمل بالشكل المطلوب لم أعرف السبب وشكرا حركة المتعمرين.xlsm
  3. نعم أخي الكريم تم حل المشكلة بفضل جهودكم ..بارك الله فيكم ونفع بكم
  4. السلام عليكم ورحمة الله ..أخوتي مرفق لكم ملف يتضمن دالة البحث 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
  5. السلام عليكم تفضل هذا مثال من احد المواقع الاجنبية قمت بإضافة مربع لإظهار رقم الصف في الليست بوكس .. موفقين Userform_multipage_control.xlsm
  6. تمت إضافة دالة الخطأ إلى المعادلة vlookup&choose .vba (1).xlsm
  7. تفضل أخي آمل أن يكون هذا هو المطلوب vlookup&choose .vba (1).xlsm
  8. إخوتي الكرام السلام عليكم ورحمة الله مرفق ملف يتضمن يوزر فورم وأريد المساعدة في : 1- تعديل البيانات في ورقة العمل من خلال الضغط على زر تحديث 2- قمت بتحديد السطر المطلوب تعديل بياناته من خلال الضغط علبه في الليست بوكس فكيف يمكن اجراء بحث في اللسيت بوكس برقم الحجز بحيث يتم عرض السطر المطابق وشكرا لكم hote1l.xlsm
  9. الإخوة الأفاضل السلام عليكم عندي ملف اكسيل يوجد فيه ماكرو يقوم بمجموعة من التأثيرات على الملف عند فتحه ولكن الاشكال هو أن بعد الخروج من الملف وتشغيل أي ملف اكسيل ثاني ألاحظ أن بعض خصائص هذه الملفات تغيرت هي الاخرى بسبب الماكرو الموجود في الملف السابق وعليه ارجو المساعدة في حل هذا الاشكال وشكرا 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
  10. أيها الإخوة السلام عليكم تم التعديل على الملف المرفق حيث تم تعطيل زر الإغلاق القياسي في الاكسيل (x) إلا أنه ظهرت مشكلة أخرى وهي تعطيل ماكرو الإغلاق المرتبط بزر الإغلاق الشخصي وعليه آمل منكم المساعدة في هذا الموضوع ودمتم بخير close.xlsm
  11. أخي أحمد شكرا على التجاوب بعد تجربة الملف اتضح أن الماكرو الخاص بالفلاش لم يعد يشتغل حيث تم تعطيل هذا السطر 'Application.OnTime BlinkTime, "Blink" وشكرا مرة أخرى
  12. الإخوة في المنتدى السلام عليكم ورحمة الله في الملف المرفق قمت بإنشاء زر للخروج من الأكسيل وتعطيل ماكرو لفلاش غير أنه عند التنفيذ تظهر رسالة خطأ وعليه أرجو المساعدة في تشغيل هذا الماكرو ومن ناحية أخرى أريد تعطيل زر الإغلاق القياسي في الاكسيل ( X ) وجعل المستخدم ينفذ الخروج من خلال الزر المرتبط بالماكرو. وشكرا close.xlsm
  13. شكرا أخي أحمد على الاهتمام لم أكن أريد الحل بهذه الطريقة وإنما كنت أريد أن يكون تحديد الشيت يتم بطريقة مرنة من خلال تعديل قيمة الخلية C2 لنفترض وجود أكثر من 100 ورقة عمل عندها سنحتاج إلى أكثر من 100 دالة IF ولا شك أن هذا ممل جدا وشكرا مرة أخرى SUMIF.xlsx
  14. شكرا أخي أحمد على الاهتمام لم أكن أريد الحل بهذه الطريقة وإنما كنت أريد أن يكون تحديد الشيت يتم بطريقة مرنة من خلال تعديل قيمة الخلية C2 لنفترض وجود أكثر من 100 ورقة عمل عندها سنحتاج إلى أكثر من 100 دالة IF ولا شك أن هذا ممل جدا وشكرا مرة أخرى
  15. الإخوة الكرام السلام عليكم ورحمة الله في الملف المرفق أريد المساعدة في جعل ورقة العمل التي سيتم تجميع البيانات منها تتغير بتغير قيمة الخلية C2 اي أنه عندما تكون قيمة هذه الخلية 1 تشتغل المعادلة على الشيت 1 وعندما تكون 2 تشتغل المعادلة على الشيت 2 وهكذا وشكرا SUMIF.xlsx
  16. وعليكم السلام اكتب في الخلية A2 المعادلة التالية ومن ثم اختر التنسيق المناسب لك =NOW() DATE.xlsm
  17. السلام عليكم ارجوا المساعدة في هذا الموضوع
  18. من علامة التبويب إدراج تختار أشكال تظهر قائمة الأشكال تختار منها الشكل المناسب بعد رسم الشكل تضغط عليه وتختار علامة التبويب تنسيق وتضغط على : بلا تعبئة ومن خلال علامة التبويب تنسيق الشكل تستطيع اختيار التنسيقات المناسبة لك
  19. الإخوة الكرام أريد المساعدة في معرفة الخطا في الكود التالي " 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
  20. أخي/ أحمد شكرا على الاهتمام المشكلة ليست في حجم الاعمدة وإنما : في أن الاعمدة في شيت 12 والذي يظهر في اليست بوكس هو 9 فقط ثم أنه عند اختيار صف من اليست لعرضه في الفورم يظهر رسالة الخطا المرفق وشكرا على الاهتمام listBox.xlsm
×
×
  • اضف...

Important Information