نجوم المشاركات
Popular Content
Showing content with the highest reputation on 10 مار, 2020 in all areas
-
4 points
-
وعليكم السلام 🙂 تفضل الخطوة الاولى 🙂 ادخال البيانات ، اما الخطوة التالية فتكون التقرير ، والذي سيعتمد على استعلام 🙂 جعفر 1182.Projects.zip3 points
-
اخي الفاضل خالد/ انت كريم ونحن نستاهل وعلي فكره كنت هرفع ملف بس لقيت الاستاذ احمد عطاني الاجابه ولو حابب ارفعلك الملف انا حاضر لاني انا حاسس اني موضوع الملف ده مزعلك😄2 points
-
حياك الله اخوي مصطفى 🙂 للأسف بعض الاعضاء بخلاء في النقر على زر الاعجاب ، او انهم يعطون اعجاب واحد فقط ، مع ان ردود المشاركات تكون فيها محاولات قيّمة 🙂 هذه الاعجابات ، ببلاش ، والعضو اللي يحصل عليها ما مستفيد منها ، غير انه يفتخر بتقدير صاحب السؤال لمساهماته وخبرته ووقته الذي يبذله في المساعدة 🙂 اما اختيار افضل جواب ، فهذا دعم من صاحب السؤال ، لبقية الاعضاء الذين يكون عندهم نفس سؤالك في المستقبل ، فتسهل عليهم الوصول الى الجواب ، بدل قراءتهم الموضوع بالكامل 🙂 اما اغلاق الموضوع ، فهذا بيد فريق الموقع ، ولكن لما تختار افضل اجابة ، يعرف بقية الاعضاء انك غير محتاج لمساعدتهم ، فيكون شبه المغلق 🙂 جعفر2 points
-
حاضر استاذي الفاضل انا عطيت اخي الفاضل الاستاذ خالد افضل اجابه بس ممكن الاستاذ خالد يجي يقولي اعطيها للاستاذ احمد ونقعد نتعازم انا كده خلاص مش هغير تاني / ههههههه 😂 جزاكم الله خيرا جميعا والله انتو تستاهلو اكتر من كده بكتير بس كل الي نقدر نقدمه لكم الدعاء ان يزيدكم الله من عمله ويوفقكم الله لما يحيبه ويرضاه2 points
-
اخي العزيز لماذا ضياع كل هذا الوقت على شيء بسيط مثل هذا ارفع مثالك او قاعدة ببياناتك لكي يتم التعديل عليه لتوفير الوقت على الجميع تحياتي2 points
-
اخي وهيب 🙂 القصد من طلب الاستاذ عصام ربيع هو: مساعدتك تحتاج الى نموذج فيه الكلام اللي تقوله ، فيا انت ترفقه او نضطر ان نعمله ، وليش احنا نعمله اصلا ما دام جاهز عندك وبمسمياتك !! ارفق فقط النموذج ببيانات محددة (ولا نريد بيانات حقيقية). جعفر2 points
-
السلام عليكم 🙂 اسمحوا لي يا شباب 🙂 هل انتبهتوا ان تاريخ هذا الموضوع هو 10/6/2017 🙄 يُغلق . جعفر2 points
-
ممكن بعد اذن اخى خالد @خالد سيسكو جزاه الله خيرا اشارك معكم على مثال اخى خالد فى اول مشاركه ممكن تستخدم احد الاكواد التاليه باستخدام 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 تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق2 points
-
اخي العزيز كان من الافضل رفع مثال منك او ملفك لغرض التعديل المهم الكود التالي Nz([الكمية]);0) تحياتي2 points
-
اخي العزيز لديك خيارات الاول ان تجعل القيمة الافتراضية للحقل = صفر والخيار الثاني ان تستخدم الداتلة NZ لارجاع قيمة الحقل الفارغة في الكمية الى صفر (0 ; ( [الكمية])NZ احياتي2 points
-
الف الف شكر استاذي الفاضل جزاك الله خيرا بس عندي مشكلة حقل الكمية بيكون NULL فالكود مش بشتغل الي اذا حطيت 0 في الكمية2 points
-
2 points
-
أ.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.rar2 points
-
اخي مصطفى اولا تجنب تسمية الحداول باللغة العربية لصعوبة البرمجة ثانيا عملت لك ثلاث ازرار 1- زر لتصدير البيانات الى اكسل 2- بعد التصدير تقوم بحذف بيانات الجدول لافراغة من محتوياته حتى لاتختلط عليك الامور 3- بعده تقوم بالتعديل على ملف الاكسيل بالبيانات الجديده وتقوم باستيراده تحياتي ملاحظه /اسم الجدول المصدر يكون ياسم (table1) الى الاكسل Downloads.rar2 points
-
2 points
-
السلام عليكم 🙂 اخواني ، الجميع يساعد في المنتدى بوقته وبدون مقابل ، وعندنا مثل يقول: حبة الزبيب ما تشبّع ، ولكنها تحلّي الفم 🙂 فرجاء خلونا نشجع الاعضاء في العطاء 🙂 لما تحصل على رد له قيمة ، فتشجيعا للعضو الذي يساعدك ، اخبر العضو بأنك مُعجب برده ، هكذا : . . ولما تحصل على اجابة لسؤال موضوعك ، فرجاء اختيار افضل اجابة ، هكذا (حتى مستقبلا يسهل معرفة الاجابة الصحيحة) : . شكرا 🙂 جعفر ومع الاعتذار لأخي احمد لإستخدام اسمه في المثال 🙂1 point
-
مهما قدمت من كلمات شكر لا أستطع أن أوفيك حقك قدمت لي يد العون دون انتظار مقابل. الله يزيدك من فضله ويوفقك لما يحب ويرضى. إليك أجمل الأمنيات بالصحة والعافية1 point
-
1 point
-
اخي الكريم ممكن البرنامج يحسب لك الخصم بمجرد ان تضع عدد ايام الغياب المهم تقضل اتمنى يكون المطلوب اعلمنا النتائج تحياتي الرواتب شهر او 2 او 3_2.rar1 point
-
السلام عليكم اخي العزيز ممكن توضح اكثر هل تريد جمع الرواتب فقط ام الرواتب- الخصم وماذا عن ايام الغياب كيف يتم احتسابها تحياتي1 point
-
وعليكم السلام ضع هذا الكود في thisWorkbook Private Sub Workbook_Open() Sheets("الرئيسية").Select Range("a1").Select End Sub1 point
-
تم التعديل على الماكرو ليعمل كما تريد 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.xlsm1 point
-
1 point
-
1 point
-
الشكر لله اخى حاتم وما تزعلش وكويس ان فيه حد بينبه لو ظهر معاه حاجه فهو خائف على اخوانه ولكن يتم ذكر مصدر الفحص والمعلومات التى ظهرت وهو اعتذر وقال بانه مبتدا وليس له خلفيه عن كيفيه التشغيل ووجهناه فتقبل عذره ياطيب وفقكم الله لما يحبه ويرضاه وجزاك الله خيرا1 point
-
هذا كل ما نريده الدعاء فلعل هذا العمل هو ما رزقنا الله اياه ابتغاء مرضاته اخى @حسين العربى رفع الملف يوفر علينا افتراضيات كثيره ويسهل فى عمليه المساعده حتى يتم الاجابه على اكثر من اخ وننال دعوات اكثر تقبل تحياتى وتمنياتى لكم وللجميع بالتوفيق احبتى فالله واجمل باقات الورود المعطره بذكر الرحمن لكم1 point
-
وعليكم السلام 🙂 اذا اردت الجواب السريع على الاسئلة ، رجاء تعطي اكبر كمية من المعلومات ، ولا تخلينا نخمن او حتى نسألك 🙂 اي تقرير ؟ وين الكمبوبوكس ، في اي نموذج ؟ جعفر1 point
-
ليه كده بس انت لو تعرف حجم المجهود اللى بيتبذل في البرنامج وان حضرتك تاخده بالمجان كنت فكرت قبل ما تحكم عليه وتتهم الناس بالباطل شكرا يا استاذ احمد1 point
-
اتفضل اخي قم بالتجربه وابلغني اذا هناك اي سؤال حساب ضريبة الدخل.xlsx1 point
-
1 point
-
وعليكم السلام تفضل اخي _حساب ضريبة الدخل - نسخة.xlsx1 point
-
اذا كنت تريد احتساب النطاقات الفارغة هذا الماكرو ينفع في ذلك ايضاً 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.xlsm1 point
-
انظر للاستعلام Q تقوم الدالة NZ بالاستعلام بارجاع القيمة الخالية للحقل الى صفر ويكون النموذج مصدر بياناته الاستعلام اتمنى يكون المطلوب Database2.rar1 point
-
السلام عليكم تفضل اخي اتمنى يكون المطلوب تحياتي بحث بين تاريخين.rar1 point
-
1 point
-
وعليكم السلام 🙂 هذا الموضوع فيه الجزئية التي تفيدك ان شاء الله 🙂 جعفر1 point
-
1 point
-
تمام هذا ما أريده أخي أحمد شفاك الله وعفاك شفاءً لا يغادر سقما يارب العالمين انت وكل المسلمين1 point
-
السلام عليكم ورحمة الله بارك الله فيك على هذا الدعاء الطيب جعل الله لك نصيبا منه تم اصلاح الخطأ اليك الملف بعد التعديل عمل كارنية لكل طالب.rar1 point
-
السلام عليكم ورحمة الله تم تعديل ترتيب اغلب التكست بوكس لكى تتوافق مع الكود الجديد اليك الملف بعد التعديل عمل كارنية لكل طالب.rar1 point
-
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 sub1 point
-
السلام عليكم الحمدلله تم تحول الملف بواسطة الأكواد مع العلم أن الكود ليس لي ولكن وجدته أثناء البحث وقمت بالتعديل عليه حتى يسهل فهمه ولا زال فيه بعض الطلاسم التي لم أفهمها الشرح داخل الملف تفضلوا Convert DAT to Excel.xlsm1 point
-
ممكن ذلك من خلال هذا التعديل على الكود 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 Sub1 point
-
1 point
-
1 point
-
اذا كان التاريخ المطلوب تحديد الاحد السابق و التالي له موجود فى الخلية D3 كما فى المثال المرفق ( الخلايا باللون الاصفر) معادلة الاحد السابق تكون: =IF(D3="","",D3-MOD(D3-1,7)) و معادلة الأحد التالي تكون: =IF(D3="","",D3+7-MOD(D3-1,7)) و طبعا يمكن تغيير المعادلة لترجع اي يوم اخر مرفق المثال للسهولة Officena Sundays.xlsx1 point
-
1 point
-
1 point
-
أخى الكريم / الصفوى سلام الله عليكم .. وأهلا ومرحبا بكم فى منتدى كل العرب.. دالة vlook2all فى ثوبها الجديد لأحد الزملاء دالة VLOOK2ALL New Look.rar1 point