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