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

السلام عليكم كما عودناكم عى كل جديد فقد قمت بتصميم برنامج خاص بمحلات الجوالات لصديق لي من المملكة العربية السعودية اضع البرنامج بين ايديكم وهو مفتوح المصدر لكي تستفيدو منه الرقم السري لاكواد فيجوال بيسك 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)),"")

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

تفضل D2-kaser906.accdb

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

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

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

لايوجد مشكلة تفضل غيرنا موقع شرط حقل البحث فقط D2.accdb

جميل استاذ عبداللطيف الله يعطيك العافية

جرب المرفق 55.accdb

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

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

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

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

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

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

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

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

عمل مبارك ورائع أخي وصديقي عبداللطيف وإلى الأمام

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

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

بارك الله فيك

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

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

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

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

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

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

السلام عليكم ورحمة اله استخدم هذا الكود Sub DelRows() Dim x As Integer, i As Long, y As Long y = Sheet1.Range("A" & Rows.Count).End(xlUp).Row For i = y To 2 Step -1 x = WorksheetFunction.Days360(Cells(i, "A"), Date) If x < 45 Then Cells(i, "A").EntireRow.Delete End If Next End Sub

بسم الله الرحمن الرحيم للتسهيل في استخراج مواد الرسوب للطلبة تم عمل هذه الدالة لاستخراج المواد الراسب فيها او متغيب يشترط وجود صف الدرجة العظمى ودرجة النجاح نضع هذا الكود في موديول 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

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

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