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

السلام عليكم ,, الاخوة الاعزاء كل عام وانتم بخير . كما نعلم ان الايقونات جزء لا يتجزء من الواجهات الحديثة الجذابة التى تلفت الانظار ومن هذا المنطلق واستكمالاً للموضوع السابق الذى تجده هنا : موضوعنا اليوم عن كيف تصنع ايقوناتك خصيصاً لتتناسب مع تصميم برنامجك بطريقة بسيطة , انظر النتيجة : هناك اختلاف بسيط فى الالوان لأنى عملتهم على عجالة 😅 . فى هذا الموضوع سنستخدم أداة بها آلاف الايقونات القابلة للتخصيص من حيث اللون والحجم اسم الاداة 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 كهدية للمنتدى وعند الانتهاء سأفرد لها موضوعاً مستقل . دمتم بخير

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

تفضل يمكنك استخدام هذه المعادلة =B2*B4+(B3-1)*(B4*B2) معادله - 4.xlsx

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

شكرا لك اخي فعلا افادني وهذا هو المطلوب معرفتة

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

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

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

الاخوة احمد الفلاحجي مهند 2002 محمد يوسف ابو يوسف شكرا لكم جميعا ملاحظة الاخ احمد الفلاحجي الاخ محمد يوسف ابو يوسف هذه نسخ 2016 محدثة الا يوجد احد عنده نسخة 2019 اصلية او 365 او 2021 شكرا لكم جميعا

اخي ..ان كان فهمي صحيح فهذا طلبك الملف export1.xlsm الكود المستخدم Sub تحويل_التاريخ_الي_هجري() Range("A2:B62").Select Selection.NumberFormat = "[$-,106]B2yyyy/mm/dd;@" Range("A2:B62").Select Selection.End(xlUp).Select End Sub

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

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

عادة ما يتم نشر تهنئة الترقية فى القسم المناظر ، حيث أن المنتدى المفتوح لا يتابعه الجميع

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

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

شكرا على التنبيه تم عمل اللازم

الف مبروك استاذنا الفاضل @ناقل وتستاهل كل خير وكل عام وانتم بخير

بسم الله الرّحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته أحسن الله تعالى لإخوتي، وباركَ فيهمُ. أستسمحهم بهذي الإشارة؛ لُطفًا إذا تيسّر من وقتهمُ: @محمد طاهر هذا الموضوع تمّ نشره مُنذ دقائق، وأحسبُ أنّه مُخالفٌ للإشهار بدون إذن الإدارة: https://www.officena.net/ib/topic/114268-نبذة-عن-مؤسسة-سلم-الأمل-للخدمات-المنزلية-بالرياض/ والله تعالى أعلى وأعلمُ. والله تعالى يُوفّق إخوتي.

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

واياكم العفو يا ابوشادى ولا يهمك ربنا يعينك ع برنامجك بالتوفيق

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

بسم الله الرّحمن الرحيم وعليكم السّلامُ ورحمة الله تعالى وبركاته ما شاء الله! تَباركَ الله! سرح جد مُميّز؛ فضلاً عن توفير الأدوات المُستخدمة. جعله تعالى لإخوتي شاهِدًا، وزادهم من واسِع فضله سُبحانهُ. ومن بعد إذنكم لديّ تيسّر لديّ اسِفساران؛ لُطفًا إذا تيسّر من وقت إخوتي: - هل يوجد مصدر لإتقان أكواد الأكسيس؟! - وهل تعلُّمها يُغني عن لُغات البرمجة؟! والله تعالى يجزي إخوتي خيرًا.

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

مباركة عليكم الترقية أخي الكريم و إلى المزيد من العطاء وفقكم الله تعالى لما يحب ويرضى آمين

ألف مبروك وإلى الأمام

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

بعد اذن الاستاد هشام واثراء للموضوع هذا حل اخر بالاكواد 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

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

قمت باضافة صنف جديد وانشأت له بركود ... ولم تظهر الرسالة ؟؟؟؟؟

اعرض الملف بدائل دالة textjoin الموجودة في إكسل 2016 لجميع إصدارات اكسل mastextjoin بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته موعدنا اليوم مع معلومة مفيدة جدا وخفيفة جدا ومهمة جدا في نفس الوقت وهي تصميم بدائل دالة TEXTJOIN الموجودة في اكسل 2016 وما بعده لجميع إصدارات إكسل لأنها دالة معرفة UDF . لمن يريد استخدام مزايا إكسل 2016 في جميع إصدارات إكسل بداية من 2003 و 2007 و 2010 و 2016 و 2019 دالة احترافية لدمج النصوص مع وضع فاصل بين قيم الخلايا وتجاهل الخلايا الفارغة mastextjoin بدائل textjoin الموجودة في إكسل 2016 وما بعده اللهم انفعنا بما علمتنا وعلمنا ما ينفعنا #a1mas #ostazmas #textjoin لماذا نستعمل دالة textjoin ؟ نبدأ أولا بمعرفة أن هذه الدالة توجد في أوفيس 2016 وما بعده ( أوفيس 365) وهي دالة لدمج النصوص مع تجاهل الخلايا الفارغة وعدم تكرار الفاصل في حالة إذا كانت الخلية فارغة. ولها 4 وسيطات: والصورة العامة لها هي: TEXTJOIN(delimiter, ignore_empty, text1, [text2], …) delemiter محدِد (مطلوبة) عبارة عن سلسلة نصية، إما أن تكون فارغة أو تكون حرفاً واحداً أو أكثر محاطاً بعلامات الاقتباس المزدوجة أو مرجعاً إلى سلسلة نصية صالحة. إذا تم إدخال رقم، فسيُعامل كنص. ignore_empty (مطلوبة) إذا كانت TRUE، فسيتم تجاهل الخلايا الفارغة. text1 (مطلوبة) هي العنصر النصي المطلوب دمجه. عبارة عن سلسلة نصية أو صفيف من السلاسل مثل نطاق من الخلايا. [text2, ...] (اختيارية) هي العناصر النصية الإضافية المطلوب دمجها. قد يكون هناك حد أقصى يبلغ 252 من الوسيطات النصية للعناصر النصية بما في ذلك text1. يمكن أن يكون كل عنصر منها عبارة عن سلسلة أو صفيف من السلاسل مثل نطاق من الخلايا. وإليكم هذا الفيديو لشرح الدالة وتوضيح كيفية استخدامها في إكسل 2016 وما البدائل لدالة textjoin في إكسل 2013 و 2010 و 2007 و 2003 وهي دالة mastextjoin ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك صاحب الملف أ / محمد صالح تمت الاضافه 26 ينا, 2018 الاقسام قسم الإكسيل  

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

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

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