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

انظر الملف بعد تعديل أخي الكريم 33.accdb

لا العفو 🙂 ولكن : كلمات الشكر هي تواصل شخصي جميل بين الاعضاء ، ولكن ، المنتدى محتاج شيئين اضافيين: 1. ان تختار مشاركة افضل اجابة ، حتى بعد سنين ، لما يأتي عضو جديد يبحث عن نفس موضوعك ، يصل اليه مباشرة عن طريق الاختيار اللي انت عملته (خصوصا للأسئلة اللي فيها مشاركات كثيرة) 🙂 2. جميع الاعضاء متطوعين لمساعدة وخدمة الاعضاء الآخرين ، ويتنافس الاعضاء والخبراء بالذات لسرعة الرد ، واقل ما يمكن للمنتدى (عن طريقكم) ان نعطيهم نقاط اعجاب لكل مشاركة كان فيها فائدة 🙂 ها ، استاهل تعطيني Like على شرحي هاي جعفر

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

السلام عليكم احتجت مؤخرا لمراجعة مستندات كثيرة مع فريق عمل اون لاين و اثناء المراجعة الفردية قبل المناقشة، و ايضا أثناء المناقشة أون لاين، كثيرا ما اجتجت للتبديل بين وضعية اظهار و اخفاء التعديلات واظهار المستند النهائي بعد التعديل و اظهار المستند الأصلي و كل منها تتطلب ثلاثة خطوات 1- الذهاب الي قاءمة المراجعة إذا لم تكن هي المفعلة 2- ثم اختيار مربع السرد الخاص باظهار خيارات التعديلات Markup 3- ثم اختيار أحد الخيارات الفرعية، و عليه و نظرا لحاجتي لتكرار استخدام هذه الأوامر كثيرا اثناء المناقشة و اثناء مراجعتي للمستند قبل المناقشة، قمت بتسجيل تلك الاوامر كماكروهات ثم اضافتها فى ايقونات بجانب اوامر المراجعة كما تظهر الصورة ضمن المحموعة المسماة Arafa كما هو موضح بالصورة ، و ذلك لاستخدامها بسهولة و سرعة أكبر بدل عن اختيار قائمة المراجعة ثم مربع السرد ثم احد الخيارات أي ستبدال ثلاثة خطوات بخطوة واحدة و قد وجدت في ذلك توفيرا ملحوظا على الرغم من بساطة الامر ، لذا احببت مشاركة ذلك معكم و الأكواد هي Sub Markup_No() ' Hide all Markups With ActiveWindow.View.RevisionsFilter .Markup = wdRevisionsMarkupNone .View = wdRevisionsViewFinal End With End Sub Sub Markup_All() ' Show All Markup With ActiveWindow.View.RevisionsFilter .Markup = wdRevisionsMarkupAll .View = wdRevisionsViewFinal End With End Sub Sub Markup_Original() ' Markup_Original Macro With ActiveWindow.View.RevisionsFilter .Markup = wdRevisionsMarkupNone .View = wdRevisionsViewOriginal End With End Sub و يمكن أيضا اضافة تلك الاوامر الي قائمة الوصول السريع لكي تكون متاحة عند تفعيل اي قائمة و ذلك عن طريق اختيار الايقون ثم الضغط بالزر الايمن للفأرة و اختيار الاضافة لقائمة الوصول السريع و لمن لا يريد استخدام الاكواد هناك حل وسط بكفاءة أقل قليلاً ، حيث مازلت ستحتاج للضغط مرتين بدل من ثلاثة و لكن بطريقة اسهل و هو عن طريق اصافة الخيار الي قائمة الوصول السريع Quick Access Bar كما هو موضح فى الصورة التالية 1- اختار قائمة المراجعة و ثم مريع السرد الخاص باظهار التعديلات 2- اضغط على الزر الايمن للفأرة 3- اختيار الاضافة علي قائمة الخيارات السريعة Quick Access Toolbar 4- ستتم الاضافة كما هو مبين و لكن كما ذكرت فى هذا الحل ستحتاج عند الاستخدام للنقر مرتين و لكن بطريقة اسهل ودون الحاجة لاختيار القائمة الخاصة بالمراجعة

السلام عليكم و رحمة الله و بركاته حبيت مشاركة طريقة حساب فاتورة كهرباء في مصر بعد رفع اسعار من خلال برنامجين الاول ملف اكسس للكمبيوتر و انشاء ملف آخر بصيغة (اتش تي ام ال) للجوال و الكمبيوتر من خلال اكسس يمكن ارفاق ملف (اتش تي ام ال) جاهز ولكن من اجل رعاية قواعد منتدى خليت اكسس ينشئ الملف و بعد ضغط على زر اسفل النموذج تجد ملف للموبايل في مسار برنامج KiloByts.accdb

السلام عليكم 🙂 وتقديرا لمجهود الاعضاء في العطاء ، رجاء اختيار افضل اجابة ، مع شكر الذين قدموا المساعدة 🙂 جعفر

=IF(COUNTA($B$5:$B$14)=ROW($A14)-4;"مكتمل";IF(COUNTA($B$5:$B$14)=0;"فارغ";IF(COUNTA($B$5:$B$14)<ROW($A14)-4;"غير مكتمل";""))) تفضل بحث-خلايا.xlsx

شكراً استاذ ابو عارف بارك الله بجهودك هذا هو المطلوب

تم عمل المطلوب مع بعض التغبرات في تصميم اليوزر (لاظهار اليوزر اضغط الزر "Show_User") 1- للبحث في خانة "اليحث عن الرقم" * اكتب ما تريد البحث عنه بعد التأكد من وجوده في العامود الخامس "E" * اضغط "ُ Enter" او اي شيء أو اي مفتاح (غير الحروف والأرقام) المفتاح Tab مثلاً او انقر في TextBox اخر على اليورز * تظهر لك محتويات السطر المطلوب البحث عنه من خلال الرقم ___________________________________________________________________ 2- للبحث في خانة "اليحث عن الاسم" * اكتب ما تريد البحث عنه بعد التأكد من وجوده في العامود الرابع "D" * اضغط "ُ Enter" او اي شيء أو اي مفتاح (غير الحروف والأرقام) المفتاح Tab مثلاً او انقر في TextBox اخر على اليورز * تظهر لك محتويات السطر المطلوب البحث عنه من خلال الاسم --------------------------------------------------------------------------------------------- 3- للتعديل * اكتب ما تريد البحث عنه في التكست بوكس (جانب الزر تعديل) * اضغط "ُ Enter" او اي شيء أو اي مفتاح * في بيانات اليورز غير ما تريد ( 4 كومبوبوكسات) * اضغط الزر تعديل (اذا كان التاريخ حطأ تظهر لك رسالة بذلك و يتوقف الماكو) --------------------------------------------------------------------------------------------- 4-نفس الشي بالنسبة للحذف --------------------------------------------------------------------------------------------- 5 _لاضاقة بيانات املا التكست بوكسات (4) واضغط اضافة (يجب ان تكون جميع التكست بوكسات غير فارغة والتاريع مكتوب بشكل يوم /شهر /سنة) sader_mh_ali_1.xlsm

تفضل اخي الكريم متابعة الشيكات v391.rar تحياتي

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

أحسنت استاذ شوقى عمل ممتاز بارك الله فيك وزادك الله من فضله بتوحشنا كتير حمد الله على السلامة

أحسنت استاذ ماجد بارك الله فيك وزادك الله من فضله

تفضل تم التعديل على الملف السابق طبقاً لطلباتك الجديدة فمن فضلك بعد كده لابد من شرح طلباتك كاملة من أول مرة

وعليكم السلام-اهلا بك فى المنتدى -تفضل لك ما طلبت ويمكنك بإظهار الفورم فقط دون اظهار ملف الإكسيل وذلك بوضع هذا الكود فى حدث ThisWorkBook Private Sub Workbook_Open() Application.Visible = False UserForm1.Show End Sub Userform.xlsm

وعليكم السلام-تم تعديل المعادلة كما تريد ... كما تم تقييد الإدخال بعمود الكمية Y على حسب نوع السيارة كما تم عمل قوائم منسدلة للأعمدة الضرورية فى العمل حتى تتجنب اى خطأ عند الكتابة , فقط عليك الإختيار من القوائم 07272431.xlsm

احسنت استاذ عبد اللطيف بارك الله فيك وزادك الله من فضله

بارك الله فيك وجزاك الله كل خير

بسم الله الرحمان الرحيم السلام عليكم اصدقائي قررت في الفترة الاخيرة اعتزال البرمجة بالاكسل و vba ولا اظن اني ساعود له بما اني كنت اعمل على بعض المشاريع بواسطة الاكسل و لاكن للاسف لم اجد الوقت الكافي لانهائها قررت ايضا طرح تلك المشاريع لربما لتستفيدون منها لذاى ساقوم في كل مرة يتاح لي الوقت فيها برفع مشروع او اثنين ان شاء الله كاول مشروع هذا برنامج مبيعات /كودبار/يعتمد ايضا القطعة و العلبة تقريبا انجز 80% منه لم يتبقى له سوى التقارير و بعض الاشياء الاخرى تحياتي للجميع Pr Commercial.rar

تم تجهيز جميع الاشهر المطلوب كاملا.rar

السلام عليكم حبيبنا هذا تعديل على شهر محرم فقط ( إذا ما هو المطلوب أعلن استسلامي ) المطلوب.rar

قلت لك عندي زوجتي (هاي واحدة) ، ومن مشاركاتك السابقة ، قلت لي استاهل عروسة (صاروا اثنين) ، وبعدها على طول بعد صرت استاهل واحدة (صاروا ثلاث) ، يعني صاروا اثنين في رقبتك 🙂 وهاي الرابعة ان شاء الله 🙂 منو قدّي يا ولد جعفر

انا جداًُ شاكر لك رجاء تعطي Like لمشاركة أخونا ابو عارف ، وتختار مشاركته كأفضل إجابة 🙂

تسلم لى ايدك وعينك يارب يحفظك ان شاء الله موفق دائما كل حبى وشكرى من قلبى ربنا ما يحرمنى منك ابداااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا

جربي هذا الكود Option Explicit Sub Salim_Code_Only_Positive() Rem <<<< Created By Salim Hasbaya On 27/7/2020 >>>> Dim a() Dim Sh As Worksheet, D As Worksheet Dim m%, k%, x%, t% Dim Rg As Range, XX%, cnt% Dim dat1 As Date, dat2 As Date Dim Itm, cel As Range Application.ScreenUpdating = False k = 1 Set D = ThisWorkbook.Worksheets("DataReport") D.Range("A2:k" & Rows.Count).Clear If Not IsDate(D.Range("M2")) Or _ Not IsDate(D.Range("M2")) Then MsgBox "Wrong dates in cells M1 Or N2" GoTo Leave_me_Olone End If dat1 = Application.Min(D.Range("M2:N2")) dat2 = Application.Max(D.Range("M2:N2")) For Each Sh In ThisWorkbook.Worksheets If Sh.Name <> D.Name And Sh.Tab.Color = 5287936 Then ReDim Preserve a(1 To k): a(k) = Sh.Name: k = k + 1 End If Next m = 2: k = 2 For Each Itm In a Set Sh = Sheets(Itm) x = Sh.Cells(Rows.Count, 1).End(3).Row Sh.Cells(6, 1).Resize(x - 5, 10).Interior.ColorIndex = xlNone For t = 6 To x If Sh.Cells(t, 1) >= dat1 And Sh.Cells(t, 1) <= dat2 Then For XX = 3 To 10 If Sh.Cells(t, XX) < 0 Then cnt = cnt + 1 Exit For End If Next XX If cnt = 0 Then If Rg Is Nothing Then Set Rg = Sh.Cells(t, 1).Resize(, 10) Else Set Rg = Union(Rg, Sh.Cells(t, 1).Resize(, 10)) End If End If End If cnt = 0 Next t If Not Rg Is Nothing Then D.Cells(m, 1) = Rg.Parent.Name Rg.Copy D.Cells(m, 2) Rg.Interior.ColorIndex = 27 m = D.Cells(Rows.Count, 2).End(3).Row + 3 D.Cells(m - 2, 1) = "Totat" D.Cells(m - 2, 4).Resize(, 8).Formula = _ "=SUM(D" & k & ":D" & m - 3 & ")" D.Cells(m - 1, 3).Resize(, 10).Value = _ D.Cells(1, "C").Resize(, 10).Value D.Cells(m - 2, 1).Resize(, 11).Interior.ColorIndex = 35 D.Cells(m - 1, 1).Resize(, 11).Interior.ColorIndex = 40 k = m End If Set Rg = Nothing Next Itm D.Cells(m, 1) = "Sum off All" D.Cells(m, 4).Resize(, 8).Formula = _ "=SUM(D2:D" & m - 1 & ")/2" D.Cells(m, 1).Resize(, 11).Interior.ColorIndex = 39 D.Cells(m - 1, 1).EntireRow.Delete Set Rg = D.Range("A2").CurrentRegion If Rg.Rows.Count > 1 Then Set Rg = Rg.Offset(1).Resize(Rg.Rows.Count - 1) With Rg .Borders.LineStyle = 1 .InsertIndent 1 .Font.Bold = True .Font.Size = 14 .Value = .Value End With End If Leave_me_Olone: Set Sh = Nothing: Set D = Nothing Set Rg = Nothing: Erase a Application.ScreenUpdating = True End Sub الملف مرفق yara_salim_Only_positive_special.xlsm

الآن اصبح الموضوع اكثر تعقيداً كان من المفروض طرح هذا الموضوع مرة واحدة لاني اشتغلت على ما طلبته حسب سؤالك "حيث لا يستدعى الارقام السالبة"

بعد اذن اخي الرائد حل اخر Hathromi.xlsx

تم معالجة الأمر yara_salim_Only_positive.xlsm

كيفية التقاط سكرين شوت باستخدام برنامج الورد https://www.youtube.com/watch?v=4G2I4PEERkk

تفضل أخي جرب التقرير سنوي.accdb

السلام عليكم 🙂 اذا سمحت لي اخي أبوعبدالله 🙂 يكفي لقفل النموذج الذي عليه الكود ، ان نستعمل الكود التالي بدون ذكر اسم النموذج 🙂 ، ونحتفظ به كقالب لجميع النماذج : docmd.Close acForm, me.name, acSaveNo جعفر

تم تحديث المرفقات 🙂

السلام عليكم ورحمة الله وبركاته جزاكم الله خيراً أستاذنا الكريم بميزان حسناتكم إن شاء الله يوم القيامة تقبل تحياتي العطرة.

السلام عليكم تفضل اخي الكريم تم الانتهاء من ( البحث العام - البحث بين تاريخين - البحث بقيمة الشيك ) Option Compare Database Option Explicit Dim myCriteria As String Private Sub X0_Exit(Cancel As Integer) Me.Search2.Requery End Sub Private Sub X2_Exit(Cancel As Integer) If IsNull([X1]) Or IsNull([X2]) Then MsgBox "يجب أن تدخل التاريخين الافتتاحي والختامي", vbInformation, "Acoade 2019" DoCmd.GoToControl "X1" Else If [X1] > [X2] Then MsgBox "يجب أن يكون التاريخ الختامي أكبر من التاريخ الافتتاحي", vbInformation, "Acoade 2019" DoCmd.GoToControl "X2" Else myCriteria = myCriteria & "(" myCriteria = myCriteria & "[الشيك].[تاريخ الاصدار] between #" & Format(Me.X1.Value, "mm/dd/yyyy") & "# and #" & Format(Me.X2.Value, "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Search2.Form.Filter = myCriteria Me.Search2.Form.FilterOn = True End If End If End Sub Private Sub X3_Exit(Cancel As Integer) If Not IsNull(Me.X3) Then myCriteria = myCriteria & "(" myCriteria = myCriteria & "[الشيك].[المبلغ ارقام]= " & Me.X3 & "" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Search2.Form.Filter = myCriteria Me.Search2.Form.FilterOn = True End If End Sub متابعة الشيكات v391.rar تحياتي

وضغت لك كودين للبحث (الاسم والرقم) يمكنك ايضاً التنقل من خلية الى اخرى داخل الصفحة او حتى الانتقال الى صفحة اخرى حتى ولو كان اليوزرفورم ظاهراً اكتب الاسم او الرقم الصادر واضغط Enter في حال عدم وجود ما تبحث عنه تظهر لك رسالة بذلك يمكنك اكمال باقي الاكواد كما في الملف (لا استطيع عمل ذلك لضيق الوقت) sader_mh_ali.xlsm

اعتذر عن التأخر في الرد ، لأنه احد المواضيع التي لا استعملها ابداً ، ومحترفي الاكسس ينصحون بالابتعاد عنها !! 1. خلينا نعرف اولا ، من وين يأتي الاكسس بالفارزه بين القيم ؟ فتلاحظ اني عملت تغيير لنظام الوندوز عندي ، وجعلت الفارزة عبارة عن شرطة مائله (يجب ان يكون برنامجك مغلق لما تعدل هذه القيمة في اعدادات الوندوز ، ولما تفتح برنامجك ، بتلقى الفارزة الجديدة في برنامجك) ، بمعنى آخر ، كل كمبيوتر ممكن يكون عنده فارزة تختلف عن الكمبيوتر الآخر !! . 2. اذن في هذه الحالة ، فالاكسس يسمح لنا ان نختار من الفوارز الموجودة في الوندوز : . وللأسف ، فلا يمكننا ان نختار غير هذه الخيارات الموجودة في القائمة. ولكن اذا عملنا الحقل NOA1 غير مضمن (او مرتبط بحقل من نوع نص في الجدول) . ووضعنا الكود على حدث الحالي للنموذج (اما اذا كان الحقل NOA1 نوعه نص ، فيمكننا ان نضع الكود على حدث "بعد تحديث" الحقل NOA ، او على زر التبديل) ، والكود يأخذ في الحسبان اذا كانت الفارزة فاصلة او فاصلة منقوطة : Private Sub Form_Current() Me.NOA.SetFocus Me.NOA1.Value = Replace(Replace(Me.NOA.Text, ",", "/"), ";", "/") End Sub . وهذه النتيجة جعفر

إليك المرفق .. لا أدري إن كان ما تريد متابعة الشيكات v391.rar

وعليكم السلام -تفضل لك ما طلبت هذا هو المستخدم بالقائمة الرئيسية من قائمة Data ثم Data Validation ثم بعد ذلك اختيار List ووضع هذا النطاق فى خانة Source =Classification!$A$1:$Q$1 أما القائمة الفرعية فعليك بإتباع نفس الخطوات مع وضع هذه المعادلة =OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,COUNTA(OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,20,1)),1) Classification1.xlsx

بارك الله فيك وزادك الله من فضله

وعليكم السلام-تفضل لك ما طلبت بمعادلة Sumif & Sumifs الفلزات1.xlsx

كان عليك استخدام خاصية البحث بالمنتدى-تفضل الترجمة فى الاكسل (ترجمة دوال الاكسل

بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله ورحم الله والديك

تم ضبط الأبعاد بدقة فعليك بعدم العبث بها 1عتماد مستندات نهائى1.xls

بارك الله فيك ... وتقبل الله منا ومنكم سائر الأعمال

بارك الله فيك استاذنا الكريم وجزاك الله خير الثواب

ممكن هذه المعادلة ان تحل المشكلة =SUMPRODUCT(--($C$3:$C$100=$G3),--($E$3:$E$100=H$2),$D$3:$D$100) 10.xlsx

Private Sub Form_Load() Dim xdate As Date Dim Ndate As String Dim mssg As String xdate = #12/23/2014# If xdate <= Date Then MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789" Quit Else Ndate = CStr(xdate - Date) mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم" MsgBox mssg DoCmd.Close End If End Sub