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

vidan

عضو جديد 01
  • Posts

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

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

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

0 Neutral

عن العضو vidan

  • تاريخ الميلاد 01 أغس, 1991

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

  • Gender (Ar)
    ذكر
  • Job Title
    business
  • البلد
    لبنان

اخر الزوار

383 زياره للملف الشخصي
  1. أخزتي الكرام.. عندي مشكلة في كود البحث من خلال الكومبوبوكس في اليوزرفورم أرفق لكم الملف الذي اعمل عليه ( يوجد في اليوزرفورم 6 كومبوبوكس للبحث في الليست بوكس ) ولكني لا اعلم الكود لهذا العمل هل من مساعدة لو سمحتم ؟ وشكرا لأي مجيب على مشكلتي سلفاً Test-5.xlsm
  2. عفوا اخي الكريم هذا هو الملف ارسله مرفقاً, اتمنى اصلاح ما ترونه مناسباً شكرا جزيلاً لاهتمامك.🤝 test.xlsm
  3. السلام عليكم اخوتي الكرام أعمل على ملف اكسل عند ادخال البيانات من اليوزرفورم يمسح المعادلات الخلايا التي في الشيت عند الضغط على التعديل أو الاضافة ! أريد ادخال 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 وشكرا لمن يساعدني في ذلك سلفا
  4. السلام عليكم أخوتي الكرام اتمنى المساعدة من جانبكم لملف اكسل اعمل عليه وتوقفت عند الفلترة من اليوزرفورم
  5. السلام عليكم اخوتي الاعزاء اتمنى من حضراتكم أن تساعدوني بكود VBA خاص للفلترة والتصفية من خلال الكومبوبوكس على اليوزرفورم بعدة معايير لأعمدة مختلفة وليس بمعيار واحد , أي عند الضغط على Command Buton اسمه تصفية أستطيع من خلال ذلك تصفية المطلوب على ورقة العمل لأول يوزرفورم والثاني على الليست بوكس في نفس اليوزر فورم الثاني( الاثنين من خلال اليوزرفورم ) أرفق لكم ملف العمل الذي أعمل عليه بالمرفقات واسمه ( تجربة ). ولكم مني جزيل الشكر سلفاً تجربة .xlsm
  6. عفوا أخي عبدالله كيف استطيع ارساله لكم ؟
  7. السلام عليكم أرفق لكم لينك البرنامج أتمنى المساعدة http://www.mediafire.com/folder/iun5pgypnmcc5/schoolapp
  8. شكرا أستاذ محمد سأعمل على ذلك الآن ان شاء الله
  9. السلام عليكم أيها الأخوة الكرام لقد حصلت على برنامج مدرسة (بي اتش بي مفتوح المصدر ) ولكني لم أستطع تصفحه عبر برنامج( ) مع أني عرفت قاعدة البيانات على السكويل سيرفر في البي اتش بي ادمن حسب ما اضطلعت عليه من أحد الفيديوهات ولكنه لم يعمل ! هل من مساعدة لو سمحتم حاولت ارفاق البرنامج ولكن الصفحة في المنتدى تعطيني أنه غير مسموح ارسال أكثر من واحد ميجا والبرنامج بعد الضغط عبارة عن 2 ميجا هل هناك طريقة لارساله لكم عبر المنتدى ؟ أرفق لكم الصور التي تردني من برنامج Xampp
  10. السلام عليكم أيها الأخوة اين مشرفي المنتدى للتعديل والرد لو سمحتم هذا اليوم الرابع منذ الطلب ولم ألقى جواب لغاية الآن عسى المانع خيراً !!! لقد استفدت من مشاركة احد الأخوة في المنتدى الأخ محمود عبدو وأخذت منه هذا الكود : 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
  11. التجربة خير برهانولكن هناك تغيير أكيد باسم اشيت فالكسس لا يتعامل مع الشيت على حد علمي! والله اعلم الإخوان هم أساتذة اما أنا اخوك فمبتدأ ونتعلم منهم إن شاء الله
  12. جرب هذا الكود أنا أستعمله وماش الحال 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 لم أنتبه أنك تعمل على اكسس الكود الذي ارسلته أنا اعمل على اكسل فيه عفواً
  13. ارفع لكم النموذج الذي يمسح المعادلة من السطر في الشيت رقم 4 Example3.xlsm
  14. السلام عليكم ورحمة الله وبركاته أخوتي الكرام لقد طلبت المساعدة من يوم الأربعاء على هذا النموذج وما من إجابة لغاية اليوم! وأنا أعلم كمية الأسئلة الأهم عندكم , اتمنى المساعدة لو تكرمتم وهناك مشكلة ثانية واجهتني هي أنه عند حذف أي بيان من اليوزر فورم تختلف المعادلة على السطر الذي يليه في الشيت لأن المعادلة متسلسلة في الشيت هل هناك حل لذلك؟ الملف مرفق مرة أخرى أرجو الإضطلاع والإجابة أتمنى من القيمين او الإخوة الكرام مساعدتي ولكم جزيل الشكر Example3.xlsm
×
×
  • اضف...

Important Information