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

استاذ حسين لا افهم ما لزوم الحلقة التكرارية يكفي هذا الماكرو Option Explicit Sub Go_To() On Error Resume Next Sheets(Sheets("رئيسي").[D5].Value).Select End Sub

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

عليكم السلام تفضل زر انتقال حسب الشهر.xlsm

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

طبعا تقدر ابعت له حق الفاكهة بسرعة لا تتأخر

اتفضل انا عجبتنى الفكرة جدا box.accdb

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

السلام عليكم وهذا أيضا مع بعض التعديل... تعداد التلاميذ حسب المستوى والعمر والجنس.xls

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

حبيبى يا أبو عبدالله الحلوانى كتر ألف خيرك ويارب نقدر نرد الجمايل 😍

روعة فوق الوصف وضعت الرابط في الاعلى

أستاذنا أبو عبدالله الحلوانى أستاذنا ابا جودى أنا شايف فاكهة نازلة يمين ويمن ما فيش أى حاجة للغلبان اللى باصصلكم فى كل حاجة ده .. ولا يعنى عشان مش صعيدى أخى العزيز kha9009lid إسمها ايه لوحة المفاتيح دى .. باين عليها جبارة

انت يُدفع لك ابا جودى وبالنص زى ما اتعودنا مش قولتلك هنطلك دافع كنت أم مدفوع😉

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

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

كل الشكر والتقدير لأستاذنا بو عبدالله الحلوانى ولكل أعضاء المنتدى الكرام خالص تحياتى

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

ما هي اداة البحث التي تريد ان تشغلها الصّف او اسم التلميذ على كل حال جرب هذا الملف st_by_class.xlsx

المفروض انه يفتح تقرير محدد للطياعة تمام كل ياللى مطلوب منك تفح هذا التقرير فى وضع التصميم وتقوم بوصع حدث عند التحميل كالاتى Private Sub Report_Load() 'Printed by Me.txtPrintedBy = UsersNames End Sub على اعتبار ان تضع مربع النص اسفل صحفة التقرير سوف يكون اسمه txtPrintedBy وعنوانه سوف يكون طبع بواسطة :

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

شكرا لك أخي أبو عارف وابا جودى إليك يا من كان له قدم السبق في ركب العلم والتعليم، إليك يا من بذلت ولم تنتظر العطاء، إليك أهدي عبارات الشكر والتقدير.

أخي عبدالقدوس يجب عمل فرز داخل تقرير من تاريخ إلى تاريخ.rar

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

تفضل ترحيل المطالبات 2الشهرية.xlsm

السلام عليكم بعد اذن الاستاذ حسين هذا كود اتمنا يلبي طلبك انقر زر تنفيذ abad_Merg.xls

احفظ لوكو في فولدر الصور ثم اذهب الى الاكسيل ثم header / footer ------- ثم custom header ثم انقر في center section eثم انقر على رمز الصورة واختر الفولدر اللي فيه الصورة وانقر عليها ثم magns قم بتعديل الهامش العلوي حتى 3.5 سم ثم OK

ساعة رقمية بالاكسل الفيديو

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

تم التعديل على الملف ليعطيك الاسم (او عدة اسماء تبدأ بحرف او حروف معينة) الصفحة Salim من هذا الملف Saerch_by_Name.xlsx

أستاذنا عصام ربيع وأحبتي أعضاء المنتدي الكرام 🍊🍋🍌🍎🍈🥝🍒🍊🍋🍌🍎🍈🥝🍊🍋🍌🍎🍈🥝 🍋🍌🍎🍈🥝🍒🍊🍋🍌🍎🍈🥝🍊🍋🍌🍎🍈 🍋🍌🍎🍈🥝🍒🍊🍋🍌🍎🍈🥝🍊🍋🍌🍎🍈 تحلية خفيفة ودعايا لمنتجاتنا من المزرعة اليكم بدون وسيط 😁

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

https://hot-virtual-keyboard.com/buy/

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

يستاهل كل خير أبارك لك اللقب الذي تستحقه عن جدارة تحياتي

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

جرب هذا لعله يفي الغرض تعداد التلاميذ حسب المستوى والعمر والجنس.xls

ابو عبد الله عاشت ايدك وصلت الفكرة غيرت رقم الاصدار صار يعمل عندي(.اشكرك ابو عبد الله واشكر اخوية عصام واشكر اخوية احمد يوسف)

عدل الكود ليلائم الأوفيس تبعك كالآتى Const HKEY_CURRENT_USER = &H80000001 Dim oRegistry Dim sPath Dim sDescription Dim bAllowSubFolders Dim bAllowNetworkLocations Dim bAlreadyExists Dim sParentKey Dim iLocCounter Dim arrChildKeys Dim sChildKey Dim sValue Dim sNewKey Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") sPath = strCurDir sDescription = "YourTrustedLocationDescriptionGoesHere" bAllowSubFolders = True bAlreadyExists = False sParentKey = "Software\Microsoft\Office\14.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\14.0\Word\Security\Trusted Locations" iLocCounter = 0 oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys For Each sChildKey in arrChildKeys oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue If sValue = sDescription Then bAlreadyExists = True If CInt(Mid(sChildKey, 9)) > iLocCounter Then iLocCounter = CInt(Mid(sChildKey, 9)) End If Next 'If bAlreadyExists = False Then sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1) oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription If bAllowSubFolders Then oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1 End If ولا تنسى وضع الملف فى نفس مسار قاعدة البيانات

أستاذ @Amir - 4k ماذا يحدث عندما تفتح ملف vbs هل تظهر لك رسالة خطأ ولو أمكن تقوم بتصوير رسالة الخطأ وياحبذا لو ذكرت لنا نوع الأوفس لديك (2019 - 2016 - 2010 - 2003) وهل قمت بتغير رقم الاصدار داخل الكود وفقا لتعليمات أستاذنا @essam rabea

السلام عليكم جرب هذا ان وافق مرادك فلا تنسانا بدعوة في ظهر الغيب zaCaptureWebCam2017.mdb

تسلم ابا جودى هذا هو المطلوب / تمت الاجابة

و هذا طريقة خارج بيئة VBA dayname.accdb

ابحث عن فونط IDAutomationHC39M بعد تثبيت اجعله خط نص او مربع مراد تحويله الى رموز باركود

وعليكم السلام ورحمة الله وبركاته ملف ربما يتوافق مع طلبك التنبيه في حالة التكرار .xls تحياتي

أخي ابو زاهر جرب المرفق ان شاء الله يكون حسب مطلوب تعديل كود.mdb

السلام عليكم تفضل لقد استخدمت التنيسق الشرطي جرب هذا الحل 222.accdb

الف شكر استاذي الفاضل ابو عارف واستاذي الفاضل essam rabea هذا هو المطلوب جزاكم الله خير

ربما يستحسن استعمال هذا مني طلب مساعده من منتدى اوفسينا (2) (1).xlsm

اخواني اساتذتي Ali Mohamed Ali و سليم حاصبيا واخرون ، انه لشرف لي ان أكون بين عظماء مثلكم واتمنى من العلي القدير ان ينور قلوبنا وان يتقبل منا ومنكم جميع اعمالنا وان نكون عند حسن ظن جميع اعضاء هذا الصرح العظيم. اشكركم جميعا تحياتي

ان شاء الله يكون المطلوب Convert-unprotected.xls