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

اخى الكريم على حامد فى الملف المرفق تجد ورقتين عمل باسم الطباعة الاولى لملف العمل بالكامل بمجرد وضع رقم المسلسل يظهر كافة التفاصيل والورقة الثانية لكل اسم على حدة بدلالة رقم المسلسل ايضا اتمنى من الله ان يكون هذا ما تريد ملاحظة ... لوجود مشكلة فى تحميل الملفات عندى على الموقع ... اذا لم يعمل الملف بشكل جيد يمكنك تحميله من الرابط التالى http://kaitect.com/ihP salim1مرتبات-على.rar

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

كيف نختار اعداداً عشوائية بين عددين (كل الارقام او بعضها حسب المطلوب) دون ماكرو و دون تكرار (فقط معادلات) مع التنبيه في حال اخترت عدد الارقام المطلوبة اكثر من الفرق بين الحد الاقصى والحد الادنى من هذين العددين كل هذا في الملف المرفق Randbetween_without repetition with Formula.rar

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

لا بديل عن CTRL + SHIFT + ENTER لان المعادلة من نوع صفيف Array_Formula و لما الحاجة لاعادة الضغط على الخلية ؟ يكفي ان تنفّذ المعادلة مرة واحدة و كلما غيرت بالخلية E2 تستحيب المعادلة وتعطيك النتيجة اذا حددت الخلية عليك و اردت الخروج لا تضغط Enter بل CTRL + SHIFT + ENTER او يمكنك الضغط على Esc (لعدم تغيير محتويات المعادلة) الافواس } يضعها اكسل اوتوماتيكياً بعد الضفط على(CTRL + SHIFT + ENTER) ليقول لك انه فهم عليك ان المعادلة من نوع صفيف Array_Formula

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

=VLOOKUP(MAX(IF($A$2:$A$100<=$E$2,$A$2:$A$100,0)),$A$2:$B$100,2) استعمل هذه المعادلة مع Ctrl+Shift+Enter و ليس Enter , وحدها اذا لم تعمل معك المعادلة استبدل الفاصلة "," بفاصلة منقوطة ";" (حسب اعدادات الجهاز عندك) لتصبح هكذا =VLOOKUP(MAX(IF($A$2:$A$100<=$E$2;$A$2:$A$100;0));$A$2:$B$100;2)

انظر آخر مشاركة في هذا الرابط

قم بعمل سجل واكتب فيه 1 لكل حقل لكي يتم تحديثه لانه الان لا يوجد فيه سجل للتحديث

date()-1

أخواني فى المرفق نموذج لكشف حساب المورد Account Payable وبه مربعين تحرير وسرد الاول خاص باختيار المورد والثاني خاص باختيار طريق الدفع نقدي او اجل اريد فتح التقرير Account_Payables عند الضغط على مفتاح معاينة التقرير بناء على شرط اختيار اسم المورد وطريقة الدفع وكذلك فتح النموذج AccountSupp بناء على نفس الشرطين Copy.rar حعمل معاينة للتقرير Account_Payables او افتح نموذج AccountSupp بناء على اختيار الشرطين

تفضل Copy2.rar

السلام عليكم ورحمة الله اضافة الى المعادالة الرائعة للاخ سليم اليك الكود التالى .... تأكد من تطابق الاسماء بشيت العملاء مع اسمائهم فى الفواتير Sub LastDate() Dim sh As Worksheet, x As String Dim LR As Long, p As Long, y As Date LR = Sheets("العملاء").Range("C" & Rows.Count).End(xlUp).Row + 5 For p = 6 To LR For Each sh In ThisWorkbook.Worksheets x = sh.Name If x <> "العملاء" Then If Sheets("العملاء").Range("C" & p) <> "" Then If sh.Range("H2").Value = Sheets("العملاء").Range("C" & p) Then y = WorksheetFunction.Max(sh.Range("C9:C1000")) Sheets("العملاء").Range("E" & p) = y End If End If End If Next Next End Sub

انسخ هذه المعادلة الى الخلية D6 استعمل Ctrl+Shift+Enter , وليس Enter ,وحدها ثم اسحب الى باقي الخلايا لا تنس تنسيق الخلايا في العامود D الى تاريخ =IFERROR(INDIRECT("'"&A6&"'!C"&MAX(--(INDIRECT("'"&$A6&"'!$C$1:$C$100")<>"")*(ROW($C$1:$C$100)))),"")

لان سيستم هو 24 ساعة وليس 12 ساعة اتفضل اليك هذا الكود Private Sub T2_AfterUpdate() Dim i If Me.T1 > Me.T2 Then If Me.T2 = #12:00:00 AM# Then i = #11:59:00 PM# - Me.T1 Me.T3 = i + #12:01:00 AM# Else i = #11:59:00 PM# - Me.T1 Me.T3 = i + #12:01:00 AM# + Me.T2 End If Else Me.T3 = Me.T2 - Me.T1 End If End Sub واليك المرفق Database1 (2).rar فقط عليك ان تكتب بدل الوقت القصير تكتب now() ,وبعدين ستعمل عملية حذف بين الوقت الاول والثاني

تفضل التعديل اتمنى يكون هو مطلوبك ملاحظة : الاستعلام يشتمل على رقم فاتورة الشراء ورقم الدفع ورقم المورد وهي كافية جدا وبكذا يكون بإمكانك عرض اي بيانات مع كشف الحساب داخل التقارير وذلك بربطه مع اي جدول Copy of warsh21.rar

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

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

لا اخي لازم بيكون موجود اضغط على كلمة sql وشوفني ماذا سيظهر عندك ؟

عفوا انت بتستخدم 2003 وانا استخدم 2010 وما عندي اوفيس 2003 لكن فتح كلمة Sql اللي في بداية لانه ما اظن بكون مش موجود فيها شوف الصورة

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