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

هناك علاقة موجودة بين الجدولين هي تمنع التحديث لذلك طبق حسب الصورة ثم اعد تلك العلاقة بعد الترحيل مرة اخرى احذف العلاقة رقم 1 كون العلاقة رقم 2 انشأ التحديث رقم 3 شغل الاستعلام ليتم تحديث بيانات الجدول istimaraall ثم اعد العلاقة رقم 1 مرة اخرى

وعليكم السلام 🙂 تفضل : R: IIf([2020]=0,"Nothing",[2020]) . . والنتيجة : . جعفر

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

هديتى برنامج مخزنى و دليل حسابات_ECO2_DuClick_store_ بفورم بحث و اضافه بسم الله الرحمن الرحيم ( رَبَّنَا آتِنَا مِن لَّدُنكَ رَحْمَةً وَهَيِّئْ لَنَا مِنْ أَمْرِنَا رَشَدًا ) تحياتى و ايام مباركه ايام مبشره و هموم راحله يا الله هديتى لكل اعضاء المنتدى برنامج دليل حسابات و مخازن ECO2_DuClick_store مميزات البرنامج ( يمكن تطويعه لاستخدامات اخرى ) كود رقم الصنف تلقائى ارصدة الاصناف تلقائى فورم بحث و اضافه استخراج رصيد حركة الصنف بين تاريخين سهولة البحث عن البنود / الاصناف عند الادخال بحركة اليوميه سهولة التنقل بين الصفحات كود طباعة كارت الصنف و ارصدة الاصناف البرنامج مفتوح المصدر للجميع للاستفاده من الاكواد و المعادلات يمكن التعديل عليه لزيادة نطاق الصفوف بسحب المعادلات يمكن استخدامه للافراد و للشركات لاتنسونا من صالح الدعاء ECO2_DuClick_store اضافة قيمه و سعر.xlsm ECO2_DuClick_store.xlsm

حياك الله ....... الحمد لله رب العالمين

بشرط اذا وجدت القاموس تدرجة هنا مع هذا المثال ..... طبعا موافق .... طيب انظر المرفق .... names.mdb

في هذه الحالة تحتاج قاموس كامل يحوي كل مفردات الاسماء المعروفه ..... ابحث عن القاموس ان وجدتها فممكن للاكسس عندها ترجمة الاسماء من خلالها والله اعلم .....

بارك الله فيك ..... الحمد لله رب العالمين

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

عاشت إيدك يا أخي الغالي Kanory ربي يجعلها في ميزان حسناتك هذا بالضبط ما أردته 🌷 مشكور

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

حياك الله ... الحمد الله رب العالمين

مشكور اخ كنوري بطل والله الله يحفظك ويرفع مرتبتك

لا أعلم اذا كان هذا المطلوب abdelrhmank.xlsx

جرب هذا الملف shoaip_sum.xlsm

طبق من خيارات الاكسس وازل العلامة من السماح بالقوائم المختصرة الافتراضية

السلام عليكم جرب معادلة تالية مع مراعات نوع فاصل "," او ";" حسب لغة ويندوز nz(([A])+nz([B]))/IIF([A]>0 And [B]>0,2,1) nz(([A])+nz([B]))/IIF([A]>0 And [B]>0;2;1)

ماهي الرسالة التي تظهر صور لنا تلك الرسالة

اكتب هذا الكود If IsNull(Texte8) Or Me.Texte8 = "" Then " اكتب الاسم "MsgBox DoCmd.CancelEvent Else DoCmd.OpenReport "mouv", acViewReport End If

اتفضل اخوي العزيز Copy of Copy of Copy of كانون اول 2020-1.xlsm

تفضل البرنامج الجديد 2021.xlsm

تفضل أخي الكريم .... Kan.accdb

السلام عليكم تم التعديل في هذا الستر ' TextBox115.Value = 5 ''هنا حدد النسبة ' تفضل البرنامج الجديد 2021 (1).xlsm

وعليكم السلام - تفضل البرنامج الجديد 2021 (1).xlsm

اتفضل اخوي العزيز .. المعادلة في الورقة JARD_MOG و JARD_HA Copy of Copy of كانون اول 2020-1.xlsm

كان من المفروض رفع ملف ولا تدع من يريد المساعدة ان يفعل ذلك التكرارات لا ترحل Option Explicit Sub MY_DATA() Dim M As Worksheet, O As Worksheet Dim Rg_M As Range, Rg_O As Range Dim Ro_M%, i%, How_Many%, _ Ro_O%, t%, n% Dim arr() Set M = Sheets("Main"): Set O = Sheets("Out") Ro_M = M.Cells(Rows.Count, 1).End(3).Row If Ro_M = 1 Then Exit Sub Ro_O = O.Cells(Rows.Count, 1).End(3).Row + 1 For i = 2 To Ro_M How_Many = M.Cells(i, 3) ReDim arr(How_Many - 1, 3) n = 0 For t = LBound(arr) To UBound(arr) arr(t, 0) = M.Cells(i, 1) arr(t, 1) = M.Cells(i, 2) + n arr(t, 2) = M.Cells(i, 3) arr(t, 3) = M.Cells(i, 4) n = n + 1 Next t O.Cells(Ro_O, 1). _ Resize(UBound(arr) + 1, 4).Value = arr Ro_O = Ro_O + UBound(arr) + 1 Erase arr: n = 0 Next i O.Range("A1").Resize(Ro_O - 1, 4).RemoveDuplicates _ Columns:=Array(1, 2, 3, 4) End Sub الملف مرفق prog55.xlsm

شكرا لك

وعليكم السلام هذا الموضوع صعب علي وعليك لكن على المبدع والاستاذ جعفر ليس صعبا ابدا انصحك بقراءة الموضوع التالي ففيه ضالتك وسوف تحصل على النتيجة التالية : جرد شهري(1).rar

Range("F" & Cells.Rows.Count).End(xlUp).Offset(1, 0).Select الكود يعمل معك وانت لا تلاجظ ذلك لأنك دائماً تعمل Selection لنفس الخلية التي هي اول خلية فارغة بالعامود F جرب هذا الكود المرفق بالملف Option Explicit Dim ws As Worksheet Dim RG As Range Dim Time_Run As Date Dim my_st$ Dim i% '++++++++++++++++++++++++ Sub Cyclic_macro() Static x x = i Set ws = Sheets("Sheet1") my_st$ = "Salim" Set RG = ws.Range("A" & Cells.Rows.Count).End(xlUp).Offset(1) RG = my_st & i + 1 i = i + 1 Time_Run = Now + TimeValue("00:00:03") Application.OnTime Time_Run, "Cyclic_macro" End Sub '++++++++++++++++++++++++++++ Sub Stop_Me() On Error Resume Next i = 0 Application.OnTime Time_Run, "Cyclic_macro", , False End Sub '+++++++++++++++++++++++++++++ Sub Clear_data() Set ws = Sheets("Sheet1") i = 0 ws.Range("A2", Range("A1").End(4)).ClearContents End Sub Cyclic_macro.xlsm

شاهد هذا الفيديو https://www.youtube.com/watch?v=l3kBuJtNLgU&ab_channel=TeachExcel

المحاضرة الثانيه في دورة احتراف دوال ومعادلات الإكسل تابع معانا #we_love_mohammad_ﷺ_challenge #إلا_رسول_الله #عذرا_رسول_الله #مقاطعه_المنتجات_الفرنسيه #مقاطعه_فرنسا

السلام عليكم جرب الآن... برنامج فحص (3).xlsx

لا حاجة لادراج آلاف الأسماء (عيّنه بسيطة تكفي)لأن الماكرو ديناميكي يأخذ كل الطلاب مهما كان عددهم الكود Option Explicit Dim i Dim arr(1 To 6) Dim Ws As Worksheet Dim New_sheet As Worksheet Dim Rg As Range, Spes_Rg As Range, x% '++++++++++++++++++++++++++++++++++++ Sub ADD_Sheet() Set Ws = Sheets("KOUSHOUFAT") arr(1) = "الأوّل": arr(2) = "الثّاني" arr(3) = "الثّالث": arr(4) = "الرّابع" arr(5) = "الخامس": arr(6) = "السّادس" For i = LBound(arr) To UBound(arr) If Not Application.Evaluate("ISREF('" & _ arr(i) & "'!A1)") Then Sheets.Add(, Sheets(Sheets.Count)).Name = arr(i) End If Next End Sub '++++++++++++++++++++++++++++++++++++ Sub Get_Studiantes() Application.ScreenUpdating = False ADD_Sheet Set Rg = Ws.Range("A1").CurrentRegion i = 1 For Each New_sheet In Sheets If New_sheet.Name <> Ws.Name Then New_sheet.Range("A1").CurrentRegion.Clear Rg.AutoFilter 3, arr(i) Rg.SpecialCells(12).Copy With New_sheet.Range("A1") .PasteSpecial (8) .PasteSpecial (12) .PasteSpecial (4) End With Set Spes_Rg = New_sheet.Range("A1").CurrentRegion x = Spes_Rg.Rows.Count If x > 1 Then Spes_Rg.Cells(2, 1).Resize(x - 1).Value = _ Evaluate("row(1:" & x - 1 & ")") End If i = i + 1 End If Next With Application .CutCopyMode = False .ScreenUpdating = True End With Ws.Select Ws.AutoFilterMode = False End Sub الملف مرفق jako.xlsm

يجب حفظ الملف بصيغة xlsm لا بصيغة xlsx كما هو موضح بالصورة ملف احر مرفق مع معادلة( ايضاً يجب حفظه الملف بصيغة xlsm) Taswiyat_formula.xlsm

بسم الله والصلاة والسلام على رسول الله كل عام أنت جميعا بكل خير أحبابي في الله تم تحديث الملف وإضافة التعريفة الجديدة السارية من أول يوليو 2018 وفقنا الله جميعا لكل خير تم إضافة التعريفة الجديدة من أول يوليو 2018 وتعديل الرسوم والدمغة وتم إضافة نسخة من الملف تعمل على أكسس 2003

إذن كانت قائمة المطالبات كثيرة . عليه يجب علينا أن نعمل جدول بالأسماء والمطلوب استخراجه من قائمة دمج المراسلات حيث يكون النموذج واحد والبيانات متغيرة على حسب عدد صفوف الجدول الذي لدينا مهما كان العدد ... عليكم فقط بوضع الحقول في مكانها فقط .. في نموذجنا هذا ((( عدد مرات الانذار -- السادة -- المبلغ - بالحروف - من تاريخ - الى تاريخ ) ) وعند معاينة النتائج سوف ترى كل صف يأخذ مكانه في الجدول .. حسب المرفق ... واي خدمة ... نموذج ايجارات الشهيد.rar

السلام عليكم ورحمة الله وبركاته أنا عضو جديد في الموقع وتشرفت أن تكون أول مشاركة لي في مساعدة أحد الأعضاء الأخ / عيسى العامري ... مرفق لكم نموذج الايجارات حسب ماطلبتم خانات يمكن تعبئتها بالتنقل بالضغط على مفتاح Tab وإذا احتجت أي مساعدة لا تترد في طلبها مع كل التحية نموذج ايجارات.rar

اخى الكريم الملف الاخير تمام يعمل فى حال الاتجاه اسفل تاكد من الكمية الصنف 10001 رصيد 4 هيقبله الصنف 123333 رصيد 0 مش هيقبلة طبعا المخزن فى شيت Stor صح

جرب المرفق فى حال اتجاه للاسفل الكاشير4.zip

برنامج يقوم بتحويل عبارات SQL الى كود تفتح الاستعلام على التصميم وعلى عبارة sql ثم تنسخها وتلصقها في البرنامج المرفق وهو سيقوم بالمهمة وينسخ في الذاكرة الكود المحول . كل ما عليك فعله بعد اللصق داخل الحدث هو ان تستبدل كلمة strsql = مع علامة يساوي تستبدلها بــ : Docmd.RunSQL ولا تنسى ان تجعل الكود بين علامتي تنصيص مزدوجتين تحويل SQL إلى VBA.rar

أستاذ دغيدي عمل رائع .. تقبل كل الشكر و التقدير

جزاك الله كل خير اخي لكني استخدم اوفيس 64 ولم يعمل المرفق عندي