اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

maklemééééééééééé21

عضو جديد 01
  • Posts

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

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

السمعه بالموقع

0 Neutral

عن العضو maklemééééééééééé21

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    fonctionaire
  • البلد
    algeria
  • الإهتمامات
    tou

اخر الزوار

بلوك اخر الزوار معطل ولن يظهر للاعضاء

  1. بارك الله فيكم و جزاكم الله كل الخير منكم استفدنا كثيرا شكرا شكرا لكم
  2. معذرة اخي و لكن ليس هو المطلوب فالاسماء بقيت مكررة فالمطلوب هو معرفة الاسماء المكررة فقط و ليس اعادة تكرارها أخي
  3. السلام عليكم اخواني ممكن المساعدة في دالة معرفة الاسماء المكررة اكثر من مرة و بارك الله فيكم takrir.xlsx
  4. مشكور أخي جزاءك عند الله اتعبناك معنا لا أدري اين الخلل ممكن من هو ملون بالأصفر Dim r, i As Integer Private Sub CommandButton1_Click() For j = 1 To 8 Cells(r, j) = Controls("TextBox" & j).Text Next j ListBox1.List(i, 0) = TextBox2.Text End Sub Private Sub CommandButton2_Click() 'lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row 'For j = 1 To 8 ' Sheets(1).Cells(lrw + 1, j) = Controls("TextBox" & j).Text ' Next j ' For i = 1 To 8 ' Next i ' Controls("TextBox" & i).Text = "" ' ListBox1.AddItem ' ListBox1.List(ListBox1.ListCount - 1, 0) = Sheets(1).Cells(lrw + 1, 2).Value ' ListBox1.List(ListBox1.ListCount - 1, 1) = lrw + 1 ' TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 'TextBox2.SetFocus Dim TotalRows As Long Dim Sh As Worksheet Set Sh = æÑÞÉ1 With Sh TotalRows = .Cells(Rows.Count, "A").End(xlUp).Row If TotalRows < 3 Then TotalRows = 3 Else TotalRows = TotalRows End If .Cells(TotalRows + 1, 1) = Me.TextBox1.Value .Cells(TotalRows + 1, 2) = Me.TextBox2.Text .Cells(TotalRows + 1, 3) = Format(TextBox3, "dd/mm/yyyy") .Cells(TotalRows + 1, 4) = Me.TextBox4.Value .Cells(TotalRows + 1, 5) = Me.TextBox5.Value .Cells(TotalRows + 1, 6) = Me.TextBox6.Value .Cells(TotalRows + 1, 9) = Me.TextBox14.Text .Cells(TotalRows + 1, 10) = Me.TextBox9.Value .Cells(TotalRows + 1, 11) = Me.TextBox10.Value .Cells(TotalRows + 1, 12) = Me.TextBox11.Value .Cells(TotalRows + 1, 13) = Me.TextBox13.Value .Cells(TotalRows + 1, 14) = Me.TextBox15.Value End With ClearForm TextBox2.SetFocus End Sub Private Sub CommandButton3_Click() If MsgBox("ÓíÊã ÇáÍÐÝ åá ÃäÊ ãÊÃßÏ¿", vbQuestion + vbYesNo) = vbYes Then Sheets(1).Cells(r, 1).EntireRow.Delete For Z = 1 To 8 Sheets(1).Cells(r, Z).Delete Shift:=xlUp Next Z Sheets(1).Cells(r, 1).Resize(r, 11).Delete Shift:=xlUp MsgBox "ÊãÊ ÚãáíÉ ÇáÍÐÝ ÈäÌÇÍ" For y = 1 To 8 Controls("Textbox" & y).Text = "" Next y ListBox1.Clear UserForm_Activate TextBox12 = "" End If End Sub Private Sub Label12_Click() End Sub Private Sub Label23_Click() End Sub Private Sub Label7_Click() End Sub Private Sub Label9_Click() End Sub Private Sub ListBox1_Click() For i = 0 To ListBox1.ListCount If ListBox1.Selected(i) = True Then For j = 1 To 8 Controls("TextBox" & j).Text = Cells(ListBox1.List(i, 1), j) Next j r = ListBox1.List(i, 1) Exit For End If Next i End Sub Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) For i = 1 To 6 Controls("TextBox" & i).Text = "" Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 TextBox2.SetFocus End Sub Private Sub TextBox12_Change() ListBox1.Clear For i = 1 To 8 Controls("TextBox" & i).Text = "" Next i If TextBox12 = "" Then Exit Sub Sheets(1).Activate ss = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row k = 0 For Each C In Range("B4:B" & ss) If C Like TextBox12.Value & "*" Then ListBox1.AddItem ListBox1.List(k, 0) = Cells(C.Row, 2).Value ListBox1.List(k, 1) = C.Row k = k + 1 End If Next C End Sub Private Sub TextBox6_Change() Me.TextBox7.Value = (Val(Me.TextBox5.Value) + Val(Me.TextBox6.Value)) / 2 'TextBox7 = Val((TextBox5 + TextBox6) / 2) End Sub 'Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean) 'TextBox12.Value = "" 'ListBox1.Clear 'End Sub Private Sub UserForm_Activate() TextBox12.SetFocus For i = 4 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row ListBox1.AddItem ListBox1.List(i - 4, 0) = Cells(i, 2).Value ListBox1.List(i - 4, 1) = i Next i TextBox1.Value = Application.WorksheetFunction.Max(Sheets(1).Range("A4:A5000")) + 1 TextBox2.SetFocus End Sub Sub ClearForm() For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then ctl.Value = vbNullString End If Next ctl End Sub
  5. السلام عليكم اخوتي في الله ممكن المساعدة في اتمام الكود الذي يسمح بعمل كل خانات اليوزر فورم و ان امكن جعل نوع الغياب في خانة واحدة و هذا بالاختيار نوع لغياب حيث عند ادخال البيانات فالمعطيات تذهب للعمود الخاص بها و بارك الله فيكم برنامج غيابات.xlsm
  6. السلام عليكم لو تفضلتم بمساعدتي في معادلة ترحيل بيانات عمال وظيفة اختارها من جدول جماعي به كل العمال حيث ممكن يصل عدد العمال الى 1500 حسب النموذج المرفق حيث انني في امس الحاجة اليه و بارك الله فيكم قوائم العمال.xlsx
  7. بارك الله فيك استاذ منكم نتعلم و آسف على التكرار و لن اعيدها استاذ الماكرو يجلب 5 زبائن فقط
  8. السلام عليكم أساتذتنا الكرام ممكن دالة ترحيل قائمة زبائن تضم اكثر من 1500 لفترة زمنية معينة و جزاكم الله خيرا من فضلك لا تكرر نفس المشاركات والا ستحذف جميع المشاركات كراء 1.xlsx
  9. أخوكم في الله يريد مساعدتكم دوال حساب و ترحيل بيانات بتاريخ او بين تاريخين ل 1400 زبون و بارك الله فيكم مشاركة مكررة ... تــم بالفعل حذف المشاركة الأخرى , يكفيك كتابة للـــــرفع لطلب الرد ولا تقوم بفتح مشاركات جديدة لمشاركة قديمة موجودة بالفعل والا ستحذف جميع المشاركات وعليك الإطلاع على قواعد وقوانين الإشتراك بالمنتدى Classeur1 (2).xlsx
  10. السلام عليكم أساتذنا ممكن مساعدة في المطلوب هو قائمة الزبائن الذين قامو بكراء السيارة في تاريخ اختاره انا مع عدد مرات الكرااء و ان امكن تحديد عدد الكراء ان كان في عدة ايام متتالية تم بالفعل حذف المشاركة الأخرى لأنها مكررة متابعة كراء.xlsx و بارك الله فيكم
  11. اريد تكملة هذا المشروع البسيط حيث ممكن يصل عدد الزبائن الى 1400 زبون و بارك الله فيكم و اعانكم الله لفعل الخير و نشر العلم Classeur1 (2).xlsx
  12. بارك الله فيك أخي و ان أمكن ممكن قائمة الزبائن حسب اليوم او الفترة ان أمكن مع الاحصاء و سأكون شاكرا للجميعClasseur1 (2).xlsx
  13. دالة البحث عن رقم العمود من عدة اعمدة اريد مجموعه بشرط اسم راس العمود و جزاكم الله خيرا مشاركة مكررة ... تـــم بالفعل حذف المشاركة الأخرى , من فضلك لا تقوم برفع وتكرار نفس المشاركات بمشاركات جديدة ومنفصلة Classeur1.xlsx
×
×
  • اضف...

Important Information