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

السلام عليكم 🙂 اخي ابو احمد @AbuuAhmed اسمح لي اكون اول من يُهنّيك على الترقية 🙂 هي مجرد القاب للمحترفين ، وتعريف الباقين بكم 🙂 جعفر

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

السلام عليكم ورحمة الله استخدم هذا الكود Sub SSheet() Dim ws As Worksheet, Data As Worksheet, ShName As String Dim LR As Long, ER As Long, x As Integer Set Data = Sheets("Sheet1") ShName = Data.Range("C3").Text ER = Data.Range("B" & Rows.Count).End(3).Row x = ER - 7 For Each ws In Worksheets If ws.Name = ShName Then LR = ws.Range("B" & Rows.Count).End(3).Row ws.Name = ShName ws.Range("B" & LR + 1).Resize(x, 5) = Data.Range("B8").Resize(x, 5).Value End If Next End Sub

هذه محاولة مني ..تفضل المصنف1.xlsx

حياك الله اخوي ابو احمد في بيتك الافتراضي وسط اخوتك 🙂 جعفر

وعليكم السلام 🙂 تفضل 🙂 التغييرات اللي عملتها: 1. الوحدة النمطية "جلب الصور" تم تغييرها بالكامل ، 2. مناداة الدالة في الوحدة النمطية اعلاه اصبح : 'figura = GetOpenFile_CLT("c:\windows\desktop\", ".حدد مكان الصورة") figura = GetOpenFile("c:\windows\desktop\", ".حدد مكان الصورة") . وعليه ، فسواء استخدمت طريقتي ، او حذفت الدالة كلها واستخدمت دوال اخي @Moosak فالنتيجة سواء 🙂 جعفر الموظفين.accdb

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

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

الف مبروك 🌼

يستاهل ابو احمد مع تمنياتي له بالتوفيق

مرفق ملف مُعدل معدل شيت بيع.xlsm

فورم اكسل لاشهر أسماء رواة الاحاديث والصحابة لاداة باسم TreeViewControl الفيديو

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

وعليكم السلام..تفضل على الرغم انك لم تقم برفع ملف تصورى لما تريد مع وضع شكل النتائج المرجوة ,, حتى تتمكن الأساتذة من مساعدتك

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

الف الف مليون ترليوووون مبروك نفع الله به واجره بعلمه

الف الف الف مبروك بالتوفيق يا رب

الف . الف . مبروك ابا احمد ...... تستاهل .... اعانك الله وسدد خطاك .

بارك الله فيك أخي الكريم : اولا : مبارك لك الترقية وأسأل الله تعالى لك وللجميع التوفيق والسداد والاعانة .. تستاهل . الف . الف . مبروك ثانيا : فكرة المنتدى في اساسه التعلم والتعليم ..... كلنا نتعلم وانا اولكم ..... فأكثر من اجابة ومشاركة في الأراء تثري الموضوع .... تفضل أخي الكريم التعديل ..... DB5 (1).mdb

أطلقت إزري وضمن منتجها الخاص بالتكامل مع برامج الأوفس منتج جديد بمسمى ArcGIS for Excel والذي يمكنك تنزيله من متجر مايكروسوفت، فكرة الإضافة هو تسهيل عرض الخرائط داخل الإكسل من خلال بيانات جغرافية في الإكسل للمزيد عن هذا الموضوع 👇👇👇 https://www.esri.com/arcgis-blog/products/esri-maps-office/announcements/introducing-arcgis-for-excel/

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

حياك الله أخي ، لم أنزل مثالك ، أنا فقط لفت انتباهي استخدام دالة Nz وكتبت تصحيح لكتابتها مباشرة في المشاركة. أخي أنا لا أريد أن أكون ضيفا ثقيلا في المنتدى ، واصل مع الأخ @Barna وإذا سمح لي بالتداخل فابشر بالفزعة.

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

تستاهل اكثر يابو احمد

مبارك عليك أبو أحمد..

السلام عليكم ورحمة الله وبركاته مبارك عليكم 👨‍🎓 congratulations

غيرت لك دالة جلب المسارات جرب الآن 🙂 الموظفين.rar

هنيئا لنا بك .. وهنيئا لك بها 🙂 أخي @AbuuAhmed أتمنى لك التوفيق والسداد والرشاد والأجر العظيم . 🌷🌹😊

يجب أن يكون هذا السطر كالتالي: Forms!Form1.ID = Nz(DMax("[ID]", "InvoiceSavetbl"),0) + 1 أو هكذا Forms!Form1.ID = Nz(DMax("[ID]", "InvoiceSavetbl")) + 1 والأولى أفضل لن تظهر عندكم المشكلة قبل التصحيح إلا إذا كان الجدول فارغا.

شكرا استاذي جعفر شكرا استاذي موسي شكرا استاذي روك جون

وعليكم السلام 🙂 إذا ما عندك برنامج قراءة pdf على كمبيوترك (مثل Adobe Acrobat Reader او Fox it pdf Reader او ... ) ، فالاكسس لن يعرض ملف الـ pdf في النموذج ، وانما يُخرج لك هذه الرسالة !! تابع هذا الموضوع: فعندك حلين: 1. تنصب احد برامج قراءة pdf على كمبيوترك ، 2. او تفتح ملف pdf باليرنامح الافتراضي والذي قد يكون المتصفح Chrome او Edge. جعفر

الحمد لله تقلص الحل إلى سطر واحد فقط 🙂 TreeView1.Nodes("A" & Me.AccID).Selected = True الأخ @محمد القدسي لقد قمت بتنظيم الكود كشكل فقط لتسهيل المراجعة وفهم أدائه. سأجعل هذا المثال لدراسة الشجرة والوصول إلى حلول جديدة إن وجدت. شجرة حسابات_04.rar

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

بارك الله فيك استاذ jjafferr بكره اروح المكتب واتأكد من التحديثات وارد لكم خبر ان شاء الله

وعليكم السلام 🙂 هل جميع الاجهزة فيها نفس تحديثاث الوندوز والاكسس ؟ تحديثات الوندوز والاكسس ، مع ان بعضها يعمل مشكلة للبرامج ، ولكن معظمها مهم لعمل الاكسس 🙂 جعفر

السلام عليكم جرب هذه المعادلة بفرض ان الرقم في الخلية A1 =IF(MID(A1;LEN(A1);1)<="5";A1-MID(A1;LEN(A1);1)+5;IF(MID(A1;LEN(A1);1)>"5";A1-MID(A1;LEN(A1);1)+10))

السلام عليكم =========== البرنامج كنترول HH.rar