عبد الفتاح كيرة

السلام عليكم لماذا عدم الترتيب تفضل لعلى لم أخطئ Desktop-kemas.rar

أخى الفاضل انتظر لما نشوف المرتبات الجديدة و الحد الأدنى و غيره كلها شهرواحد

نعم أخى habibsss ربما بحثت عن ذلك لأنه لا يحضرنى الآن بعض الوقت ولو كان عند بعض الإخوة فليرفعه لنستفيد الأخ ياسر الحافظ حفظك الله و الله أنا أول المستفيدين الدالة dateadd لزيادة أيام أو شهورأو سنوات أو أرباع السنوات أو الأسابيع أو ساعات أو ثوان لتاريخ ووقت محدد حسبما تختار اللهم علمنا ما ينفعنا

جزاك الله خيرا

مرحبا أخى معذرة للتأخر عليك هذا هو المطلوب لكن على فكرة أنت كنت كتبت فى المربع الثانى الخاص ببداية العقد نفس العبارة التى كانت فى المربع الأول و هى " تاريخ اليوم تلقائى " تم التعديل كما يلى الأول تاريخ اليوم الثانى فارغ تكتب فيه الثالث يتغير تلقائيا بزيادة 6 أشهر عن الثانى الرابع يتغير تلقائيا بزيادةسنة عن الثانى كده مضبوط؟ 2011 ABO ALI 22- kemas.rar

لم أجد فى نسخة إكسل الموجودة عندى هذه الأداة DTPicker

أشكرك أستاذ منتصر جزاك الله خيرا

الخلية a1 تأخذ قيمتها من الخلية a5 و هى أول خلية بها بيانات فى العمود A بعد الخلية a1 طبعا [a1] = Range("a" & Range("a1").End(xlDown).Row)

الأخ المحترم جلال الكود أيضا يضع المعادلة فى الخلايا ولا يحذفها فالنتيجة واحدة لكن هناك وظائف تؤدى نفس مهمة المعادلة و لا تترك معادلة بالخلية و هى ما يسمى بوظائف الشيت وتعمل من داخل الكود مثلا application.worksheetfunction.counta فهذه بديل لدالة counta التى تستخدم فى الخلية لكنها تقوم بالحساب بدون ترك معادلة لأنها وظيفة مبيتة فى تطبيق إكسل لكن هذه الوظائف محدودة قليلا إذا قورنت بالدوال العادية التى نستخدمها مباشرة فى الشيت

أخى habibsss لإظهار التاريخ بالتقويم الهجرى أضف السطر التالى قبل الكود بعد السطر الأول VBA.Calendar = vbCalHijri

كلام تمام بارك الله فيك و زادك علما و آسف لشغلك ما الأمر اللازم لإغلاق الاستعلام من خلال زر أمر داخل النموذج لأنه يوجد زر أمر يغلق النموذج فقط و أريد غلق الإثنين معا وشكرا

لعل هذا ما تريد Private Sub UserForm_Initialize() TextBox1.Text = Date TextBox2.Text = Date TextBox3 = Date + 7 * 26 TextBox4.Text = Date + 365 End Sub المرفقات 2011 ABO ALI - kemas.rar

مطلوبك نادر لكن لعله هذا إظهار مدى فى مربع قائمة كود إظهار الشيت فى ليست بوكس-KEMAS.rar

جرب الكود Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.CommandBars("Worksheet Menu Bar").Visible = True

هل ظهرت عندك الفديوهات أخ ياسر ؟

السلام عليكم إخوتى الكرام magodey دغيدى سعد عابد عبدالله المجرب aghanem بارك الله فيكم والله الواحد مقصر فى حقكم - خاصة هذه الأيام - بسبب الانشغال لكن الرصيد السابق - خاصة فى الفديوهات - يبدو أنه نفع بإذن الله لذلك كنت أتمنى أن يسجل الأساتذة الحقيقيون بهذا المنتدى مثل ذلك فهى تبقى ظاهرة نافعة حتى لو لم يعد صاحبها قادرا على المواصلة أشكر الجميع و أرجو لكم جميعا التوفيق و أحبكم الله الذى أحببتمونا فيه

ashish koul يشير لقناة kemas فى مدونته تقدير كبير لى هذه الصفحة لأحد عماليق إكسل المعروفين ذكر فيها بعض قنوات الفديو التى تقوم بشرح إكسل فوجئت بقناة kemas بين تلك الصفحات هذه الصفحة من المدونة http://akoul.wordpress.com/2011/05/28/excel-video-tutorials/#comment-33 و هذه قناة kemas http://www.youtube.com/user/MsKemas ما كنت أظن أن تصل شهرة هذه الصفحة لهذا الحد شكرا لله و هذا تقدير كبير لمنتدانا و القائمين عليه حيث إننى أحد تلاميذه

كود من سطر واحد [a1] = Range("a" & Range("a" & Rows.Count).End(xlUp).Row) سؤال مهم 1 kemas.rar

شكرا لكم وهذا موضوع مشابه http://www.officena.net/ib/index.php?showtopic=18163 و هنا http://www.officena.net/ib/index.php?showtopic=766

أخى منتصر ما معنى هذا

الله ينور عليك غيرت العمود المنضم إلى 2 الذى فيه الاسم وغيرت إلى [Forms]![frmSearch]![cmbsearch و حذفت مربع النص ونقلت معيار البحث للعمود الثانى فى الاستعلام فجاءت النتائج تمام هناك أسئلة كانت الأسماء تظهر فى الكمبوبوكس لأنى عند رسمه سألنى المعالج عن العمود الذى أريد أن تظهر قيمته فى الكمبوبوكس فاخترت عمود الاسم الذى هو رقم 2 فى الجدول فلماذا أحتاج أيضا إلى تحديد العمود المنضم من الخصائص مزيد من شرح معنى العمود المنضم رحمك الله أستاذ منتصر سؤال آخر فى كود الزر لاستدعاء الاستعلام كررت الأمر الأول DoCmd.Requery DoCmd.OpenQuery "search" DoCmd.Requery لأنه بدون تكرار أحتاج لقفل الاستعلام لبدء بحث جديد و إلا تظهر آخر قيمة بحثت عنها و لا تتغير يعنى لو بحثت عن الاسم الأول يفتح الاستعلام و يظهر الاسم الأول لكن بالعودة للنموذج و الاستعلام مفتوح و تغيير اسم البحث يعطى نفس النتيجة السابقة هل من توضيح ؟ مرفق الملف بعد التعديل البحث بالقيمة الموجودة فى مربع تحرير و سرد2.rar

أخى ياسر إذا لم يكن الفديو يظهر عندك فقم بتحميل هذه الحزمة و ركبها على جهازك http://www.free-codecs.com/download_soft.php?d=6247&s=42

أحسنت بارك الله فيك