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

السّلام عليكم و رحمة الله و بركاته أحبّتي الأكارم .. هذه إحدى الطّرق لاستعراض البيانات القاعديّة على اليوزرفورم .. العملية ليست جديدة و إنّما أردت فقط أنْ يكون تفكيري على منتديات " أوفيسنا " .. ونتقاسم الأفكار مع الأحبّة الكيفية مشروحة بالكود داخل الملف أدناه .. فائق إحتراماتي استعراض البيانات.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

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

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

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

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

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

اقترح الحل فى الاكواد بمعنى الصنف ص وعبوته 1/4 لتر يساوى ص1/4 يعطي السعر المدخل

السلام عليكم ورحمة الله نضع لكم اليوم طريقة تحويل الدالة 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% ولذلك اصبح لابد من التحقق من (رقم الفرع و النوع ) قبل الخصم أخي إيهاب هذا بالنسبة للشبكة السعودية , ماذا عن البقية ؟

جرب الكود التالي Sub Add_Rows() Dim I As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With ActiveSheet I = ActiveSheet.UsedRange.Rows.Count For I = .Cells.SpecialCells(xlLastCell).Row To 6 Step -1 If Len(Trim(Cells(I, 2))) <> 0 Then Rows(I).Insert Next I Rows(.Cells.SpecialCells(xlLastCell).Row).Copy Rows(.Cells.SpecialCells(xlLastCell).Row + 1).PasteSpecial Paste:=xlPasteFormats End With Application.CutCopyMode = False Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub Sub Delete_Rows() Dim I As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual I = ActiveSheet.UsedRange.Rows.Count For I = Cells.SpecialCells(xlLastCell).Row To 6 Step -1 If Len(Trim(Cells(I, 2))) = 0 Then Rows(I).Delete Next I Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub تقبل تحياتي

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

اخى الفاضل الاستاذ محى الدين جزاكم الله خيرا على مروركم الرائع ----------------------------------------------- الاخ الحبيب ياسر انا اول مره اشوف فورم على شكل معين او مثلث الفورم معروف انه مستطيل او مربع عموما انا سجلت فيديو بالمرفقات هتلاقيه بس مش عارف هيشتغل او لا عموما جرب ------------------------------------------- استاذى الحبيب ابوحنين جزاكم الله خيرا لمروركم العطر وان شاء الله نطور الافكار فى عمل حاليا بجهز له ان شاء الله فور الانتهاء ارفعه تقبلوا جميعا تحياتى capture-2.zip

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

يصبح الكود بهذا الشكل hanouf-TEST2.zip

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

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

السلام عليكم استعمل اخي هذا الكود 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]""

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

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

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

=SUBSTITUTE(ADDRESS(MAX(IF(N4=($A$1:$H$12);ROW($A$1:$H$12);0));MAX(IF(N4=($A$1:$H$12);COLUMN($A$1:$H$12);0)));"$";"") مطلوب بحث عن رقم الخلية.rar

نسخ التنسيق السلام عليكم ورحمة الله وبركاته إخوتي الكرام مجرد ومضة : كيف ننسخ التنسيق ونلصقه في عمود أو صف؟ نحدد الخلية المراد نسخ تنسيقها ثم نضغط Click ثم Ctrl+Shift+سهم للأسفل أو الأعلى عندما ترغب لصقها في عمود حسب موقع الخلية من العمود. أو Ctrl+Shift+سهم لليمين أو اليسار عندما ترغب لصقها في صف حسب موقع الخلية من الصف. ويمكننا أيضاً نسخ التنسيق بضغطتين لاستخدام لصقه عدة مرات أو في خلايا متفرقة أرجو أن يثري إخوتي الموضوع بما لديهم من علمٍ يخص نسخ التنسيق ولصقه. والسلام عليكم ورحمة الله وبركاته.

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

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

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

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

و عليكم السلام ورحمة الله و بركاته ... تستطيع عمل حقل في الاستعلام ... فمثلا الحقل الذي تريده اسمه " aadd " تعمل حقل جديد كما يلي aadd2: iif(isnull[aadd];"لا يوجد";[aadd])

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

كود رسالة تحذير عند فتح الملف رسالة تحذير.rar

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

الاخ / الاستاذ يحياوي : لقد قمت بتجميع بعض من الاكواد التي ارفقتها حضرتك واضفت اليها بعض من الاكواد التي تعلمتها من اساتذة هذا المنتدى الرائد ضمن ملف واحد ( والحقيقة لا اعرف ان كنت قد وفقت في هذا التجميع والشرح ) ولكن الغاية ان يطلع عليها ويستفيد منها الاخوة الاعضاء المبتدئين في الاكواد امثالي اشكرك اخي يحياوي على الفكرة ... وارجوا بداء الرأي ان كان الملف المرفق يستطيع الاخوة الاستفادة منه وفقك الله والسلام ياسر الحافظ اكواد متفرقة.rar

كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة DisplayFullScreen.rar