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

السلام عليكم كما عودناكم عى كل جديد فقد قمت بتصميم برنامج خاص بمحلات الجوالات لصديق لي من المملكة العربية السعودية اضع البرنامج بين ايديكم وهو مفتوح المصدر لكي تستفيدو منه الرقم السري لاكواد فيجوال بيسك 1968 والشفت ممكن به لا تحرمونا من الدعاء mobilesv.3-KSA.rar

هل يمكن لبرنامج اكسل ان يقوم بتقسيم الصورة علي مجموعة خلايا بنسبة مئوية معينة انظر لهذا الملف لتفهم ما أقصده Complete_picture.xlsx

تفضل ::بالتوفيق:: D1.accdb

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

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

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

ما شاء الله تبارك الله استفدنا من هذه المعلومات القيمة . شكراً لمعلمنا ابومحمد والزميل / محمد صلاح

اهلا وسهلا في الجدول نوع الحقل اختار النوع محسوب ووضعت المعيار التالي IIf(IsNull([AGA2]);[AGA1];[AGA1]-[AGA2]) ويعني اذا كان الحقل 2 فارغ تكون قيمة الحقل 3 تساوي الحقل 1 واذا لم يكن 2 فارغ تكون قيمة 3 تساوي1-2 ممتاز يا ابا ياسين بس انا فضلت عملها في الجدول لغرض حفظ القيمة للحقل 3 في الجدول ويمكن بذلك الاستفادة منها في الاستعلامات والتقارير بشكل اسهل

اتفضل بطريقه الاخ kha9009lid بس عملتها في الاستعلام 55.accdb

مشاركة مع اخي كاسر D1.accdb

ولك بالمثل شكرا لك

أخي @kaser906 شكراً لك بارك الله فيك .. حل في الصميم ومختصر نابع عن تمكن وخبرة بالأكسس .. جزاك الله خيراً .. واصلح الله شأنك .. وأدام الله خيرك وعطاك

ليس هناك مشكلة بالملف الذى ارسلته فالملف والمعادلة يعملان بكل كفاءة كما ترى أظن ان المشكلة في نسخة الإكسيل لديك فربما تستخدم نسخة اقل من 2010 او هناك مشكلة في نسخة 2019 غير مكتملة

وعليكم السلام- نورت المنتدى تفضل لك ما طلبت vehicle trip1.xlsx

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

اذا كان في الاستعلام جرب هذا IIf([AGA3]=null;[AGA1]) او هذا IIf([AGA3]="";[AGA1]) ويفضل ترفق مثال مصغر

يمكنك تجربة هذا الملف للأستاذ أحمد حمور https://www.officena.net/ib/topic/34679-دليل-هاتف-عصري-نسخه-عربيه-v2/page/3/ PHONE BOOK.xls

تفضل الكود داخل الملف #If Win64 Then Private Declare PtrSafe Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As LongPtr, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) _ As Long #Else Private Declare Function MsgBoxTimeout _ Lib "user32" _ Alias "MessageBoxTimeoutA" ( _ ByVal hwnd As Long, _ ByVal lpText As String, _ ByVal lpCaption As String, _ ByVal wType As VbMsgBoxStyle, _ ByVal wlange As Long, _ ByVal dwTimeout As Long) _ As Long #End If Sub btnMsgbox() Call MsgBoxTimeout(0, "اللهم صلى على سيدنا محمد", "منتدى أوفيسنا", vbInformation, 0, 4000) Call Test End Sub Sub Test() Application.OnTime Now + TimeValue("00:10:00"), "btnMsgbox" End Sub رسالة الصلاة على سيدنا محمد 2.xlsm

اذا كان هناك شيتين منفصلين فلابد ومن الأفضل عمل المعادلات بهذا الكود ويتم وضع هذا الكود فى الملف المراد وضع المعادلة به ,بعد الضغط على Alt F11 ثم فتح مديول جديد ولصق هذا الكود به وربطه بزر كما فى الملف المرسل لك Sub ToList() Dim finalrow As Long Dim wsd As Workbook Dim wsl As Workbook Dim wsdd As Worksheet Dim wsll As Worksheet 'Open Book with database Set wsd = Workbooks.Open("C:\Users\Ali Mohamed\Desktop\Next.xlsx")'لابد من تغيير عنوان الملف هذا لما هو فى كمبيوترك 'Copy using Index and match to worksheet Set wsll = ThisWorkbook.Worksheets("Sheet1") With wsll.Range("g2") < 0 wsll.Range("g2").Formula = "=INDEX([Next.xlsx]Sheet1!$B$2:$B$5000,MATCH(A2,[Next.xlsx]Sheet1!$A$2:$A$5000,0))" 'Copy row down based on first cell where formula is place finalrow = wsll.Cells(Rows.Count, 1).End(xlUp).Row wsll.Range("g2").AutoFill Destination:=wsll.Range("g2:g" & finalrow) End With 'Activate sheet where formula is placed wsll.Activate wsll.Cells(1, 1).Activate End Sub أما فى حالة نفس الملف بصفحتين مختلفين فالأمر لا يحتاج سوى معادلة Index & Match عادية ولا يحتاج الأمر الى كود =IFERROR(INDEX(Sheet1!$B:$B,MATCH(A2,Sheet1!$A:$A,0)),"")

السلام عليكم : اخوان اشلون اعمل زر حفظ البيانات بـ نعم او لا واذا عملت نعم يتم عمل نسخ احتياطية مع تاريخ اليوم والخروج من قاعدة البيانات

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

تفضل D2-kaser906.accdb

الاخوة الاعزاء محتاج معيار استعلام :- لو الحقل AGA3 فارغ يساوى قيمة الحقل AGA1

من 2010 وما فوق موجود الحقل المحسوب

انا انتقلت من اكسس 95 الى 2016 ثم حاليا 19 والحقل المحسوب موجود في 16 و19 اما الاصدارات الاخرى فلم استخدمها وبالتالي ليست لدي المعلومة

طريقة سهلة لضبط الحجم اثناء التكبير والتصغير للنموذج تحافظ الايقونات على الحجم حيث تكبر وتصغر مع النموذج الخطوات : 1- جعل الايقونات مكدس 2- تصغير الحجم الى نصف نقطة عرض والى 1 من عشرة ارتفاع 3- جعل الارتساء الافقي والعامودي كلاهما 4- جعل النموذج منبثق 5- اختار يمكن تغيير حجمه وليس مربع حوار خدعة الضبط للنماذج.accdb

مشكور يالغالي

بارك الله فيكم استاذى الفاضل

بارك الله فيكم استاذى

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

جرب هذا .... لأن المشكلة غير موجودة عندي فلذلك لا استطاع التجربة ... Application.FollowHyperlink "http://www.google.com/search?q= " & Me.title.Value & ""

جميع المتصفحات

اتاكد من هذه انا متاكد مافي شي غير اللغه

هذه للدلالة على الحقل المطلوب مقارنت قيمته في النموذج بدون الاشارة الى النموذج حقل رقمي وعلامتي & تدله ان الحقل موجود بالنموذج اما هنا فقد استخدمت الاشارة الى النموذج مباشرة لأستغني عن تعريف نوع الحقل وهو حقل نصي ويمكننا جعل الكود بهذا الشكل اذا لم نرد الاشارة الى النموذج وتعريف الحقل الرقمي والنصي x = DCount("[id_mdasa]", "[copy_mdars]", "[id_mdasa]=" & Me.id_mdasa & " AND [amm_mdesa]='" & Me.amm_mdesa & "'") ::بالتوفيق::

بعد إذن أستاذنا الفاضل علي تم وضع تقييد العمودين D و E بحيث لو أحد خلايا العمودين غير فارغ لا يقبل الكتابة في الخلية المقابلة لعمود الخلية الأخرى وأيضًا لإثراء الموضوع تم اختصار المعادلة وتؤدي نفس الغرض تفضل الملف المرفق 11.xlsx

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

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

وهذا ايضا برنامج مجانى للعيادة برنامج العيادة الطبية.rar

هذه تعتبر معادلة وتقرأ وترأى ما يتم إدخاله فلا يمكن تعديلها ولكن ماذا تقصد لو تم وضع درجة في عمود التحريرى فهو بالفعل يكون به درجة ؟!!!!!! لا افهمك يمكنك التوضيح أكثر على الملف ولكن عموما المعادلات لا ترى هذا

بارك الله فيك أستاذ عمر طالما انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب فعليك بمشاهدة هذه الفيديوهات فبها شرح ما تريد https://www.youtube.com/watch?v=Llkad07y4fE https://www.youtube.com/watch?v=J6GASMB1Fps وأيضا بهذا الرابط برنامج كامل لشئون الطلاب https://www.officena.net/ib/topic/78948-برنامج-شئون-الطلاب-كامل-ومفتوح-المصدر-فى-انتظار-تعليقاتكم/ وعلى هذا الرابط أيضا برنامج اخر للأستاذ محمد الدسوقى https://www.officena.net/ib/topic/78332-برنامج-شئون-الطلبه-للاستاذ-محمد-الدسوقي/?tab=comments#comment-503333

هذا الملف من اعمال استاذ عماد غازى لعله بفى بالغرض Total Amount from Listbox.xlsm

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

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

جرب ضبط اللغة العربية في جهازك كما بالرابط https://www.officena.net/ib/topic/86059-مشكلة-في-اللغة-بملف-الاكسل/?tab=comments#comment-545394

تفضل بالطبع بعد اذن استاذنا سليم نموذج.xlsx

بارك الله فيك هذه معادلة تاريخ نهاية الأجازة =IF(C2="","",(C2+D2)-1) وهى تعنى اذا كان لا يوجد تاريخ لبداية الأجازة فاجعل أيضا الخلية التي بها تاريخ نهاية الأجازة فارغ اى خالى من البيانات أيضا , وجزء المعادلة الأخرى اذا كان تاريخ بداية الأجازة موجود فلابد من زيادة عدد أيام الأجازة الى تاريخ البداية لكى احصل على تاريخ النهاية -ثم بعد ذلك أقوم بطرح 1 اما بالنسبة لمعادلة مباشرة العمل وهى =IF(C2="","",E2+1) وهى تعنى اذا كان لا يوجد تاريخ لبداية الأجازة فاجعل أيضا الخلية التي بها تاريخ مباشرة العمل فارغ اما الجزء الثانى اذا كان تاريخ بداية الأجازة موجود فيجب إضافة يوم واحد على تاريخ نهاية الأجازة لكى احصل على تاريخ مباشرة العمل وجزاك الله كل خير وتقبل الله منكم سائر الأعمال

اهلا بك فى المنتدى كان عليك من البداية رفع ملف وشرح المطلوب عليه-ولكنى قمت بعمل هذا الملف لك لعله المطلوب ملف للأجازة.xlsx

بسم الله الرحمن الرحيم للتسهيل في استخراج مواد الرسوب للطلبة تم عمل هذه الدالة لاستخراج المواد الراسب فيها او متغيب يشترط وجود صف الدرجة العظمى ودرجة النجاح نضع هذا الكود في موديول Function ASEEL(x As Range) Dim D As String For Each Rng In x If Rng = "" Then GoTo 1 If Rng < Cells(5, Rng.Column) Or Rng = "غ" Then D = " (" & Cells(3, Rng.Column).Text & ")" & D End If 1 Next If D <> "" Then ASEEL = D Else ASEEL = "ناجح ومنقول" End If End Function ونضع هذه الدالة في الملاحظات داخل الكشف ونسحبها نزولا كما موضح بالمرفق =ASEEL(D6:J6) وشكرا دالة معرفة لاستخراج مواد الرسوب.rar

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