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

أخى الكريم ليست هناك اى مشكلة بالمعادلة ... فاذا قمت بطرح التاريخين المقصودين , ستحصل على النتيجة والمقدرة 364 يوم وجرب بنفسك فهذه بالفعل ليست سنة أبسطهالك يا استاذى .... فلديك فى هذان التاريخين 6 أشهر بقيمة 31 يوم للشهر = 6*31 يصبح الناتج 186 يوماً 5 أشهر بقيمة 30 يوم للشهر =5*30 يصبح الناتج 150 يوماً وشهر فبراير 28 يوم لسنة 2021 =1*28 يصبح الناتج 28 يوماً اذن إجمالى المدة كلها كما وضحت لك سلفاً هو 186+150+28 يصبح الناتج 364 يوماً وليس سنة كاملة والإكسيل فى هذه الحالة صحيح وفى غاية الدقة ... فطبيعة حسابات الفروق بين تاريخين فإما ان تضيف تاريخ البداية واما ان تضيف تاريخ النهاية فحسابيا لا يمكن حساب واضافة اليومين معاً .... وطبعاً لو محتاج ان يكون الناتج شهر كاملاً فلابد من اضافة +1 بالمعادلة وهذا بالطبع منطقياً وحسابيا خطأ بارك الله فيك

جرب ... Me.txtSender.Value

عدل بهذه الطريقة ربما تفيد ... sampleurl = "https://www.hisms.ws/api.php?send_sms&username=" & UserName & "&password=" & Password & "&numbers=" & numbers & "&sender=" & sender & "&msg=" & msg & ""

Try This code Option Explicit Sub ww() Dim h As Worksheet, sh As Worksheet Dim cnt% Set h = Sheets("sheet1") h.Range("B2").Resize(Sheets.Count - 1).ClearContents cnt = 2 For Each sh In Sheets If Not sh.Name = "Sheet1" Then h.Hyperlinks.Add Anchor:=h.Cells(cnt, 2), _ Address:="", SubAddress:=sh.Name & "!A1", _ TextToDisplay:="Go to " & sh.Name h.Cells(cnt, 2).Font.Size = 16 sh.Cells(1, 6).ClearContents sh.Hyperlinks.Add Anchor:=sh.Cells(1, 6), _ Address:="", SubAddress:=h.Name & "!A1", _ TextToDisplay:="Go to " & h.Name sh.Cells(1, 5) = h.Cells(cnt, 3) cnt = cnt + 1 End If Next End Sub

جرب هذا الكود ...... DoCmd.OpenReport "ReportName", acPreview DoCmd.RunCommand acCmdZoom100 240

تفضل لعلة المطلوب تعديل.accdb

تم نقل الموضوع لقسم الاكسيس

اتفضل الشيت لعله بفى بالغرض md.xlsm

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

لك ما تريد Ashraf.xlsx

تم التعديل على المرفق حيث اتضح لدي ان ممكن المشكلة في خاصية التحديد وحدها وخففت من الشروط في الماكرو اظن اساس المشكلة في هذا الكود ليس دقيق اي انه يحدد اكثر من نتيجة بمجرد ورودها في كلا الحقلين في اي سجل والمطلوب توافق الفرز مع التحديد UPDATE Base SET Base.ysno = true WHERE (((Base.[نوع الموافقة])=[Forms]![Base]![مربع_تحرير_وسرد110] AND (Base.[حالة الدارس])=[Forms]![Base]![مربع_تحرير_وسرد115])) Scholars_New.rar

يمكن عمل ذلك بمعادلة بسيطة ولا ضرورة للكود مثال قي الملف المرفق الاسماء الأساسية في الصفحة Source ويوجد عنها نسخة مرتبطة بها في الصقحة Target اذا حذفت (اسم او عدة اسماء) او اضفت ( اسم او عدة اسماء ) في الصفحة Source تتغير البيانات في Target Dynamic_names.xlsx

أولاً لم افهم عليك ماذا تريد ثانياً هذا مثال لكيفية غمل التنسيق حسب قيمة الخلية (هنا تم استعمال استدعاء الكود Incolor_me من الكود Talween) لزبادة وضوح الصورة Option Explicit Sub Talween() Dim My_cel As Range Dim Rg As Range Dim x% Incolor_me Set Rg = Range("A1").CurrentRegion For Each My_cel In Rg Select Case My_cel Case vbNullString: GoTo Next_i Case Is < 0: x = 35 Case Is = 0: x = 6 Case Is > 0: x = 40 End Select My_cel.Interior.ColorIndex = x Next_i: Next End Sub '++++++++++++++++++++++++++++++ Sub Incolor_me() Range("A1").CurrentRegion.Interior.ColorIndex = xlNone End Sub الملف مرفق Colorize.xlsm

See This video https://www.youtube.com/watch?v=oTjUuFZNmy8&ab_channel=TubeMint

المشكلة قي انك تضع القيمة الافتراضية لحقل "عدد" =[Forms]![Names Record]![رقم الملف] والصحيح ان تكون =[Forms]![Names Record]![عدد] sss.rar تحياتي

فى ناس كتير بتكون فى أشغال فيها عد فلوس كتير مع العملاء أو المناديب - ومش بيكون عندهم ماكينة عد فلوس - او بيتعاملوا مع فلوس قديمة - الملف ده اكيد هايسهل عليهم عملية تجميع وتفقيط الفلوس بالعربي والانجليزي - بمجرد عد كل فئة وكتابة عددها باسوورد الملف 123 لأي صديق يريد تطوير الملف ليناسب أى عملات لأي دولة أخرى 0001 حاسبة النقود المصرية.xlsm

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

السلام عليكم ورحمة الله جرب المرفق لعل فيه ما تريد... المصنف2 (1).xlsm

السلام عليكم رغم أن عبارة "كما هو موضح فى المرفق" لم أجد لها أثرا في الملف... أقدم الملف المرفق وفيه ما تريد (كنت قد أخفيتها في الخلية Q1) وقد استعملت قيمتها في معادلات العمود A... بن علية حاجي عدد المسددين اليوم (1).xls

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

شرح البحث في الاكسل باستخدام دالة Index + mach للشرح شاهد الفديو شرح البحث في الاكسل لتحميل ملف العمل من هنــــا برجاء تغيير اسم الظهور الى اسم عربى له معنى بدلاً من abdo2015egy@gmail.com

السلام عليكم المشكلة حصلت معايا وقد ظهرت في جمع حقل في التقرير. عملية الجمع ما فيها مشكلة المشلكة لما رجعت للجدول الأساسي لقيت بعض الصفوف فيه رسالة خطأ في التجميع مع العلم ان الحقل حقل محسوب (حاصل ضرب كمية في سعر) فحذفت الصفوف التي تظهر بها المشكلة وتم الحل الحمد لله