vidan

أخزتي الكرام.. عندي مشكلة في كود البحث من خلال الكومبوبوكس في اليوزرفورم أرفق لكم الملف الذي اعمل عليه ( يوجد في اليوزرفورم 6 كومبوبوكس للبحث في الليست بوكس ) ولكني لا اعلم الكود لهذا العمل هل من مساعدة لو سمحتم ؟ وشكرا لأي مجيب على مشكلتي سلفاً Test-5.xlsm

عفوا اخي الكريم هذا هو الملف ارسله مرفقاً, اتمنى اصلاح ما ترونه مناسباً شكرا جزيلاً لاهتمامك.🤝 test.xlsm

السلام عليكم اخوتي الكرام أعمل على ملف اكسل عند ادخال البيانات من اليوزرفورم يمسح المعادلات الخلايا التي في الشيت عند الضغط على التعديل أو الاضافة ! أريد ادخال 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 وشكرا لمن يساعدني في ذلك سلفا

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

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

عفوا أخي عبدالله كيف استطيع ارساله لكم ؟

السلام عليكم أرفق لكم لينك البرنامج أتمنى المساعدة http://www.mediafire.com/folder/iun5pgypnmcc5/schoolapp

شكرا أستاذ محمد سأعمل على ذلك الآن ان شاء الله

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

شكراً على الإجابة أخي محمد وسأعمل بنصيحتك ان شاء الله

السلام عليكم أيها الأخوة اين مشرفي المنتدى للتعديل والرد لو سمحتم هذا اليوم الرابع منذ الطلب ولم ألقى جواب لغاية الآن عسى المانع خيراً !!! لقد استفدت من مشاركة احد الأخوة في المنتدى الأخ محمود عبدو وأخذت منه هذا الكود : 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

التجربة خير برهانولكن هناك تغيير أكيد باسم اشيت فالكسس لا يتعامل مع الشيت على حد علمي! والله اعلم الإخوان هم أساتذة اما أنا اخوك فمبتدأ ونتعلم منهم إن شاء الله

جرب هذا الكود أنا أستعمله وماش الحال 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 لم أنتبه أنك تعمل على اكسس الكود الذي ارسلته أنا اعمل على اكسل فيه عفواً

ارفع لكم النموذج الذي يمسح المعادلة من السطر في الشيت رقم 4 Example3.xlsm

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

أرفق لكم صورة للمساعدة

عفوا ولكنه لا يعمل !! هل هذا الكود الذي ارسلته أخي سليم صحبح ؟ 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

أخي سليم شكرا على ردك لي ان الكومبوبوكس يعمل من داخل الصفحة ولكن من اليورز فورم اي الواجهة لا يعمل انظر الى المرفق لو سمحت.. نموذج3(1).xlsm

السلام عليكم ورحمة الله وبركاته إخوتي الكرام ... أخي محمد... لو سمحتم عندي مشكلة بهذا الكود : 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

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

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