رجب جاويش قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 إخوتى الكرام توضيح كيفية اظهار الصناديق الحوارية الموجودة فى الاكسل من خلال الاكواد فى الملف المرفق تجميع لكل الصناديق الحوارية الموجودة فى الاكسل مثل فتح open أو حفظ باسم save as وغيرها لمن يريد استخدامها داخل الأكواد حيث يتم استخدام اسم الصندوق الحوارى أو رقمة داخل الكود ليتم اظهاره مثال Application.Dialogs(1).Show لفتح الصندوق الحوارى ( فتح open ) وهكذا ويوجد ملف اكسل يحتوى على بعض الأمثلة وتنفيذ عملى لبعض الأكواد التى تعمل على ظهور بعض الصناديق الحوارية صناديق حوارية.rar 1
جمال عبد السميع قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 ماشاء الله عليك أستاذي ملف رائع بارك الله فيك دائما أعمالك متميزة
رجب جاويش قام بنشر يوليو 4, 2012 الكاتب قام بنشر يوليو 4, 2012 شكرا جزيلا أخى الحبيب / محمود على هذا المرور العطر
أبو ردينة قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 ماشاء الله لا قوة إلا بالله مجهود مميز ( دائما ) من أستاذ فاضل أستاذي وأخي الحبيب / رجب جاويش جزاك الله خيرا
رجب جاويش قام بنشر يوليو 4, 2012 الكاتب قام بنشر يوليو 4, 2012 أخى الحبيب / أبو ردينة بارك الله فيك وجزاك الله كل خير على هذه الكلمات الطيبة
أبو حنــــين قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 جزاك الله خيرا اخي الحبيب رجب بارك الله فيكم و سدد خطاكم
رعد العزاني قام بنشر يوليو 4, 2012 قام بنشر يوليو 4, 2012 جزاك الله خير أخ رجب عمل رائع وهذا ليس غريب على محترف مثل الاستاذ رجب جاويش دعواتنا لك بالتوفيق وان يجعل الله ما تقدمة في ميزان حسناتك وفق الله الجميع
رجب جاويش قام بنشر يوليو 4, 2012 الكاتب قام بنشر يوليو 4, 2012 أخى الحبيب / أبو حنين أخى الحبيب / رعد العزاني جزاكما الله كل خير على هذا المرور العطر والكلمات الطيبة
احمدزمان قام بنشر يوليو 5, 2012 قام بنشر يوليو 5, 2012 السلام عليكم و رحمة الله وبركاته اشكرك اخي رجب عمل رائع ومجهود كبير جزاك الله كل خير
رجب جاويش قام بنشر يوليو 5, 2012 الكاتب قام بنشر يوليو 5, 2012 وعليكم السلام ورحمة الله وبركاته شكرا جزيلا أخى الفاضل أستاذ / أحمد زمان على هذا المرور العطر والكلمات الطيبة
أحمد فؤاد قام بنشر يوليو 5, 2012 قام بنشر يوليو 5, 2012 السلام عليكم ورحمة الله وبركاته عمل رائع أخي رجب بارك الله فيك وفي علمك ورزقك من حيث لا تحتسب
رجب جاويش قام بنشر يوليو 5, 2012 الكاتب قام بنشر يوليو 5, 2012 أخى الفاضل / amfouad555 جزاك الله كل خير على مرورك العطر وكلماتك الطيبة
عبدالله المجرب قام بنشر يوليو 5, 2012 قام بنشر يوليو 5, 2012 السلام عليكم بارك الله فيك اخي رجب == للفائدة هذا موضوع مشابه http://www.officena.net/ib/index.php?showtopic=37688
رجب جاويش قام بنشر يوليو 5, 2012 الكاتب قام بنشر يوليو 5, 2012 جزاك الله كل خير أخى عبد الله فعلا الموضوع الذى أشرت اليه مميز جدا فعلا وسر تميزه هو أنه من ابداع أستاذنا الكبير / عبد الله باقشير
saad abed قام بنشر يوليو 5, 2012 قام بنشر يوليو 5, 2012 احى رجب بارك الله فيك وجزاك الله كل خبر وفقك الله سعد عابد
رجب جاويش قام بنشر يوليو 6, 2012 الكاتب قام بنشر يوليو 6, 2012 أخى الفاضل / سعد عابد وفقنا الله وإياكم الى ما يحب ويرضى تقبل تحياتى وشكرى
الزباري قام بنشر يوليو 7, 2012 قام بنشر يوليو 7, 2012 الاخوة الافاضل والحبايب رؤساء ومراقبي أقسام الموقع شكراً لكم على تميزكم مرجع مهم ومفيد وفر علينا عناء البحث شكراً للأخ/ رجب جاويش وشكراً للأخ/ عبدالله المجرب
هاني عدلي قام بنشر يوليو 8, 2012 قام بنشر يوليو 8, 2012 ملف رائع و مميز بارك الله فيك و زادك علماً شكراً للأستاذ / رجب جاويش
هبه مصطفى قام بنشر أغسطس 6, 2012 قام بنشر أغسطس 6, 2012 السلام عليكم ورحمة الله لدى سؤال دلوقتى عندى عمودين A و B العمود A قيمة نقديه العمود B تاريخ فأنا عايزه إنه عند إدخال عمود التاريخ B البرنامج يفعل التالى إذا كان العمود A قيمته أكبر أو أقل من الصفر يقبل العمود B كتابة التاريخ وإن كان الخليه بالعامود A تساوى صفر بالضبط فعند الكتابه فى الخليه التى تقابلها بالعمود B يظهر رسالة من فضلك إدخل القيمة أولاً ولا يقبل تسجيل التاريخ بالخليه إلا بوجود القيمه بالخليه التى تقابلها بالعمود A
رجب جاويش قام بنشر أغسطس 6, 2012 الكاتب قام بنشر أغسطس 6, 2012 تفضلى أختى الفاضلة Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Or Target.Count > 1 Then Exit Sub If Target = "" Then Exit Sub On Error Resume Next If Target.Offset(0, -1).Value = 0 Then Target.Value = "" Target.Offset(0, -1).Value = "" MsgBox "من فضلك أدخل القيمة أولا" Target.Offset(0, -1).Select: Exit Sub End If If Target.Offset(0, -1).Value <> 0 Then Target = Format(Target, "DD/mm/YYYY") End If End Sub Book1.rar
هبه مصطفى قام بنشر أغسطس 7, 2012 قام بنشر أغسطس 7, 2012 (معدل) شكراً على مجهود حضرتك الرائع ولكن للأسف بتظهر الرساله عندى حتى لو أدخلت خلية القيمه فهو لا يقبل تاريخ فى المطلق أنا عايزه أول ما تدخل القيمه التى أكبر أو أصغر من الصفر يقبل تاريخ عادى لا يقبله فقط فى حالة الصفر الفايل بتاع حضرتك شغال تمام لكنى لما أخذت ال Medule كوبى وعدلت أرقام الأعمده حدث ما سبق عمود القيمه هو عمود رقم 13 عمود التاريخ هو عمود رقم 22 وحطيت رقم عمود الإزاحه -9 قمت بالتعديل ولكن إما لا يقبله أو يظلل Debug على Private Sub Worksheet_Change(ByVal Target As Range( تم تعديل أغسطس 7, 2012 بواسطه هبه مصطفى
رجب جاويش قام بنشر أغسطس 7, 2012 الكاتب قام بنشر أغسطس 7, 2012 أختى الفاضلة الملف يعمل معى تمام حاولى ادخال القيمة فى العمود A والتاريخ فى العمود B
هبه مصطفى قام بنشر أغسطس 7, 2012 قام بنشر أغسطس 7, 2012 (معدل) أستاذى الفاضل لقد قمت بتعديل الرساله السابقه أتمنى أن تقرأها مره أخرى وأرفقت فى هذه الرساله الشيت المطلوب عمل الكود بها للتوضيح وهى شيت فقط لأن حجم الملف كبير جدا جداً لا أستطيع إرساله وشكراً للمساعده تم تعديل أغسطس 7, 2012 بواسطه هبه مصطفى
هبه مصطفى قام بنشر أغسطس 7, 2012 قام بنشر أغسطس 7, 2012 معلش الملف أهو لقيته لم يتم إرساله ... موقف_2012.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.