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

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

نزولا عن رغبة الاحبة بتزويده ببرنامج محاسبة شركات شامل اضع بين ايديكم هذا العمل المتواضع User Name : admin Password : 1 أي رقم سري يواجهكم خلال استخدام البرنامج استعمل 12345 أي سؤال ان اجاهز Accounting Prog.rar

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

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

كلنا تلاميذ ومازلنا نتعلم أخي أبو @ ابوآمنة شكرا لك الحمد لله ::بالتوفيق::

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

كل المحبة والاحترام

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

شكرا على إطرائك @qathi

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

جرب غير نوع الخط بالمتصفح

تم وضع مثال على الرابط التالي

استاذنا / @عبد اللطيف سلوم ابو اشرف جزاك الله خيرا تنسيق جميل ماشاء الله جعله الله في ميزان حسناتك كثيرا من الاخوان سوف يستفيدون منه ومن افكاره

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

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

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

تم ضبط الملف وتم الإرسال

أهلا بك في المنتدى-تفضل طالما انك لم تقم برفع ملف مدعوم بشرح كافى ووافى ,يمكنك رؤية هذا الفيديو https://www.youtube.com/watch?v=E2MVMaskbJs

بارك الله فيك أستاذ عمر طالما انك لم تقم برفع ملف مدعوم بشرح كافى عن المطلوب فعليك بمشاهدة هذه الفيديوهات فبها شرح ما تريد 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

لماذا تصعب على نفسك ؟!!!! ولما لا تضع هاتين الصفحتين فى ملف واحد بدل من ملفين ؟! عموماً تفضل لك ما طلبت Basic.xlsm Next.xlsx

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

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

بعد اذن استاذى الجليل ومعلمى القدير ووالدى الحبيب الاستاذ المبجل استاذ @jjafferr هذه النسخه المحموله من البرنامج وبضاعتكم ترد اليكم لو تتذكر يا معلمى موضوعكم الشيق احمل ملفاتك الهامة بقاعدة البيانات 1- عند الفتح للقاعدة للمرة الاولى يتم الاتى انشاء مجلد رئيسى بمسار القاعدة باسم Program Files بتم داخله انشاء مجلد باسم Utility يحتوى على 1- zint.exe برنامج منشئ الباركود 2-Commandline.txt الاوامر الخاصة بمنشئ الباركود 3-manual.txt دليل الاستخدام 4-QR_&_Barcode_Reader_(Pro)_2.2.4-P.apk برنامج ماسح الاكواد للجوالات التى تعمل بنظام الاندرويد نسخة كاملة ومحدثه يتم كذلك انشاء مجلد باسم QR images يحتوى على 1- QRCode.png صورة الباركود لهذا النوع QR Code 2- PDF417.png صورة الباركود لهذا النوع PDF 417 3- Barcode.png صورة الباركود لهذا النوع Code 128 بخصوص برنامج الجوال لنظام الاندرويد QR_&_Barcode_Reader_(Pro)_2.2.4-P.apk هذه الصور توضح الانواع التى يستطيع مسحها وقراءة بياناتها على الجوال كما ان للبرنامج مميزات رائعة QR-Code_Generator.zip

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

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

جزاك الله كل خير أستاذ مجدى ورحم الله والديك

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

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

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

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

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

و للتجميع هذه طريقة أخرى فعالة = نعم أستاذ بارك الله فيك الخاصية evaluate تقوم بتقييم أى معادلة يعنى لو عندك معادلة شغالة بدون مشاكل فى الشيت يمكنك تقييمها من خلال الكود باستخدام evaluate و تقييمها معناه حسابها و إرجاع قيمتها النهائية " القيمة و ليس المعادلة كما شاهدت فى ملفك بشرط ألا تزيد حروفها على 255 حرفا أيضا لا نضع علامة "=" معها هكذا Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))" و هذه الخاصية مشابهة لخاصية calculate = هذا المطلوب بسطر واحد من الكود وبدون أن تظهر المعادلة أصلا فى الخلية درة غالية لكن ما تغلى عليكم كل عام أنتم بخير أخى ضع السطر التالى فى حدث نقر الزر Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))") كما يمكنك استخدام دالة sum هكذا Range("x5") = Application.Evaluate("SUM((P5:P1500=p5)*T5:T1500)") رابط المشاركة