سعيد 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