زياد عبد الجليل

1 ساعه مضت, ياسر خليل أبو البراء said:

وعليكم السلام

استخدم الكود التالي واربطه بزر الـ Spinner عن طريق كليك يمين ثم Assign Macro واختر اسم الماكرو

Sub Test()
    If Range("C13").Value = 0 Then
        ActiveSheet.Buttons("Button 1").Visible = False
    ElseIf Range("C13").Value > 0 And IsNumeric(Range("C13").Value) Then
        ActiveSheet.Buttons("Button 1").Visible = True
    Else
        MsgBox "Enter Numeric Value", vbExclamation
    End If
End Sub

 

شكرا استاذ ياسر الكود يعمل بشكل جيد بارك الله فيك ....هل يمكن اضافة بسيطة حيث Spinner  يتوقف عند اخر رقم مثلا اذا وصلنا للرقم 7 و لا يوجد اي قيم في الصف الذي يليه يتوقف العد و شكرا

السلام على جميع الاساتذة الافاضل

لقد قام الاستاذ الفاضل بالاجابة عن سؤالي و كان الكود رائع و يعمل بشكل جيد لك اريد اجراء تعديل على الملف بحيث لا اكتب القيمة في الخلية و انما يتم تصفحها من خلال spintbuuton وفق الملف المرفق ولكم مني جزيل الشكر

اخفاء زر بدلالة قيمة في خلية.rar

شكرا استاذ ياسر و استاذ ابوعبد على مروركما الطيب

لقد اجاب الاستاذ ياسر على المطلوب بدقة بارك الله فيكما و شكرا لكما

السلام على جميع الاساتذة الافاضل:

اما بعد

اريد كود لاخفاء زر بدلالة قيمة في خلية حيث اذا كانت قيمة الخلية =0 يختفي الزر اما اذا كانت تساوي قيمة اكبر من الصفر اي من 1 الى ما لا نهاية يضهر الزر مجددا

ولكم مني جزيل الشكر

اخفاء زر بدلالة قيمة في خلية.rar

اصالة عن نفسي ونيابة عن كل زملائي في موقع اوفيسنا اتقدم بأحر التهاني و اصدق الاماني بمناسبة عيد الفطر السعيد  الى مدير الموقع و كل المشرفين بدون استثناء و الى كل الاعضاء و الزوار.

عيدكم سعيد و كل عام و الامة الاسلامية بخير .

شكرا استاذ قنديل على مرورك الطيب لم تنجح الطريقة المقترحة .

السلام علي جميع الاساتذة الافاضل اما بعد

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

تكوــــــــــــــــــــــــين فصول.rar

في 08/04/2017 at 15:24, شوقي ربيع said:

بسم الله الرحمان الرحيم

السلام عليكم

تحياتي لجميع اعضاء اوفيسنا المحترمين

الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب

لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول

فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك

لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته

و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة

ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية

يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته

كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك

وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها

اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول

نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص

اولا

اذهب الى محرر الاكواد تجد موديل باسم ModulePublic

تجد في بدايته هذين الكودين او التعريفين ان صح التعبير

Public Const sNomFeuil As String = "data"   'اسم ورقة العمل التي تحمل قاعدة البيانات
Public Const sTableau  As String = "tbData" ' اسم جدول قاعدة البيانات

اضن ان الامر واضح

تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data"

واسم الجدول نفسه مكان عبارة "tbData"

ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول

لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول

باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم

ثانيا

نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس)

لتنفيذ ذالك

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

في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة

ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس  اسم نطاق القائمة و انتهى الامر

ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل

ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت

            و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا

اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي

اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا

الاخ ضاحي الغريب و الاستاد عبد الله باقشير

تحياتي للجميع

 

 

UserForm Flexibles.rar

 

استاذ ربيع هناك مشكلة في التاريخ بحيث الشهر يصبح مكان الايام و الايام كان الاشهر ...كيف يمكن تصحيح هذا المشكل

شكرا لاساتذي الكرام على مرورهم الطيب و بارك الله فيك استاذ خالد و الاستاذ عبد السلام و حفظكم الله

في 12/06/2017 at 19:50, محمود أبوالدهب said:

ليه التواريخ بالفورم الشهر مكان اليوم وايضا ممكن اكون مش عايز كل الخلايا يكون فيها بيانات  ممكن احتاج اسيبها فارغة فممكن تعديل هذا الا مر

هناك مشكل في التاريخ

بارك الله فيك استاذ على هذا العمل القيم

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

السلام على جميع اساتذتنا الافاضل و جمعة مباركة للجميع

لدي طلب يتمثل في ادراج معادلة شرطية بحيث اذا كان قيمة خلية =0 هنا الخلية مثلا h5تتلون بالاحمر وتدرج عبارة داخلها ممنوع الطباعة اما اذا احتوت الخلية اي قيمة ما عدا الصفر هنا الخلية h 5 تتلون بالاخضر و تكتب طباعة مسموحة...ارجو المساعدة مع الشرح

معادلة شرطية.rar

شكرا جزيلا استاذ بن علية بارك الله فيك

في 13/06/2017 at 12:27, بن علية حاجي said:

السلام عليكم ورحمة الله

جعلت الكود يقوم بإخفاء كل الصفوف التي في خلايا العمودين B أو D التي تحوي القيمة 00-01-1900 مع ترك باقي الصفوف الأخرى ظاهرة مع الصف الفارغ بين المدد والصفوف التي في عمودها الثاني B الجملة التي تبدأ بالكلمة "المدة"... ويطبع النتيجة المتحصل عليها ثم يعيد إظهار كل الصفوف...

بن علية حاجي

 

book.rar

استاذي القدير بن علية التمس منك فضلا لا امرا مساعدة في تطبيق نفس مبدا كود الطباعة على الملف المرفق حيث هذه المرة اقوم باستبدال التاريخ 00-00-1900 ب اعمدة //// حاولت تطبيق الكود لكن لم انجح فيه ولك مني جزيل الشكر و العرفان

طباعة متخصصة.rar

بارك الله فيك استاد

السلام على جميع الاخوة الافاضل اما بعد

اريد ادراج معادلة شرطية تتمثل فيما يلي

اذاكانت الخلية b2تحتوي على عبارة منتدى اوفيسنا هنا ادرج شرط للخلية a2 بجلب القيمة الموجودة في c2

واذا كانت الخلية  b2=0 هنا الخلية a2 تقوم بجلب القيمة الموجودة في الخلية d2

ولكم مني جزيل الشكر و العرفان

بارك الله فيك استاذ سليم و شكرا على مرورك الطيب

السلام على جميع الاخوة الافاضل:

اطلب مساعدة في حساب الفرق بين تاريخين بحيث اذا كانت خانة الاشهر تساوي اكثر من 12 شهر يتم اضافته الى خانة السنة و الاحتفاظ بالباقي ونفس الشء في خانة الايام اذا كانت القيمة تفوق 30 يوم مثلا 34 يوم يتم اضافة شهر لخانة الاشهر و الاحتفاظ بالباقي

 ارجو مساعدتي في ايجاد حل لهذه المعضلة 

الفرق بين تاريخين.rar

بارك الله فيك استاذ بن علية 

السلام عليكم استاذ بن علية

لقد استبدلت

  ActiveWindow.SelectedSheets.PrintOut Copies:=1

هذا السطر بهذا ولا اعلم ان كان سينجح ام لا

Sheets("feuil1").Range("a1:m83").PrintOut

الطابعة في المنزل معطلة اعتقد ان الامر سينجح ولك مني جزيل الشكر و العرفان

شكرا لك استاذ بن علية نعم هذا هو المطلوب بالضبط و كانك ساحر يا استاذ هل يمكن لك ان تشرح لي هذا الكود الرائع كما اريد ان اسأل لانني الان في المنزل ولست في العمل حتى اجرب الطباعة حيث اذا قمت بنسخ الجدولين ولصقهما في صفحة 2 في نفس الورقة و عملت في الصفحة الاولى نصوص هل الكود سيطبع الصفحة 1 و 2 ام انني احتاج الى تعديله

لانني للاسف لم استطع فهم  الكود الرائع  لذا ارجو منك تقديم شرح بسيط لهذا الكود المميز

book.rar

شكرا استاذ بن علية وبارك الله فيك على هذا الكود القيم و الممتاز 

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

book.rar

السلام على جميع الاساتذة الافاضل

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

اريد كود لطباعة صفحة اكسيل بحيث اضع له شرط ان الصفوف التي تحتوي على تاريخ بصيغة 00-01-1900يتم اخفائها بشرط بقاء الاعمدة التي لا يتم اخفائها ثابتة في مكانها و عند تنفيذ امر الطباعة تعود للضهور من جديدفي مكانها السابق

ارجو منكم المساعدة و تقبلو فائق شكري لكم

كود طباعة متخصص.rar

السلام على جميع الاخوة الافاضل اريد تنسيق شرطي في حالة اذا كان التاريخ بهذا الشكل 00-01-1900 تكتب اليا في الخلية /////

حيث انني جربت [=0]"/////"; standard

هذا التنسيق ولكن لم ينجح لانني مبرمج الخلية بتنسيق تاريخ و في حالة كان التاريخ صحيح يتحول الى رقم

ارجو المساعدة مع الشرح

بارك الله فيك استاذ حاجي بقي مشكل في الايام فقط هل يمكن ان يقرب 28 الى 29 يوم اذا كان الناتج مثلا 28.5 اذا امكن ولك مني فائق عبارات الشكر و التقدير