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

الحل E4-1.xlsx

وعليكم السلام 🙂 تفضل الخطوة الاولى 🙂 ادخال البيانات ، اما الخطوة التالية فتكون التقرير ، والذي سيعتمد على استعلام 🙂 جعفر 1182.Projects.zip

اخي الفاضل خالد/ انت كريم ونحن نستاهل وعلي فكره كنت هرفع ملف بس لقيت الاستاذ احمد عطاني الاجابه ولو حابب ارفعلك الملف انا حاضر لاني انا حاسس اني موضوع الملف ده مزعلك😄

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

حاضر استاذي الفاضل انا عطيت اخي الفاضل الاستاذ خالد افضل اجابه بس ممكن الاستاذ خالد يجي يقولي اعطيها للاستاذ احمد ونقعد نتعازم انا كده خلاص مش هغير تاني / ههههههه 😂 جزاكم الله خيرا جميعا والله انتو تستاهلو اكتر من كده بكتير بس كل الي نقدر نقدمه لكم الدعاء ان يزيدكم الله من عمله ويوفقكم الله لما يحيبه ويرضاه

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

اخي وهيب 🙂 القصد من طلب الاستاذ عصام ربيع هو: مساعدتك تحتاج الى نموذج فيه الكلام اللي تقوله ، فيا انت ترفقه او نضطر ان نعمله ، وليش احنا نعمله اصلا ما دام جاهز عندك وبمسمياتك !! ارفق فقط النموذج ببيانات محددة (ولا نريد بيانات حقيقية). جعفر

السلام عليكم 🙂 اسمحوا لي يا شباب 🙂 هل انتبهتوا ان تاريخ هذا الموضوع هو 10/6/2017 🙄 يُغلق . جعفر

ممكن بعد اذن اخى خالد @خالد سيسكو جزاه الله خيرا اشارك معكم على مثال اخى خالد فى اول مشاركه ممكن تستخدم احد الاكواد التاليه باستخدام Nz Or Len كما تعلمت من اخى ومعلمى العزيز @jjafferr Private Sub text2_AfterUpdate() 'If Len(Me.text1 & "") = 0 And Me.text2 = 7 Then 'Beep 'MsgBox "حقل الكمية=صفر ورقم الوحدة=7" 'Me.Undo 'DoCmd.CancelEvent 'End If If Nz(Me.text1, 0) = 0 And Me.text2 = 7 Then Beep MsgBox "حقل الكمية=صفر ورقم الوحدة=7" Me.Undo DoCmd.CancelEvent End If End Sub تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

اخي العزيز كان من الافضل رفع مثال منك او ملفك لغرض التعديل المهم الكود التالي Nz([الكمية]);0) تحياتي

اخي العزيز لديك خيارات الاول ان تجعل القيمة الافتراضية للحقل = صفر والخيار الثاني ان تستخدم الداتلة NZ لارجاع قيمة الحقل الفارغة في الكمية الى صفر (0 ; ( [الكمية])NZ احياتي

الف الف شكر استاذي الفاضل جزاك الله خيرا بس عندي مشكلة حقل الكمية بيكون NULL فالكود مش بشتغل الي اذا حطيت 0 في الكمية

السلام عليكم تفضل اخي الكريم طلبك تحياتي Database1.rar

أ.mohammad obaid استخرج المجلد المرفق والذى اسمه sndrec الى مسار الويندوز بحيث يكون مسار الملف النهائى كما يلى C:\Windows\sndrec\sndrec32.exe قم باستبدال هذا الكود Call Shell("C:\WINDOWS\system32\Sndrec32.exe /play """ & مسار_ملفات_الصوت & اسم_الملف & """ /close ", 6) بهذا الكود Call Shell("C:\Windows\sndrec\Sndrec32.exe /play """ & مسار_ملفات_الصوت & اسم_الملف & """ /close /embedding ", 6) عسى أن يكون المطلوب خالص تحياتى sndrec.rar

اخي مصطفى اولا تجنب تسمية الحداول باللغة العربية لصعوبة البرمجة ثانيا عملت لك ثلاث ازرار 1- زر لتصدير البيانات الى اكسل 2- بعد التصدير تقوم بحذف بيانات الجدول لافراغة من محتوياته حتى لاتختلط عليك الامور 3- بعده تقوم بالتعديل على ملف الاكسيل بالبيانات الجديده وتقوم باستيراده تحياتي ملاحظه /اسم الجدول المصدر يكون ياسم (table1) الى الاكسل Downloads.rar

Try This File Show_Hide.xlsm

السلام عليكم 🙂 اخواني ، الجميع يساعد في المنتدى بوقته وبدون مقابل ، وعندنا مثل يقول: حبة الزبيب ما تشبّع ، ولكنها تحلّي الفم 🙂 فرجاء خلونا نشجع الاعضاء في العطاء 🙂 لما تحصل على رد له قيمة ، فتشجيعا للعضو الذي يساعدك ، اخبر العضو بأنك مُعجب برده ، هكذا : . . ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂 جعفر ومع الاعتذار لأخي احمد لإستخدام اسمه في المثال 🙂

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

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

اخي الكريم ممكن البرنامج يحسب لك الخصم بمجرد ان تضع عدد ايام الغياب المهم تقضل اتمنى يكون المطلوب اعلمنا النتائج تحياتي الرواتب شهر او 2 او 3_2.rar

السلام عليكم اخي العزيز ممكن توضح اكثر هل تريد جمع الرواتب فقط ام الرواتب- الخصم وماذا عن ايام الغياب كيف يتم احتسابها تحياتي

وعليكم السلام ضع هذا الكود في thisWorkbook Private Sub Workbook_Open() Sheets("الرئيسية").Select Range("a1").Select End Sub

تم التعديل على الماكرو ليعمل كما تريد Option Explicit Sub get_value() Rem Created by salim Hasbaya On 10/3/2020 Dim dic As Object, i%, ky, t, cel As Range Dim rg As Range, m%, My_val If ActiveSheet.Name <> "Salim" Then GoTo Exit_Me Application.ScreenUpdating = False Set dic = CreateObject("Scripting.Dictionary") Range("F7").CurrentRegion.Clear Range("C7:C1000").Interior.ColorIndex = xlNone m = 6 For i = 7 To 937 Step 90 dic(i) = vbNullString Next For Each ky In dic.keys Set rg = Cells(ky, 3).Resize(90) Set rg = rg.SpecialCells(2) For Each cel In rg t = cel.Address(0, 0) My_val = cel.Value Next Cells(6, m) = t Cells(7, m) = My_val Range(t).Interior.ColorIndex = 6 m = m + 1 Next With Range("F7").CurrentRegion .Interior.ColorIndex = 6 .Borders.LineStyle = 1 .Font.Bold = True .Font.Size = 14 .HorizontalAlignment = 2 .InsertIndent 1 End With Exit_Me: Application.ScreenUpdating = True Set dic = Nothing: Set cel = Nothing Set rg = Nothing End Sub الملف مرفق My_Last_Cells.xlsm

تفضل test_2.xlsm

تفضل 🙂 والمعلم على رأسي 🙂 جعفر 1180.02.MARK.zip

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

هذا كل ما نريده الدعاء فلعل هذا العمل هو ما رزقنا الله اياه ابتغاء مرضاته اخى @حسين العربى رفع الملف يوفر علينا افتراضيات كثيره ويسهل فى عمليه المساعده حتى يتم الاجابه على اكثر من اخ وننال دعوات اكثر تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق احبتى فالله واجمل باقات الورود المعطره بذكر الرحمن لكم

وعليكم السلام 🙂 اذا اردت الجواب السريع على الاسئلة ، رجاء تعطي اكبر كمية من المعلومات ، ولا تخلينا نخمن او حتى نسألك 🙂 اي تقرير ؟ وين الكمبوبوكس ، في اي نموذج ؟ جعفر

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

اتفضل اخي قم بالتجربه وابلغني اذا هناك اي سؤال حساب ضريبة الدخل.xlsx

See This video https://www.youtube.com/watch?v=TcnA9j_J4xg

وعليكم السلام تفضل اخي _حساب ضريبة الدخل - نسخة.xlsx

اذا كنت تريد احتساب النطاقات الفارغة هذا الماكرو ينفع في ذلك ايضاً Option Explicit Sub get_col_1() Dim arr(), My_val, K%, Rg As Range Dim Ro%, m%, i% Ro = Cells(Rows.Count, 3).End(3).Row arr = Array(6, 44, 37, 40) Range("F7").Resize(, Ro).Clear m = 6 For i = LBound(arr) To UBound(arr) My_val = vbNullString For K = 7 To Ro If Cells(K, 3).Interior.ColorIndex = arr(i) _ And Cells(K, 3) <> vbNullString Then My_val = Cells(K, 3) End If Next K With Cells(7, m) .Value = My_val .Interior.ColorIndex = arr(i) End With m = m + 1 Next i End Sub الملف مرفق Last_Cell_ALL.xlsm

انظر للاستعلام Q تقوم الدالة NZ بالاستعلام بارجاع القيمة الخالية للحقل الى صفر ويكون النموذج مصدر بياناته الاستعلام اتمنى يكون المطلوب Database2.rar

السلام عليكم تفضل اخي اتمنى يكون المطلوب تحياتي بحث بين تاريخين.rar

شكرا لكم جزاكم الله خيرا

وعليكم السلام 🙂 هذا الموضوع فيه الجزئية التي تفيدك ان شاء الله 🙂 جعفر

وعليكم السلام 🙂 لوسمحت تغير الرقم حسب الصورة جعفر

تمام هذا ما أريده أخي أحمد شفاك الله وعفاك شفاءً لا يغادر سقما يارب العالمين انت وكل المسلمين

السلام عليكم ورحمة الله بارك الله فيك على هذا الدعاء الطيب جعل الله لك نصيبا منه تم اصلاح الخطأ اليك الملف بعد التعديل عمل كارنية لكل طالب.rar

السلام عليكم ورحمة الله تم تعديل ترتيب اغلب التكست بوكس لكى تتوافق مع الكود الجديد اليك الملف بعد التعديل عمل كارنية لكل طالب.rar

Try : sub hidecolumn () column(d:d).select selection.entirecolumn.hidden = true end sub to unhide: same as above but with selection.entirecolumn.hidden = false end sub

السلام عليكم الحمدلله تم تحول الملف بواسطة الأكواد مع العلم أن الكود ليس لي ولكن وجدته أثناء البحث وقمت بالتعديل عليه حتى يسهل فهمه ولا زال فيه بعض الطلاسم التي لم أفهمها الشرح داخل الملف تفضلوا Convert DAT to Excel.xlsm

ممكن ذلك من خلال هذا التعديل على الكود Option Explicit Sub Find_Dupl_Rows_new() Dim I%, Ro, m% Dim REP As Range, My_Rg As Range Dim COl As Collection Dim Arr, n Set COl = New Collection Set My_Rg = Range("A1").CurrentRegion Ro = My_Rg.Rows.Count Set My_Rg = My_Rg.Offset(1).Resize(Ro - 1) My_Rg.Interior.ColorIndex = xlNone Range("E2").Resize(Ro - 1).ClearContents Range("G2:K2").Resize(Ro - 1).Clear For I = 2 To Ro Arr = Application.Transpose(Application.Transpose _ ((Cells(I, 2).Resize(, 3)))) Arr = Join(Arr, "*") On Error Resume Next COl.Add I, Arr If Err.Number <> 0 Then m = m + 1 Cells(I, 5) = "Duplicate" Cells(I, 5).Interior.ColorIndex = 40 If REP Is Nothing Then Set REP = Cells(I, 2).Resize(, 3) Else Set REP = Union(REP, Cells(I, 2).Resize(, 3)) End If 'REP End If 'Err Next I On Error GoTo 0 If Not REP Is Nothing Then REP.Interior.ColorIndex = 40 MsgBox "You have :" & m & " duplicate Rows" n = REP.Areas.Count m = 1 For I = 1 To n Range("G1").Offset(m).Resize(REP.Areas(I). _ Rows.Count, 3).Value = REP.Areas(I).Value Range("j1").Offset(m) = REP.Areas(I).Address Range("K1").Offset(m) = REP.Areas(I).Rows.Count m = m + REP.Areas(I).Rows.Count Next '================================= With Cells(2, "g").Resize(m - 1, 5) .Borders.LineStyle = 1: .Font.Size = 16 .Font.Bold = True: .Interior.ColorIndex = 28 .InsertIndent 1 End With '========================= Else MsgBox "Not duplicate Rows " End If Set COl = Nothing: Set REP = Nothing End Sub

أ.وهيب علي الصلوي لو امكن ارفق مثال للعمل عليه

البرنامج بعد اضافة الصيانات برنامج السيارات.rar

اذا كان التاريخ المطلوب تحديد الاحد السابق و التالي له موجود فى الخلية D3 كما فى المثال المرفق ( الخلايا باللون الاصفر) معادلة الاحد السابق تكون: =IF(D3="","",D3-MOD(D3-1,7)) و معادلة الأحد التالي تكون: =IF(D3="","",D3+7-MOD(D3-1,7)) و طبعا يمكن تغيير المعادلة لترجع اي يوم اخر مرفق المثال للسهولة Officena Sundays.xlsx

وعليكم السلام-تفضل 2021 IN المشتريات.xlsx

لك ما تريد salim_formula1.xls

أخى الكريم / الصفوى سلام الله عليكم .. وأهلا ومرحبا بكم فى منتدى كل العرب.. دالة vlook2all فى ثوبها الجديد لأحد الزملاء دالة VLOOK2ALL New Look.rar