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

الان وضح طلبك جرب المعادلة ادناه =SUMPRODUCT((E2:E9=INT(E2:E9))*(E2:E9)) واي استفسار خبرني انظر للملف SumCurrency.xlsx

Set rs = CurrentDb.OpenRecordset("SELECT * FROM tb1 Where [id]=" & [ud1])

بالتوفيق ان شاء الله ومبارك الترقية ..أعانك الله على مهامك ومسؤلياتك الجديدة

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

بارك الله فيك استاذ محمد وزادك الله من فضله

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

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

وعليكم السلام-فقط يمكنك استخدام هذه المعادلة بالتنسيق الشرطى =C$2=$G3 تنسيق 1شرطي.xlsx

بارك الله فيك استاذ محمد وزادك الله من فضله

وعليكم السلام بارك الله فيك وزادك الله من فضله

ممتاز أحسنت استاذى الكريم

مبروك الأستاذ lionheart إنضمامك لعائلة الخبراء ,أسأل الله لك التوفيق والنجاح دائما ..وأعانك الله على هذه المسئولية الجديدة وسدد الله خطاك عن حق وجدارة بارك الله فيك وزادك الله من فضله

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

السلام عليكم ...إليك الحل أخي الكريم =CONCATENATE(TEXT(A2;"yyy/mm/dd");" ";TEXT(B2;"hh:mm am/pm")) New XLS Worksheet.xls

تفضل أخي الكريم توزيع11.xlsx

صورة توضيحية أكثر

If Sheets("ورقة1").Cells(Y, 1) = TextBox1.Text Then Exit For End If Next Y With Sheets("ورقة1") .Cells(Y, 2) = ComboBox1.Text .Cells(Y, 3) = TextBox2.Text .Cells(Y, 4) = TextBox3.Text .Cells(Y, 5) = TextBox4.Text .Cells(Y, 6) = TextBox5.Text .Cells(Y, 7) = TextBox6.Text .Cells(Y, 8) = TextBox7.Text .Cells(Y, 9) = TextBox8.Text End With جرب هذا التعديل على Private Sub CommandButton2_Click()

أخي العزيز البداية تبدأ من المصفوفة A بدل A = Cells(1).CurrentRegion يجب أن تكون A = Cells(1, 1).Resize(Cells(Rows.Count, 4).End(xlUp).Row, 11) ومن ثم يجب استبدال كل A(i,1) بـ A(i,4) وبما أنك الغيت A(i,4) من المصفوفة Array(A(i, 9), A(i, 10), A(i, 11)) فيجب إضافة سطر آخر في النهاية Sheets("الخلاصة").Cells(1, 1).Resize(.Count) = Application.Transpose(.keys) على كل مبين بالكود التالي Sub test() Dim A As Variant: Dim w As Variant Dim i As Long: Dim ii As Long ' A = Cells(1).CurrentRegion A = Cells(1, 1).Resize(Cells(Rows.Count, 4).End(xlUp).Row, 11) With CreateObject("scripting.dictionary") For i = 1 To UBound(A) If Not .exists(A(i, 4)) Then .Add A(i, 4), Array(A(i, 9), A(i, 10), A(i, 11)) Else w = .Item(A(i, 4)) For ii = 0 To UBound(w) w(ii) = w(ii) + A(i, ii + 9) Next .Item(A(i, 4)) = w End If Next ' Sheets("الخلاصة").Cells(1, 1).Resize(.Count) = Application.Transpose(.keys) Sheets("الخلاصة").Cells(1, 2).Resize(.Count, 3) = Application.Index(.items, 0, 0) Sheets("الخلاصة").Select End With End Sub أرجو أن أكون قد أفدتك وجاهز لأي سؤال جمع المكرر (1) (2).xlsm

تحت الفترة الصباحية اكتبي هذه المعادلة =IF((H3=A2)*AND(C2<F$1),"حضر","لم يحضر") وتحت المسائية اكتبي هذه المعادلة =IF((H3=A2)*AND(C2>F$1),"حضر","لم يحضر") انظري للمرفق واي استفسار خبريني من فضلك SSS1.xlsx

It's better not to put a lot of codes in worksheet module such as worksheet_change. Just input your data and finally click on a button to do all the task for you in one shot

جربى هذا الفيديو

السلام عليكم يمكنك استخدام هذه المعادلة لإيجاد مجموع الكميات بالعمود D بداية من الخلية D2 سحباً للأسفل =IF(COUNTIF($B$2:B2,B2)=1,SUMIF($B:$B,$B2,$C:$C),"") وهذه معادلة النسبة المئوية بالعمود E =C2/VLOOKUP(B2,$B$2:$D$2000,3,0) تجربة1.xlsx

وعليكم السلام-بسيطة وسهلة يمكنك تشغيل هذا الخيار أو إيقاف تشغيله حسب الحاجة عبر القيام بما يلي: انقر فوق ملف >‏ خيارات. في الفئة خيارات متقدمة، ضمن خياراتالتحرير، حدد خانة الاختيار تمكين مقبض التعبئة وسحب الخلية وإسقاطها أو قم بإزالتها.

لابد من تفعيل هذه الخاصية كما بالصورة .. وشكراً وبالتوفيق

بارك الله فيك وزادك الله من فضله

وعليكم السلام-يمكنك استخدام هذا الكود Sub RmDupsU() Dim U As Range, N As Long, i As Long, wf As WorksheetFunction Dim rUP As Range Set U = Range("A:A") Set wf = Application.WorksheetFunction N = Cells(Rows.Count, "A").End(xlUp).Row For i = N To 2 Step -1 Set rUP = Range(Cells(i - 1, "A"), Cells(1, "A")) If wf.CountIf(rUP, Cells(i, "A").Value) > 0 Then Cells(i, "A").Clear Next i End Sub Duplicate Clear Contents.xlsm

وعليكم السلام -يمكنك استخدام هذه المعادلة لإيجاد عدد العمليات =COUNTIFS(C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) ولإيجاد اجمالى المبلغ ... يمكنك استخدام هذه المعادلة =SUMIFS(B:B,C:C,$K$2,D:D,$J$2,E:E,$I$2,F:F,$I5) TQ1.xlsx

وعليكم السلام-اجعل المعادلة بالعمود C هكذا =VALUE(B1&A1) TEST1.xlsx

وعليكم السلام-دائماً وأبداً لابد من تدعيم اى مشاركة بملف موضح فيه المطلوب بكل دقة...فيمكنك استخراج الرقم 2018 بالمعادلة التالية =LEFT(AD1,LEN(AD1)-FIND("-",AD1)) أما 2019 بالمعادلة التالية =RIGHT(AD1,LEN(AD1)-FIND("-",AD1))

برنامج عملاء وموردين مفتوح المصدر مضاف نسخة بالتاريخ الهجري وأخري بالميلادي وبيانات الاستخدام كالتالي : البرنامج يعمل علي Office 2010 فما فوق اسم المستخدم : admin كلمة المرور : admin اسم المستخدم لتفعيل الشفت : ahmed كلمة السر : Ah0562982701 كلمة سر أكواد VBA فيجوال بيسك : ah0562982701 كلمة السر لتفريغ البيانات : 562982701 رابط البرنامج : http://www.mediafire.com/file/4atr6oxq1ptqm7q/إنجاز+نسخة+ميلادي.accdb http://www.mediafire.com/file/l2f334fkuyy7y5u/إنجاز+نسخة+هجري.accdb البرنامج مجاني و لا أريد الا دعوة صادقة لوجه الله تبارك تعالي بأن يعفر لوالدي ويديم الصحة والعافية علي والدتي وفي انتظار ارائكم ،،

السلام عليكم ورحمة الله وبركاته .. وبدون مقدمات 🙂 يطيب لي أن أضع بين يديكم برنامج ( مكتبة الأكواد الخاصة ) كان الهدف من تصميم البرنامج أن يخدمني بشكل خاص وذلك لحفظ الأكواد التي أحتاجها بشكل دائم وتجميعها في مكان واحد وتسهيل عملية البحث والوصول إليها بكل سهولة .. والبرنامج به تجميعة طيبة من الأكواد بعضها مما أبدعه الشباب هنا وبعضها مما صنعتها بنفسي ومنها من مواقع مختلفة .. والآن أحببت أن أشارككم بها وأن تعم الفائدة للجميع 🙂 البرنامج طبعا مفتوح بأحلاسه وأقلاسه ( بنماذجه وأكواده ) 😁 ويوجد فيه خاصية البحث ، وإدراج مرفقات (خارجية طبعا ) ومتاح للتطوير والتعديل والزيادة وتطويعه حسب احتياجاتكم .. 🌹 :: ولا تنسوني من صالح دعواتكم :: Pleeeeeeeeeeeeeeese 😄🤲🌷🌹 (واجهة البرنامج) (نافذة تفاصيل الكود) أعتقد البرنامج ما محتاج شرح واضح وضوح الشمس 😁 ::والتحميل في المرفقات :: مكتبة الأكواد الخاصة.accdb

السلام عليكم 🙂 يتشرف منتدى الاكسس بالنيابة عن موقع اوفسينا وجميع الاعضاء ، ان نزف رتبة خبير الى الاخ موسى @Moosak ، والذي ذاع صيته كخبير من مشاركاته 🙂 اتمنى لك اخوي موسى دوام التقدم ، ولا تمد رجولك قد لحافك ، فلا تقبل بالارتقاء غير النجوم بدلا 🙂 جعفر

اليوم طريقة بحث بشكل عبقرى يبحث عنه الكثير من المبتدئين أمثالى عايز أبحث فى كل الحقول ولكن بشروط معينة (كلمة أو حرف من كل حقل ويكون البحث مرتبط ويكون فى نموذج واحد) أزاااااى ى ى ى ى ى !!! 1- أولاً نعمل نموذج به قوائم منسدلة بعدد الحقول فى الجدول أو أكثر من جدول والتى يمكن البحث فيها أياً كانت (أرقام - تواريخ - حروف ... الخ) 2- نعمل استعلام يضم كل الحقول بأى جدول نريد أن ينضم إلى البحث (حتى لو ألفين حقل) ولا يهمك .. عك وربك يفك 3- نضع فى المعايير (Criteria) وعلى سطر واحد تحت كل حقل كالتالى بالترتيب [forms] ! [أسم فورم البحث] ! [أسم مكان البحث سواء كومبوبوكس أو تكست بوكس] ونكتب OR ثم نأخذ ما تم كتابته قبل كلمة OR نسخ وبعد كلمة OR نقوم اللصق حتى تصبخ الجملة قبل كلمة OR نفس الجملة بعدها ونأخذ مسافة ونكتب Is Null وبين Is وبين Null مسافة وتكرر العملية لكل حقل ملحوظة هامة:- بالنسبة للحقول النصية نفس الطريقة ... ولكن نضع قبل الجملة الأولى Like مسافة "*" مسافة & وذلك قبل كلمة OR لتصبح النتيجة كالتالى بالنسبة للأرقام وبالنسبة للحقول النصية تصبخ النتيجة كالتالى : ونضع كل ما سبق فى نموذج يكون مصدر سجلاته هدا الاستعلام ويكون نموذج فرعى ويكون النموذج الأول اللى فيه خانات البحث ... أوعى يكون حد نسيه النموذج أللى جبنه منه خانات البحث فى الاستعلام ... أيوه ه ه ه ه (هو دة) وضبع به نموذج الاستعلام ونعمل كويرى كل حاجة لكل حاجة بمعنى أن كل خانة بنكتب فيها تعمل كويرى لكل خانات البحث الأخرى ونضع زر بحث يقوم بعمل كويرى للصب الفورم الذى تظهر به نتائج البحث ... وأخيراً ... شكل نمودج البحث والسلام عليكم ورحمة الله وبركاته برجاء لا تنسونا بالدعاء ولمن علمنا والفضل كله لله

قريبا ارفع مثال ربنا يذكرنا جميعا بالخير

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

شكرا جزيلا استاذ وليد @walid7799 بالنسبة لكود اضافة الصور نعم يعمل بصورة جيدة اما الماسح الضوئي ان شاء الله عدا اعمل عليه واجربه لانه لايتوفر لدي جهاز ماسح ضوئي فيدر بالمنزل تحياتي لك وبارك الله فيك

لم افهم المطلوب

ممكن شرح مطول للمطلوب واعتقد عندى حل بس خايف اكون غلطان فى تقديرى

أعطاك الله مثلما قلت وشرح صدر وحل العقدة من لسانك وفقه قولك وسدد رجاءك ولنا مثله

وجزاكم بمثل ما دعوتم أخي الكريم يرجى التفضل بالإشارة إلى أفضل إجابة لإتمام الموضوع والسلام عليكم

جزيت خيرا

أخي الحلبي .. يمكنك تطويع الكود في المرفق اللذي أرسله الأخ أبو الحسن .. هكذا .. تكتب الرسالة في الكود هكذا : ShowBalloonTooltip "اكتمل", "تم الحفظ بنجاح", btNone ولإظهار الأيكونة لديك عدة خيارات تكتبها في المتغير الثالث ، وهي كالتالي : btNone btInformation btWarning btCritical المرفق :رسالة الحفظ.accdb ولنعرف شكل الرسالة الذي تقصدة بالضبط ،، اعطنا رابط أو صورة للفيديو الذي شاهدته 🙂

الاخوة الافاضل هل ممكن التكرم وشرح استخدام select case في الاكواد بمثال لو امكن او امثلة في ملف اكون شاكر

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

To implement With your workbook active press Alt+F11 to bring up the vba window In the Visual Basic window use the menu to Insert|Module Copy and Paste the code below into the main right hand pane that opens at step 2 Close the Visual Basic window Press Alt+F8 to bring up the Macro dialog Select the macro & click 'Run' Your workbook will need to be saved as a macro-enabled workbook (*.xlsm) استخراج اسماء من اسم كامل.xlsm

طيب انظر الصور .... وغير الكود الذي لديك بهذا الكود ...... Dim db As DAO.Database Dim rs As DAO.Recordset Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim i, ii, e As Integer Dim str, str1, str2 As String str = "SELECT TBL_Rserve.IdEmployee, TBL_Rserve.Id_Day, TBL_Rserve.Period1, TBL_Rserve.Period2, TBL_Rserve.Period3, TBL_Rserve.Period4, TBL_Rserve.Period5, TBL_Rserve.Period6, TBL_Rserve.Period7, TBL_Rserve.Period8, TBL_Rserve.Id_Absence FROM TBL_Rserve WHERE (((TBL_Rserve.Id_Day)=" & Me.kan & ") AND ((TBL_Rserve.Id_Absence)=2));" str1 = "SELECT TBL_Rserve3.IdEmployee, TBL_Rserve3.Id_Day, TBL_Rserve3.Period, TBL_Rserve3.Id_Period FROM TBL_Rserve3;" str2 = "SELECT TBL_Rserve.IdEmployee, TBL_Rserve.Id_Day, TBL_Rserve.Period1, TBL_Rserve.Period2, TBL_Rserve.Period3, TBL_Rserve.Period4, TBL_Rserve.Period5, TBL_Rserve.Period6, TBL_Rserve.Period7, TBL_Rserve.Period8, TBL_Rserve.Id_Absence FROM TBL_Rserve WHERE (((TBL_Rserve.Id_Day)=" & Me.kan & ") AND ((TBL_Rserve.Id_Absence)=1));" Set db = CurrentDb Set rs = db.OpenRecordset(str) Set rs1 = db.OpenRecordset(str1) Set rs2 = db.OpenRecordset(str2) rs.MoveLast: rs.MoveFirst rs2.MoveLast: rs2.MoveFirst For i = 1 To 8 rs.MoveLast: rs.MoveFirst rs2.MoveLast: rs2.MoveFirst For iii = 1 To rs.RecordCount If rs("Period" & i) > 0 Then For ii = 1 To rs2.RecordCount Dim dd As Integer dd = rs2("IdEmployee") '.Value If IsNull(rs2("Period" & i)) Then If DCount("[IdEmployee]", "TBL_Rserve3", "[IdEmployee] = " & rs2("IdEmployee") & "") = 0 Then rs1.AddNew rs1!IdEmployee = rs2!IdEmployee.Value rs1!Id_Day = rs!Id_Day rs1!Id_Period = i rs1!Period = rs("Period" & i) rs1.Update rs2.MoveNext GoTo mystnext1 End If End If rs2.MoveNext Next ii End If mystnext1: rs.MoveNext Next iii Next i rs.Close Set rs = Nothing اما بالنسبة لــــــــــــ حلها لديك بان تحدد لكل معلم امامه ... حسب نصابة من الحصص عدد معين من حصص الاحتياط في الاسبوع مثلا معلم لدية 24 حصة مثلا تخصص له حصة احتياط واحد ومعلم لدية 10 حصص تخصص له 10 حصص احتياط اسبوعية مثلا أو حسب نظام التعليم لديك .... حتى يتكمن البرنامج من توزيع الاحتياط ومع كل عملية احتياط يتم خضم واحد من حصص الاحتياط وهكذا ....... حاول التعديل وأعلمنا بالنتيجة ....

وعليكم السلام -يمكنك استخدام هذه المعادلة =IF(COUNTIFS($B$2:$B$200,B2,$C$2:$C$200,C2,$D$2:$D$200,D2,$E$2:$E$200,E2)>1,"مكرر","") Countifs.xlsx

وضح ... ماهي النتائج الغير صحيحة ولا تترك الموضوع عائم ... حتى نجد حل بامرالله ... ما هي النتائج الظاهرة لديك .. صورة لها ... وصورة للصحيح ...

وعليكم السلام-يمكنك وضع هذا الكود فى حدث Thisworkbook بملفك ... فقط عليك بوضع اسم جهازك بالكود مكان ("Computername") بين القوسين .. وشكرا وهذا كود بسيط لمعرفة اسم جهاز الكمبيوتر لديك .عند وضع بمديول عادى Sub know() Msgbox ENVIRON("Computername") End Sub Private Sub Workbook_Open() Dim ChkName As String ChkName = MY - PC If Environ("Computername") <> ChkName Then MsgBox "File is only available to PC: " & ChkName, _ vbCritical + vbOKOnly, "Cannot Open File" Application.DisplayAlerts = False ThisWorkbook.Close Exit Sub Else MsgBox "PC security check passed.", vbOKOnly + _ vbInformation, "File Open Succesful" End If End Sub

الأمر بسيط جداً تفضل ... معادلة بالتأكيد ممتازرة بارك الله فيك استاذ محمد وأكرمك الله 1235.xlsx