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

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

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

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

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

السلام عليكم أقد م لكم مكتبة أكواد الاكسيس حصاد 9 سنوات نسأل الله القبولVBALibrary.rar

السلام عليكم ورحمة الله تعالى وبركاته الحقيقة بدون ان اطيل عليكم كنت اريد تحزيم قاعدة بيانات لدى وتحويلها الى ملف تنفيذى ولكن لم يعجبنى الشكل المعتاد لتثبيت اى برنامج فاردت ان يكون برنامجى مميزا ففكرت مليها فى تصميم قاعدة بيانات تقوم بتثبيت نفسها داخل الويندوز فاعاننى الله على تصميمها دون الحاجة الى تحزيمها القاعدة الت صممتها بمجرد الفتح تبدا تلقائيا فى عمل تثبيت لها داخل الويندوز كا التالى اللوجو الخاص بى ويمكنك تغييره حسب ذوقك هذا اللوجو به شى مهم جدا وهى وحدة نمطية لتغيير لون البروجرس بار وهذا ايضا اردته ان يكون مختلفا عن الاخرين ناتى بعد ذلك الى نموذج التعريف الخاص بالبرنامج ويمكنك كتابة تعريف بسيط بالبرنامج وذلك لتعريف المستخدم ببرنامجك . لقد تركته فارغا ثم بعد ذلك نموذج الشروط والاتفاقيات الخاصة بك ويجب ان يوافق عليها المستخدم لمتابعت التثبيت . ولقد تركتها فارغه ثم بعد ذلك نموذج اكود التفعيل وذلك للتاكد من المالك او المشترى وبه كود بسيط فقط عند كتابة اربع حروف فى كل مربع نص يقوم بالانتقال الى المربع التالى تلقائيا كود التفعيل هو 1111222233334444 والان مع نموذج مكان التثبيت وبه اكواد مهمه جدا اتمنى ان تستفيدو منها اولا كود مكان تثبيت الويندوز وكود التغيير واختيار مكان اخر غير مكان الويندوز واجهتنى مشاكل كثيرا فى مسالة الصلاحيات الخاصة بالويندوز فاضررت الى انشاء مكان اخر غير Program file اسميته Program RK قد يسال سائل ولماذا RK اجيبه قائلا ملكش دعوه دا كلمة سر ههههههههه هذا هو الفولدر الخاص ببرنامجى وهذه الصورة بعد التنصيب والان مع نموذج التنصيب والشرح بداخله وبيمكنك الوصول اللى برنامجك بسهولة من سطح المكتب او قائمة ابدا وذلك لان البرنامج يقوم بعمل شورتكت لهم تلقائيا على سطح المكتب وقائمة استارت صورة من سطح المكتب وبعد التثبيت يقوم البرنامج بمسح كافة النماذج والجداول المؤقتة كنت قد انشائتها لتساعدنى فقط فى التنصيب ستجد برنامجك بعد التثبيت خالى من نماذج التثبيت هذه اما البرنامج الذى قمت بالتثبيت من خلاله فسيظل كما هو وذلك اذا احتجت الى التثبيت من جديد اتمنى ان ينال اعجابكم نظرا لنفاذ حجم رفع المرفقات سارفعه فى المشاركة التالية ان شاء الله والان مع البرنامج اتمنى ان ينال على اعجابكم . Elsayed Pro.rar

اكتب هذه المعادلة =YEAR(TODAY())

السلام عليكم اذا كانت كل القيم بنفس الصيغة يمكن استعمال الطريقة التالية TextBox1 = Left(TextBox1, 2) & "." & Mid(TextBox1, 2, 6) & "," & Mid(TextBox1, 6, 2) & "." & Right(TextBox1, 6)

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيكم و لكم إخواني الأعزّاء و أساتذتي الأفاضل : ياسر خليل أبو البراء أبو محمّد الأمين حسام عيسى جزاكم الله خيرًا وزادها بموازين حسناتكم فائق إحتراماتي و محبّتي

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

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

أخي الكريم وائل جرب الملف المرفق Sub Search_Using_Arrays() Dim Arr, Temp, I As Long, Counter As Long Dim strWord As String strWord = InputBox("أدخل كلمة البحث") If strWord = "" Then Exit Sub Application.ScreenUpdating = False With Sheet1 Arr = .Range("B2:B" & .Cells(Rows.Count, 2).End(xlUp).Row).Value ReDim Temp(1 To UBound(Arr, 1), 1 To 1) For I = 1 To UBound(Arr, 1) If InStr(Arr(I, 1), strWord) > 0 Then Temp(I, 1) = strWord Counter = Counter + 1 End If Next I .Range("A2").Resize(UBound(Temp, 1), UBound(Temp, 2)).Value = Temp If Counter >= 1 Then .Range("A1:B1").AutoFilter With .Range("A1:B" & .Cells(Rows.Count, 1).End(xlUp).Row) .AutoFilter Field:=1, Criteria1:="<>" .Offset(1).SpecialCells(xlCellTypeVisible).Copy Sheet2.Range("A" & Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1) .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete End With .Range("A1:B1").AutoFilter End If End With Application.ScreenUpdating = True End Sub تقبل تحياتي Search For Specific Text Using Arrays YasserKhalil V2.rar

البرنامج يعتمد علي معدلات الساعة حيث يصلح للمنشات الصناعية والتجارية التي تعتمد علي معدل الساعة للعاملين حيث يتم احتساب اضافي وتاخير ( الساعة تحسب بساعة ونصف ) ويتم فيالنهاية حساب راتب كل موظف وستحقاقاتة وخصوماتة ويعطيك الصافي طريقة التعامل مع البرنامج : اولا من صفحة قوة المصنع يتم ادخال كل اسماء الموظفين او العمال برواتبهم ثانيا يوجد صفحة للسلف بتسمع في خانة شيت كل موظف علي حدة ثالثا عند البحث عن اسم اي عامل يكون عن طريق الضغط مرة واحدة علي الاسم فيتم نقلك الي شيت العامل ويتم ادخال حضورة وانصرافة مثلا يوم السبت الحضور( 8 ) والانصراف ( 5 ) وهكذا اي استفسار انا معاكم وبرجاء التعليق ولاتنسوالدعاء بظهر الغيب

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتة اليوم فيديو مميز هيفيد كتير جدا من اعضاء المنتدى وخصوصا كل من يعمل فى مجال المرتبات والماليات وهو كيفية عمل مفردات مرتب لموظف باستخدام الدالة vlookup اتمنى من الله عزو جل ان ينال اعجابكم https://youtu.be/TXTWaMOKtTI

غير تنسيق الخلايا الي عام او رقم

النتيجة كانت 07/08/1905 والمطلوب ان تكون السنة الحالية فقط 2016

المتاخرين عن الدفع.rar

و عليكم السلام و رحمة الله و بركاته ... اخي صالح ... ربي يبارك بك و يرزقك من حيث لا تحتسب ...

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

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

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

هل يكفي التنسيق الشرطي ؟ =AND(SUMPRODUCT(--(D3:L3="");--((O3:W3)<TODAY()))<>0;C3<>"")

السلام عليكم ورحمة الله وبركاته ما أستطيع قوله ...غاية في الروعة والإتقان...جزاكم الله خيراً..

السلام عليكم ورحمة الله وبركاته أخي الحبيب عبد العزيز أعزكم الله ..بارك الله بك وبأعمالك المتميزة ...جزاكم الله خيراً وإلى المزيد من الأفكار النيرة ...تقبل تحياتي والسلام عليكم

بارك الله فيك أخي الغالي ياسر العربي تسلم الأيادي يا كبير .. جزاك الله كل خير

السلام عليكم ورحمة الله نضع لكم اليوم طريقة تحويل الدالة Vlookup الى كود مثالين احدهم عند الضغط على زر يتم جلب البيانات والاخر عند كتابة الكود يأتي بالنتيجة مباشرة المثال الاول الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim myrg1 As Range If Target.Column = 10 Then Set myrg1 = Sheet2.Range("b5:e30") On Error Resume Next Application.ScreenUpdating = False sheet1.Range("k" & Target.Row & ":" & "m" & Target.Row).ClearContents sheet1.Cells(Target.Row, "k") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 2, 0) sheet1.Cells(Target.Row, "l") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 3, 0) sheet1.Cells(Target.Row, "m") = Sheet2.Application.WorksheetFunction.VLookup(Target.Value, myrg1, 4, 0) Application.ScreenUpdating = True End If End Sub للتحميل اضغط هنا المثال الثاني الكود Sub Yasser() Dim myrg1 As Range Dim i As Long Set myrg1 = sheet1.Range("b5:e30") For i = 6 To 30 Application.ScreenUpdating = False On Error Resume Next sheet1.Cells(i, "k") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 2, 0) sheet1.Cells(i, "l") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 3, 0) sheet1.Cells(i, "m") = sheet1.Application.WorksheetFunction.VLookup(sheet1.Range("j" & i), myrg1, 4, 0) Next i Application.ScreenUpdating = True End Sub للتحميل اضغط هنا تقبلو تحياتي

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

السلام عليكم زيادة في التوضيح الشبكة السعودية لها عدة فروع 1 , 2 , 4 , 8 فإذا كانت العملية صادرة من الفرع ( 1 أو 8) فإن البنك يقوم بخصم نسبة 0.7% أما إذا كانت العملية صادرة من الفرع ( 2 أو 4) فإن البنك يقوم بخصم نسبة 0.8% ولذلك اصبح لابد من التحقق من (رقم الفرع و النوع ) قبل الخصم أخي إيهاب هذا بالنسبة للشبكة السعودية , ماذا عن البقية ؟

الحمد لله الذي بنعمته تتم الصالحات جزيت خيراً أخي العزيز وائل على دعائك الطيب المبارك ، ولك بمثل إن شاء الله أحبك الله الذي أحببتنا فيه ********** لو إنت فهمت اللوغاريتمات والكل فهم ، يبقا أبشر .. مفيش حد هيكون عنده مشاكل واحتمال المنتدى يقفل وكل واحد يروح بيته إن شاء الله بالصبر والعزيمة والإرداة للتعلم تصل إلى مبتغاك .. وأنا لست إلا متعلم مجتهد تقبل تحياتي

الله أكبر ما شاء الله تمام كده يا أخى الحبيب بارك الله فيك وجزاك خيرا بالله عليك مكنش زعلان منى لطلبى لتعديل لم أنتبه له أنا عارف أن أنا تعبتك معايا (نفسي افهم اللغورتيمات اللى بتكتبوها دى علشان متعبكش بس مش عارف مش عايزه تتعدل في دماغى) نحبكم في الله زادكم الله علما وحلما

في اي نموذج بحث تقصد ...

http://www.ahlalhdeeth.com/vb/showthread.php?t=156661 http://www.ajurry.com/vb/showthread.php?t=816 http://www.mktaba.org/vb/showthread.php?t=12277 http://www.mazameer.com/vb/showthread.php?t=158731 انظر ستجد الحل لمشكلتك باذن الله في الروابط السابقة والسلام عليكم

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

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

السلام عليكم استعمل اخي هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 14 And Target.Row > 2 Then If IsDate(Target.Value) = True Then For i = 1 To 9 Target.Offset(, i) = DateAdd("m", i, Target.Value) Next End If End If End Sub عندما تكتب التاريخ ، باقي التواريخ تسجل تلقائيا

السّلام عليكم و رحمة الله و بركاته ليس أروع من كلامك الطيّب أخي و أستاذي الغالي " أبو محمد الأمين " شرّفني بمرورك العطر .. و نوّرت الموضوع جزاك الله خير الجزاء و زادها بموازين حسناتك فائق إحتراماتي 13687352251.gif

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

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

#,##0.00;-#,##0.00;""

ما شاء الله جزيت خيرا

السّلام عليكم و رحمة الله و بركاته روعة أخرى من روائع إبداعاتك رائع أخي الغالي " حسام" .. بارك الله فيك و لك و جزاك خير الجزاء و زادك من علمه و فضله و الله ليك وحشة يا صقر يا غالي خالص تحيّاتي

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

الخطأ يوجد مسافة فارغة في اول الجملة بين علامتي التنصيص " behavior entering field"

و عليكم السلام و رحمة الله و بركاته ... اخي انت وضعت الحقل في الاستعلام ,,, لكن لم تضعه في مصدر النموذج ...

عاشت ايده هذا الاستاذ ...

في المديول الذي اسمه Defs اضفت هذا السطر Public ShowUser As String وفي نموذج كلمة المرور frm-UserLogon اضفت هذه السطر في آخر حدث زر دخول ShowUser = MyUser.UserName ثم في النموذج وايضا في التقرير وضعت هذا السطر txtx = ShowUser وافعل ذلك في جميع نماذجك وتقاريرك المرفق هو المرفق السابق نفسه مختصرا اسم الدخول admin وكلمة المرور 2439 up2.rar

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

ب إذن الأستاذ يوسف عطا الكود يوضع فى أصل ورقة thisworbook والدخول من خلال فيجول بيسك Book1.rar