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

الأخ الفاضل صالح إليك الملف المرفق بمجرد تسجيل وقت الانصراف يتم تسجيل مجموع ساعات العمل Time Calculate V2.rar

امثلة بسيطة ارجوا ان تنفعنا جميعا صيغة الدالة DLookup DLookup(expr, domain [, criteria] )‎ expr( مطلوب) اسم الحقل domain( مطلوبة) اسم الجدول/الاستعلام criteria( اختيارية) الشروط دا مثال بسيط : عازوين نعرف اسم الصنف الذي كوده 15 في جدول الاصناف اسم الجدول : items اسم الحقل الذي يحمل أرقام الاصناف : code_items اسم الحقل الذي يحمل أسماء الاصناف: items_Name كود: MsgBox DLookup("[items_Name]", "items", "code_items=15") ممكن ناخد كود الصنف من مربع نص موجود في نموذج بدلاً من التصريح في الدالة عن كود الصنف لنفترض مثلا أن مربع نص موجودٌ في النموذج باسم txtItemsCode كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode) ممكن ناخد قيمة كود الصنف من نموذج آخر بس بشرط أن يكون مفتوحاً ، فلو كان txtItemsCode موجود في نموذج آخر باسمfrm1 فإن الكود سيأخذ الشكل التالي : كود: MsgBox DLookup("[items_Name]", "items", "code_items=" & Forms!frm1!txtItemsCode) ملحوظة بالنسبة للشروط يجب أن تأخذ في الاعتبار نوع بيانات الحقل الذي نعتمد عليه في الشرط ، في المثال السابق كان حقل نوع بياناته (رقم) ، فلو كان نوع بياناته (نص) سيكون الكود بالشكل التالي :code_items كود: MsgBox DLookup("[items_Name]", "items", "code_items='" & Me.txtItemsCode & "'") طب لو كان نوع بياناته (وقت/تاريخ) الكود هيبقى كدا كود: MsgBox DLookup("[items_Name]", "items", "code_items=#" & Me.txtItemsCode & "#") وشكر الله لكم جميعا

إن الحمد لله نحمده ونسـتعينه ونسـتغفره ونتـوب إليه ونعـوذ بالله من شـرور أنفسـنا وسـيئات أعمالنا من يهده الله فلا مضل له ومن يضـلل فلا هـــادي له ، وأشــهد أن لا إله إلا الله وحــده لا شــريك لـه وأشهــد أن محمــداً عبـــده ورســـوله . ( يا أيــها الذين آمــنوا اتقـوا الله وقولوا قـولاً ســـديداً يصلـح لكم أعمالكــم ويغـفر لكم ذنوبكــم ومـــن يطــع الله ورســـوله فقــد فــــاز فـــوزاً عظيماً) . قد بدأت فكــرة إطــلاق مجـلة أوفيســـنا خــلال شــهر فـبراير/ شــباط 2014 م وبدأنا الدراسـة في هـذا الجانب، واضـعين نصــب أعـيننا أهـمية أن تكـون هناك إضــــافـــة حــقيقية لما هــو موجود في الساحة، وإلا فلا داعــي لزيــادة الأعـباء وتحمل جهـود لا داعي لها، وتوصلنا بعد دراسات متأنية إلى أهـمية إيجـاد مجـلة متنوعة شــاملة تسـاهم مع موقــع أوفيسـنا المتميز في تحـقيق وتعظـيم الأهــداف تلبي حاجة المستخدم العربي لما هـو جديد ومفـيد في سـاحات الأوفـيس وملحقاته والبرمجـة , وشـتي العلــوم ونشـر الخــير بين الناس . والمهـم أن تعـرض هذه الأهداف والمنطـلقات بصـورة متدرجة ومتأنية حـتى نتمكن من إيصـالـها بوضـوح، وحتى يتمكن الجميع من فهمها. ودعوة للجميع ألا يبخلوا علينا بآرائهم ومقترحاتهم وتسديداتهم ومشاركاتهـم وفـق الله الجـميع لما يحـب ويرضـى وصلى الله وسلم على نبينا محمد وأله وصحبه أجمعين. وســدد الله على طـــريق الحق خـــطانا. والحمــد لله رب العالمــين. اخيكم / ضاحي الغريب مجلة اوفيسنا الدورية - العدد الرابع - يونيو 2014م عدد خاص بمناسبة شهر رمضان المبارك تصفح العدد تحميل العدد الإشتراك بالمسابقة الثقافية لعدد يونيو إجابات مسابقة العدد السابق لقسم الاكسيس أعداد المجلة السابقة مجمعة للتواصل معنا

السلام عليكم ورحمة الله وبركاته **************** إخواني الكرام في المنتدى الغالي أقدم لكم دالة في منتهى الجمال والروعة صادفتني أثناء تصفح الانترنت ، تقوم الدالة باستخراج القيم الغير مكررة في عمود وعدد مرات تكرار هذه القيم في العمود المجاور الدالة المعرفة بهذا الشكل Function CountUniq(Rng As Range, Ref As Long, Key As Integer) Dim E With CreateObject("Scripting.Dictionary") For Each E In Rng.Value If E <> "" Then .Item(E) = .Item(E) + 1 Next CountUniq = IIf(Key = 1, .keys()(Ref - 1), .items()(Ref - 1)) End With End Function وإليكم ملف مرفق لتطبيق الدالة ولمعرفة كيفية الاستفادة منها أرجو أن تنال إعجابكم أخوكم أبو البراء Count Unique UDF Function.rar

MsgBox DLookup("[items_Name]", "items", "code_items=" & Me.txtItemsCode)

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

تصدق بالله انا كنت لسه بكتب مشاركة عنها طب انتظر هاكتب كام مثال

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

لا لا لا ههههههههه متاكولش بعقلى حلاوة شخلل علشان تعدى هههههههههه :dance1: يعنى اختار ن الموضوع مجاب يعنى ههههههههه فعلاً فعلاً أخي الكريم هذا هو المطلوب بعينه :) جزاك الله عني كل خير، وأسعد الله أيامك الدالة DLookUp هي من أتعبتني بإدراج الميزانية في التقرير.. لك خالص الشكر عزيزي مارد.

أسف أستاذ مارد ما رأيت ردك

نص العما ولا العما كله يا أبو صلاح

و الله يا استاذ / ياسر تشكر بردو اهو نبص على الماوس و نمشى وراها اصلى انا تعليمى francais

هاتفضل طول عمرك برنس ربنا ما يحرمنا من أعمالك ويعطيك الصحة والعافية وطولة العمر يا حبيب قلبى يا غالى يا أ / ياسر خليل جزاك الله كل الخير

ده انا غلبان هو الموضوع بتاعنا و لا ايه فين الاخ يلا ادينا بنتسلى

أخي الفاضل صلاح مخلينك للحاجات الجامدة اللي فيها شغل جامد .. خليني أنا مع الغلابة مشكور على كلماتك الطيبة وشعورك الطيب

دايما سباق انا كنت هاقوله كده بس حبيت اتأكد من الملف بس انت مش سايبلنا حاجة نعملها و لعله يكون المطلوب و الاخ الفاضل يحدد الاجابة كأفضل اجابة حسب التعليمات

تفضل أخي الحبيب Private Sub Worksheet_Change(ByVal Target As Range) 'إذا كان عدد الخلايا التي سيتم التعامل معها أكبر من واحد يتم الخروج من الإجراء الفرعي If Target.Cells.CountLarge > 1 Then Exit Sub 'إذا كانت الخلية الهدف التي سيتم تعديلها في أي صف أكبر من الصف رقم 1 'كما أنها في العمود الثاني يتم تنفيذ التالي If Target.Row > 1 And Target.Column = 2 Then 'الخلية المجاورة للخلية الهدف With Target.Offset(, 1) 'يتم وضع المعادلة التي تحقق المطلوب والحصول على القيمة فقط .Formula = "=MOD(" & (Target - Target.Offset(, -1)) & ",1)": .Value = .Value End With End If End Sub تقبل تحياتي

الأخ الحبيب صلاح واخد ميرسي على واخد بابا غنوج ..أما واخد خرستوبولي فمعرفوس والله يا خواجة بيجو ...ممكن أجيب لك واخد كتيوفان (حلو بعد الأكل خبيبي)

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

السلام عليكم جميل جدا اخي عبدالله مجهود ممتاز وتسلم ايدك واسمح لي باخذ بعض الافكار منه في بعض برامجى بارك الله فيك

ضاقت فلما استحكمت حلقاتها فرجــــــــــــت وكنت أظنها لا تفرج فلا لليأس والقنوط ...نعم للتفـــــــــــــــــــــــــاؤل....على الرغم من كل ماهو محدق بنا وبأهلنا في شام العز.

للإفادة أقتبس من مشاركة الأخ برقش هذه قوله : والله ولي التوفيق

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

خير لقيت حد حاسس بالمحاسبين الغلابة شكرا لك اخى الكريم مجهوز رائع وبرنامج اروع

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

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

الأخ الكريم أحمد إليك الملف المرفق عله يفي بالغرض Sub HideRowsUsingSpinner() Dim lRow As Long Application.ScreenUpdating = False If Not IsEmpty(Range("F3")) Then Cells.EntireRow.Hidden = False lRow = Range("F3").Value + 4 Rows("" & lRow & ":39").Hidden = True End If Application.ScreenUpdating = True End Sub تقبل تحياتي Hide Rows Using Spinner Form Control.rar

شاهد هذا الرابط وقم بالتنزيل http://www.microsoft.com/en-eg/download/details.aspx?id=39379

جزاك الله خيرا عمل رائع

فقط لا تنسونا من صالح دعائكم

الاخوة : مارد ، عبدالله ، ابراهيم جزيتم خيرا

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

أبني وصديقى ومعلمي أبي البراء ليس بين الأب وولده من عتاب واسمح لي أن اعتبرك أبني حيث أنى رزقت ببنتين فقط الأولى صيدلانية والثانية دكتورة اقتصاد انجليزي بالجامعة فأنا يشرفني أن تكون أبني وربنا يديم عليك أخلاقك الرائعة وشكرا مرة أخرى وهذا موقعى المتواضع الذي لم يتم تعديله من سنوات بسبب توجهي للكتابة الدينية http://raouf2009.webs.com

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

السلام عليكم و رحمة الله و بركاته .. khezzaniprg64-5.rar

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

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

السلام عليكم... أخي العزيز cococo... الزيادات التي على المعادلة لا بد منها إذا كان هناك أناس يستخدمون نفس الملف أما إذا كان ملف شخصي فليس لها داعي . "صدق أو لا تصدق" لقد كان سبب تأخري في الرد عليك هو بعض المشاغل أولا عمل خطوة واحدة لإنجاز الملف . وعندما أنتهيت وجئت لكي أرفق الملف وجدت نفس الفكرة بالضبط التي عملتها أخي؟؟ سبحان الله توارد خواطر... فصممت خطوة واحدة آخرى وأرفقتها في نفس ملفك وإليك الملف المرفق . وأعتقد أننا في هذه الحالة متعادلان. :') ملاحظة: الصفر في رأس القائمة لقد قمت بحذفه ولم يؤثر على النتيجة. وأخيرا : المنافسة الشريف جميلة وفي الإبداع تكون أجمل... مع خالص شكري وتقديري Book3.rar