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

تقف بالماوس بعد العلامة السوداء مباشرة ثم تتحرك بالماوس يسارً فى اتجاه السواد فتفاجأ بتغير السواد الي اللون الرصاصي مع التعجب الشديد ! ثم تضغط CTR+Shift+S لتستدعي أمر Apply Styles و تضغط Reapply فتحل المشكلة فى كامل ترقيم الملف !!! و نقول الحمد لله 😄 المصدر

بعد اذن أستاذ ابا جودى اذا كنت تريد فتح النموذج مرة واحدة فقط استخدم حذف امر.accdb

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

انظر الى التنسيق الـ Format New Microsoft Access قاعدة بيانات (3) (1).accdb

مميزات الفورم السحرى 1-الفورم يستكشف جميع الجداول المصممة فى اى ملف اكسل 2- التعامل مع تلك الجداول من حذف واضافة وبحث وترحيل 4- ضبط عرض أعمدة اليست بوكس من خلال ضبط أعمدة الجدول 3- الفورم يكتشف المعادلات ويحميها تلقائيا 5- الفورم السحرى يكتشف اعمدة التواريخ تلقائيا 6- الفورم يقبل تدعيم الجداول بالصور تلقائيا 7- الفورم يحدد اوتوماتيكيا المكان الجغرافى للجداول داخل ملف الاكسل وهناك كثير للميزات ستكتشفها بنفسك عند العمل على الفورم السحرى هذا شرح مصور الاخ الرائع عماد الغازي بالمناسبة أشكره من كل قلبي على هذا الشرح جزاه الله خيرا الفورم_السحرى.rar

السلام عليكم ورحمة الله وبركاتة واجهة مشكلة عند النقر على زر ضغط واصلاح قاعدة البيانات وعند تحويل قاعدة البيانات( الواجهة) الى accde بظهور رسالة غريبة ولا يتم بعدها اكمال العملية سواء الضغط والاصلاح أو عملية تحويل القاعدة هذه صورة الرسالة فصرت ابحث وين المشكلة مدة اسبوعين في الاكواد لكن لم اجد اي كود يوجد به خطأ صرت ابحث في الاستعلامات ونفس الشي لم اتوصل الى اي خطأ وبعد التعب في البحث فكرت ابحث عن المشكلة في الجداول في قاعدة البيانات الخلفية كانت الجداول سليمة تمام بعد كذا رحت ابحث في الجداول المرتبطة فكتشفت ان احد الحقول قد تم تغيره وهو عبارة عن حقل قائمة منسدلة يقبل اختيار عدة قيم لكن يظهر بشكل حقل مرفق هذه الصورة قبل وهذه الصورة بعد الان عرفت وين المشكلة لكن مش عارف سببها رجعت الى حلقة البحث والاستكشاف 😖صرت ابحث عن الاكواد التي لها صلة بالحقل في النماذج مباشرة ولكن كل شي كان تمام التمام صرت ابحث في الاكواد العامة في القاعدة مثل اكواد التأمين واكواد النسخ الاحتياطي الخ ...... الى ان وصلت الى كود اخفاء الجداول المرتبطة وهنا كانت المفاجأه فبعد ايقاف هذا الكود واعادة اصلاح الجدول واظهارة اختفت المشكلة وبعد اعادة الكود للعمل وتنفيذ اخفاء الجداول ترجع المشكلة مع العلم ان المشكلة ما تصير الا مع هذا الحقل في هذا الجدول فقط فتذكرت كلمة لاستاذنا @jjafferr في احد المواضيع ( لا اتذكر الموضوع بالضبط ) وهو يقول انه قرأ ان اكواد احفاء الجداول تسبب مشاكل وهذا ما حدث معي بالفعل واحببت ان اشارككم هذه المشكلة لكي يتم اخذ الحيطة والحذر وهذا هو الكود Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing

لك كل الود والتقدير

وعليكم السلام تفضل 2.xlsm

أستاذ جعفر.. بل أتفق معك أنت!

وهذه هي المشاركة اللي اشار لها اخي كاسر ، واللي يتفق معاها اخوي ابو ابراهيم و جعفر

وعليكم السلام يمكنك استخدام هذه المعادلة =SUMPRODUCT(('بنجلاديش متابعة'!$E$2:$E$92>=$A$4)*('بنجلاديش متابعة'!$E$2:$E$92<=$B$4)*('بنجلاديش متابعة'!$D$2:$D$92="وصول")) العمال .xlsx

يأستاذ @مسفر لم يأتى فى دماغى شيىء عند وضع السؤال الا اغلاق مساعد اكسس و ما يشابهه ولم أدرك انها بهذه البساطة

QR-Code_Generator_v2.zip كنت على عجلة من امرى ولم انتبه للمرفق اثناء الرفع وقمت برفع مرفق خاطئ من فضلك قم بالتحميل المرفق مرة أخرى تم التعديل جرب يا استاذ @الوسيط واخبرنى بالنتيجة ان واجهت اى مشاكل ولا تنسي ان تحدد هذه المشاكل التى قد تواجهك من فضلك QR-Code_Generator_v2.zip

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

جزاك الله خيرا أستاذى @ابا جودى If KeyCode = vbKeyF1 Then استخدم اسم المفتاح و أشكر استاذى @kanory و أستاذى @مسفر

Private Sub Form_Load() Me.KeyPreview = True 'لابد من هذا السطر ليعمل الكود القادم او وضع TRUE علي KeyPreview من الخائص End Sub ' F1 >>---> 112 ' F2 >>---> 113 ' F3 >>---> 114 ' F4 >>---> 115 ' F5 >>---> 116 ' F6 >>---> 117 ' F7 >>---> 118 ' F8 >>---> 119 ' F9 >>---> 120 ' F10 >>---> 121 ' F11 >>---> 122 ' F12 >>---> 123 Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 112 Then ' استبدل هذا الرقم برقم المفتاح بالاعلى كما يحلو لك 'استبدل هذا السطر بالكود الذى تريده KeyCode = 0 Exit Sub End If End Sub

Private Sub Form_Load() Me.KeyPreview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 112 Then DoCmd.OpenReport "rptName", acViewPreview KeyCode = 0 Exit Sub End If End Sub 112=F1 F7=118 F12=123

تم إضافة الجزئين فى الفورم أما بالنسبة للتسلسل فيوجد دالة في ورقة العمل في العمود A لاحظ أن الليبل المقابل للتكست بوكس 1 مكتوب باسم الوردية والتسلسل يعمل بمجرد إدخال أي بيانات في العمود B بالنسبة للطلب الأخير قم بإضافة ورقة عمل واكتب النتائج المتوقعة ( التي يجب أن تأتي بمعادلات ) حتى يمكننا التعامل معها فكل أعضاء المنتدى لا يتعاملون مع الصور Book1(1).xlsm

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

استاذ محمد شكرا جدا على المجهود دا وفر على وقت كبير جدا ربنا يجعله فى ميزان حسناتك ان شاء الله ولكن هناك طلب آخر لو تفضلت المعاملة مثلا رقم MB194755584AE تكرر ظهورها فى الشيت يوم 8/6/2019 ويوم 12/6/2019 بنفس المبلغ 3400 وهذا معناه انه تم سحب المبلغ بالخطأ مرتان وهذا سبب عجز فى الرصيد حيث انه تم كتابتها فى الشيت الاخر على انها معاملة واحدة بمبلغ 3400 واحد . كيف يمكن ان اكنشف هل هناك معاملات اخرى بنفس الطريقة بالمبلغ اكثر من 50 وتكون المعاملة الواحدة مدفوع لها اكثر من مرة

مرفق الطباعة على ورقة نصف A4 تسمى (A5) كل شهادة بورقة ( يجب أن يكون لديك ورق حجم A5 وتضبط درج الطباعة أو الماكينة على نفس حجم الورق شهادات جديد مع اضافة صور للطلبة.rar

عليك السلام ورحمة الله وبركاته محاولة مني تم عمل المطلوب بدون المساس بالأكواد تم ضبط ارتفاعات الصفوف بحيث تكون الطباعة شهادنين قي ورقة A4 والسؤال هل تعرف مسمى الورق نصف A4 ؟ اسمه A5 هل تريد الطباعة عليه إذا كان الجواب بنعم فسوف تضطر إلى تغيير إعدادت الصفحة حتى تكون كل شهادة بورقة A5 شهادات جديد مع اضافة صور للطلبة.rar

أهلا بك في منتدانا تفضل يتم ذلك مباشرة بمجرد دخولك على هذه الروابط-اختر منها ما يناسبك : https://smallpdf.com/ar/pdf-to-excel https://www.hipdf.com/ar/pdf-to-excel https://www.freepdfconvert.com/ar/pdf-to-excel https://www.pdftoexcel.com/ar https://convertio.co/ar/pdf-xlsx/ https://www.ilovepdf.com/ar/excel_to_pdf

حفظك الله اخي وبارك الله لك في دعائك لي ولك ضعف ما دعوت ان شاء الله تعالي ساحاول في احد الملفات

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

ابداع استاذ سليم معادلات رائعة بارك الله فيك

تفضل اخى الكريم هذا كان برنامج جاهز عندى 2.xls

بارك الله فيك وجزاك الله كل خير

أخى الكريم كان عليك من البداية استخدام خاصية البحث بالمنتدى https://www.officena.net/ib/topic/71340-تفقيط-عربي-انجليزي/?tab=comments#comment-461513 https://www.officena.net/ib/topic/45879-من-رقم-إلى-كتابة-تفقيط-عربي-مميز/?tab=comments#comment-271888 https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355

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

اهلا بك في منتدانا الكريم تفضل هذا الرابط -كان عليك استخدام خاصية البحث في المنتدى أولا قبل رفع المشاركة https://www.officena.net/ib/topic/91235-طباعة-الشيكات-بالاكسل/?tab=comments#comment-572010

بارك الله فيك

بارك الله فيك

تم التعديل على المديول رقم 2 ليصبح بهذا الشكل Sub Macro1() Dim Arr With Sheets("Sheet1") Arr = Array(.Range("g2"), .Range("C1"), .Range("E1"), .Range("E3"), .Range("C3"), .Range("H21"), .Range("H22"), .Range("H23")) End With With Sheets("íæãíå ÇáãÈíÚÇÊ") .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "Done...", 64 Range("C6").Select ActiveWindow.SmallScroll Down:=-3 Range("g2").Select Sheets("Sheet1").Select Sheets("Sheet1").Copy After:=Sheets(1) Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = "Sheet1 (2)" Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = Range("g2").Value Range("B11").Select ActiveWindow.SmallScroll Down:=-3 Sheets("Sheet1").Select ActiveWindow.SmallScroll Down:=0 Range("c5:f20").Select Selection.ClearContents Range("C3").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-18 Range("g2").Select Selection.Copy Range("I9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub كما انه تم عمل باقى الطلبات ومن ضمنها -تم انجاز كشف حساب العميل بمعادلات المصفوفة وهذا هو الملف بعد التعديل gedyana.xlsm

اعتذر من حضرتك أستاذ محمد لضيق الوقت فقد تم عمل الطلب الأول تفضل gedyana.xlsm

وعليكم السلام أستاذ خالد يمكنك ذلك بدون اى برامج من خلال هذه الروابط والشرح https://www.youm7.com/story/2014/11/18/بالخطوات-اغلق-جهاز-الكمبيوتر-فى-الوقت-الذى-ترغب-فيه-دون/1955803 http://www.computer-wd.com/2018/11/auto-shutdown-windows-10.html http://www.doniacomputer.com/2016/10/blog-post_19.html https://www.wikikeef.com/shutdown-pc-automatically/ https://sigma4pc.com/11639/sigma-auto-shutdown https://wingiz.com/c/100024583 وهذا كمان فيديو للشرح https://www.youtube.com/watch?v=IY0xla7b9jE

تفضل 3فترات.xlsx

وعليكم السلام -اهلا بك في منتدانا الكريم https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/

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

تفضل income statement.xls قائمة الدخل - محمد الريفى(2).xlsx

تفضل بعد اذن استاذى ابراهيم كود استدعاء بيانات من القائمة المنسدلة.rar

وعليكم السلام-تفضل بطاقات العمل.xlsx

بارك الله فيك وجزاك الله كل خير واحسن الله اليك

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

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

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

تفضل VLookUP.xlsm

تفضل تجربة.xlsx

جرب على جهاز اخر انا اللاب توب عندى 64 او الاوفيس

اريد شيت من خلاله احسب التكاليف الخاصه بالمطعم حساب تكاليف