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

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

أعضاء المنتدى الكرام ... كل عام وانتم بخير ... إليكم أحبائي كنترول جدارات الصف الاول كامل مفتوح المصدر وبدون قيود داعيا الله ان يكون عملا خالصا لوجه تعالى وان يكون عملا ينتفع به الكنترول يشمل الآتي تنبيه : كنترول جدارات الصف الثاني جاري التحضير له ان شاء الله تعليمات الدخول لشاشة البرنامج 1- تحويل اللغة الى الانجليزية 2- التحويل الى حروف كبيرة Caps Lock 3- اكتب في المربع الاول بحروف عربية "بسم" 4- - اكتب في المربع الثاني بحروف عربية "الله" 5- اضغط تاكيد وبالتوفيق ان شاء الله offcinal_1_3am.xlsb

بسم الله الرّحمن الرّحمن الرحيم السلام عليكم ورحمة الله تعالى وبركاته إخوتي في الله؛ رُوّاد أوفيسنا المباركون؛ فيما يلي موقِعٌ هديّة خاصّة، لمن يعمل في مجال التّصميم والعروض التقديمية. موقع يحوي آلاف الرسومات الجاهزة مجانًا للموشن جرافيك والعروض التقديمية آلاف الرسومات الجاهزة مجانًا للموشن جرافيك لمشروعك القادم! رسومات توضيحية مجانية رائعة قابلة للتخصيص لمشروعاتك يُمكنك بتخصيص الرسوم التوضيحية وتحريكها وتنزيلها لإنشاء صفحات مخصصة، أو تطبيق أو عروض تقديمية رائعة! رابط الموقع https://storyset.com/ .......................... في أمان الله.

لو تقصد الحقل الثاني محسوب بالجدول مايصير .......... أما من خلال نموذج فممكن وكما اشار اليك استاذ @ناقل ..................... تفضل الشرح والمرفق . ووافنا بالرد . ahmad2026.rar

الأصل أخي الكريم بلانك هو طرح المطلوب وشرحة داخل الموضوع وليس داخل الملف فقط .. شكراً لك

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

عملت بعض التعديلات خصوصاً للتقارير .. والبرنامج يعمل لديا بدليل الشرح التالي . وايضاً اليك المرفق بعد التعديل . SaadPermissionsLast-3.rar

الاخ tamerfayed يرجى تعديل الإسم للغة العربية طبقا لتعليمات المنتدى مشكلة COUNTIFS $C$8:$C$795,AF8,$B$8:$B$795,$T$9 تعديل مدى البحث c / b من 795 إلى 1000 $C$8:$C$1000,AF8,$B$8:$B$1000,$T$9 OK Otlob Sheet -Feb ,2026.xlsx

وعليكم السلام ورحمة الله وبركاته كل عام وانت بخير الصفحات كثيرة وهذا سيجعل اي كود يستغرق وقتا اطول لاستدعاء البيانات استغرق على جهازي حوالي 6 دقائق بمعدل ثانية واحدة لكل صفحة فكرة الاكواد ؟ الكود الاول (اسعار الاسهم ) يتم تشغيله مرة واحدة فقط ويستغرق عدة دقائق بعدها يتم التعامل مع زر التحديت ويستغرق اقل من دقيقة واحدة من خلال 3 مواقع ذكاء اصطناعي تحصلت على افضل كود يقوم بالمهمة التجرية تمت على اكسل 2016 لانه ليس لدي 2010 واعتقد ان الكود يعمل علي 2010 زر التحديث / بعد استدعاء البيانات يقوم زر التحديث بمقارنة البيانات المستدعاة بالموقع واذا كان هناك تغير يقوم يالتحديث قم بالتجربة واعلمنا بالنتائج افضل الاكواد تحصلت عليها من موقع https://chat.deepseek.com/ us_stocks_arincen (1).xlsb

تفضل ترتيب درجات الطلاب لمواد مختلفة(3).xlsx

اولا / الملف السابق به كودين كلاهما معاينة تم تعديل احدهما الى طباعة ثانيا :- للتطبيق على ملفك / احعل لغة الجهاز العربية وانسخ الكود المرفق وفي ملفك الاخر قم بالدخول إلى صفحة الفيجوال بيسك عن طريق التبويب Developer(المطور) ثم Visual Basic ثم من قائمة Insert اختر Module والصقه به واربطه بزر في الصفحة المراد ترقيمها ملاحطة/ الكود المرفق مهمته الطباعة مع الترقيم ان اردت المعاينة مع الترقيم بدون طباعة غير كلمة FALSE الى TRUE في الجملة ws.PrintOut From:=i, To:=i, Preview:=False Sub طباعة() Dim ws As Worksheet Dim totalPages As Long Dim i As Long Dim pageNum As Integer Set ws = ActiveSheet totalPages = (ws.HPageBreaks.Count + 1) * (ws.VPageBreaks.Count + 1) For i = 1 To totalPages pageNum = Application.WorksheetFunction.RoundUp(i / 2, 0) If i Mod 2 <> 0 Then ws.PageSetup.CenterFooter = "الصفحة " & Format(pageNum, "00") Else ws.PageSetup.CenterFooter = "تابع الصفحة " & Format(pageNum, "00") End If ws.PrintOut From:=i, To:=i, Preview:=False Next i End Sub

وعليكم السلام ورحمة الله وبركاته اذا كان الغرض من الترقيم اظهار الترقيم المطلوب في اوراق الطباعة او المعاينة فالكود افضل حل من الترقيم اليدوي مع الصفحات المتعددة مثال في الملف المرفق تكرار رقم الصفحة.xlsb تكرار رقم الصفحة (1).xlsb

كتابة باللغة العربية من صفحة نانو بنانا ذكاء اصطناعي

عمل صورة من خلال الذكاء الاصطناعي

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

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

شكرا استاذ محمد على الطرح المميز و هل تنتج لغة ار واجهات رسومية اقصد لها كومبايلر و طريقة للربط بواجهة رسومية ؟؟

فيديوهات الشرح https://www.youtube.com/channel/UClKKWBe2SCAEyv7ZNGhIe4g للمزيد من الشرح و التفاصيل https://orange.biolab.si/docs/

مشاركة مع استاذنا @ابوخليل و @عبد الفتاح كيرة ھذا جيد اذن اليك هذا الكود بعد تحديث للحقل الاسم في نموذج Private Sub namst_AfterUpdate() Dim MyName MyName = Split(Me.namst, " ") If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then Me.sex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'") Else MsgBox (" الاسم " & " ( " & MyName(0) & " ) " & " ليس موجودا في الجدول المعلومات ") End If End Sub اذن اكتب احد الاسماء الموجودة في جدول المعلومات لكن ملاحظة يجب ان يكون هناك فراغ اي مسافة بين الاسماء ------------ واذا تريد تعمل كلها بدفعة واحدة بواسطة استعلام تحديث اليك هذا اولا اليك هذا فانكشن الصقها في وحدة نمطية Public Function BoyGirl(MyName) Dim MySex MyName = Split(MyName, " ") If DLookup("[namm]", "TblMalomat", "[namm]='" & MyName(0) & "'") <> "" Then MySex = DLookup("[sex]", "TblMalomat", "[namm]='" & MyName(0) & "'") End If BoyGirl = MySex End Function وفي استعلام التحديث اضف حقل الجنس وفي سطر تحديث اكتب اسم الفانكشن و بين قوسين اسم الحقل الاسماء BoyGirl([tel1]![namst]) فقط عليك ان تعمل تشغيل الاستعلام مرة واحدة فقط اتفضل اليك قاعدتك بعد التعديل الجنس --.rar

من واجبنا الالتزام بالتعليمات واحترام لمن قدم لنا العلم و الفكره والنصح والمشوره اذكرك واذكر نفسي بقوله تعالى: { هل جزاء الإحسان إلا الإحسان} جزاك الله الف خير