نجوم المشاركات

االاح محمد ابوعبد الله منذ اكثر من 10 سنوات في عام 2008 تحديدا تم طرح نفس السؤال وتم عمل كود يعمل في بيئة اكسل 11 (2003) وهو يعمل جيدا في هذه البيئه فأذا كنت ترغب بتنفيذ فكرتك فيجب عليك تركيب اكسل 11 (2003) وربما في القريب اقوم بتطبيع الكود ليعمل علي اكيسل 2010 او 2016 او 2019 انظر المرفقات Test_1.xls

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

من بيانات السماح بعمليات تحرير قوائم القيم اجعل القيمة لا وهنا حل بدون استخدام متغير (i) If Command2.Caption = "Open" Then Me.D1.SetFocus Me.D1.Dropdown Command2.Caption = "Close" Else Me.D1.Requery Command2.Caption = "Open" End If

فورم اكسل لقصص انبياء الله للاطفال والكبار الفيديو الملف باسفل فورم اكسل لقصص الانبياء.rar

بعد اذن الاخ علي جرب هذا الماكرو Sub UnMergeRange() Dim i%, k%, ro%, col% Dim MY_RG As Range, CEL As Range ro = Cells(Rows.Count, 1).End(3).Row col = Cells(2, Columns.Count).End(1).Column Set MY_RG = Range("A3").Resize(ro - 2, col) MY_RG.UnMerge For Each CEL In MY_RG If CEL = vbNullString Then _ CEL = CEL.Offset(, -1) Next MY_RG.Columns.AutoFit Set MY_RG = Nothing: Set CEL = Nothing End Sub

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

ربما يكون المطلوب Sub creatB() Dim OBJECTfso Dim OBJECTfolder Dim OBJECTfils Dim ws As Worksheet Set ws = ActiveSheet ws.Range("a2:a100").ClearContents Set OBJECTfso = CreateObject("scripting.filesystemobject") Set OBJECTfolder = OBJECTfso.getfolder("C:\Users\pc\Desktop\med") ws.Cells(1, "a").Value = "the file founf in " & OBJECTfolder.Name & "Are" For Each OBJECTfils In OBJECTfolder.Files ws.Range("a" & Rows.Count).End(xlUp).Offset(1) = OBJECTfils.Name 1: Next Set OBJECTfolder = Nothing Set OBJECTfils = Nothing Set OBJECTfso = Nothing End Sub

مرحبا باخونا واستاذنا الغالي تفضل استاذنا ارجو ان ينال اعجابك XFilter.accdb تحياتي

اوافقك تماما في فائدتها اصبحتاستخدمهاكثيرا .. هنا مثال اخر

الله يعطيك العافية استاذ حسنين اسمح لى انزل مثال بسيط لا ستخدامها في منشئ التعبير في المثال المرفق حددنا طبيعة عمل الموظف بالاختيار مابين 1 الى 5 ch.accdb

فورم بحث واضافة وتعديل وحذف وترحيل بطريقتين فيديو4 طباعة الفيديو

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته احياناً وبعد انهاء البرنامج نحتاج الى تغيير الوان نماذج البرنامج اما كتغيير او تحديث او ... الخ فقمت بتصميم شىء بسيط ممكن ان نسميه Themes الفكرة ببساطة اننا نقوم بانشاء جدول يتكون من اسم Theme وثلاث حقول يتم فيه وضع الوان FormHeader و FormFooter و Detail وفي النموذج الرئيسي للبرنامج نقوم باختيار Theme فيتم وضع هذا الاختيار في متغيير ويتم تطبيق هذه Theme على كافة النماذج بعد وضع كود عند التحميل كما يوجد نموذج باسم frmThemes يمكننا من خلاله التحكم باسم Theme والوان FormHeader و FormFooter و Detail لتغيير الالوان في نموذج frmThemes اضغط DblClick على مربع النص الذي تريد تغيير لونه لتظهر قائمة الالوان البرنامج يمكن تطويره اكثر ليعمل على TextBox و Command كما يمكن ان يشمل التقارير لذلك فأرجو من الله ان ينتفع به كل طالب علم لا اطيل عليكم مرفق البرنامج بسنختين mdb و accdb DB_Themes-accdb.rar DB_Themes1-mdb.rar تحياتي

في كثير من الاحيان، نلجأ الى استخدام الدالة IF أو غيرها من دوال الشروط للتحقق من قيم رقمية. ملاحظة: الدالة تتحقق من الارقام فقط. مثلا لو كان الحقل يتحوي القيمة 1 اظهر لي رسالة جيد واذا كان الحقل يحتوي القيمة 2 اظهرلي رسالة متوسط واذا كان الحقل يحتوي القيمة 3 اظهر لي رسالة ضعيف في الوضع الطبيعي VBA داخل النماذج يكون If txt_Status = 1 Then MsgBox "جيد" ElseIf txt_Status = 2 Then MsgBox "متوسط" ElseIf txt_Status = 3 Then MsgBox "ضعيف" Else MsgBox "لا توجد قيمة مطابقة" End If وفي الاستعلام يكون Check_Value: IIf([text_Status]=1;"جيد";IIf([text_Status]=2;"متوسط";IIf([text_Status]=3;"ضعيف";"لا توجد قيمة مطابقة"))) اما الدالة Choose مختصرة وسهلة اكثر. Nz(Choose(txt_Status, "Good", "Semi-Good", "Bad"), "No Value !") تقوم الدالة بعرض مكان القيمة الصحيحة بين القيم الموضوعه حسب الحقل الموجود txt_Status تحياتي لكم. حسنين

زيادة الى ماتفضل به الاستاذ محمد فانه يجب عليك عمل compile للكود للتأكد من عدم وجود اي أخطاء ومن ثم يمكنك بعدها تحويل الملف الى Accde

بالتوفيق اخي الكريم تحياتي

اخي الكريم الذي قمت به هو كالتالي .. قمت باستعمال الكود التالي تحت زر أمر اعادة التشغيل Application.SetOption "Auto compact", True Utilities.Restart مع إزالة الكود التالي Utilities.Restart Compact:=Nz(ckCompact, False) وكذلك قمت بإزالة الكود التالي من الوحدة النمطية If Compact Then End If مع الابقاء على الكود التالي الذي هو بداخل عبارة الـ if السابقة s = s & """%~f1"" ""%~f2.%3"" /compact" & vbCrLf الملف تمت تجربته وهو يعمل إعادة تشغيل مع الضغط والاصلاح تلقائياً بدون اي مشاكل على اوفيس 2007 تحياتي DatabaseRestartV1.2.accdb

السلام عليكم جرب المرفق ان شاء الله يفي بالغرض برنامج المعتمرين _A2.xlsm

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

وعليكم السلام-فقط عليك استخدام هذا الكود Sub UnmergeAllCells() ActiveSheet.Cells.UnMerge End Sub

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

وعليكم السلام ارفق ملف وعليه توضيح طلبك

السلام عليكم عملت ملفي حسب ما وجدته في ملفك المرفق... لا تسحب المعادلات إلى الأسفل (لسبب الخلايا المدمجة) بل يجب النسخ واللصق بالأسفل... بن علية حاجي ترقيم معادلة.xlsx

Try this file sahb.xlsx

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

جرب الان واعلمني بالنتيجة UPApplicants - Copy_2.rar تحياتي

تمام فهمتك انتظرني دقائق بفكرة جديدة ان شاء الله تحياتي

ابدا يا اخي والله ما في شىء وجزاك الله خيرا ولك جزيل الشكر لا بد من اختيار rank و rank 2 من صف واحد مثلاً rank = Chief Mate rank 2 = Master او rank = 2nd mate rank 2 = 2nd Engineer لا بد ان يكونوا في صف واحد والا فالمرفق السابق هو المطلوب او وضح اكثر اخي الكريم بشرح زيادة 😀 تحياتي

أرجو أن يكون المطلوب بحث واستبدال متكرر (2).xlsm

الاخوة الكرام السلام عليكم ورحمة الله وبركاته مرفق مثال بسيط لعمل تصفية XFilter.rar دمتم بكل خير تحياتي

هذا ما فهمته من كلامك اخي الكريم ام تريدهما معاً مرفق مثال جرب واخبرني بالنتيجة UPApplicants - Copy_2.rar تحياتي

تم فصل الطلب فى موضوع مستقل اخي الكريم ، رجاء توضيح الطلب ليستطيع الأخوة مساعدتك

تفضل اخي الكريم ارجو ان يكون هو المطلوب UPApplicants - Copy.rar تحياتي

مع انك لم تذكر هل هناك رسالة خطا وماهي ؟ ولكن جرب االتالي : 1. تاكد انه يوجد مفتاح اساسي ... هذا دائما يحل مشاكل الربط مع الاس كيو ال 2. غير السطر اعلاه الى : تحياتنا

استاذنا / @Ali Sadiq جزاك الله خيرا وبارك الله فيك تقريبا نفس حل الاستاذ / خالد سيسكو استاذ / خالد اشكرك ولك كل تقدير واحترام استاذنا وخبيرنا الاستاذ / الوزير ابو الكرم لقد سعدت بمرور وكم انت خبير ربنا يبارك فيك وزادك الله علما واحسن اليك فكرة فوق الروعه وعبقرية اشكرك استاذنا وجعلك الله خير عونا لنا اصبح الان اكثر من فكرة للتطبيق ولا أنسى مساعدة استاذنا وخبيرنا / عصام ربيع بارك الله فيه اشكركم اخوانى الاعزاء جميعا على كل ما تقومون به في خدماتنا وبارك الله فيكم

السلام عليكم اخي محمد هل هذا هو المطلوب؟ test.accdb

السلام عليكم تفضل اخي العزيز اعلمنا النتائج test.rar

Sub test() With Cells(6, 4).Resize(Cells(Rows.Count, 3).End(xlUp).Row - 5) .FormulaR1C1 = _ "=IFERROR(R6C3:R4329C3,INDEX(ÇáÇÑÞÇã!R3C4:R42C4,MATCH(R6C3:R4329C3,ÇáÇÑÞÇã!R3C5:R42C5,)))" .Value = .Value End With End Sub

فقط استخدم هذه المعادلة =IF([@[تاريخ اول تعيين]]="","",(TODAY()-[@[تاريخ اول تعيين]])/365) 1معلومات الكادر.xlsm

أخى حلبي جرب المرفق عسى أن أكون فهمت ما تقصد New Microsoft Access Database.accdb

وجزاك الله خيرا استاذي الفاضل شرفت بمرورك الكريم تحياتي

اخى ابو اسيل-بعد اذن استاذنا حسين فى اعتقادى ان مشكلتك الأن قد توضحت وتبينت وهى ربما قمت بلصق هذا الملف داخل تسطيب الأوفيس فى جهازك ,ويكمن حل هذه المشكلة فى الأتى : عليك بالدخول الى بارتشن c ثم بعد ذلك الدخول الى Programe Files (X86) ثم الذهاب الى Microsoft Office ثم Office 14 واخيراً عليك بفتح فولدر اسمه XLSTART ستجد هذا الملف به عليك بحذفه

ايش رايك في التعبير التالي ومشاركة مع الاحبة امسح كل الاكواد ضع التعبير التالي في مربع اليوم =Choose(Weekday([day_date]),"الاحد","الاثنين","الثلاثاء","الاربعاء","الخميس","الجمعه","السبت") وعليك بعمل مربع الشهر بالتوفيق

حمل نسختك المجانية من برنامج المحاسب المهني فى المحاسبة المالية .تم تغيير عنوان الدومين ... http://www.professio...br /><br />مبرمج احمد ابوسنة يسعدني التواصل معكم رابط التحميل فى المنتدي http://www.professionalacc.net/vb/showthread.php?694-%C7%E1%E3%CD%C7%D3%C8-%C7%E1%E3%E5%E4%ED-%DD%EC-%C7%E1%E3%CD%C7%D3%C8%C9-%C7%E1%E3%C7%E1%ED%C9-%C7%E1%C7%D5%CF%C7%D1-%C7%E1%CB%C7%E4%ED

المعطيات * رصيد قديم1 + مبلغ 1 = رصيد جديد1 * رصيد قديم2( رصيد جديد1)+ مبلغ 2 = رصيد جديد2 *رصيد قديم3( رصيد جديد2)+ مبلغ 3= رصيد جديد 3 بحيث الرصيد الجديد في التسجيل الاول يصبح رصيدا قديما في التسجيل الثاني وهكذا............. المطلوب ما هو التعبير او الدالة او الحدث لانشاء هذه العملية