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

اللهم اغفر له وارحمه واجعله مثواه الجنة والهم أهله وذويه الصبر والسلوان

اللهم امين .. أتم يارب شفاءه على أكمل وجه بالشكل الذى يرضيك يا أكرم الأكرمين واربط على اهله وذويه بالصبر على هذا

بارك الله فيك وزادك الله من فضله وعود حميدا .... نورت المنتدى

اعرض الملف إمنح تطبيقك المظهر الإحترافي بإستخدام مربع حوار المهام بديل لـ MsgBox {سلسلة الأدوات المساعدة المخصصة} أرفق لك إحدى الأدوات الرائعة التي يمكن أن تغنيك عن الكثير من النماذج وتجعل رسائل التنبيه تشبه رسائل ويندوز حاولت قد الإمكان تبسيط طريقة الإستخدام وتوضيحها في التعليقات أرجو أن تنال إعجابكم مع تحياتي صاحب الملف منتصر الانسي تمت الاضافه 07/05/25 الاقسام قسم الأكسيس  

أتفق مع الأستاذ فادي فلا توجد أي طريقة إلا بتمييز إسم الملف بقيمة فريدة لا تتكرر ومن خلال المثال الخاص بك فهذه القيمة هي قيمة الحقل ID عموما قمت بالتعديل على الكود الخاص بمثالك ووضحت ما قمت بتعديله من خلال التعليقات أرجو أن يكون الحل مناسبا لك مع تحياتي baseA.rar

للترتيب ضع هذا السطر في الاستعلام مصدر بيانات النموذج modul trteeb: CLng(DCount("ID";"modul";"mouadel_3am >=" & [mouadel_3am])) واجعله مصدر حقل الترتيب مجموع الطلاب اكتب في مصدر بيانات الحقل التالي : =Count(*)

سامحني سأتأخر عليك سأقوم بالمطلوب أو بعضه الليلة إن شاء الله.

ثماذج الذكاء الاصطناعي متعددة جرب مثلا : الصيني (ديب سيك) https://chat.deepseek.com/ أو الأمريكي من قوقل (جيمناي) https://gemini.google.com/app?hl=en والأمريكي أيضا (شات جي بي تي) https://chatgpt.com/ أما سؤالك بخصوص التعديل على المعادلة , فعند التعديل لا تضغط ENTER فقط بل لا بد من ضغط ثلاثة مفاتيح لأنها معادلة نطاق ARRAY وليس معادلة عادية فبعد التعديل عليها اضغط ثلاثة مفاتيح وهي : 1 Ctrl وتظل ضاغط عليه 2 Shift وتظل ضاغط عليه 3 Enter يعني : لما تضغط على الزر الأخير Enter ستكون الأزرار الثلاثة كلها مضغوطة في نفس اللحظة

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

تفضل أخي الكريم 3 ملفات الأول إذا كان الأوفيس عندك 365 أو 2016 فيما فوق الثاني إذا كان الأوفيس إصدار أقل من 2016 الثالث باستخدام الأكواد لا تنسى اختيار "اختر تمت الاجابة" إذا تم حل المشكلة استخراج_فواتير_بدون_تكرار (365).xlsx استخراج_فواتير_بدون_تكرار (أوفيس قديم).xlsx استخراج_فواتير_بدون_تكرار (كود).xlsm

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

ليس بغريب عليك جراح اكسس فعلا وعملاق في افكارك الله ينور عليك يا دك

أخي @yasse.w.2010أسعدتني كلماتك الطيبة أتمنى لك كل التوفيق، ويارب تلاقي كل الخير في طريقك دايمًا شكرًا أيضًا على ذكرك لأوفيسينا والسادة المشرفين والأعضاء الكرام، ده شرف لنا إننا نقدر نكون مصدر خير ولو بالقليل مع خالص تحياتي

جرب هذا الكود Sub Hyperlink_cut() Dim selectedFile As String Dim result As Variant ' فتح مربع حوار لاختيار الملف With Application.FileDialog(msoFileDialogFilePicker) .Title = "اختر ملف Excel المراد قطع الرابط معه" .Filters.Clear .Filters.Add "Excel Files", "*.xls; *.xlsx; *.xlsb; *.xlsm" .AllowMultiSelect = False If .Show = -1 Then selectedFile = .SelectedItems(1) Else MsgBox "لم يتم اختيار ملف.", vbExclamation Exit Sub End If End With ' محاولة قطع الرابط On Error Resume Next ActiveWorkbook.BreakLink Name:=selectedFile, Type:=xlExcelLinks If Err.Number <> 0 Then MsgBox "تعذر قطع الرابط. تأكد أن الملف مرتبط فعلاً.", vbCritical Exit Sub End If On Error GoTo 0 ' تحديد خلية H9 Range("H9").Select ' تحديد الشكل "Rectangle 4" On Error Resume Next ActiveSheet.Shapes.Range(Array("Rectangle 4")).Select On Error GoTo 0 ' الانتقال إلى المرجع "Macro1" On Error Resume Next Application.Goto Reference:="Macro1" On Error GoTo 0 End Sub

التحديث الجديد يستحق الإنتظار 🤗

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

أنت اللي حاط الوقت .. تصرف !! 😂😅

جزاك الله كل خير وأكرمك الله بالدارين

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

أحسنت أستاذ مجدى وجعل الله هذا العمل فى ميزان حسناتك

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

جزاك الله كل خير

أحسنت أستاذ مجدى بارك الله فيك وزادك الله من فضله

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

وعليكم السلام-بما انك لم تقم برفع ملف بالمطلوب بكل دقة -فكان عليك استخدام خاصية البحث بالمنتدى https://www.officena.net/ib/search/?q=تفقيط&quick=1&type=forums_topic&nodes=135

السلام عليكم -تفضل كان عليك استخدام خاصية البحث بالمنتدى أولا قبل رفع مشاركتك فبه كنوز تحميل نموذج حضور وانصراف الموظفين excel و سلف و مرتبات شيت المرتبات الشامل 2023.xlsm

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

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

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

وعليكم السلام -يمكنك استخدام هذه المعادلة =INDEX($O$3:$O$500,MATCH(B3,$M$3:$M$500,0),MATCH(C3,$N$3:$N$500,0)) نقل النسب2.xls

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

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

بارك الله فيك وزادك الله من فضله اللهم اغفر لوالدك وارحمه، وعافه واعف عنه، وأكرم نزله، ووسع مدخله، واغسله بالماء والثلج والبرد، ونقه من الخطايا كما ينقى الثوب الأبيض من الدنس. - اللهم أبدله دارا خيرا من داره، وأهلا خيرا من أهله، وزوجا خيرا من زوجه، وأدخله الجنة، وأعذه من عذاب القبر، ومن عذاب النار

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

بارك الله فيك استاذ محمد وزادك الله من فضله

وعليكم السلام -تفضل لك ما طلبت للرفع.xlsb

وعليكم السلام- باركود IDAutomationHC39M Idautomationhc39m.zip

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

IFERROR(LOOKUP(A1,{600001;700001;800001;900001},{525;2775;5025;8025}) بسيطة وسهلة هذا الجزء يعنى ان الشرائح التى تبدأ بـــ600001 يكون الوعاء الضريبى هو المقابل لها بالقوسين الأخرين وهو 525 أما الشريحة الثانية 700001 فالوعاء الضريبى لها هو 2775 ...وهكذا الى اخر الشرائح وشكراً

دائماً مبدع أستاذنا الكبير ياسر , تبارك الله مجهود رائع جعله الله فى ميزان حسناتك وأكرمك الله وموضوع مهم للجميع جزاك الله خير الثواب

تفضل هذا الملف .على الرغم ان كان عليك من البداية رفع ملف بالمشاركة فلا تعنى أى مشاركة شيء بدون ملف يدعمها Colored.xlsb

تفضل المشكلة كانت من عندك لأنك محدد فى الكود ظهور ثلاثة أعمدة فقط تـــم تعديل وضبط الفورم كما تريد حلقات المساجد2.xls

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

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

بارك الله فيك استاذ مجدى وزادك الله من فضله

وعليكم السلام-تفضل

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

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF(AND(DAY(B2)=1,MONTH(B2)=2),"كادر","") كادر.xlsx

وعليكم السلام-يمكنك استخدام هذه المعادلة ..وذلك فى حالة ان وقت الإنصراف أقل من وقت الحضور ,ولكن لابد ان يكون فى نفس اليوم ,,وبعد ذلك لابد من تصحيح وتعديل وقت الإنصراق عند إدخاله بمعنى اذا انصرف الموظف الساعة مثلاً 5 وربع مساءاً فلابد من كتابتها وادخالها هكذا 17:15 وشكراً =IF($D2<$C2,($D2+"12:00")-$C2,$D2-$C2) back1.xlsx

وعليكم السلام-تفضل أعتقد ان هذا سيكون أفضل مما طلبت قائمة منسدلة.xlsx