اذهب الي المحتوي
أوفيسنا

vidan

عضو جديد 01
  • Posts

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

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

كل منشورات العضو vidan

  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. شكراً على الإجابة أخي محمد وسأعمل بنصيحتك ان شاء الله
  11. السلام عليكم أيها الأخوة اين مشرفي المنتدى للتعديل والرد لو سمحتم هذا اليوم الرابع منذ الطلب ولم ألقى جواب لغاية الآن عسى المانع خيراً !!! لقد استفدت من مشاركة احد الأخوة في المنتدى الأخ محمود عبدو وأخذت منه هذا الكود : 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
  12. التجربة خير برهانولكن هناك تغيير أكيد باسم اشيت فالكسس لا يتعامل مع الشيت على حد علمي! والله اعلم الإخوان هم أساتذة اما أنا اخوك فمبتدأ ونتعلم منهم إن شاء الله
  13. جرب هذا الكود أنا أستعمله وماش الحال 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 لم أنتبه أنك تعمل على اكسس الكود الذي ارسلته أنا اعمل على اكسل فيه عفواً
  14. ارفع لكم النموذج الذي يمسح المعادلة من السطر في الشيت رقم 4 Example3.xlsm
  15. السلام عليكم ورحمة الله وبركاته أخوتي الكرام لقد طلبت المساعدة من يوم الأربعاء على هذا النموذج وما من إجابة لغاية اليوم! وأنا أعلم كمية الأسئلة الأهم عندكم , اتمنى المساعدة لو تكرمتم وهناك مشكلة ثانية واجهتني هي أنه عند حذف أي بيان من اليوزر فورم تختلف المعادلة على السطر الذي يليه في الشيت لأن المعادلة متسلسلة في الشيت هل هناك حل لذلك؟ الملف مرفق مرة أخرى أرجو الإضطلاع والإجابة أتمنى من القيمين او الإخوة الكرام مساعدتي ولكم جزيل الشكر Example3.xlsm
  16. عفوا ولكنه لا يعمل !! هل هذا الكود الذي ارسلته أخي سليم صحبح ؟ 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
  17. أخي سليم شكرا على ردك لي ان الكومبوبوكس يعمل من داخل الصفحة ولكن من اليورز فورم اي الواجهة لا يعمل انظر الى المرفق لو سمحت.. نموذج3(1).xlsm
  18. السلام عليكم ورحمة الله وبركاته إخوتي الكرام ... أخي محمد... لو سمحتم عندي مشكلة بهذا الكود : 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
  19. السلام عليكم أخي محمد عاجز عن شكري على المساعدة لقد رأيت الحل وسأقول لك أنه لديك من الذكاء ما يكفي لحل المشكلة شكراً جزيلاً مرة ثانية بارك الله فيك أخي محمد
  20. © هذا نموذج الأخت الكريمة ساجدة العزاوي بارك الله بعلمها وكبر أخلاقها...

  21. السلام عليكم اخوتي الكرام أنا مشترك جديد في صفحتكم ولقد استفدت كثيرا من مناقشتكم وعملكم مع بعض بارك الله فيكم جميعا... عندي مشكلة في فيجوال بيسك وانا مبتدئ فيها أريد أن أضع كومبوبوكس بدل خانة واحدة من التكست بوكس على نفس اليوزر فورم وعند الترحيل ترحل جميع البيانات من اليوزر فورم الى الشيت اكسل كلها مع بعض مع بيانات الكومبوبوكس هل هناك من أحد يساعدني بذلك ؟ جزاكم الله خيرا على عملكم وعلمكمم سلفاً أرفق لكم الملف الذي اعمل عليه وصورة اليوزرفورم نموذج 2.xlsm
×
×
  • اضف...

Important Information