1anass

السلام عليكم من فضلكم لدي جدول نسجل فيه زيارة الزبناء و المرافقين لهم لمصلحتين في كل يوم لمدة سنة اريد اجراء حساب عدد الداخلين و الخارجين في كل يوم المطلوب اذا كان بالامكان كود للعمل تلقائيا اي كلما قمنا بتسجيل دخول او خروج يضاف التاريخ بدون تكرار في الصفحة 1او 2 و كذلك صيغة الدالة في السطر شكرا لكم 1.xlsm

السلام عليكم من فضلكم هل توجد طريقة سهلة للفلتر بتحديد شرطين في الكمبو بوكس و تحديد التاريخ عند تحديد تاريخ الدخول و الخروج .... تظهر النتائج المحصورة في الليست بوكس شكرا لكم اسف لقد اخطأت اريد البحث فقط بتاريخ الدخول الفلتر.xlsm

السلام عليكم تحياتي للجميع من فضلكم استخدمت هذا الكود لتعديل البيانات في الليست بوكس من خلال التكست بوكس لكنه لا يقوم بتعديل السطر الصحيح في حالة بحث عن سطر معين Dim Ligne As Long If ListBox1.ListIndex = -1 Then Exit Sub Ligne = ListBox1.ListIndex + 2 Range("B" & Ligne) = TextBox1 Range("C" & Ligne) = TextBox2 Range("D" & Ligne) = TextBox3 Range("E" & Ligne) = ComboBox1 Range("F" & Ligne) = ComboBox2 Call UserForm_Initialize كذلك زر الحذف لا يقوم بحذف نفس السطر شكرا لكم تعديل - Copie.xlsm

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

شكرا على الاهتمام هل يمكن لهذا الكود ان يفي بالغرض For x = 1 To Sheets.Count If Sheets(x).Range("A1") = 1 Then MsgBox Sheets(x).Name Next

السلام عليكم من فضلكم اريد البحث باليوزرفورم في جميع اوراق الملف مثال إذا كانت المعطيات في الورق 1 و 2 و اليوزرفوم في الورق 3 يعطينا النتائج دون التنقل اللى الورقتين شكرا لكم V2.xlsm

السلام عليكم اريد التعديل على هذا الكود لأجل اغلاق اليوزرفورم و ملف الاكسيل في وقت واحد لانه في المثال المرفق عندما يكون ملفين مفتوحين او اكثر لا يغلق اليوزرفورم بل يختفي , ثم يظهر عند اغلاق الملفات الاخرى ارغب ان يغلق اليوزرفورم و ملف الاكسل الخاص به فقط في حالة تواجد ملفات اخرى مفتوحة شكرا لكم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Dim Rep% If Application.Workbooks.Count = 1 Then If Application.Visible = False Then Rep% = MsgBox(prompt:="La fermeture du UserForm implique que l'application Excel soit fermée." & vbLf & _ "Voulez-vous réellement fermer l'application Excel ?", Buttons:=vbOKCancel) If Rep% = vbOK Then If Not AppClass Is Nothing Then Set AppClass = Nothing ThisWorkbook.Save Application.Quit Else Cancel = True End If End If Else UserFormVisible = False End If End Sub Exemple.xlsm

السلام عليكم من فضلكم ارغب في وضع حدود للخلايا عند التصدير الى ملف اخر ب كود VBA With Application.Workbooks.Add Application.Visible = True Dim chosename chosename = InputBox("Veuillez nommer la feuil:", "Nommer la nouvelle feuil") 'If chosename = "" Then Exit Sub Sheets(1).Name = chosename & " ;" & Format(Now(), "dd-mm-yyyy") temp.Range("z1:ah1").Copy Sheets(1).Range("a1:I1") Sheets(1).Range("a1:I1").ColumnWidth = 14 Dim lastrow lastrow = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1 For v = 0 To Me.ListBox1.ListCount - 1 Cells(lastrow, 1).Value = Me.ListBox1.List(v, 0) Cells(lastrow, 2).Value = Me.ListBox1.List(v, 1) Cells(lastrow, 3).Value = Me.ListBox1.List(v, 2) Cells(lastrow, 4).Value = Me.ListBox1.List(v, 3) Cells(lastrow, 5).Value = Me.ListBox1.List(v, 4) Cells(lastrow, 6).Value = Me.ListBox1.List(v, 5) Cells(lastrow, 7).Value = Me.ListBox1.List(v, 6) Cells(lastrow, 8).Value = Me.ListBox1.List(v, 7) lastrow = lastrow + 1 Next MsgBox "تم التصدير بنجاح" End With شكرا لكم export.xlsm

شكرا على الاهتمام استاذ ابو زين لقد وجد الكود المطلوب For I = 0 To ListBox1.ListCount - 1 ListBox1.Column(6, I) = Format(ListBox1.Column(6, I), "#.00") Next I تحياتي لك

شكرا جزيلا على المساعدة اخي ابو زين ; الكود يفي بالغرض هل لديك فكرة عن كيفية جعل العمود 7 على شكل 0.00 اي عدد

شكرا على الرد اخي الفاضل لأسف الموضوع مختلف لأن اللستبوكس خاصتي يأخد محتواه من ورقتي عمل

السلام عليكم من فضلكم لدي سؤالين, هل يوجد كود لطباعة محتوى هدة الليستبوكس; و هل يمكنني كتابة العمود رقم 7 على شكل 0.00 ؟ شكرا جزيلا لكم USF v1.xlsm

شكرا أستاذ سليم نعم هو المطلوب جزاك الله الف خير

السلام عليكم من فضلكم هل توجد طريقة لتحديد التكرار في اكثر من عمود او بمعنى القواسم المشتركة شكرا لكم التكرار.xlsx

السلام عليكم وجدت هذا الكود لكن اريد inputbox لتسمية الملف With Workbooks.Add _ = ((Sheets(1).Range(Cells(1, 1), Cells(Me.ListBox1.ListCount, Me.ListBox1.ColumnCo. Me.ListBox1.List Sheets(1).Name = Format(Now(), "yyyy-mm-dd") & " Transfer" End With

هذا هو الملف اتمنى منكم المساعدة الترحيل.xlsm

السلام عليكم من فضلكم اريد كود لترحيل محتويات listbox الى ملف اكسيل جديد اي عند الضغط على زر ترحيل يفتح ملف اكسيل جديد و فيه كل الاعمدة التى عندنا فى ال listbox شكرا لكم

USF1 vers USF2.xlsm

السلام عليكم هل يمكن ترحيل نتائج listbox من يوزرفورم 1 الى listbox يوزرفورم 2 ؟ شكرا لكم

السلام عليكم رجاءا هل من مساعد أساتذتي ؟ شكر خاص للاستاذ شوقي ربيع

السلام عليكم الشرح بالتفصيل المعطيات : FRAME 3 FRAME 2 FRAME 1 A11 A1 A A12 A2 B11 B1 B B12 B2 C11 C1 C C12 H1 H ALL H1 A11 A1 A12 A2 B11 B1 B12 B2 C11 C1 C12 اليوزرفورم : الشرح : امثلة للنتائج المطلوبة : لفلتر يعتمد على الاختيار من التشكبوكس ثم تظهر المعطيات في الكومبوبوكس 1 ثم الاخنيار بعد ذلك تظهر المعطيات في الكومبوبوكس 2 بالتتابع اتمنى ان ان اكون اوصلت الفكرة في انتظار تفاعلكم أساتذتي تحياتي usf1.xlsm

السلام عليكم من فضلكم كيف يمكن الفلتر ب C HECKBOX و COMBOBOX بالتتابع كما في الشرح شكرا لكم CHECKBOX.xlsm

السلام عليكم تسلم الايادي استاذ سأطيل عليك اخي الكريم . اود ان تكون الخانات فارغة تملأ بالتتابع. مثلا عند اختيار ''SERVICE : ''ORL تظهر tout و payant و gratuit في assurance. متلا اخترنا payant تملأ agenda ب CSORL و CGORL. نختار مثلا CSORL تملأ ACTIVITE بCSS و CSORL. التفاصيل في المرفق اسف علي الازعاج exp.rar

السلام عليكم هنا بعض الامثلة استاذ exemple.xlsx

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