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

تفضل ...... برنامج_القرأن_الكريم.zip

السلام عليكم ورحمة الله وبركاتة واجهة مشكلة عند النقر على زر ضغط واصلاح قاعدة البيانات وعند تحويل قاعدة البيانات( الواجهة) الى accde بظهور رسالة غريبة ولا يتم بعدها اكمال العملية سواء الضغط والاصلاح أو عملية تحويل القاعدة هذه صورة الرسالة فصرت ابحث وين المشكلة مدة اسبوعين في الاكواد لكن لم اجد اي كود يوجد به خطأ صرت ابحث في الاستعلامات ونفس الشي لم اتوصل الى اي خطأ وبعد التعب في البحث فكرت ابحث عن المشكلة في الجداول في قاعدة البيانات الخلفية كانت الجداول سليمة تمام بعد كذا رحت ابحث في الجداول المرتبطة فكتشفت ان احد الحقول قد تم تغيره وهو عبارة عن حقل قائمة منسدلة يقبل اختيار عدة قيم لكن يظهر بشكل حقل مرفق هذه الصورة قبل وهذه الصورة بعد الان عرفت وين المشكلة لكن مش عارف سببها رجعت الى حلقة البحث والاستكشاف 😖صرت ابحث عن الاكواد التي لها صلة بالحقل في النماذج مباشرة ولكن كل شي كان تمام التمام صرت ابحث في الاكواد العامة في القاعدة مثل اكواد التأمين واكواد النسخ الاحتياطي الخ ...... الى ان وصلت الى كود اخفاء الجداول المرتبطة وهنا كانت المفاجأه فبعد ايقاف هذا الكود واعادة اصلاح الجدول واظهارة اختفت المشكلة وبعد اعادة الكود للعمل وتنفيذ اخفاء الجداول ترجع المشكلة مع العلم ان المشكلة ما تصير الا مع هذا الحقل في هذا الجدول فقط فتذكرت كلمة لاستاذنا @jjafferr في احد المواضيع ( لا اتذكر الموضوع بالضبط ) وهو يقول انه قرأ ان اكواد احفاء الجداول تسبب مشاكل وهذا ما حدث معي بالفعل واحببت ان اشارككم هذه المشكلة لكي يتم اخذ الحيطة والحذر وهذا هو الكود Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing

تفضل ...... Qran.mdb

بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx

أ/ jo_2010 فى خصائص الحقل بالجدول Field Size .. Double Format .. Standard بس هيا بتبفى فاصلة بين كل 3 أرقام والنقطة بتبقى قبل آخر رقمين عشريين مبتبقاش كلها نقط

لعل هذا جزء من الحل ..... تفضل حضور المهندسين.accdb

الاخ عبدالله الصاري الموقر والاخ علي محمد علي الموقر جزاكم الله خيرا ورحم الله والديكم

وعليكم السلام -انظر الى هذه الصورة فبها طلبك

تفضل لك ما طلبت تنسيق شرطى بشرط.xlsx

بارك الله فيك أستاذ أحمد ولكن اعتقد ان تكون المعادلة في الخلية bb7 هكذا =IF(AT7="Turkish Lira","Peaches",IF(AT7="USD DOLLARS","Cents"))

وعليكم السلام تفضل اخى الكريم عليك مشاهدة هذه الصورة لمعرفة سبب توقف المعادلة عن العمل Copy of Bank Statement _ 2019.xlsm

او يمكنك تجربة هذا الملف أيضا بريك.xlsx

وعليكم السلام وكل عام وانتم بخير -نورت المنتدى اهلا بك جرب هذا تم ضبط وتعديل الملف , كل ما عليك اختيار كود الموظف من القائمة المنسدلة الموجودة بعمود كود الموظف ثم بعد ذلك كتابة الحضور والإنصراف وسيب الباقى على الإكسيل Attendance.xlsx

تم إضافة الجزئين فى الفورم أما بالنسبة للتسلسل فيوجد دالة في ورقة العمل في العمود A لاحظ أن الليبل المقابل للتكست بوكس 1 مكتوب باسم الوردية والتسلسل يعمل بمجرد إدخال أي بيانات في العمود B بالنسبة للطلب الأخير قم بإضافة ورقة عمل واكتب النتائج المتوقعة ( التي يجب أن تأتي بمعادلات ) حتى يمكننا التعامل معها فكل أعضاء المنتدى لا يتعاملون مع الصور Book1(1).xlsm

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

شكرا لك على المعلومة النادرة المهمة ، كتب الله اجرك ،،،

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

استبدل الماكرو بهذا Option Explicit Sub Transfer_data() Dim i%, m%: m = 4 Dim lrA%, My_text Dim Wrd(), t%: t = 1 Dim k% Range("D4").Resize(500, 13).ClearContents lrA = Cells(Rows.Count, "A").End(3).Row For i = 4 To lrA If Range("A" & i) = vbNullString _ Or Range("B" & i) = vbNullString Then GoTo NEXT_I End If My_text = Split(Range("b" & i), " ") For k = LBound(My_text) To UBound(My_text) If My_text(k) <> vbNullString Then ReDim Preserve Wrd(1 To t) Wrd(t) = Application.Substitute(My_text(k), ",", ".") Wrd(t) = IIf(IsNumeric(Wrd(t)), Wrd(t), 0) t = t + 1 End If Next Range("D" & m) = Range("A" & i) Range("E" & m).Resize(1, UBound(Wrd) - LBound(Wrd) + 1) = Wrd m = m + 1 Erase Wrd t = 1 NEXT_I: Next Range("D35") = "TOTAL" Range("E35").Resize(, 12).Formula = _ "=SUM(E4:E34)" End Sub

تم التعديل على الملف الجديد درجات.xlsx

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

الملف يعمل عندى بشكل طبيعى New_Microsoft_Excel_Worksheet_(2).xlsx

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

مرفق الطباعة على ورقة نصف A4 تسمى (A5) كل شهادة بورقة ( يجب أن يكون لديك ورق حجم A5 وتضبط درج الطباعة أو الماكينة على نفس حجم الورق شهادات جديد مع اضافة صور للطلبة.rar

العفو استاذي الكريم

تفضلوا هذا هو الملف بعد اذن الأستاذ محمد فؤاد طبعا لكى تعم الإستفادة للجميع المبيعات و العملاء.xlsm

جزيت خيرا

تفضل data transfer.xlsm

اقترح هذا الماكرو Option Explicit Sub CALCUL() Dim MY_DIC As Object Dim K, m#, x%: x = 3 Set MY_DIC = CreateObject("Scripting.Dictionary") With MY_DIC Do Until Range("B" & x) = vbNullString K = Range("B" & x): m = Range("D" & x) If Not .exists(K) Then .Add K, m Else MY_DIC(K) = MY_DIC(K) + m End If x = x + 1 Loop Range("F3").Resize(.Count) = _ Application.Transpose(.Keys) Range("G3").Resize(.Count) = _ Application.Transpose(.Items) .RemoveAll: Set MY_DIC = Nothing End With End Sub الملف مرفق Working_with_dictionary.xlsm

أهلا بك في منتدانا تفضل يتم ذلك مباشرة بمجرد دخولك على هذه الروابط-اختر منها ما يناسبك : https://smallpdf.com/ar/pdf-to-excel https://www.hipdf.com/ar/pdf-to-excel https://www.freepdfconvert.com/ar/pdf-to-excel https://www.pdftoexcel.com/ar https://convertio.co/ar/pdf-xlsx/ https://www.ilovepdf.com/ar/excel_to_pdf

تفضل اخى الكريم هذا كان برنامج جاهز عندى 2.xls

اهلا بك في منتدانا الكريم تفضل هذا الرابط -كان عليك استخدام خاصية البحث في المنتدى أولا قبل رفع المشاركة https://www.officena.net/ib/topic/91235-طباعة-الشيكات-بالاكسل/?tab=comments#comment-572010

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

وعليكم السلام ممكن تشوف الصورة

وعليكم السلام التنسيق الشرطى.xlsx

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

تفضل-هل هو غير واضح لهذه الدرجة ؟!!!!!!! http://www.mediafire.com/file/iwmlyw13zdl/بيانات+طبية.rar

بارك الله فيك وجزاك الله كل خير

السلام عليكم ورحمة الله أرفق ملفك أو جزءا منه للعمل عليه... وهل تضع الرسم 1500 دج في حالة ما إذا كان الرسم على المبلغ حسب النسب المعطاة أقل من 1500 دج؟ الملف المرفق فيه بعض ما تريد (على ما أعتقد)... بن علية حاجي Classeur1.xlsx

وعليكم السلام كان عليك فقط استخدام خاصية البحث بالمنتدى -تفضل https://www.officena.net/ib/topic/49634-حساب-سن-المعاش-لسن-الـ60/ https://www.officena.net/ib/topic/22634-هل-توجد-دالة-لحساب-سن-التقاعد-المعاش-في-الإكسيل/ وهذه ايضا روابط خارجية مفيدة من منتديات اخرى https://excel-egy.com/forum/t141 ويمكنك ايضا معرفة التاريخ الذى يصل اليه الشخص لسن المعاش ,فاذا افترضنا ان تاريخ الميلاد موجود بالخلية E2 فيمكنك استخدام هذه المعادلة للتوصل لتاريخ سن المعاش =IF(DAY(E2)=1,DATE(YEAR(E2)+60,MONTH(E2),0),DATE(YEAR(E2)+60,MONTH(E2)+1,0))

تفضل العملاء 2019.xlsm

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

كبف يمكن هذا بكود الوظيفة وهو كود واحد وثابت لكل الموظفين ؟! من فضلك عليك بتوضيح المطلوب اكثر على الملف ووضع شكل النتائج المطلوب استخراجها

بارك الله فيك

تفضل VLOOKUP.xlsx

اهلا بك اخى الكريم فى المنتدى الرابط موجود فى اول مشاركة من الموضوع-تفضل http://www.mediafire.com/file/iwmlyw13zdl/بيانات+طبية.rar

اشكرك استاذي على الشرح ...... بارك الله فيك

أشكرك أخي صالح ..... بارك الله فيك وفي عمرك ووقتك ..... تم المطلوب .....

السلام عليكم ورحمة الله اخواني في المنتدي ...... بارك الله فيكم وفي اوقاتكم ... وجدت البرنامج المرفق في الموضوع وهو يقوم بتحويل النصوص الى شيقرة أرقام .... طلبي هو العكس تحويل شيفرة الارقام إلى حروف بارك الله فيكم . kanory.rar

هههه ..... زادت اللحمه ...... جزاك الله خيرا ..... تم المطلوب ... الله يكتب ذلك في ميزان حسناتك . أخي أمير .....

حبه حبه علينا يا أمير .... ولك من اسمك نصيب لكن ماذا لوكان الكود بدون علامة تنصيص ..... شاهد المرفق kanory.rar