نجوم المشاركات
Popular Content
Showing content with the highest reputation on 22 أغس, 2022 in all areas
-
وعليكِ السلام ورحمة الله وبركاته لنقم بتغيير طريقة السؤال على النحو التالي.. ماهو المبلغ الذي إذا أضفنا عليه الضريبة (%15) صار (1000)؟ وللإجابة على هذا السؤال؛ يجب أن نفهم أنه لا يمكن أن نضرب النسبة المجردة (0.15) في (1000) لسببين الأول أن هذه العملية تعيد (%15) بالنسبة إلى (1000) وليس إلى المبلغ المطلوب إضافة النسبة إليه ليصبح ألفا.. الثاني أن ناتج هذه العملية يعيد مبلغ النسبة إلى الأف، وحاصله (150). وهنا لا يمكن بتاتا القول أن المبلغ المطلوب هو (1000-150)! هذا فضيع.. إذا ماذا نعمل؟! وكيف نجيب على السؤال؟! في العمليات المحاسبية لا نستخدم النسبة المجردة (0.15) بل نستخدم (1.15)! إذا أردنا أن نعيد مبلغ 1000 مضافاً إليه ضرييبة %15 فستكون العملية الحسابية: 1000*1.15 إذا أردنا أن نعرف المبلغ الذي إذا أضفنا إليه %15 صار 1000 فستكون العملية الحسابية: 1.15/1000 أرجو أن تكون الفكرة وصلت!
5 points -
أستاذي الفاضل @أبو إبراهيم الغامدي جزالك الله خيرا .. قلت ما لم أستطع أن أقوله وأجبت فأجدت بارك الله فيك .. بالفعل هو ما كنت أحتاج إلى فهمه وهذا الملف بعد تطبيق فكرتك يعطي نتائج صحيحة (لمن أراد أن يستفيد من الفكرة) تحمل الضريبة.accdb3 points
-
صارت لدي حاجة لمثل هذا .. 🙂 عندي برنامج يقوم بحفظ ملفات PDF بنفس أسماء الأشخاص حسب الموجود في الجدول .. كل شخص له ملف PDF باسمه .. لكن أحيانا يتم إدخال الاسم هكذا : " الفاضل / محمد أحمد سلامة " واللويندوز يرفض علامة الـ / في أسماء الملفات وعلامات أخرى مثل : #$%^<> حسب ما أذكر .. لذلك أنشأت دالة تقوم بتتبع هذه العلامات في الاسم قبل حفظ الملف واستبدالها بالرمز " - " أو مسافة فارغة " " (ويمكنك تحديد البديل كما تشاء ) .. بدون تغيير البيانات في الجدول طبعا .. وهذه هي الدالة التي أنشأتها .. ويمكن تعديلها حسب الحاجة وتغيير الرموز المطلوبة فيها وتعيين البديل .. Public Function RemoveSymbolsFromText(strGivenTxt As String, Optional ReplacmentTxt As String = "") As String Dim Txt As String Dim R As String R = ReplacmentTxt Txt = strGivenTxt Txt = Replace(Txt, "!", R) Txt = Replace(Txt, "@", R) Txt = Replace(Txt, "#", R) Txt = Replace(Txt, "$", R) Txt = Replace(Txt, "%", R) Txt = Replace(Txt, "^", R) Txt = Replace(Txt, "*", R) Txt = Replace(Txt, "\", R) Txt = Replace(Txt, "|", R) Txt = Replace(Txt, "/", R) Txt = Replace(Txt, ".", R) Txt = Replace(Txt, "?", R) Txt = Replace(Txt, """", R) Txt = Replace(Txt, "'", R) Txt = Replace(Txt, "<", R) Txt = Replace(Txt, ">", R) Txt = Replace(Txt, "؟", R) Txt = Replace(Txt, "~", R) Txt = Replace(Txt, "&", R) RemoveSymbolsFromText = Txt End Function وتستدعيها هكذا : RemoveSymbolsFromText(strGivenTxt, "_")3 points
-
جرب المرفق ......... بحث احترافي.accdb3 points
-
الشكر لله ثم لاخواننا واساتذتنا الذين نتعلم منهم كل يوم والشكر موصول لاستاذنا @أبو إبراهيم الغامدي جزاه الله خيرا على تفسيره وحل المشكله ماشاء الله عليه 💐 وكل يوم نتعلم منه معلومات قيمه سواء برمجيا او غيره فجزاه الله عنا كل خير هذا صحيح وجزاه الله عنا كل خير 💐 بالتوفيق2 points
-
ماشاء الله تبارك الله يا كرام.. بمثلكم نفخر.. ومن معين علمكم نتعلم.. لمستم الجرح فعالجتم وأحسنتم.. وكفيتم ووفيتم.. كتب الله أجركم ورضي عنكم جميعًا وبارك لكم فيما رزقكم.. مرفق المثال بعد تطبيق الوحدة النمطية ((للفائدة)) تجربة تغيير الرموز.accdb2 points
-
كلام اخي عمر صحيح ..... بالاضافة الى ذلك انظر ....
2 points -
T3 جرب وضع هذه المعادلة في الخلية =SIERREUR(NB.SI.ENS(C$5:C$50;">="&$R3;D$5:D$50;"<="&$S3);"") تم وضع المعادلات في الملف المرفق Book1 M-H.xlsx2 points
-
لاحظت شي 🙂 DoCmd.RunSQL "DELETE sanduk.yat , sanduk.DAT , sanduk.SAH FROM sanduk WHERE " & myCriteria & ";"2 points
-
السلام عليكم ورحمه الله وبركاته اتفضلى استاذه @Lamyaa ان شاء الله يكون ما تريدين Private Sub FullPrice_LostFocus() x = Val(Me.FullPrice) * 0.15 z = x * 0.15 Me.Price = Val(Me.FullPrice - x) + z Me.VAT = Val(Me.FullPrice * 0.15) - z Me.Amount = Val(Me.Price) + Val(Me.VAT) End Sub بالتوفيق تحمل الضريبة.accdb
2 points -
شكرا استاذنا على المداخلة وهذه طريقة لبناء دالة على اكتاف Replace مع اخذ الاحتياط بحذف المسافات الفارغة الزائدة ان وجدت ' الصق هذه في وحدة نمطية عامة Public Function fnchang(vtext As String) Dim i As String i = Replace(vtext, "/", "-") i = Replace(i, "(", "-") i = Replace(i, ")", "-") Do While InStr(1, i, " ") > 0 i = Replace(i, " ", " ") Loop End Function ' تم تعديل الدالة نبهني الى الخطأ فيها اخي وحبيبي الاستاذ جعفر ' الصق هذا السطر في حقل جديد في الاستعلام text2: fnchang(text1) ، text1باعتبار هو اسم الحقل الذي سيجري عليه التغيير2 points
-
Version 1.0.0
195 تنزيل
سلام عليكم ورحمة الله وبركاته إخواني الأعزاء .. يسرني ويسعدني أن أقدم لكم اليوم هذه الهدية الجميلة الرائعة والتي كثيرا ما تم طلبها في مختلف المحافل .. وهي عبارة برنامج مجاني وجاهز للدردشة بين المستخدمين على الشبكة الداخلية .. البرنامج شبيه جدا ببرنامج الواتسأب المشهور لذلك سيسهل على المستخدمين فهمه واستخدامه وهذا ما اجتهدت عليه .. وهو برنامج مفتوح المصدر .. يمكن استخدامه كبرنامج منفصل ومستقل .. ويمكن دمجه مع قواعد البيانات الأخرى كجزء من البرنامج الأصلي .. أطلقت على البرنامج اسم : وهذه لقطتين واحدة لشاشة قائمة المراسلات والثانية لقائمة الرسائل في أحد المحادثات .. (الصفحة الرئيسية لقائمة المراسلين) (صفحة الدردشة) لن أطيل عليكم الشرح فقد شرحت البرنامج في مقطعين فيديو الأول يشرح البرنامج والثاني كيفية تنصيب البرنامج على الأجهزة .. أولا : شرح عمل البرنامج واستخدامه : ثانيا : شرح كيفية تنصيب البرنامج على الأجهزة : وأخيرا لا تنسوني من صالح دعواتكم ونصائحكم وإرشاداتكم .. ولا أنسى أن أتقدم بالشكر الجزيل لأخي المهندس @ابا جودى على مراجعته النهائية للبرنامج ودعمه الدائم .. لتحميل النسخة الغير مقسمة من هنا :: https://drive.google.com/file/d/1OQFZJ_4hc1_dyNyz8PLkNPABE_4yM7e1/view?usp=sharing ولتحميل النسخة المقسمة ( جداول و واجهات ) من هنا :: https://drive.google.com/file/d/1oj-5wqwLgq8d6TSEyjikhGbEGAloz_Xp/view?usp=sharing أخوكم ومحبكم ،، موسى الكلباني1 point -
السلام عليكم اخواني الاعزاء ارجو التكرم بالمساعدة بعمل نموذج بحث احترافي بحيث يكون هناك قائمة منسدلة استطيع اختيار منها --- الكل --- حسب رقم الهاتف -- حسب رقم الهوية - حسب العنوان وعند الاختيار يتم فتح تقرير بالنتائج قابل للطباعة مرفق قاعدة بيانات للتطبيق عليها بحث احترافي.accdb1 point
-
أحسنت استاذ عبد الفتاح فالملف يعمل بكل كفاءة وشوف بنفسك مجاهد2013 وهذه صورة بعد فتح الملف للتأكيد وبكده يجب غلق المشاركة 1402041816_-Copie.rar
1 point -
تفضل اخي Sub Hide_Rows_Zero_MH() Dim x1 As Long Dim x2 As Long Dim MH As Boolean For x1 = 4 To 15 MH = True For x2 = 2 To 5 If Cells(x1, x2).Value > 0 Then MH = False Exit For End If Next x2 Rows(x1).Hidden = MH Next x1 End Sub وهدا لاظهارها Sub shw_row() lr = Cells(Rows.Count, 1).End(4).Row Range("a4:a" & lr).EntireRow.Hidden = False End Sub اخفاء الصفوف الفارغة.xlsm1 point
-
قم بتطويع الكود بناء على اختيار المدى كما في التعليق ونسخه في موديول الورقة Private Sub Worksheet_Change(ByVal Target As Range) 'غير الاعمدة المراد تنفيدها مع مراعاة تكون الاعمدة متعاقبة If Not Intersect(Range("D:M"), Target) Is Nothing Then Dim myrange As Range With Target If Len(.Value) > 0 Then Set myrange = Columns(.Column) Application.EnableEvents = False If WorksheetFunction.CountIf(myrange, .Value) > 1 Then MsgBox .Value & " عذرا هذا الوقت مكرر.", vbExclamation .ClearContents End If Application.EnableEvents = True End If End With End If End Sub1 point
-
امسح الكود الخاص بك وجرب هذا الشيء في موديول اليوزرفورم Option Explicit Dim stopLoop As Boolean Private Sub UserForm_Activate() Do Label12.Caption = Format(Now, "hh:mm:ss") DoEvents Loop Until stopLoop End Sub Private Sub UserForm_Terminate() stopLoop = True End Sub1 point
-
ابحث في الموقع تجد العديد من الموضوعات مثل هذا <><><><><><>1 point
-
تفضل <><><<><><>< Test (10).accdb1 point
-
جرب هذا الملف وهو لأحد أساتذتنا الأجلاء جزاهم الله خيراً ونفع الله بعلمهم تسجيل الوافدين والعائدين.xlsb1 point
-
انا نزلت الملف ووجدة ملف ورد بداخل الملف ما فهمت ايه المطلوب فهل توضح ما تريد عمله غير اين قاعدة البيانات التى ترد التنفيذ فيها ؟ لان ممكن ما تريده استعلام او تقرير ما ندري لهذا برجاء التوضيح1 point
-
بارك الله فيك ..... الحمد لله رب العالمين .... بالتوفيق استاذي الفاضل1 point
-
هنا تجد الاجابة لمن يريد ؟1 point
-
وعليكم السلام 🙂 هذا مثال: وهذا محاولة للتطبيق على مثالك (يجب مراعاة نوع الحقل: نص ، رقم ، او تاريخ) : dim myCriteria as string 'امثلة ' myCriteria = "[detach]='Male'" 'نص ' myCriteria = myCriteria & " [ID]=12" 'رقم ' myCriteria = myCriteria & " [iDate]=#29-05-2015#" 'تاريخ myCriteria = "sanduk.yat= " & FORMS!edaa1![ser] myCriteria = myCriteria & " AND" myCriteria = myCriteria & " sanduk.daf= " & forms!edaa1![daf] myCriteria = myCriteria & " AND" myCriteria = myCriteria & " sanduk.dat= #" & forms!edaa1![dat] & "#" DoCmd.RunSQL "DELETE sanduk.yat , sanduk.DAT , sanduk.SAH FROM sanduk WHERE " & myCriteria . جعفر1 point
-
بالعكس انا بستخدم اوفيس 20161 point
-
هذه الدالة FRACTION.ANNEE غير موجودة عندي ربما أضيف حديثا في النسخ الحديثة.1 point
-
يمكنك استخدام المعادلة التالية لاستخراج الفرق بالشهور =DATEDIF(H2;P2;"m") مثال 12/4/2022____27/4/2029________النتيجة هي 96 شهر وهده ادا كانت لك رغبة باستخراج النتيجة بالاعداد الكسرية =FRACTION.ANNEE(H2;P2)*12 12/4/2022____27/4/2029________ النتيجة هي 96.5 شهر ونصف Copy of Book13(2).xlsx1 point
-
لم تطلب اليوم ، طلبت فقط السنة والشهر تم إضافة اليوم Book13_03.rar1 point
-
جرًب: Book13_02.rar1 point
-
بارك الله في اعمالك استا\نا الكريم دائما سباقا في الاجابة مثال جيد لكن ياريت لو تضهر النتيجة مباشرة بعد الكتابة دون الضغط على الزر و ليكون الزر مخصص للطباعة فقط1 point
-
Replace(Replace(Replace([text1];"/";"-");"(";"-");")";"-")1 point
-
جرب هذه المعادلة ( Ctrl+Shift+Enter ) في الخلية D1 .واسحب نزولاُ =IFERROR(INDEX($A$1:$A$11,SMALL(IF(COUNTIF($A$1:$A$11,$B$1:$B$11),COUNTA($A$1:$A$11)+1,ROW($A$1:$A$11)-ROW($A$1)+1),ROWS($A$1:A1))),"")1 point
-
شكرا لمروركم الكريم أحبتي في الله ولكلماتكم الرقيقة وفقنا الله وإياكم لكل خير1 point
-
ساعتها تستعمل الشرط مع if if m=value then وهذه القيم الراجعة من الأزار في الرسالة Constant Value OK 1 Cancel 2 Abort 3 Retry 4 Ignore 5 Yes 6 No 71 point
-
شكرا لمرورك الكريم أستاذ صلاح ويالنسبة لموضوع الترجيل فالمنتدى مليء بالدرر التي وفت وزادت1 point
-
السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما أني جعلة مسار حفظ ملف PDF الذي سينشاء وكذلك تسميته اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي Convert to PDF.rar Convert to PDF.rar1 point
-
السلام عليكم ستجد في هذا الملف - تحويل الملف بالكامل الى ملف pdf - تحويل ورقت عمل اختيارية بواسطة قائمة منسدلة الى ملف PDF - تحويل نطاق محدد الى ملف PDF كما اني جعلة مسارحفظ ملف PDF الذي سينشاء وتسميته ايضا اختيارية ارجو ان يكون فيه الفائدة لك ولجميع الاعضاء تحياتي1 point
-
شكرا لجميع الإخوة الذين عمل البرنامج معهم أما أخي tahar وأخي خبور خير فيبدو أن الجهاز يحتاج لبعض التحديث وخاصة dotnetframework إلى نسخة 3.5 sp1 أو 4 هذا رابط 3.5 http://download.micr.../dotnetfx35.exe وهذا رابط للنسخة 4 http://www.microsoft...s.aspx?id=17718 وفقنا الله وإياكم لكل ما يحب ويرضى1 point
-
معذرة أخي الكريم العيدروس لم اشاهد إجابتك على الموضوع حل موفق بارك الله لك1 point
-
تفضل أخي الكريم Dim fctrl As Control For Each fctrl In Me.Controls If fctrl.Name Like "Text*" Or fctrl.Name Like "Combo*" Then fctrl = vbNullString Next1 point
-
أشكر لكم مروركم الكريم اخوتي و أحبتي في الله نفعنا الله وإياكم بما علمنا وعلمنا ما ينفعنا1 point
-
بارك الله لك أخي محمد طاهر ربما تكون هذه التقنية عودة لميكروسوفت للمنافسة في مجال الويب1 point
-
بارك الله لك أخي الكريم محمد يحياوي رابع زر في الرسالة هو زر التعليمات (help) إذا تم تضمينه مع رسالة بها 3 أزرار1 point
-
ما شاء الله رائع أخي خبور خير وهذا رابط للإخوة هواة ألعاب الإكسل http://excelgames.org1 point
