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

تفضل ...... برنامج_القرأن_الكريم.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

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

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

واذا حقول التقرير كثيرة ، فبالاضافة الى جعل التقرير افقي ، قد تحتاج الى 🙂 جعفر

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

وعليك السلام ورحمة الله وبركاته تم عمل المطلوب وتم بعض تعديلات حيث لا داعي أكتب السنة والشهر في اليوزر فورم ممكن عمل ذلك داخل الإكسيل بالمعادلات وتم إضافة عمود للوردية في ورقة العمل وكذلك عمود للتسلسل وتم عمل زر للتعديل من اليوزر فورم وعمل زر مسح لليوزر فورم إذا أخطأت في كتابة أي فيتم مسحه الفورم وإعادة الكتابة و تم عمل كود لإغلاق الفورم وتم إضافة زر الخروج من الملف Book1.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

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

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

بعد اذن الأستاذ عبدالله وهذا رابط اخر من داخل المنتدى -يمنع فتح الملف اذا تم نقاه وتغيير مكان الحفظ او تغيير اسمه https://www.officena.net/ib/topic/38637-موضوع-مميز-تمت-الاجابةأريد-كود-يمنع-الملف-من-الفتح-عندما-يستبدل-جهاز-الكمبيوتر-نقله/?tab=comments#comment-261437 وهذا موضوع اخر يخص طلبك وهو ربط بين ملف اكسيل واسم جهاز الكمبيوتر http://excel-egy.com/forum/t3183 وهذا ايضا موضوع اخر لملف يعمل على جهازين فقط https://www.officena.net/ib/topic/64356-ملف-يعمل-على-جهازين-فقط/ واخيرا اذا كنت حابب ان تمنع الملف ان يفتح ويعمل على اى جهاز يمكنك تتبع الأتى: اولا:-عليك بفتح مديول جديد ووضع هذا الكود به Sub CommitSuicide() 'http://www.cpearson.com/excel/workbooktimebomb.aspx With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثانيا :- وضع كود اخر فى حدث This Workbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub واخيرا عليك بتسمية احد صفحات الملف ب Welcome Sheet ووضع هذا الكود فى حدث هذه الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك

جزاكم الله خيراً إخوتي الكرام على مروركم العطر .. تقبلوا تحياتي العطرة والسلام عليكم.

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

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

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

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

بعد اذن أخي بن علية هذا الحل (في الخلية P2 تضع قيمة الحد الأدنى اذ ربما احببت ان تغير قيمته) المعادلة =IF(COUNTA($B2:$C2)<2,"",MAX(OFFSET($O$2,MATCH(C2,$N$2:$N$4,0)-1,,)*$B2,$P$2)) الملف مرفق Classeur_salim.xlsx

السلام عليكم ورحمة الله أرفق ملفك أو جزءا منه للعمل عليه... وهل تضع الرسم 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))

تفضل برنامج الشيكات.xlsx

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

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

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

تفضل معادلة بحث.xlsx

بارك الله فيك

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

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

تفضل VLOOKUP.xlsx

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

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

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

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

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

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