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

vidan

عضو جديد 01
  • Posts

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

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

مشاركات المكتوبه بواسطه vidan

  1. أخزتي الكرام..

    عندي مشكلة في كود البحث من خلال الكومبوبوكس في اليوزرفورم

    أرفق لكم الملف الذي اعمل عليه ( يوجد في اليوزرفورم 6 كومبوبوكس للبحث في الليست بوكس )  ولكني لا اعلم الكود لهذا العمل هل من مساعدة لو سمحتم ؟

    وشكرا لأي مجيب على مشكلتي سلفاً

    Test-5.xlsm

  2. السلام عليكم اخوتي الكرام

    أعمل على ملف اكسل عند ادخال البيانات من اليوزرفورم يمسح المعادلات الخلايا التي في الشيت عند الضغط على التعديل أو الاضافة !

    أريد ادخال hasformula = falsae  في الكود الخاص بي لمنع مسح المعادلات في الخلايا  عند الادخال أو التعديل هل هناك امكانية لذلك

    هذه الاكواد للامرين الادخال والتعديل :

    Private Sub CommandButton1_Click()
    For j = 1 To 21
            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 21
            Sheets(1).Cells(lrw + 1, j) = Controls("TextBox" & j).Text
    Next j
    For i = 1 To 21
                Controls("TextBox" & i).Text = ""
    Next i
     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:A4000")) + 1
    TextBox2.SetFocus
    End Sub

    وشكرا لمن يساعدني في ذلك سلفا

  3. السلام عليكم اخوتي الاعزاء

    اتمنى من حضراتكم أن تساعدوني بكود VBA خاص للفلترة والتصفية من خلال الكومبوبوكس على اليوزرفورم  بعدة معايير لأعمدة مختلفة وليس بمعيار واحد , أي عند الضغط على Command Buton اسمه تصفية أستطيع من خلال ذلك تصفية المطلوب على ورقة العمل لأول يوزرفورم والثاني على الليست بوكس في نفس اليوزر فورم الثاني( الاثنين من خلال اليوزرفورم ) أرفق لكم ملف العمل الذي أعمل عليه بالمرفقات واسمه ( تجربة ).

    ولكم مني جزيل الشكر سلفاً

    تجربة .xlsm

  4. السلام عليكم أيها الأخوة الكرام

    لقد حصلت على برنامج مدرسة (بي اتش بي مفتوح المصدر ) ولكني لم أستطع تصفحه عبر برنامج(  ) مع أني عرفت قاعدة البيانات على السكويل سيرفر في البي اتش بي ادمن  حسب ما اضطلعت عليه من أحد الفيديوهات ولكنه لم يعمل !  هل من مساعدة لو سمحتم

    حاولت ارفاق البرنامج ولكن الصفحة في المنتدى تعطيني أنه غير مسموح ارسال أكثر من واحد ميجا والبرنامج بعد الضغط عبارة عن 2 ميجا هل هناك طريقة لارساله لكم عبر المنتدى ؟

    أرفق لكم الصور التي تردني من برنامج

    Xampp

     

     

    1.jpg

    4.jpg

    2.jpg

    3.jpg

  5. السلام عليكم أيها الأخوة

     

    اين مشرفي المنتدى للتعديل والرد لو سمحتم

    هذا اليوم الرابع منذ الطلب ولم ألقى جواب لغاية الآن عسى المانع خيراً !!!

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

     Private Sub ComboBox1_Change()
    On Error Resume Next
    Dim aa As String
    aa = ComboBox1.Value
    Sheets(aa).Select
    End Sub
    
    
    Private Sub UserForm_Initialize()
        Dim I As Long
        Me.ComboBox1.Clear
        For I = 1 To 13
        'Sheets.Count
            Me.ComboBox1.AddItem Sheets(I).Name
        Next
        Me.ComboBox1.Value = ActiveSheet.Name
    End Sub

    ووضعته في الملف المرفق في كومبوبوكس ثاني ولقد عمل جيدا إلا أنني لا أستطيع عند تحديد الصفحة أن أدخل البينات فيها فهو يدخلها فقط في الصفحة الولى والذي أريده هو ادخال البيانات في الشيت التي أختارها انا من الكومبوبوكس في اليوزرفورم

    هل هناك من قابلية لمساعدتي في ذلك ؟ ولكم كل التقدير

     

     

    Example4.xlsm

  6. جرب هذا الكود أنا أستعمله وماش الحال

    Private Sub CommandButton1_Click()     'هذا زر الطباعة
    ActiveWindow.SelectedSheets.PrintPreview
    a = MsgBox("هل تريد تكملة الطباعة", vbYesNo + vbQuestion, "طباعة")
    If a = vbYes Then
    With ActiveSheet
    .PrintOut
    End With
    End If
    Range("A1").Activate
    End Sub

    عفواً أخي emam

    لم أنتبه أنك تعمل على اكسس

    الكود الذي ارسلته أنا اعمل على اكسل فيه

    عفواً

  7. السلام عليكم ورحمة الله وبركاته

    أخوتي الكرام

    لقد طلبت المساعدة من يوم الأربعاء على هذا النموذج وما من إجابة لغاية اليوم! وأنا أعلم كمية الأسئلة الأهم عندكم , اتمنى المساعدة لو تكرمتم وهناك مشكلة ثانية واجهتني هي أنه عند حذف أي بيان من اليوزر فورم تختلف المعادلة على السطر الذي يليه في الشيت لأن المعادلة متسلسلة في الشيت هل هناك حل لذلك؟

    الملف مرفق مرة أخرى أرجو الإضطلاع والإجابة

    أتمنى من القيمين او الإخوة الكرام مساعدتي ولكم جزيل الشكر

     

    Example3.xlsm

  8. عفوا ولكنه لا يعمل !!

    هل هذا الكود الذي ارسلته أخي سليم صحبح ؟

    Private Sub ComboBox2_DropButtonClick()
    Dim i%
    Dim Sh As Worksheet
    Set Sh = Sheets("شباط")
    Me.ComboBox2.Clear
    lrw = Sh.Cells(Rows.Count, 4).End(xlUp).Row
     For i = 4 To lrw
      Me.ComboBox2.AddItem Sh.Cells(i, 1)
     Next
    End Sub

     

  9. السلام عليكم ورحمة الله وبركاته

    إخوتي الكرام ...

    أخي محمد...

    لو سمحتم عندي مشكلة بهذا الكود :

    Private Sub ComboBox2_DropButtonClick()
    lrw = Sheets(1).Cells(Rows.Count, 7).End(xlUp).Row
     ComboBox2.List = Sheets(1).Range("A5:A13").Value
    End Sub
    هذا الكود يعمل جيداً ولكني أريد وضع البيانات التي اريد الكومبوبوكس قراءتها من الشيت رقم 5 وليس الشيت رقم واحد فعندما أغير شيت 1 إلى شيت 5 لا يقرأها !!!

    وهذا الكود الذي غيرته :

     Private Sub ComboBox2_DropButtonClick()
    lrw = Sheets(5).Cells(Rows.Count, 7).End(xlUp).Row
     ComboBox2.List = Sheets(5).Range("A5:A13").Value
    End Sub

     

  10. السلام عليكم اخوتي الكرام

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

    عندي مشكلة في فيجوال بيسك وانا مبتدئ فيها  أريد أن أضع كومبوبوكس بدل خانة واحدة من التكست بوكس على نفس اليوزر فورم وعند الترحيل ترحل جميع البيانات من اليوزر فورم الى الشيت اكسل كلها مع بعض مع بيانات الكومبوبوكس

    هل هناك من أحد يساعدني بذلك ؟

    جزاكم الله خيرا على عملكم وعلمكمم سلفاً

    أرفق لكم الملف الذي اعمل عليه  وصورة اليوزرفورم

    نموذج 2.jpg

    نموذج 2.xlsm

×
×
  • اضف...

Important Information