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 مع خالص شكري واحترامي

اوكي استاذ رجب .. شكراً جزيلا جزاك الله خيراً

اشكرك استاذي على سعة صدك واعذرني لأني نسيت ارفاق الملف . الملف الآن مرفق شكراً جزيلاً kmaal5.rar

السلام عليكم ورحمة الله وبركاته حياك الله يا أستاذ رجب الملف شغال زي الفل ، مشكور يا باشا ، بس عندي استفسار ، على حسب وقتك ، وإذا ما كان فيه أي ازعاج لك أو تضييع لوقتك. هل أستطيع استدعاء تكليف سابق في قاعدة البيانات إلى التكليف . يعني اكتب رقم التكليف ويطلع في ورقة التكليف مع خالص شكري وتقديري واحترامي وفقك الله لما فيه الخير

السلام عليكم ورحمة الله وبركاته ممكن كيفية اختصار هذا الكود If ComboBox1.Value = "المختص" Then documents.Open "C:\test\b.doc" ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Select Selection.Copy ActiveDocument.Close savechanges:=False ActiveDocument.Tables(1).Cell(Row:=1, Column:=1).Range.Select Selection.PasteAndFormat Type:=wdFormatPlainText End If مع العلم أن قائمة الكمبوبوكس أكثر من 16 عنصر ، والمعادلة الموضحة شغالة تمام تنسخ من خلية من جدول ورد من ملف b إلى خلية في جدول ورد آخر للملف A حسب شرط قائمة الكمبوبوكس . والمطلوب كيفية اختصار لهذا الكود ، انا أقل من مبتدئ جداً جداً تحت الصفر ، يعني كيف نعمل المتغير . مع خالص الشكر ،،،

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

العفو أخي ، اوكي لا مشكلة في النقل

أخواني الكرام ، في البداية السلام عليكم ورحمة الله وبركاته ، ومبارك عليكم اقتراب الشهر الكريم اتمنى لكم مزيداً من النجاح إن شاء الله تعالى واشكر القائمين على المنتدى الذي يبذلون جهوداً طيبة تستحق التقدير وعندي استفسار ، هل من الممكن عمل فورم في الورد لإدراج توقيعات معينة في رسالة وتكون هذه التوقيعات مبينة بالأسامي في ملف آخر . يعني عند اختيار المسمى للتوقيع من الفورم يتم نسخ نفس المسى من جدول في ملف آخر مع شكري وتقديري لكل من يثري عقولنا بالمعلومات والفائدة . وجزيتم خيراً message.rar

بارك الله فيك يا أستاذ رجب وجزاك خيراً وكثر من أمثالك

السلام عليكم استاذي القدير رجب والله انا محرج منك جداً ، وانا عارف أن طلباتي كثيرة لكن إذا تكرمت ، هل بالامكان اعمل سيريال تلقائي لهذا الملف مع دمج الخلايا ، أقصد لملف قاعدة البيانات ويكون كما في الصورة الموضحة : وبارك الله فيك وجزاك خيراً

شكراً جزيلاً يا استاذي القدير ، وزادك الله علماً