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

السلام عليكم ,, الاخوة الاعزاء كل عام وانتم بخير . كما نعلم ان الايقونات جزء لا يتجزء من الواجهات الحديثة الجذابة التى تلفت الانظار ومن هذا المنطلق واستكمالاً للموضوع السابق الذى تجده هنا : موضوعنا اليوم عن كيف تصنع ايقوناتك خصيصاً لتتناسب مع تصميم برنامجك بطريقة بسيطة , انظر النتيجة : هناك اختلاف بسيط فى الالوان لأنى عملتهم على عجالة 😅 . فى هذا الموضوع سنستخدم أداة بها آلاف الايقونات القابلة للتخصيص من حيث اللون والحجم اسم الاداة Pichon يمكنك تحميلها من هذا الرابط المباشر : من هنا بعد التحميل والتثبيت ستجد هذه الايقونة افتح البرنامج وابحث عن الايقونة التى تريدها بوصفها مثلاً Facebook , Twitter وهكذا , ستجد ايقونات غير قابلة للتخصيص ولكن يمكن التحكم فى حجمها وستجد ايقونات يمكن تغيير ألوانها ستجدها تحت تصنيف Material وبها تصنيفات فرعية مثلا Outlined للايقونات المفرغة و Filled للايقونات الممتلئة , ابحث ن الايقونة وقم بتلوينها مثل المثال : اضغط كليك يمين ثم Save As واحفظ الايقونة شفافة يمكن وضعها على اى تصميم طيب انا محتاج لون دقيق جدا حتى يكون هناك تناسق تام فى الألوان والتصميم فى هذه الحالة يمكنك سحب اللون بالاداة الموجودة فى الموضوع السابق اتبع المثال لسحب لون الاكسس المحبوب على سبيل المثال : لا حدود لما يمكنك ابداعه , بتطبيق ما تعلمته من الدرسين يمكنك عمل Themes يقوم المستخدم بنحديد المفضل لديه ويتم تغيير الوان الازرار والايقونات وشريط العنوان ليصبح برنامجك شبيهاً ببرامج .Net 😅 المطلوب دعوة بظهر الغيب لصلاح الحال وتيسير الامور , دمتم بخير مرفق المثال الاول لتغيير الوان الحروف والايقونات المستخدمة Icon Color Amr.rar

كان عليك بدء المشاركة بالتحية السلام عليكم ...فقط استخدم هذه المعادلة =IF(DAY([@التاريخ])=27,EOMONTH([@التاريخ],0)+2,"") التاريخ معدل.xlsm

للعلم هذا اختيار موقف وللعلم ان اردت النقر على هذا الباب ابتعد عن VB.Net هى ليست حديثه بدأت اللغة كما عرفت اولا بـالـ C ثم الـ C++ ثم الـ C# https://ar.wikipedia.org/wiki/سي%2B%2B ثم تم التطوير بعد ذلك https://ar.wikipedia.org/wiki/سي_شارب وذلك لتنافس Java ولغات البرمجة الاخرى

وعليكم السلام 🙂 مثل ما تفضلتوا وقلتوا ، الهدف من المنتدى هو مساعدة الاخرين إبتغاءً لوجه الله تعالى ، والمنتدى تلقائيا ، وبحسب عدد المشاركات ، ينقل العضو من رتبه الى رتبه اعلى ، حتى نعرف اقدمية العضو ، والسماح له بإستخدام نظام المراسلة في المنتدى🙂 معظم المنتديات تُريد ان يتم التعرف على الاعضاء اصحاب الخبرة في المنتدى ، لذا فكل منتدى له طريقته في الترقية ، والفائدة/الميزة التي يتمتع بها الخبير ، في وجهة نظري ، هي شهادة من المنتدى بأن هذا الخبير له القدرة على التعامل مع البرنامج ، ومؤهل لتقديم خدمات افضل للبرنامج ، وعليه ، يمكن لهذا الخبير ان يكتب في سيرته الذاتية ان لديه مرتبة خبير في البرنامج الفلاني من المنتدى الفلاني ، والذي على اساس مستوى المنتدى وعدد اعضاءه وعدد المشاركات اليومية ، يتم تقييم رتبة المنتدى عالميا ، بالاضافة الى المنتديات ، فحتى شركة مايكروسوفت تعطي مثل هذه الشهادة ، MVP ، والتي مثل شهادة الخبير في منتدانا ، هي شهادة فخرية عن مقدرة الخبير وجهده في مساعدة الآخرين 🙂 لكل من اعضاء فريق الموقع طريقة في تقييم الاعضاء ، وبالنسبة لي ، فأنا عندي قائمة ، اتابع فيها الاعضاء ، والملاحظ ، ان معظم الاعضاء الذين يساعدون الآخرين ، يكتسبون الخبرة اسرع بكثير من الاعضاء الذين يسألون الاسئلة فقط ، وبمرور الوقت ، تكون اجاباتهم انضج وشرحهم اوضح وفي الاتجاه الصحيح 🙂 طبعا رتبة خبير لا تعني ان بقية الاعضاء ليسوا ذو خبرة في الاجابة 😁 جعفر

بل الشكر لله وحده - ان يسر واعان وهدي - وما كنا لنهتدي لولا ان هدانا الله - سبحانه ثم الشكر لاساتذتنا الذين ما بخلو علينا بعلم ولا نصح وجزاكم الله خيرا علي تلك الكلمات الطيبات وكذلك استاذنا @Eng.Qassim

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

اولا- اتقدم بخالص التهاني لخبيرنا واستاذنا @احمد الفلاحجي ابو بسملة جزاه الله خيرا علي الترقية ثانيا- جزاك الله خيرا أستاذنا @Amr Ashraf مبادرة طيبة وعرض مغري حقيقة - ولكني من انصار المثل الصيني - علمني الصيد ولا تعطني سمكة - فيا حبذا لو انتهز حماسكم بتلك المبادرة واطلب منكم انشاء موضوعات ولو صغيرة تشرحون بها ما تعلمتم من اصول ومبادئ تلك اللغة علي شكل مشروعات مصغرة او اي صورة تروق لك حسبما تيسر من الوقت والجهد وجعله الله بموازين حسناتكم - اهو منها مذاكرة ومنها افادة - حتي لو كل يوم درس مش هنتقل عليك - جزاكم الله خيرا واحسن الله اليكم

Change the worksheet code names in VBE window to wsList and wsMonthlyAbsence Sub Test() Dim x, v, f As Boolean, sTemp As String, lr As Long, c As Long, tot As Long, r As Long, m As Long, i As Long, ii As Long, col As Long Application.ScreenUpdating = False With wsList lr = .Cells(Rows.Count, "D").End(xlUp).Row wsMonthlyAbsence.Range("C6:J100").Value = Empty For c = 5 To 36 tot = Application.WorksheetFunction.CountA(.Range(.Cells(8, c), .Cells(lr, c))) If tot = 0 Then GoTo NXT f = True: m = 0: col = 0: sTemp = vbNullString For r = 8 To lr If .Cells(r, c).Value <> "" Then x = Application.Match(.Cells(7, c).Value2, wsMonthlyAbsence.Columns(2), 0) If Not IsError(x) Then If f Then wsMonthlyAbsence.Cells(x, "C").Value = tot wsMonthlyAbsence.Cells(x, "D").Value = lr - 8 + 1 - tot f = False End If sTemp = sTemp & IIf(sTemp = Empty, Empty, ",") & .Cells(r, 4).Value End If End If Next r If sTemp <> Empty Then v = Split(sTemp, ",") For i = LBound(v) To UBound(v) Step 3 For ii = 0 To 2 m = m + 1 If m > UBound(v) + 1 Then Exit For wsMonthlyAbsence.Cells(x + ii, col + 5).Value = v(i + ii) Next ii col = col + 1 Next i End If NXT: Next c End With Application.ScreenUpdating = True MsgBox "Done...", 64, "LionHeart" End Sub

انا بتكلم عن الC# مش فرع الC بالكامل , السى شارب استحدثت فى 2002 وتعتبر حديثة بالنسبة للغات كثيرة . منكم نستفيد يا ابو جودى انا بشغل بالى عشان لو وقف قدامى حاجة الاقى حد اسأله او منتدى مقعدش جنبه شهر لحد ما حد يرد عليا 😅 فهمت قصدى ؟ الخطوة الجاية قريباً جدا استاذنا , فعلا اسمع انه الحديث كله wpf وان الWinForm قرب يتقرض مش عارف ليه ده انا لسة بادئ , عامة هتجول شوية فى الWpf بس حالياً شغال على نظام ERP متكامل لشغلى وهياخد منى شوية وقت . زادكم الله من فضله استاذنا الفاضل , وجزاكم الله خير على المناقشة القيمة .

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

السلام عليكم ورحمة الله وبركاته أحسنت أخي الكريم حراح أمة أفضل تحويل النطاق إلى جدول لتبقى المعادلة سارية مهما صار حجم الجدول =VLOOKUP(B4;الجدول6;4;0) معادله.xlsx

وعليكم السلام ورحمه الله وبركاته اخى الفاضل طبعا انا مش بعرف انجليش مابالك بالفرنسى المهم قم بالدخول لمحرر الاكواد قائمه دبج واعمل كومبايل وشوف المحرر هيقلك ايه ربما يوجد بعض الاحداث الموجوده وغير مستخدمه ولذلك يرفض التحويل هذا ما اعلمه والله اعلى واعلم وان شاء الله يشاركنا اخواننا واساتذتنا بما لديهم بالتوفيق

السلام عليكم ورحمة الله وبركاته اشكرك اخي moosak وارجو ان لا اكون ازعجتك وضيعت لك وقتك تحياتي

السلام عليكم , الاخوة الكرام كل عام وانتم بخير بمناسبة شهر رمضان وعيد الفطر المبارك اعادهم الله علينا بالخير والبركة موضوعنا اليوم بعد غياب كما بالعنوان كيف تنفذ شاشة متطورة حتى النتيجة بالمثال افتح فورم جديد ثم قم بعمل 2 Rectangle فى الجانب والاعلى , الجانب للقائمة والاعلى كشريط للعنوان , بالنسبة للون الخلفية الخاصة بهم يمكنك عمل اللون الذى تفضله , بالنسبة للون المثال هو لون قوائم Microsoft Outlook قمت بسحبه وتطبيقه هنا , السؤال كيف تسحب لون تريده ولا تعرف درجته بالضبط ؟ يمكنك تطبيق هذه الفكرة الجديدة , هناك اداة يستخدمها مطورين الويب و المصممين لسحب الألوان بدرجاتها بدقة عالية وهذه الأداة اسمها Just color picker انظر لشكلها وللصورة قم بتنزيلها من الموقع الرسمى من هنا https://annystudio.com/software/colorpicker/ وصورتها قم بفتح الاداة وقم بالاشارة على أى لون تريده ثم اضغط على Alt+x لحفظ درجة اللون بالطريقة التى تحبها HTML او RGB وفى المثال سنستخدم الطريقتين , بالنسبة للHTML يمكنك سحب اللون بالاداة واضغط على Copy Value مع التأشير على HTML كما بالصورة قم بنسخ القيمة وفى الاكسس فى الخصائص الخاصة بأى عنصر ستجد Back Color قم باضافة رمز # قبل درجة اللون من الاداة وضعها فى الاكسس وستجد ان اللون تم تطبيقه وبالتالى قمت بأخذ لونك المفضل ويمكنك محاكاة اى تصميم لاى برنامج تحبه . ننتقل للتصميم بداية التصميم من فكرتى وتطبيقى واكوادى من البداية اللى النهاية وأتمنى دعوة بظهر الغيب بصلاح الحال , فى التصميم ستجد ان عند تحديد زر من ازرار القائمة ستقوم الايقونة بالتحرك والخط يختلف و تصبح ايقونة الزر هى الايقونة الرئيسية بالأعلى , لعمل ذلك قم بفتح الفاجيوال بيزيك وضع الاكواد التالية : Sub ReFormat(Sender As CommandButton) Me.PictureBox.Picture = Sender.Picture Me.lbl.Caption = Sender.Caption Sender.PictureCaptionArrangement = acRight Sender.FontUnderline = True End Sub شرح الكود :: المطلوب معرفة اولا الزر الذى تم ضغطه ولذلك قمت بعمل الكود السابق مع التحكم فى الزر الذى تم ضغطه كمحازاة النص والايقونة وهكذا , يمكنك زيادة حجم الخط او أي تنسيق تريده. يتم استدعاء الكود بالشكل التالى من أى زر امر : ReFormat ActiveControl تمام , طيب فى هذه الحالة التنسيق سيستمر اذا ضغطت على زر آخر وستظل الايقونة والخط بالتنسيق الذى قام الكود السابق بعمله , وبالتالى محتاجين نلغى ما قام به الكود السابق عن كل الازرار الا الزر الحالى سيحتفظ بالتنسيق الجديد . عملت الكود التالى Sub Restore() Dim ctrl As Control For Each ctrl In Me.Controls If TypeName(ctrl) = "CommandButton" Then If ctrl.Name <> ActiveControl.Name Then ctrl.PictureCaptionArrangement = acLeft ctrl.FontUnderline = False End If End If Next End Sub شرح الكود :: يقوم بالمرور على كل عناصر التحكم واذا وجدها زر سيقارن اسمها مع اسم الزر الحالى فى حالة اختلافهما يقوم بارجاع التنسيق الاصلى للزر قبل تطبيق كود التنسيق عليه , وبالتالى مع كل زر امر سيتم وضع الكود التالى Restore ReFormat ActiveControl ستجد ان هناك خط يتغير لونه مع كل ضغطة زر , هنا سنستخدم طريقة الالوان الاخرى RGB قم بسحب اللون الذى تريده بالاداة وقم بوضع اللون مثل المثال التالى : Me.Line51.BorderColor = RGB(35, 204, 183) حيث ان قيمة اللون بين الاقواس الاحمر,الاخضر,الازرق RGB . باقى TabControl متعدد الصفحات قم بانشاءه ولا تنسى بعد الانتهاء منه تحديد Style = None الخطوة الاخيرة الانتقال الى صفحات هذا الTabControl عن طريق الكود وهناك طريقتين : اذا اردت تحديد الصفحة المطلوبة والوقوف عليها يمكنك استخدام : Me.MyTabs.Pages(0).SetFocus حيث ان 0 هو رقم Index او ترتيب الصفحة فى المستعرض , وستجد عند فتح النموذج ان الصفحة 0 يتم فتحها وعند الضغط ايضاً على ايقونة المنزل سينتقل اليها . اذا اردت فتح الصفحة بدون الوقوف فيها يمكنك استخدام : Me.MyTabs.Value = 0 وستجد الطريقتين فى المثال المرفق . لا تنسى ضبط خاصية Anchor لتثبيت العناصر او مدها مع تكبير او تصغير النموذج كما فى المثال . اعتذر عن الشرح قليل التفاصيل الى حد ما ولكنى معتمد على خبرتكم . مرفق مثال به كل ما تم شرحه , دمتم بخير ستجد المثال فى اول مشاركة لأن المنتدى لم يسمح لى ان تتعدى المرفقات 4.8 ميجا . المثال مرفق Modern UI Access - Amr Ashraf.accdb قمت باضافة صغيرة لم تظهر فى الصورة المتحركة لأنها سجلت مسبقاً , عند الضغط على صورة المنزل ستعود كافة الايقونات الى مكانها الطبيعى .

الف مبروك اخي @abouelhassan على ابداع اخينا واستاذنا @أبو عبدالله الحلوانى

وعليكم السلام -يمكنك ذلك بهذه المعادلة =1/(1/LOOKUP(9^9,$K$7:$K$160/($L$7:$L$160=$H$6))) OFIC1.xlsm

السلام عليكم 🙂 علاقة الجدولين عندك: . 1. تفرض ان جميع بيانات الحقل ProductBarcode يجب ان تكون موجودة مسبقا في الحقل Items_Code ، 2. ولكنك لم تفرض تغيير/تحديث بيانات الحقل ProductBarcode عندما تتغير/تتحدث بيانات الحقل Items_Code ، 3. ولم تفرض حذف بيانات الحقل ProductBarcode عندما تحذف بيانات الحقل Items_Code ، لذلك ، فلما يكون عندك سجل في الجدول inventory Transaction ، ولا توجد بيانات في الحقل ProductBarcode : أ. فهذا لا يعني ان الحقل ProductBarcode لا توجد به قيمة ، بل ان قيمته Null او لا شيء (وهي قيمة في وجهة نظر قاعدة البيانات) ، ب. ولما تُدخل سجل جديد في الجدول Items ، وتترك الحقل item_code بدون قيمة (بل ان قيمته Null او لا شيء في وجهة نظر قاعدة البيانات) ، ج. وبسبب علاقة الجدولين ، تتم مقارنة بيانات الحقلين ، ويكونان متساويين ، ويكون هناك ارتباط بينهم ، د. فقيمة هذا الحقل لا يمكن تغييرها في اي من الجدولين ، لأنك لم تطلب ذلك في العلاقات (انظر رقم 2 اعلاه) (جرب واعمل سجل فارغ في الجدولين ، وبدون اي قيمة في الحقلين ، ثم حاول تغيير قيمة productBarcode او قيمة Item_Code ، فستحصل على نفس رسالة الخطأ التي كانت تأتيك سابقا. اذن الحل: اولا: عدم ترك اي سجل في الجدولين، تكون قيمة الحقلين اعلاه فارغة 🙂 ثانيا: الحل الآخر هو تغيير نوع العلاقة ، بحيث تسمح لتغيير/تحديث بيانات الحقلين: . وبهذه الطريقة ، سيمكنك مواصلة العمل في برنامجك كما هو ، ولكن انتبه ، وبسبب العلاقة الجديدة ، فلما تُدخل قيمة في الحقل الفارغ items_code ، فستقوم بتعبئة جميع الحقول الفارغة في ProductBarcode ، وهذه كارثة !! . في الواقع الحل الوحيد هو اولا ، لأنه حتى ولو انك تستطيع ان تسيطر على الحل ثانيا ، ولكن اذا استعملت البرنامج في شبكة ولأكثر من مستخدم ، فستتلخبط الارقام 🙂 هذا بالنسبة للعلاقة ، والآن فلنرى لماذا تكون لدينا حقول فارغة : الكود خلف زر الحفظ هو السبب ، فلم تكن تحفظ رقم الباركود مع السجل ، لهذا السبب ، يجب حذف زر "انشاء باركود" ، وضم كوده الى كود الحفظ ، ليصبح كود زر الحفظ كالتالي: Private Sub P4_Click() [Items_Code] = DLookup("[باركود]", "barcodeOnSName", "[Items_ID]=[Item_Supplier_ID]") DoCmd.RunCommand acCmdSaveRecord '<== احفظ البيانات فقط 'DoCmd.Save <== هذا الامر معناه احفظ تصميم النموذج، وليس حفظ البيانات 'DoCmd.RefreshRecord <== يمكن استعمال هذا الامر للحفظ ، ولكنه يحفظ البيانات ، ثم يقرأها من الجدول مرة اخرى ، لهذا السبب يحدث وميض في النموذج Ms$ = "تم التسجيل الصنف بنجاح" Ti$ = "رسالة تنبيه اضافة صنف جديد" Re = MsgBox(Ms$, 64, Ti$) End Sub جعفر

السلام عليكم , الاخوة الاعزاء أولاً : شكر وعرفان لا أخفيكم سراً كان وما زال لهذا المنتدى فضل عظيم - بعد الله عز وجل - فى التقدم فى هوايتى فى الاكسس اولا ثم البرمجة بصفة عامة وايضاً كان السبب فى تقدمى على المستوى المهنى فطبيعة عملى تحتم على ان اكون فى مستوى متقدم فى البرمجة لأنها ستسهل عملى كثيراً , وقف امامى الكثير من المشاكل على مر السنوات وتم حلها بواسطة الاساتذة هنا مما سهل على عملى كثيراً وكان من الاسباب التى ساهمت بشكل كبير فى تقدمى وترقيتى فى الوظائف , فجزاكم الله كل خير على ما قدمتموه وما تقدموه ونفع بكم وزادكم من علمه , طبعاً لن أذكر أسماء بعينها ولكن الدعاء عام لكل من يساعد ويساهم فى حل مشاكل المبتدئين أمثالى . ثانياً : مضمون الموضوع طبعاً كلنا نعرف مدى قوة الأكسيس وتأكدت من ذلك بعد دخولى عالم .Net والبرمجة بلغات البرمجة المختلفة , تأكدت ان للأكسيس الكثير من نقاط القوة و السهولة الممتنعة لانشاء نظام متكامل قد يستغرق منى اسبوع مثلا فى الاكسس ولكن فى لغة برمجة كاملة قد يستغرق 3 أشهر بدون مبالغة وقد يزيد , ولكن للأكسيس بعض الصعوبات يعرفها الخبراء واصحاب المستوى المتقدم ولذلك قررت عمل هذا الموضوع بمناسبة بدايتى فى البرمجة ب.Net . اطلب برمجة اداة تقوم بوظيفة صعبة على الاكسيس او عجز الاكسيس عن عملها لك وسأحاول برمجتها لك من باب المساعدة لك والتدريب لى فى نفس الوقت😅 وذلك فى الوقت الميسر لى , طبعاً انا مازلت فى البداية ولكن اعتقد ان لدى القدرة الآن على القيام ببرمجة بعض الادوات البسيطة بلغات .Net 😄 , قد استطيع تنفيذها لك وقد لا استطيع وفى جميع الحالات لا ضرر من المحاولة . بالنسبة للمبتدئين الذين يريدون تعلم البرمجة قوى نفسك فى الاكسيس وتأكد ان الوقت الذى تستغرقه فى تعلم الاكسس ومهاراته ليس بوقت ضائع على الاطلاق ولكن ستستفيد الكثير والكثير وسيصبح لديك منظور فريد يساعدك فيما بعد بشكل كبير . حالياً سأبدأ فى برمجة أداة بسيطة بنكهة .Net كهدية للمنتدى وعند الانتهاء سأفرد لها موضوعاً مستقل . دمتم بخير

Delete columns from column A to column G Select column A From Data tab select Text to Columns Select Delimited option and click Next button Check Space option and click Next button In Destination field select $B$1 cell And finally click Finish

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

اختيار جيد بس شوفت انت قولت ايه السينتاكس مختلف لكن الاساس كله واحد فالبنسبالى كله واحد لان الاساس البرمجى واحد والاختلاف فالسينتاكس بايثون وجافا تستطيع بهم ايضا صنع البرامج المكتبيه التى تريدها بالنسبالى لا اشغل بالى بالمجتمع العالمى بل اشغل بالى بما يقدمه لى البرنامج الذى اتعلمه وماذا استفيد منه وما استطيع القيام به فابحث عن ذلك وعن جميع المعلومات حول هذه البرامج وهل يلبون طموحاتى ام لا فاللى يلبى طموحاتى اضع كل تركيزى به لاتعلم واتقنه وطالما انت فى الدوت نت حاول تدخل فى wbf c# لكم منى كل الامانى الطيبه وربنا يوفقك ويزيدك من فضله

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

نجحت العملية بامتياز بارك الله فيكم و جعل اعمالكم في ميزان حسنتاكم .....

اخترت C# لأن الSyntax مختلف تماماً عن VBA فأحسست فى البداية بالتحدى لتعلم شئ جديد , بالنسبة للVB.Net قريب جدا من VBA لم اشعر بالحماس للتعمق فيه . سؤال جيد , كما تعلم ان لكل فرع منهم المجال الذى يتألق فيه وبما أنى مهتم كثيراً بDesktop Applications فاخترت الدوت نت وهذا أولاً , ثانياً المجتمع العالمى ومدى انتشار اللغة البرمجية عامل مهم فى اختيارى وكان ايضاً سبب قوى انى اخترت الC# فلها قاعدة شعبية عالية جداً وهى لغة حديثة ومازالت تتطور مع الوقت كما انه يمكنك تصميم تطبيقات الاندرويد و مواقع الويب بالاضافة الى برامج الويندوز والماك عن طريقها . بالنسبة للبايثون غير منتشر بالدرجة الكافية حتى الآن ومجال تألقه هو الذكاء الصناعى , بالنسبة لمدى القوة فهى لغة قوية جداً بالفعل ولكن كما قلت شعبية اللغة وكثرة مستخدميها يفيد المبتدئين امثالى من كافة الجهات . بالنسبة للجافا احسها لغة متكاملة تنفع فى أى مكان وتصلح لأى شئ ولكن فضلت تركها بعد تعلم الدوت نت اذا أحيانا الله , وامكانيات الجهاز الحالى لا اعتقد انها ستساعد فى البرمجة بالجافا . سؤالك كان جيد واعتقد انه هيفيد الكثير , تشرفت بمرورك

شرفنى مرورك اخى الكريم نحن واياكم اخى الفاضل , شرفنى مرورك

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

صحيح اخي العزيز محمد حسن وجزاك الله خير على لمستك الجميله

عليكم السلام ..اتفضل اخي معادله.xlsx

ما قصدك بأداة تكتب أكواد ؟ لو محتاج امثلة على اكواد VBA هناك موضوع كان قد شارك فيه بعض الاساتذة فيه كل الاكواد التى تحتاجها ابحث عنه فى المنتدى ستجده بالأمثلة , اذا لم يكن مقصدك وضح اكثر ما تحتاج

السلام عليكم ورحمة الله وبركاته تحية طيبة إخوتي الكرام في هذا المنتدى استناداً إلى ما ذكره الأخ الكريم جعفر jjafferr ولما أدلى به الأخ الكريم م. قاسم @Eng.Qassim جزاهما الله خيراً. وبما أن الفرصة سانحة لكل من يستطيع مساعدة إخوته في هذا المنتدى الكبير إذ لا تقف حكراً على فئة الخبراء فحسب فإنه من خلال المشاركات و إعطاء إجابات قد يكون فيها خطأ أو صواب فإن الإنسان يتعلم من أخطائه ، فلا بأس بالمحاولة ولا بأس أيضاً بتشجيع المشارك إن أصاب وتصويب ما قد يخطئ بكل احترام وتقدير ...وفي هذا تكون نقلة نوعية حول مجتمع واسع في هذا المنتدى يتحاور ويتبادل الآراء ويتخذ أفضل الأساليب والوسائل للوصول نحو قمة ما نصبو إليه... طبعاً ... يكون ذلك دون اختصار مخلّ أو إطالة مملة ... حيث رأيت - وللأسف تصرفت مثل الكثيرين - بعرض جواب سؤال ما بالقول - تفضل أخي الكريم الحل في الملف المرفق دون أي شرح أو كود أو معادلة حيث يريد من يدرس قد يكون غير من سأل فبدلاً من هذا الجواب المختصر ، سيكون بإمكانه استعراض طريقة الحل أمام ناظريه فيتعلم منها قبل التطبيق مع العلم أن التطبيق العملي هو أولى وأرسخ في الذهن. وأخيراً جزاكم الله خيراً في هذا القسم المتألق بكل أعضائه وأعماله الرائعة. ملاحظة: حبذا لو كان التشجيع للعضو من خلال كلمة يهمس بها في أذنه (عفواً) تراها عينه إضافة إلى دعمه بـ Like أو Thanks لأن البشر بطبيعتهم تأسرهم الكلمة الطيبة . والسلام عليكم ورحمة الله وبركاته. رأيت أنه لم يكترث أحد بكلامي ....لعلي كنت ضيفا ثقيلا... أستودعكم الله.

السلام عليكم أخي الكريم علي جزاكم الله خيراً على هذا التوجيه الكريم في بداية مشاركتك وهو لزيادة المحبة بيننا (إفشاء السلام بيننا) كنت قد عملت على حل لهذا الموضوع وهو في الحقيقة قريب لما شاركتم به - جزاكم الله خيراً - أعرضه لكم على سبيل المشاركة والتنوع =IF([@التاريخ]>=EOMONTH([@التاريخ];-1)+27;EOMONTH([@التاريخ];0)+2;"")

همم ، نعم ردّي كان بالفعل بالقطارة ، وبطريقة موجزة 🤣 واليك الرد بطريقة تختلف قليلا: 1. جميع الدوال التي تنادي مكتبات الوندوز (32بت و 64بت) موجودة في الملف Win32API_PtrSafe.zip والموجود في موضوع: اجعل برنامجك يعمل على النواتين 32بت و 64بت ، فمثلا الدالة Sleep هي جزء من المكتبة kernel32 : Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long) 2. مثل ما قلت في مشاركتي السابقة: ومقدرة/عمل هذه الدوال تبدأ من بداية تشغيل الكمبيوتر الى إغلاقه ، لذلك ، فلا حاجة لنا بالتعرف على معظم هذه الدوال وطريقة عملها ، لأنها تعمل بطريقة تلقائية، 3. فكر بكل دالة من هذه الدوال ، كأنها "حدث" في نموذجك/الوحدة النمطية ، انت تنادي الحدث وقت الحاجة ، ولكل نوع من الدوال متغيرات معينه تخصه 🙂 وبعد قراءتي لما كتبته مرة اخرى ، تذكرت المثل الذي يقول: فسر الماءَ بعد الجهد بالماءِ 😂 جعفر

مبارك عليك أخي ناقل @ناقل .. 😊 وسام تستحقه عن جدارة 👍🏼😉 وفقك الله وجعل اعمالك في ميزان حسناتك

الكود جميل أستاذ حسين وياليت تعمل لنا إضافة بسيطة مثلا عند إضافة نصف أو ربع ساعة أو ساعة ونصف

أحسنتُم. جزاكم المولى تبارك خَير الجَزاءِ، وزادكمُ من فضله.

تسلم استاذي العزير علي النصيحة فهي نصيحة غالية و شكرا علي تشجيعك دمت عونا لنا ان شاء الله احمد الفلاحجي

هو بينقط علينا شوية شوية 😄

الف مبروك استاذ @ناقل وتستاهل كل الخير يارب بهذه المناسبة الجميلة خطر في بالي سؤال هو ايه الفائدة او قل الميزة التي يتمتع بها الخبير صراحة مش عارف تمنياتي بالتوفيق للجميع

وفقكم الله ومبارك عليكم الترقية

الف مبروك والى الامام دائما مع هذا الصرح العظيم

وعليكم السلام التقرير الشهري يكون بين تاريخين من تاريخ إلى تاريخ

بعد اذن الاستاد هشام واثراء للموضوع هذا حل اخر بالاكواد Option Explicit Sub test() Dim ws As Worksheet: Set ws = Sheets("Feuil2") Dim lr1, r Dim x1, x2 r = 2 Application.ScreenUpdating = False ws.Range("g2:j1000").ClearContents With Sheets("Feuil1") lr1 = .Cells(Rows.Count, 1).End(3).Row For x1 = 1 To 4 For x2 = 7 To 11 If .Cells(1, x1).Text = ws.Cells(1, x2).Text Then .Cells(2, x1).Resize(lr1).Copy ws.Cells(2, x2).Resize(lr1) GoTo 1 End If Next x2 1: Next x1 End With Application.ScreenUpdating = True End Sub Copie de TRANSFER-COLONE_Marcel32-v12.xlsm

View the full article

جزاكمُ الله تعالى خيرًا. ونسأل المولى تَباركَ أن يزكّينا.

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

السلام عليكم تفضل اخي الكريم ملف مرفق عدد /2 لاحد الاخوة اتمنى يكون ماتبحث عنه sample1.rar تاريخ الدخول والخروج .rar

وعليكم السلام هذه بعض الاشياء التي يجب النظر فيها: يجب ان يكون البرنامج مقسما الى الجداول BE (وهذا الذي تضعه في الشبكة) ، والواجهة FE وفيه بقية الكائنات (ويكون على كمبيوترات المستخدمين) ، يجب ان تكون بعض الحقول مفهرسة في الجدول ، وهذه الحقول هي التي تستخدمها كمعيار في الاستعلام مثلا ، يجب ان تتأكد من الاستعلامات بالذات معمولة بطريقة لا تبطئ البرنامج والاكسس هنا يساعدك فيخبرك اين مكان المشكلة في برنامجك يجب ان تستخدم اسلاك بسرعة 1000 مثل cat 6 ، و Switch او Router بسرعة 1000 (Giga) . جعفر

استيدل الكود بهذا Sub copy_All_visible() Application.ScreenUpdating = False Dim My_sh As Worksheet Dim My_range As Range Dim k, m, lr, i, x As Integer Dim arrsh() As Integer k = Sheets.Count: m = 3: Set My_sh = Sheets(k): My_sh.Range("a3:m1000").ClearContents For i = 1 To k - 1 If Sheets(i).Visible = True Then t = t + 1: x = Sheets(i).Index ReDim Preserve arrsh(1 To t) arrsh(t) = Sheets(i).Index End If Next For y = 1 To UBound(arrsh) With Sheets(arrsh(y)) lr = .Cells(Rows.Count, 1).End(3).Row Set My_range = .Range("a6:k" & lr) End With With My_sh .Cells(m, 1) = Sheets(arrsh(y)).Cells(1, 2) .Cells(m, 2) = Sheets(arrsh(y)).Cells(2, 2) My_range.Copy .Range("c" & m).PasteSpecial xlPasteValues m = m + lr - 4 End With Next My_sh.Activate Range("a3").Select Erase arrsh Application.ScreenUpdating = True End Sub

وعليكم السلام ورحمة الله وبركاته ؛؛ أخي الكريم محمد عبد الناصر لا يوجد كود سيقوم بتفعيل الماكرو بشكل تلقائي لأن الماكرو لو معطل كيف سيعمل الكود حتى وإن وجد ؟؟!! الطريقة الوحيدة هي تشغيل ملف الريجستري ... جرب الملف المرفق التالي (انقر دبل كليك على الملف المناسب لنسخة الأوفيس لديك) Registry.rar

السلام عليكم ورحمة الله تفضل أخي الكريم محمد حسن هذا البرنامج تستطيع إدخال عملات جديدة فيه وحذف عملات كما انت تحب أخوكم انس دروبي ‫‫منظومة الصرافة.rar