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

تم التعديل الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, F_rg As Range Application.EnableEvents = False Set Rg = Union(Range("C3:C20"), Range("E3:E20"), Range("G3:G20")) If Not Intersect(Target, Rg) Is Nothing _ And Target.Cells.Count = 1 Then Set F_rg = Range("B42:B57").Find(Target, lookat:=1) If Not F_rg Is Nothing Then Target = Cells(F_rg.Row, "C") End If End If Application.EnableEvents = True End Sub Talal_1.xlsm

جرب هذه المعادلة معادلة صفيف اي يجب الضفط على (Crtl+Shift+Entr) وليس (Enter) وحدها =SUM(IF(ISNUMBER(SEARCH(TRIM($A$3:$A$7),TRIM(A11))),$B$3:$B$7,0)) الملف مرفق Mox.xlsx

تفضل فاتورة(2)(6).xlsm

لك ما تريد My_tax_1.xlsm

مشاركة مع استاذ علاء محمد علي حسب فهمي لطلبك فانك تريد نسبة ربح جديدة لكل منتج بعد الخصم نسبة الربح للمنتج بعد الخصم = 0.75 * (1 + نسبة الربح للمنتج قبل الخصم) - 1 هذه المعادلة لنسبة خصم 25% ومن المعادلة يلاحظ ان نسبة الخصم كبيرة جدا حيث انه ستكون خسائر للمنتجات ذات نسب الارباح القليلة اما المعادلة العامة فهي نسبة الربح للمنتج بعد الخصم = (1 - نسبة الخصم) * (1 + نسبة الربح للمنتج قبل الخصم) - 1

http://www.officena.net/team/khboor/kh_image/p22.gif المواضيع الحديثة دورة شرح الفيجول بيسك للتطبيقات VBA عبدالله المجرب [مفاجاة سارة] الدرس الرابع من سلسلة شروحات فيديو " الترحيل " أربعة أجزاء عبدالله المجرب امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله)) ضاحي الغريب اضخم كتاب لتعلم الصيغ والدوال في Excel 2007 امين بعض الدروس والتطبيقات على الاكسل فيديو (( متجدد )) قنديل الصياد سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) ؛ أحمد النجار ؛ جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف إنشاء القوائم المنسدلة (دروس للمبتدئين) ياسر خليل سلسلة الفارس فى شرح دوال الإكسل ( فيديو ) متجدد رجب جاويش شرح دوال الاكسيل صوت وصورة ( باللغة العربية) أحمد النجار جميع النماذج من أكواد ومعادلات الخاصة بالتفقيط محمود_الشريف

شيت مستر ملاك 2021 للمرحلة الإبتدائية بتاريخ 12-12-2020 شيت كنترول كامل لكل الصفوف من الأول الى السادس الابتدائى على أحدث التعليمات الواردة من الوزارة يحتوى على : 1- جميع أوراق الكنترول 2- البيانات الاساسية 3- كشوف مناداة التلاميذ 4- لاصقات أرقام الجلوس 5- أرقام الجلوس مع جدول الامتحانات 6- قوائم الفصول 7- كشوف درجات المواد و الانشطة 8- شيت متكامل 9- نتيجة شاملة 10- احصاء 11- احصاء الجودة 12- الشهادات تقديرات فقط و تقديرات و درجات معاً 13- العشرة الأوائل 14- شهادات تقدير للأوائل يتميز بــ : سهولة التعامل صغر الحجم شامل كل المعلومات المطلوبة فى الامتحانات طباعة سريعة لكل صفحات الشيت بضغطة واحدة امكانية الترتيب الأبجدى بضغطة واحدة كلمة المرور : 333 مع قبول أى اقتراحات جديدة .... الملف 903691162_202112-12-2020.rar

جرب هذا الماكرو لعله يكون المطلوب (فقط اصغط الزر Run ) Option Explicit Sub Text_to_date() Dim st, i%, m%, k%, ro Dim arr() Dim My_dat As Date Dim stg ro = Cells(Rows.Count, 1).End(3).Row If ro < 2 Then Exit Sub Range("C2:C" & ro).ClearContents For i = 2 To ro st = Split(Cells(i, 1)) For k = LBound(st) To UBound(st) If st(k) <> "" Then ReDim Preserve arr(m) arr(m) = st(k) m = m + 1 End If Next k On Error Resume Next stg = """" & arr(2) * 1 & " " & arr(0) & " " & arr(1) * 1 & """" If Err.Number > 0 Then GoTo Next_I If IsDate(Evaluate(stg)) Then My_dat = Evaluate(stg) Cells(i, 3) = My_dat End If Next_I: Erase arr: m = 0: On Error GoTo 0 Next i End Sub الملف مرفق Text_to dat.xlsm

شكرا جزيل لك

نعم ، اغلب البرامج تعتمد على الكود في عمل البرنامج ، وتعتمد على الكود في عمل كائنات النموذج/التقارير ، وهنا قوة الاكسس في التفوق عليهم جميعا في سرعة عمل البرنامج بواجهات الاكسس 🙂 جعفر

ما أري بين الأول والثاني فرق سوي أنك وضعت نسبة الخصم بجوار نسبة الربح انظر العملية الحسابية وفقا لما ذكرته لك بالمشاركة الأولي ستكون بهذا الشكل 3000 * (1+(0.4*0.25))=3300 6000* (1+(0.30*0.25))=6450 2000* (1+(0.10 *0.25))=2050 وبذلك يكون المجموع=11800 ولكن علي ما فهمت من كلام حضرتك أن الاشكالية الآن في حال ارتجاع صنف داخل فاتورة مستفيدة من خصم معين (اليس كذلك) بأي سعر سوف يتم ارتجاع هذا الصنف!! وفقا لتجربتي الشخصية ولربما لاساتذتي رأي آخر: 1- يتم خصم نسبة الخصم من اجمالي الفاتورة. 2- يتم تخزين نسبة الخصم بالفاتورة ضمن بيانات فاتورة البيع 3- عند ارتجاع الصنف يتم تحديد رقم الفاتورة التي سيتم منها ارتجاع الأصناف 4- اذا كان هناك نسبة خصم بالفاتورة يتم خصم نفس النسبة من سعر بيع الصنف وارتجاع باقي قيمة الصنف للعميل. يعني بمثال رقمي: الصنف1 قيمته الشرائية 3000 + 0.4 هامش ربح = قيمة البيعية للصنف = 4200 الصنف2 قيمته الشرائية 6000 + 0.3 هامش ربح = قيمة البيعية للصنف = 7800 اجمالي قيمة الفاتورة(رقم الفاتورة10101) هو 12000 لنفترض الأن انه تم منح العميل خصم 0.25 اذا صافي ما سيتم استلامه من العميل هو 9000 جنيه (أليس كذلك) لو افترضنا ان العميل قام بارجاع الصنف 1 من الفاتورة (10101) تري كم سنرد له!! في فاتورة الارتجاع رقم (20201) عن فاتورة بيع رقم (10101) يتم تسجيل قيمة الصنف 1 بقيمته البيعية 4200 - نسبة الخصم بفاتورة البيع 0.25 اذا صافي قيمة المبلغ المسترد هو 3150 وفقط هذا كل شئ الخلاصة: يجب أن يتم ربط فاتورة الارتجاع بفاتورة البيع عند ادخال البيانات.

تفضل جرب هذا ووافنا بالنتائج الادارية - Copy.rar

و هذا ما يفعله الماكرو انظر الى القيمة 9000 في الجدول (Other Examples)

كل الشكر والتقدير للعالم الجليل الاستاذ سليم حاصبيا على هذا العمل الرائع كما اتقدم بخالص الشكر والتقدير للعالم الجليل ايضا الاستاذ بن علية حاجي على هذا العمل الرائع فى طلبى هذا وكم كنت سعيدا بهذة الحلول القيمة من العلماء الأجلاء والله مهما تكلمت لا افوفيكم حقكم فجزاكم الله عنا خيرا الجزاء اسف استاذ سليم فيه خطأ منى لم اوضحه لحضرتك وكنت اظن ان حضرتك مدركه وهى الشريحه الاولى وهذا التوضيح لى وللأخوة فى المنتدى ولكى تكون الإجابه واحدة ولكن بطرق مختلفة بالمعادلات او بالكود تكون الاجابه واحدة وهى اذا كان الدخل السنوى أقل من 11000 نضرب فى 1.5% أما اذا زاد عن 11000 يدخل على الشريحه الثانيه مباشرة وكما تفضلت حضرتك لكى تكون النتيجه واحدة ولكى لايشتت االاخوة فى المنتدى ونحن نتعلم فى مدرستكم وجزاكم الله خيرا

يمكن جمعهم اينما نريد الصورة توضح ذلك

تم معالجة الأمر Option Explicit Function Salim_Tax(Myfact As Double, _ n1 As Double, n2 As Double, _ n3 As Double, n4 As Double) As Double '''''''''''''''''''''''''''''''''''''''''' Dim A#, B#, C#, D#, E#, S# Select Case True Case Myfact < 11000 A = Myfact * n1 S = A Case Myfact < 18500 B = 11000 * n2 C = (Myfact - 11000) * n3 S = (B + C) * 0.55 Case Else 'Exact B = 11000 * n2 C = 7500 * n3 D = (Myfact - 18500) * n4 S = (B + C + D) * 0.925 End Select Salim_Tax = Round(S, 2) End Function My_tax.xlsm

وعليكم السلام ورحمة الله وبركاته بالاضافة الى ما تفضل به اخونا الكريم @نبراس كاظم وله الشكر يمكن انشاء نموذج وعرضه بديلاً عن msgbox تحياتي

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

السلام عليكم بالنسبة لخلفية الإكسيل لا يمكن إخفاؤها (يمكن تلوينها بالأبيض مع واجهة الإكسيل أو يمكن تعديل عرض الأعمدة في الجدول لملء شاشة الكمبيوتر)، بالنسبة للكود الذي وضعه أخي الكريم ابراهيم فهو يقوم بإلغاء خاصية "إخفاء الأعمدة" (إظهار كل الأعمدة المخفية في الشيت المسمى "Sheet1"... ليس لي فكرة أخرى... بن علية حاجي

السلام عليكم تم حذف النطاقات بالتسمية الموجودة في الملف واستبدلتها بالتسمية Niveau بمعادلة ديناميكية (مرتبطة بخلية المستوى I5 الملونة بالوردي) تتغير حسب عدد الأقسام في كل مستوى وذلك لاستعمالها كقائمة منسدلة في الخلية J5 (الملونة بالأحمر)... أرجو أن تفي الغرض المطلوب... بن علية حاجي قائمة منسدلة حسب قائمة منسدلة اخرى.xlsx

ترحيل مدين ودائن (1).xlsb

تفضل Private Sub Form_Load() Dim i, ii As Byte Dim dt1, dt2 As Date dt1 = DMax("dater1", "table1") dt2 = (Date) - 1 i = dt2 - dt1 For ii = 1 To i DoCmd.GoToRecord , , acNewRec dt1 = dt1 + 1 Me.dater1 = dt1 Next Me.Requery End Sub وهذا تطبيق : db4.mdb

وعليكم السلام ورحمة الله وبركاته أولا- لاختصار عملية الجمع والضرب لاستخراج ناتج الربح يمكنك اختصار العمليتين في هذه العملية (3000* 1.4 =4200) ثانيا- ان كنت تعني أنك تريد الخصم من ربح كل سلعة علي حدي يمكنك استخدام هذا (3000 * (1+(0.4*0.25))) = 3300 هذا علي قدر ما فهمت من السؤال ان كان طلبك غير هذا فرجاء تفضل علينا بمزيد من التوضيح

السلام عليكم اولا اعد النظر بحساب قيمة الغسالات كيف مجموع الغسالات 1200؟ الغسالة ب2200 مع الربح يعني ثمن 5 غسالات مع الربح 10٪ هو 11000 اما فينا يخص المعادلة اللي طلبتها اقترح عليك أن تجعل برنامجك يخصم 25٪ من اجمالي كل صنف على حدة وليس من اجمالي الفاتورة واعمل اجمالي للخصم بنهاية الفاتورة والخصم يظهر أمام كل صنف محسوب بناء على نسبة الخصم المدخلة من المستخدم مثلا قيمة الغسالات الخمس هو 11000 مع الربح يظهر امامها في حقل الخصم (لأنك لازم تضيف حقل للخصم لكل صنف بالفاتورة) مبلغ 2750 وهو 25٪ وعند الرغبة بارحاع سلعة يتم حساب سعر البيع بقسمة مبلغ الخصم للصنع على العدد لانتج الخصم الخاص بالقطعة الواحدة اتمنى ان تكون وصلت الفكرة وستجد افكار افضل في المنتدى بالتأكيد اخوك علاء

المطلوب استخراج كل 20 موظف فى جدول مستقل فى صفحة مستقله تقسيم.rar

وهنا تم اضافة كود استعلام بين تاريخين Sub Renseignements() Dim ws As Worksheet Dim sh As Worksheet Dim rng1, rng2 As Date Dim lr1, lr2 As Long Dim x As Long Set ws = Sheets("TAKRIR") rng1 = ws.[c2]: rng2 = ws.[d2] Application.ScreenUpdating = False lr1 = ws.Cells(Rows.Count, 1).End(3).Row + 1 ws.Range("a5:m" & lr1).ClearContents For Each sh In Sheets If sh.Name <> "Tarheel" And sh.Name <> "TAKRIR" Then lr2 = sh.Cells(Rows.Count, 1).End(3).Row For x = 3 To lr2 lr1 = ws.Range("a" & Rows.Count).End(xlUp).Row + 1 Select Case sh.Cells(x, 1).Value2: Case rng1 To rng2 ws.Range("a" & lr1).Value = sh.Name ws.Range("a" & lr1).Offset(, 1).Resize(1, 14).Value = sh.Cells(x, "b").Resize(1, 14).Value End Select Next x End If Next sh Application.ScreenUpdating = True End Sub ترحيل مدين ودائن.xlsb

1-ليس من الضرورة رفع ملف يجتوي على اكثر من 1500 صف لان الماكرو الذي يعمل على صف واحد بستطيع العمل على الوف الصفوف 2- تم اختصار الملف الى حوالي 80 صف لمتابعة عمل الماكرو 3-الكود Option Explicit Dim sh As Worksheet Dim New_sh As Worksheet Dim lr%, Cont#, i%, x%, k% Dim SectionName As Range Const How_Many = 20 '+++++++++++++++++++++++++++++++ Sub Del_sheets() Application.DisplayAlerts = False For Each sh In Sheets If sh.Name Like "Section*" Then sh.Delete End If Next Main.Select Application.DisplayAlerts = True End Sub '++++++++++++++++++++++++++++++ Sub insert_Sheets() Del_sheets Set SectionName = Main.Range("D3:K3") lr = Main.Cells(Rows.Count, 3).End(3).Row Cont = (lr - 1) / How_Many If Int(Cont) <> Cont Then Cont = Cont + 1 End If Cont = Int(Cont) For i = 1 To Cont Sheets.Add(, Sheets(Sheets.Count)).Name = "Section_" & k * How_Many + 1 k = k + 1 SectionName.Copy With ActiveSheet.Range("D3") .PasteSpecial (xlPasteAll) .PasteSpecial (8) End With Next Application.CutCopyMode = False Main.Select End Sub '++++++++++++++++++++++++++++++++++++ Sub fil_data() Application.ScreenUpdating = False insert_Sheets x = 4 For Each New_sh In Sheets If New_sh.Name Like "Section*" Then Main.Range("D" & x).Resize(How_Many, 9).Copy New_sh.Range("D4").PasteSpecial (xlPasteAll) New_sh.Range("D4").PasteSpecial (8) x = x + How_Many End If Next Application.ScreenUpdating = True Main.Select End Sub 4-الملف مرفق Taksim_Ahmad.xlsm

جرب هذا الملف Option Explicit Sub Get_Str() Dim My_Sheet As Worksheet Dim My_Regex As Object Dim K As Byte, La%, t%, st$ Set My_Sheet = Sheets("Sheet1") Set My_Regex = CreateObject("VBScript.RegExp") My_Regex.Global = True With My_Sheet La = .Cells(Rows.Count, 1).End(3).Row .Range("C2").CurrentRegion.ClearContents For K = 3 To 4 My_Regex.Pattern = _ IIf(K = 4, "[\u0621-\u064A]+", "\w+") For t = 1 To La If My_Regex.test(.Range("A" & t)) Then st = My_Regex.Replace(.Range("A" & t), "") .Cells(t, K) = Trim(st) End If Next t st = "" Next K End With Set My_Regex = Nothing End Sub الملف مرفق ReGex_Kaddour_1.xlsm

ولو قمت بالبحث لوجدت ما تريد -تفضل , طبعاً بعد اذن الأستاذ عبد الفتاح ولإثراء الموضوع -فهذا حل اخر بالمعادلات عند فصل الإسم العربى فى خلية اخرى اذا كانت الخلية المتضمنة الإسم العربى والإنجليزى هى A2 , فيمكنك استخدام معادلة المصفوفة بالخلية B2 (Ctrl+Shift+Enter) =MID(A2,MATCH(1,IF(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>=192,1),0),255) اما بالنسبة للإسم الإنجليزى فيكون بهذه المعادلة داخل الخلية C2 كما بالملف =TRIM(LEFT(A2,LEN(A2)-LEN(B2))) فصل الكلمات العربية عن الانجليزية Seperate Mix Text.xlsm

بما انك لم ترفق ملف لعلك تستفيد من هذا الملف Sub split() Dim first As String, second As Integer, i As Integer For i = 1 To 7 first = Cells(i, 1).Value second = InStr(first, ",") Cells(i, 2).Value = Mid(first, second + 2) Cells(i, 3).Value = Left(first, second - 1) Next i End Sub SPLIT ‫‬.xlsm

أخي العزيز ان كنت قد احسنت الفهم عنك انت تريد ايقاف رسالة النظام المرتبطة بعدم وجود القيمة المضافة لمربع التحرير ضمن عناصر مصدر السجلات لتقوم بتفعيل نموذج اضافة القيمة الجديدة لمصدر السجلات لايقاف الرسالة اضف السطر التالي قبل كود تفعيل نموذج الاضافة Response = acDataErrContinue شكرا

شكرا يا ابو خليل على هذا المجهود الرائع

http://www.officena.net/team/khboor/kh_image/p36.gif الموضوع رقم(1) كود لتحويل المعادلات الى قيم خبور خير ===================================== الموضوع رقم(2) التقاط صورة للتحديد خلايا او صوره او اي شي ويتم حفظه ومعاينته خبور خير ===================================== الموضوع رقم(3) فورم باوامر صناديق الحوار Application.Dialogs خبور خير ===================================== الموضوع رقم(4) تجارب ومناقشات ادخال خطة اتوماتيكية للفصول خبور خير ===================================== الموضوع رقم(5) توزيع الفصول على نصفي الورقة حسب النوع او مشترك خبور خير ===================================== الموضوع رقم(6) اعداد تقرير من نطاق معين اتوماتيكيا من خلال فورم خبور خير ===================================== الموضوع رقم(7) شرح اعداد كشوفات مدرسية باختيار روؤس الاعمدة عن طريق فورم خبور خير ===================================== الموضوع رقم(8) برنامج الجدول المدرسي الاصدار الثاني خبور خير ===================================== الموضوع رقم(9) وداعاً للقوائم المنسدلة .. وداعا لListBox .. وداعا لكل انواع القوائم الحسامي ===================================== الموضوع رقم(10) برنامج كاس العالم 2010 بالمعادلات ( الاصدار الثاني) بخاصية انتقال الصور خبور خير ===================================== الموضوع رقم(11) دالة استخراج النص او الارقام طريقة اخرى خبور خير ===================================== الموضوع رقم(12) دالة جديدة لاستخراج ولي الامر باسلوب جديد خبور خير ===================================== الموضوع رقم(13) دالة تجزئة الاسماء من اسم طويل مع معايير خاصة لفهم الاسماء المركبة للاسم الواحد خبور خير ===================================== الموضوع رقم(14) عمل قائمة منسدلة مرتبطة بقائمة أخرى mahmoud_xp/ خبور خير/ الحسامي/&amp;nbsp;&amp;nbsp;طارق ===================================== الموضوع رقم(15) تحويل دالة SUMPRODUCT الى كود VBA \ kemas \ zxzxzxzخبور خير ===================================== الموضوع رقم(16) شرح كتابة معادلة الإكسيل داخل كود فيجوال بيسك - فديو تعليمي kemas ===================================== الموضوع رقم(17) شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba .. range .. cells .. offset الحسامي ===================================== الموضوع رقم(18) شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء if ....case ...switch ...choosم الحسامي ===================================== الموضوع رقم(19) دورة للمبتدئين في عالم البرمجة YasserKhalil ===================================== الموضوع رقم(20) امتلك منتدى وموقع ومدونة مجانا خالد القدس ===================================== الموضوع رقم(21) كود للشهادات يمكن تطبيقه على اي شهادات خبور خير ===================================== الموضوع رقم(22) برنامج طلبات الشراء ابو عبدالله ===================================== الموضوع رقم(23) هيا معاً : نتفاعل - نشارك - ننتج &amp;ndash; نرقى ... ابو عبدالله ===================================== الموضوع رقم(24) مشروعات:01:تقليل هالك الحديد TareQ M ===================================== الموضوع رقم(25) مشروعات : 02 - برنامج الحسابات مع مراكز التكلفة أبو عبدالله ===================================== الموضوع رقم(26) مشروعات : 03 - نظام محاسبة ومخزون مطاعم وفنادق هاني بدر ===================================== الموضوع رقم(27) &amp;nbsp;&amp;nbsp;درس في الترحيل باستخدام الاكواد ... هدية شهر رمضان كل عام وانتم بخير&amp;nbsp;&amp;nbsp; الحسامى ===================================== الموضوع رقم(28) ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته http://www.officena....opic=34088&amp;amp;st=0 الحسامى ===================================== http://www.officena.net/team/khboor/kh_image/p37.gif http://www.officena.net/team/khboor/kh_image/p39.gif السلام عليكم ===== الموضوع رقم(29) شرح دوال الاكسيل للاستاذ خبور خير خبور خير http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(30) بعض الاكواد المنفصلة قد تهم البعض ارجوا من الجميع المساهمة yahiaoui http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(31) تجارب ومناقشات ادخال خطة اتوماتيكية للفصول اراءكم واستفساراتكم لوضع الخطة على الطريق الصحيح قدر الامكان خبور خير http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(32) مشاركات للمواضيع الخاصة بالشروحات فيديو فقط فكرة لتنشيط الاعمال والشروحات المميزة والمفيدة هشام شلبي http://img105.herosh.com/2011/07/04/906211977.gif السلام عليكم ===== الموضوع رقم(33) هذا الموضوع مخصص للموضوعات الخاصة بالمعلمين من كنترولات وخلافه لسهولة البحث للاخوة الاعضاء " موضوع متجدد" هشام شلبي http://img105.herosh.com/2011/07/04/906211977.gif