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

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد ....................................................................... قدمنا فى الدروس السابقه كيفية البحث واظهار النتائج ولكن بشرط تطابق الكلمات الموجوده فى نطاق البحث مع الكلمة المدخله فى خليه البحث ........................................................................ ثم قدمنا دروسات فى اظهار النتائج بناء على تطابق الحرف المدخل فى خلية البحث مع الاحرف الموجوده فى نطاق البحث ........................................................................ نقدم اليوم درسا جديدا فى شرح كيفية استخدام conditional formatting فى البحث والتظليل بمجرد الكتابه داخل الخليه الفكره بسيطه جدا اخوانى الكرام كمان احنا ممكن نطبق الفكره دى على الاربعه طرق السابقه كل الى هنعمله اننا بعد مطبقنا الدروس السابقه هنيجى على اى درس طبقناه وهندخل على ملف الاكسيل ونتبع الاتى نفترض اننا هنطبق الدرس ده على اخر درس قدمناه مشاركه رقم 43 اتبع الشرح قم بغلق الملف ثم اعد فتحه ثم قم بالكتابه داخل التيكست وشاهد النتيجه بنفسك تقبلو تحياتى

أخي الكريم الموقع ليس لتصميم البرامج الجاهزة للعملاء وإنما هو للتعليم وتبادل الخبرات فابدأ بنفسك وصمم برنامجك وإذا وقفت أمامك نقطة معينة استفسر عنها وستجد ما يسرك

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. قد يكون موضوع الكسر موضوع شائك وفيه خلاف ، ولكن ربما يكون مفيد لصاحب العمل نفسه ، حيث أنه معرض لنسيان الباسورد الذي تم وضعه على محرر الأكواد .. الموضوع مميز لأنه يقوم بكسر الحماية بدون برامج على الإطلاق ..وبدون AddIns وبدون الاستعانة بأية برامج مجانية أو مدفوعة !! كسر محرر الأكواد بالأكواد نفسها (قنبلة الموسم) وعلى رأي المثل : علمته رمي السهام فلما اشتد ساعده رماني .. الكود قليل الأصل !! محفظش الجميل للبيئة اللي هو منها ، لأنه كسر بيئة محرر الأكواد !!! Sub HackVBA() Open "C:\Users\Future\Desktop\Test.xls" For Binary As #1 Put #1, 1, Replace(Input(LOF(1), 1), "DPB=", "DPX=", , 1) Close Workbooks.Open "C:\Users\Future\Desktop\Test.xls" End Sub المطلوب فقط أن تغير مسار الملف المراد كسره داخل الكود ، والمسار يوضع بين أقواس تنصيص .. أترككم مع الفيديو عله ينال إعجابكم وتستفيدوا منه إن شاء المولى .. ولا تنسونا من اللايكات على اليوتيوب !!!!! ....أكرر اللايكات على اليوتيوب ..فضلاً لا أمراً تقبلوا تحيات أخوكم أبو البراء

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar

تم حل المشكلة جزيت خيرا. وكثر الله من أمثالك.

تفضل أخى الكريم عله يفى بالغرض فى المرفق الأول أدخل عدد مرات الطباعة تم أدخل عدد الصفحات 1 للصفحة الاولى 2 تعنى أول صفحتين وهكذا فى المرفق الثانى أدخل عدد مرات الطباعة تم أدخل رقم الصفحة 1 للصفحة الاولى 2 للصفحة الثانية وهكذا ملحوظة : انقل زر استدعاء الفورم لأى ورقة عمل فى الملف وأى عملية طباعة ستكون على الورقة النشطة تحياتى recharche XD.rar recharche XD 2.rar

تفضل اخي الخطوات

جزاك الله خيرا

الدخول ب3 محاولات.وادا كانت لمحاولة ثالثة خطأ يغلق الملف نهائي Private Sub CommandButton1_Click() Static compteur As Byte compteur = compteur + 1 If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then Unload Me Else If compteur = 3 Then MsgBox "خطاء في كتابةكلمةالسر." & _ vbCrLf & "لايمكنك الدخول للبرنامج" & _ vbCrLf & vbCrLf & "سوف تغادر....", _ vbOKOnly + vbCritical, "كلمةالسر خاطئة" ActiveWorkbook.Close End If MsgBox "كلمةالسرغيرصحيحة." & _ vbCrLf & "ليس لديك الصلاحية للدخول", _ vbOKOnly + vbExclamation, "كلمةالسرخاظئة" TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus Me.Caption = "Entrez le mot de passe. Tentative " & _ compteur + 1 & " sur 3" i = i + 1 If i = 2 Then End End If End If End Sub

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

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

وان قالت حذام فصدقوها..فان القول ما قالت حذام لا يفتى ومالك بالمدينة ولا نزكيك على الله

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

اثراءً للموضوع اليك هذا الملف حسابات العملاء salim.rar

حياك الله ايها المحب بين اخوانك دعنا نتكلم عن الاساسات بصورة عامة وبعيدا عن كثير من التفاصيل انت بحاجة الى جدولين فقط 1- جدول المواد او ما يسمى بالاصناف ويشمل رقم الصنف ، اسم الصنف ، الوحدة ، السعر 2- جدول العمليات ويشمل رقم الصنف ، نوع العملية (بيع/شراء) ، نوع البيع (نقد/دين)، رقم العميل ، الكمية ، سعرالوحدة بقية البيانات مثل الفواتير والمجاميع والارصدة تظهر من خلال الاستعلامات والتقارير وتحتاج الى جدول لتسجيل العملاء المدينين ومعذرة لم اتمكن من رؤية المرفق لاني اعمل على الاصدار 2003

هل هذا الملف يفي بالغرض اخي الفاضل حسابات العملاء.rar

اخي راعي الغنم جرب ان تعمل انتر اكثر من مرة بعد ادخال السجل الأول !! ستجده فتح لك سجلا فارغا جديدا وهذا أساس المشكلة لدى السائل !! تحياتي

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

شاكر جهودك أخي الفاضل غسان العبيدي حقيقة استفدت كثيراً من المواضيع التي أرسلتها، وسأستخدمها في عملي، ولكن المطلوب هو أنني بصدد (صف) قاموس، وبه عدد كبير جداً من الكلمات المشكلة، وأنا ملتزم بالتشكيل المكتوب، وعملية التشكيل ليست بالسهلة، وتأخذ وقتاً طويلاً، ما أردته هو اختصار على لوحة المفاتيح (بضغطة وحدة فقط) مثلاً F1 فتحة، F2 كسرة، F3 ضمة... وهكذا، وذلك من أجل السهولة والسرعة في تشكيل الكلمات. تمنياتنا لكم بالتوفيق والنجاح دمتم بخير

بعد إذن السادة المشرفين أخي الفاضل إيهاب هل المطلوب تقريب الكسور إلى أعلى يعني لو العدد 102.11 تصير 102.25 لأن 0.11 أقل من نصف 0.25 وهو 0.125 أم إلى أسفل يعني لو العدد 102.11 تصير 102 لأن 0.11 أقل من نصف 0.25 وهو 0.125 أم تقريب فعلي فإذا كانت أقل من النصف قربت لأسفل ومن النصف فصاعدا قربت لأعلى رجاء تحديد المطلوب تماما كما هو معمول به فكل الخيارات متاحة في إكسل

اخى محمود اشكرك على سرعة تلبيه الدعوه وتغير الاسم الى اللغه العربيه ..................... اما بانسبه للخطأ فاعتقد انك عند كتابة المعادله قمت باقفال المعادله حتى اخر سطر بالجدول بمعنى ان فى المثال الذى طبقت انا عليه الشرح يبدأ الجدول من السطر 8 وينتهى بالسطر 14 فعند كتابة المعادله تكون من الخليه B8:E8 ,وليس من B8:E14 اعتقد ان هذا هو الخطأ لاحظ الفرق بين السطرين الاتيين هذه هو الخطأ =AND($C$6<>"",OR(ISNUMBER(SEARCH($C$6,$B8:$E14)))) هذا هو الصحيح =AND($C$6<>"",OR(ISNUMBER(SEARCH($C$6,$B8:$E8)))) جرب واعلمنى بالنتيجه تقبل تحياتى

مشكور على الاستجابة للتوجيهات .. الأمر لن يكون صعب بالنسبة إليك في توضيح المطلوب بالموضوع .. عموما جرب المرفق التالي ... تم تغيير البيانات في ورقة العمل المسماة (جدول الإدخال) ليتناسب مع ورقة العمل المسماة (أجور الطبيب) .. إليك الكود التالي Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim X As Long, Y As Long, Cell As Range Dim lRow As Long Set WS = Sheets("جدول الإدخال"): Set SH = Sheets("أجور الطبيب") Application.ScreenUpdating = False For Each Cell In WS.Range("F3:F16") If Not IsEmpty(Cell) Then X = Application.WorksheetFunction.Match(Cell.Value, SH.Rows(1), 0) lRow = SH.Cells(49, X).End(xlUp).Row + 1 WS.Range(Cell.Offset(, -5), Cell.Offset(, -3)).Copy SH.Cells(lRow, X).PasteSpecial xlPasteValues Cell.Offset(, 1).Copy SH.Cells(lRow, X + 8).PasteSpecial xlPasteValues On Error GoTo 1 Y = Application.WorksheetFunction.Match(Cell.Offset(, -2), Range(SH.Cells(2, X), SH.Cells(2, X + 8)), 0) SH.Cells(lRow, X + Y - 1).Value = Cell.Offset(, -1).Value 1 End If Next Cell Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Doctors' Wages.rar

السلام عليكم اخى الكريم اليك هذا الملف =IF(B3="";"";"1"&"-"&1111+ROW($A1)-1) 1-2-3- 4.rar

حيا الله اخوي ابوعبير افتح Notpad ، واكتب فيه هذا الكود: Dim WshShell, strCurDir Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory WshShell.Run strCurDir & "\Nasystry.mdb", 2 Set WshShell = Nothing واحفظه في نفس مجلد قاعدة بياناتك بصيغة vbs ، ودائما تقدر تعمل منه shortcut وتخليه على سطح المكتب لفتح برنامجك ، انقر مرتين على الملف مرفق لك البرنامج كذلك. جعفر Nasystry_Start_minimized.zip

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

السلام عليكم بعد إذنك أخي الحبيب / أحمد يعقوب كنت بدأت العمل علي الملف بدون أن أسأل هذا السؤال الهام عموما إليكم ماعملته قد يكتفي أخونا السائل ( الصدّيق) بهذا(للإستعلام فقط) تفضل المرفق وبه بعض البيانات الإفتراضية للتحقق من عمل الكود Shift_Recall_Invoice1.rar