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

وعليكم السلام -يمكنك استخدام هذه المعادلة =SUMIF(الرواتب!$A:$A,$A2,الرواتب!$B:$B)+SUMIF(الرواتب!$A:$A,$A2,الرواتب!$C:$C) جلب مبالغ 1.xlsx

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

بالاضافة الى ما تفضل به استاذنا الجليل @ابوخليل وله جزيل الشكر تفضل اخي الكريم ضع هذا الكود في موديول جديد Public Sub Set_Pass(sDBName As String, soLdPass As String, Optional sNewPass As String = "") Dim db As DAO.Database On Error GoTo Err: Set db = OpenDatabase(sDBName, True, False, ";PWD=" & soLdPass) db.NewPassword soLdPass, sNewPass Exit Sub Err: Resume Next End Sub وهذا الكود في زر امر Dim DB_Full_Name As String Dim DB_Pass As String DB_Pass = 777 ' كلمة مرور قاعدة بيانات aa.mdb DB_Full_Name = CurrentProject.Path & "\" & "aa.mdb" Set_Pass DB_Full_Name, DB_Pass ShellExecute Me.hwnd, "open", DB_Full_Name, "", "", 1 تحياتي

وعليكم السلام ورحمة الله وبركاته جرب الكود التالي =Nz(DMax("int([رقم_القيد])";"السيارات");0)+1 وهو يعمل اذا كان الحقل نص او رقم تحيايت

تفضل هذا المثال و هو عبارة عن حفظ معلومات تسجيل الدخول بإستخدام ملف خارجي ادخل اي معلومات النموذج للمثال فقط ليس مرتبط بأي جدول بعد ملئ جميع الحقول و اختيار حفظ معلومات الدخول ستظهر لك رسالة بهذا الشكل بعدها ستجد بجوار قاعدة البيانات ملف بهذا الشكل شكل الملف من الداخل المعلومات مشفرة بإستخدام التشفير لكن الفكرة انه عند اغلاق النموذج و اعادة فتحه ستجد بأنه تم جلب البيانات للحقول Database2.mdb

تفضل أخي الكريم يمكنك كتابة الشيتات التي لا ترغب في ظهورها في المصفوفة arr مع إحاطة الاسم بعلامتي تنصيص واستعمال الفاصلة للفصل بين الأسماء وبعضها في هذا الكود تم استثناء sheet1 & sheet2 Dim ws As Worksheet, arr As Variant arr = Array("Sheet1", "Sheet2") For Each ws In Worksheets If UBound(Filter(arr, ws.Name)) = -1 Then ComboBox1.AddItem ws.Name Next ws بالتوفيق

السلام عليكم احتاج معادلة لحساب ضريبة الرواتب على اساس شرائح مشكلة يتم حساب الضريبة بطريقة يدوية احتاج طريقة لتسهيل العملية الشرح داخل المثال + نص القانون التابع للضريبة للتصحيح الشريحة الثالثة 29500*8% ضرÙ_بة اÙ_رÙ_اتب.xlsx

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

أذا كان راتب الموظف مليون يعطي نفس جواب أذا كان الراتب اكثر حسب الشريحة الثامنة يحسب باقي المبلغ الذي تجاوز 260000 1000000-26000=740000 / 740000*18% = 133200 أذا كان 2 مليون 2000000- 260000 = 1740000 / 1740000*18% = 313200 (18بالمئة) ثمانية عشر بالمئة عن جزء الدخل الصافي الشهري الذي يتجاوز (260000) ل.س

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

جزيت خيرا

استاذي الفاضل أ / محمد صالح لك مني كل الشكر والثناء و التقدير و جزاك الله كل خير

للعلم فقط بما أنك حولت نوع الحقل إلى رقمي فلا داعي لدالة Int لا تستخدم أسماء عربية للجداول ولا للحقول ، وإذا كانت إنجليزيتك ضعيفة فاستخدم العربية بحروف انجليزية مثل السيارات تكتبها Sayyarat وللإحتراز ضع كل الأسماء العربية للجداول والحقول بين الأقواس المربعة [ ]

المعادلة تعمل 100% وتناسب المرفق في مشاركتك الأولى رجاء مراجعة الخلايا F3 & F5 ستجد أنها تجلب bin1 & bin2 حسب قيمة الخلية F2 بالتوفيق Classeur2022.xlsx

اجابة رائعة جزاكم الله كل خير

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

جربت الكود لكن لا يعمل claseurs4.xlsx

بعد إذن أخي الكريم عبد الفتاح ربما يكون هذا هو المطلوب Private Sub CommandButton1_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp) MsgBox Format(LR, """S21-""00#") End Sub

اقرا هذا جيدا لعله يفيدك https://support.microsoft.com/ar-sa/topic/كيفية-استخدام-ميزة-دمج-المراسلات-في-word-لإنشاء-وطباعة-رسائل-نموذجية-تستخدم-البيانات-من-ورقة-عمل-excel-d8709e29-c106-2348-7e38-13eecc338679

للأسف ما يظهر في الوورد هو الأصح لأن تنسيق الأرقام في الإكسل 00 لم يظهر الكسر لذلك يمكنك تعديل معادلة الشهر إلى =INT(I2*7.5/30+MOD(H2*3,12)) بأن تشمل دالة int العملية الحسابية كلها وكذلك تعديل معادلة اليوم إلى =INT(J2*0.25+MOD(I2*7.5,30)) بالتوفيق

تستطيع عن طريق دمج المراسلات

اخي في حدث عند الفتح ضع الكود التالي Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

السلام عليكم جرب الكود التالي Private Sub Form_Resize() DoCmd.Maximize End Sub تحياتي

بدل الشريط (لأن الكود في النموذج سيخفيه) ، اعمل مربع تسمية ، مما سيعطيك انطباع بأن الشريط موجود ، ولكن لن تستطيع تحريكه 🙂 استعمل الماكرو autoexec_Login_Boarder_n_Buttons_Show 🙂 جعفر example_semo.accdb

وجدت المثال في جهازي وهو للمبرمج أكسسنا Accessna بس لا أعرف من أي منتدى Accessna_ResizeTextBox_20190118.mdb

لا أدري أين المشكلة عندك ولكن إذا كنت تريد تطبيق ذلك على ملف آخر بامتداد xlsb أولا تفتح شاشة الفيجوال بيسك داخل اكسل ثم تضيف موديول جديد وتلصق فيه الكود الذي يتحقق من رقم الماذربورد Function MBSerialNumber(Optional strComputer As String = ".") As String Dim v, vName, vUUID With GetObject("winmgmts:\\" & strComputer & "\root\cimv2") For Each v In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48) vName = v.Name: vUUID = v.UUID Next v End With MBSerialNumber = vName & ", " & vUUID End Function ثم تضغط دبل كلك على thisworkbook وتلصق هذا الكود في حدث عند فتح الملف Private Sub Workbook_Open() Dim strMB1 As String, strMB2 As String, strMB3 As String 'Put Your MotherBoard Serial strMB1 = "HP ProDesk 490 G1 MT, FF004080-EE39-11E3-BFF8-A0D3C13F35B2" strMB2 = "HP Compaq 8500 Elite SFF PC, BFDEF800-AF9A-11E0-0000-2C27D742989F" strMB3 = "HP Compaq 8500 Elite SFF PC, BFDEF800-AF9A-11E0-0000-2C27D742989F" Select Case MBSerialNumber Case strMB1, strMB2, strMB3 Exit Sub Case Else MsgBox ("Data Security Failure. This Workbook Will Close") ActiveWorkbook.Close 1 End Select End Sub ثم تقوم بحفظ التغييرات وتغلق وتفتح الملف مرة أخرى بالتوفيق

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

اعرض الملف استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي شرح استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع national id info فتابعونا. شرح استخراج معلومات الرقم القومي تاريخ الميلاد والمحافظة والنوع national id info نبدأ أولا بمعرفة دلالات أرقام بطاقة الرقم القومي المصري. لكن هل يمكن استخراج تاريخ الميلاد والمحافظة والنوع ذكر أو أنثى من الرقم القومي بصورة آلية؟؟!! تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: أبسط معادلات للحصول على تاريخ الميلاد والمحافظة والنوع من الرقم القومي أكواد المحافظات في الرقم القومي اقتصاص عدد معين من حروف الكلمة كيف سيكون الرقم القومي في المستقبل سنة 2100 ؟ تحويل النص إلى تاريخ معادلات if المتداخلة معادلة البحث lookup معرفة الرقم الزوجي والفردي عن طريق الدالة mod التعامل مع فهارس المصفوفات array في vba إنشاء دالة معرفة user defined function في إكسل والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو شرح طريقة تنفيذ إجراءين بزر أمر واحد two macros by one button الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 10 فبر, 2018 الاقسام قسم الإكسيل