kmaal

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

رمضان كريم يا استاذي القدير رجب وجزاك الله خيراً ، وزادك علماً شكراً جزيلاً الأخ/ أبو حنين ، شكراً جزيلاً اخي الكريم

السلام عليكم ورحمة الله وبركاته شهر مبارك ، وتقبل الله منا منكم وجزاكم الله خيراً على كل الجهود التي يتم تقديمها في هذا المنتدى الغالي وسؤالي اخواني الكرام / انا عندي فورم وقائمة اختيار (كمبوبوكس) المطلوب عند اختيار عنصر من الكمبوبوكس يتم نسخه إلى الخلية c في ورقة الاكسل وعند اختيار عنصر (اختياري) من الكمبوبوكس يتم تلقائياً إدراج خانة تكست بوكس و يقوم المستخدم بتعبئتها ومن ثم يتم ترحيلها إلى نفس الخلية السابقة في الاكسل (وفقكم الله وجزاكم الله ألف خير ) وعند اختيار (جهة اختيارية) يتم تلقائياً إدراج تكست بوكس يقوم المستخدم بكتابتها ومن ثم بعد الضغط على موافق يتم ترحيلها إلى الخلية c الجهة.rar

السلام عليكم ورحمة الله وبركاته رمضان مبارك ـ وكل عام وأنتم بخير وتقبل الله منا ومنكم صيامنا وقيامنا عندي استفسار عندي ملف موجود فيه كمبوبوكس وعند طباعة الملف يظهر شكل الكمبوبوكس (السهم والإطار) هل من الممكن اخوتي الكرام عند الطباعة يظهر عنصر الكمبوبوكس فقط بدون ظهور السهم والإطار مع العلم أني لا أرغب بعمل Linkcell إلى خلية مثلاً . وشكراً

وجدت الحل إضافة هذا السطر إلى كل صندوق : CommandButton2.Enabled = (ComboBox1.ListIndex > 0 Or ComboBox2.ListIndex > 0 Or ComboBox3.ListIndex > 0 Or ComboBox4.ListIndex > 0 Or ComboBox5.ListIndex > 0 Or ComboBox6.ListIndex > 0 Or ComboBox7.ListIndex > 0 Or ComboBox8.ListIndex > 0) شكراً جزيلاً في أمان الله

بارك الله فيك اخي على الرد جربت الكودات بس ما نفع انا حطيت الكود في هذا المكان Private Sub ComboBox1_Change() يمكن مكان الكود هو الغلط . مع خالص الشكر

السلام عليكم ورحمة الله وبركاته أسأل الله أن يبلغنا ويبلغكم رمضان في أتم الصحة والعافية يرجى تكرمكم بمساعدتي بكود تفعيل زر موافق بشرط اختيار أي عنصر من عناصر الكمبوبوكس اما إذا كانت العناصر كلها على القيمة 0 يعني (فارغ) فإن الزر يكون غير مفعل نا جربت هذا الكود بس ما نفع معي : If ComboBox1.ListIndex = 0 And ComboBox2.ListIndex = 0 And ComboBox3.ListIndex = 0 And ComboBox4.ListIndex = 0 And ComboBox5.ListIndex = 0 And ComboBox6.ListIndex = 0 And ComboBox7.ListIndex = 0 And ComboBox8.ListIndex = 0 Then Me.CommandButton2.Enabled = False وشكراً جزيلاً وجزيتم خيراً التوقيع1.rar

السلام عليكم Dim i As Integer Dim h As Integer For i = 1 To 8 المطلوب أخواني الأكارم : اريد H يساوي 1 عندما يكون i حتى 4 أما إذا i أكبر من أربعة فإن H يساوي 2 وشكراً جزيلاً

شكراً جزيلاً

سؤالي انا املك في ملفي 8 قوائم combobox واريد تطبيق الكود على كل واحد من القوائم بالتتالي عملت الكود اسفله ويطلع لي خطأ . وهل من الممكن جعل قيمة H تساوي رقم الاختيار للـListindex dim combo as combobox Dim i As Integer Dim h As Integer For i = 1 To 8 combo = combo & ( i ) h = combo.listindex وجزاكم الله خيراً على التعاون . (مرفق الملف للتوضيح) month.rar

الحمد لله وجدت الحل أخي تعريف i = ComboBox1.ListIndex يعطيك عدد العناصر في الكمبوبوكس شكراً كثيراً

مشكور على كل جهودك الطيبة يا أخي الكريم والمعذرة على ازعاجك . لكن الكود اللي طلبته هو للورد وليس الاكسل .

طيب كيف أعرف رقم الاختيار في combobox أقصد اريد عدد صحيح مثلاً عند اختيار الخيار الثالث في صندوق combbox يعطيني عدد صحيح 3

مشكور ابو حنين على الرد بس اريد الاستفسار فقط كيفية تعريف متغير يقوم بعد قائمة الكمبوبوكس

السلام عليكم ورحمة الله وبركاته المطلوب أساتذتي الكرام هو كيف أعرف عدد عناصر الكمبوبوكس يعني أريد عندما اختار مثلاً عنصر رقم 3 في الكمبوبوكس يتغير عندي الاختيار select إلى رقم الخلية في الجدول المطلوب إلى رقم 3 Dim count As Integer Dim i As Integer count = ComboBox1.ListCount For i = 0 To count Combo1.Text = ComboBox1.List(i) If ComboBox1.Value = "combo1.txt" Then sourcedoc.Tables(1).cell(i, 1).Range.Select مع خالص شكري واحترامي