استاذ عماد هل يمكن عمل قائمتين منسدلتين مترابطة مع بعضها واحدة باسماء الملفات والثانية باسماء الشيتات الموجودة في كل ملف يعني لما اختار ملف رقم واحد يعطيني في القائمة الثانية الشيتات الموجودة به. وشكرا
هو ينفع يبحث في الملفات ديه كله ويدني النتيجة الي محتجها مثلا انا حاطط رقم 123 في ملف تيست 1 وحاطط 456 في ملف تسيت 2عايز ابحث في ملف المستر علي 456 يديني النتيجة الي قدام 456 ياريت اكون قدرت اوصل لحضرتك عايز ايه
أستاذ عماد هل أطمع من حضرتك في شرح عملي في استخدام if مع visible سواء عدد الTextBox واحد أو أكثر. وإذا كان لحضرتك فيديو في هذا كيف أرجع إليه ؟!!!! الله يجزيك كل الخير وشكراً !!!!!!!!!!!
السلام عليكم . بارك الله بيك استاذ عماد على هذه الجهود . اذا ممكن اريد اعدل كود الاضافة ب 10 تكست بوكس الى 9 + 1 كومبو بوكس لكن بنفس الطريقة .. Private Sub CommandButton2_Click() lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row For j = 1 To 10 Sheets(1).Cells(lrw + 1, j) = Controls("TextBox" & j).Text Next j Sheets(1).Cells(lrw + 1, 7) = DateValue(TextBox7) Sheets(1).Cells(lrw + 1, 9) = DateValue(TextBox9) For i = 1 To 10 Controls("TextBox" & i).Text = "" Next i
أنا عندي يوزر userform مكون من 90 TextBox الذي أريده :إن كانTextBox ليس به بيانات يختفي وإن كان به بيانات يظهر علىuserform والفورم يأخذ بياناته من ملف يتكون من40 شيت وهذا الفورم مشروع نتيجة طلاب من 2010 الى 2019 والTextBoxs التي أريد أن أخفيها ليست مرتبة عدديا وهي تحوي درجات مواد الملاحق (الدور الثاني) للطلاب والفورم بحث في كل أوراق العمل أي بحث وحذف وتعديل وإضافة وصورة لكل طالب ونص متحرك وصورة متحركة علي(WebBrowser) والازرار تتلون عند الإشارة عليها بالماوس وListBox و ComboBox وImage . وكل هذا العمل من أفكارك وعلمك فقد شاهدت كل أعمالك من أول دورة الvba للمبتدئين ومسلسل الاكسيل في رمضان فهذه بضاعتكم ياأستاذ عماد جزاك الله خيراً !!!!!!
كما تعودنا منك دائما أنك تاتي بما هو جديد وكأنك تقرأ أفكارنا . بارك الله في علمك!!!!!!!!!!!!!
وعليكم السلام ورحمة الله تعالى وبركاته.
ما شاء الله كود رائع وشرح أروع ، بارك الله فيك أستاذي الفاضل
وجزاك الله خير الجزاء، وزادك الله علما ونفع بك .
جزاك الله خيرا
أستاذ عماد رجاء تكبير خط الكود لأنني أكتب ورائك وأفضل كتابة الكود بنفسي .زادك الله علما وتواضعا!!!!!!
استاذ عماد هل يمكن عمل قائمتين منسدلتين مترابطة مع بعضها واحدة باسماء الملفات والثانية باسماء الشيتات الموجودة في كل ملف يعني لما اختار ملف رقم واحد يعطيني في القائمة الثانية الشيتات الموجودة به. وشكرا
شكرا استاذ عماد
بس هل هذه الطريقة تفرق عن طريقة الهايبر لينك
لو سمحت Magic form لا يعمل مع نسخة 64 بت ممكن توضبح كيفيه تعديله وشكرا
هو ينفع يبحث في الملفات ديه كله ويدني النتيجة الي محتجها مثلا انا حاطط رقم 123 في ملف تيست 1 وحاطط 456 في ملف تسيت 2عايز ابحث في ملف المستر علي 456 يديني النتيجة الي قدام 456 ياريت اكون قدرت اوصل لحضرتك عايز ايه
أستاذ عماد هل أطمع من حضرتك في شرح عملي في استخدام if مع visible سواء عدد الTextBox واحد أو أكثر. وإذا كان لحضرتك فيديو في هذا كيف أرجع إليه ؟!!!! الله يجزيك كل الخير وشكراً !!!!!!!!!!!
ممكن تفاصيل اكتر
يعنى بيانات التكست بوكس دى من الشيت ولا من فين بالظبط
مرحبة استاذ عماد هل يمكن جلب الاسماء فقط من دون المسار .. ( اسماء الملفات فقط) وشكرا لك
هل يوجد طريقة لإخفاء الTextBox إذا كان فارغا واظهاره اذا كان به بيانات ؟!!!!!!!!!!!!!
استعمل الدالة if مع الخاصية
visible
السلام عليكم . بارك الله بيك استاذ عماد على هذه الجهود . اذا ممكن اريد اعدل كود الاضافة ب 10 تكست بوكس الى 9 + 1 كومبو بوكس لكن بنفس الطريقة ..
Private Sub CommandButton2_Click()
lrw = Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
For j = 1 To 10
Sheets(1).Cells(lrw + 1, j) = Controls("TextBox" & j).Text
Next j
Sheets(1).Cells(lrw + 1, 7) = DateValue(TextBox7)
Sheets(1).Cells(lrw + 1, 9) = DateValue(TextBox9)
For i = 1 To 10
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("A2:A3000")) + 1
TextBox2.SetFocus
End Sub
أنا عندي يوزر userform مكون من 90 TextBox الذي أريده :إن كانTextBox ليس به بيانات يختفي وإن كان به بيانات يظهر علىuserform والفورم يأخذ بياناته من ملف يتكون من40 شيت وهذا الفورم مشروع نتيجة طلاب من 2010 الى 2019 والTextBoxs التي أريد أن أخفيها ليست مرتبة عدديا وهي تحوي درجات مواد الملاحق (الدور الثاني) للطلاب والفورم بحث في كل أوراق العمل أي بحث وحذف وتعديل وإضافة وصورة لكل طالب ونص متحرك وصورة متحركة علي(WebBrowser) والازرار تتلون عند الإشارة عليها بالماوس وListBox و ComboBox وImage . وكل هذا العمل من أفكارك وعلمك فقد شاهدت كل أعمالك من أول دورة الvba للمبتدئين ومسلسل الاكسيل في رمضان فهذه بضاعتكم ياأستاذ عماد جزاك الله خيراً !!!!!!
استاذ عماد محتاج رقمك ضروري