بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
kmaal
-
Posts
32 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه kmaal
-
-
رمضان كريم يا استاذي القدير رجب
وجزاك الله خيراً ، وزادك علماً
شكراً جزيلاً
الأخ/ أبو حنين ، شكراً جزيلاً اخي الكريم
-
السلام عليكم ورحمة الله وبركاته
شهر مبارك ، وتقبل الله منا منكم
وجزاكم الله خيراً على كل الجهود التي يتم تقديمها في هذا المنتدى الغالي
وسؤالي اخواني الكرام /
انا عندي فورم وقائمة اختيار (كمبوبوكس)
المطلوب عند اختيار عنصر من الكمبوبوكس يتم نسخه إلى الخلية c في ورقة الاكسل
وعند اختيار عنصر (اختياري) من الكمبوبوكس يتم تلقائياً إدراج خانة تكست بوكس و يقوم المستخدم بتعبئتها
ومن ثم يتم ترحيلها إلى نفس الخلية السابقة في الاكسل
(وفقكم الله وجزاكم الله ألف خير )
وعند اختيار (جهة اختيارية) يتم تلقائياً إدراج تكست بوكس يقوم المستخدم بكتابتها ومن ثم بعد الضغط على موافق يتم ترحيلها إلى الخلية c
-
السلام عليكم ورحمة الله وبركاته
رمضان مبارك ـ وكل عام وأنتم بخير
وتقبل الله منا ومنكم صيامنا وقيامنا
عندي استفسار
عندي ملف موجود فيه كمبوبوكس وعند طباعة الملف يظهر شكل الكمبوبوكس (السهم والإطار)
هل من الممكن اخوتي الكرام عند الطباعة يظهر عنصر الكمبوبوكس فقط بدون ظهور السهم والإطار
مع العلم أني لا أرغب بعمل 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
وشكراً جزيلاً
وجزيتم خيراً
-
السلام عليكم
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
وجزاكم الله خيراً على التعاون . (مرفق الملف للتوضيح)
-
الحمد لله وجدت الحل أخي
تعريف
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
مع خالص شكري واحترامي
-
اوكي استاذ رجب ..
شكراً جزيلا
جزاك الله خيراً
-
-
السلام عليكم ورحمة الله وبركاته
حياك الله يا أستاذ رجب
الملف شغال زي الفل ، مشكور يا باشا ، بس عندي استفسار ، على حسب وقتك ، وإذا ما كان فيه أي ازعاج لك أو تضييع لوقتك.
هل أستطيع استدعاء تكليف سابق في قاعدة البيانات إلى التكليف .
يعني اكتب رقم التكليف ويطلع في ورقة التكليف
مع خالص شكري وتقديري واحترامي
وفقك الله لما فيه الخير
-
السلام عليكم ورحمة الله وبركاته
ممكن كيفية اختصار هذا الكود
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
يعني كود عند اختيار العنصر ينفذ الكود اللي انا اريده .
يا أخواني الكرام لا تبخلو علينا جزاكم الله خيراً
-
العفو أخي ، اوكي لا مشكلة في النقل
-
أخواني الكرام ، في البداية السلام عليكم ورحمة الله وبركاته ، ومبارك عليكم اقتراب الشهر الكريم
اتمنى لكم مزيداً من النجاح إن شاء الله تعالى
واشكر القائمين على المنتدى الذي يبذلون جهوداً طيبة تستحق التقدير
وعندي استفسار ، هل من الممكن عمل فورم في الورد لإدراج توقيعات معينة في رسالة
وتكون هذه التوقيعات مبينة بالأسامي في ملف آخر .
يعني عند اختيار المسمى للتوقيع من الفورم يتم نسخ نفس المسى من جدول في ملف آخر
مع شكري وتقديري لكل من يثري عقولنا بالمعلومات والفائدة .
وجزيتم خيراً
-
بارك الله فيك يا أستاذ رجب
وجزاك خيراً
وكثر من أمثالك
-
السلام عليكم استاذي القدير رجب
والله انا محرج منك جداً ، وانا عارف أن طلباتي كثيرة
لكن إذا تكرمت ، هل بالامكان اعمل سيريال تلقائي لهذا الملف مع دمج الخلايا ، أقصد لملف قاعدة البيانات ويكون كما في الصورة الموضحة : وبارك الله فيك وجزاك خيراً
-
شكراً جزيلاً يا استاذي القدير ، وزادك الله علماً
مخططات 3d
في منتدى الفيزيو Visio
قام بنشر
السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء ، أسأل الله لكم العافية
ماهو البرنامج الخاص برسم المخططات البسيطة الثري دي كما في الصورة المرفقة
شاكرين تعاونكم