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

بعد اذن اخي علي معادلة اخرى =INDEX({100;50;75},MATCH(A2,{"عالى";"قليل";"متوسط"},0))

تفضل كان عليك رفع ملف بالمطلوب من البداية Test.xlsx

وعليكم السلام ورحمة الله وبركاته أعتقد أن خطأ #نوع! ناتج عن اختلاف فى أنواع القيم أو المتغيرات التى تريد اجراء عملية حسابية أو منطقية عليها ،مثل: أحمد + 123 = #نوع! أو 3ب6ج < 5 = #نوع! أما خطأ #حجم! ناتج عن تخزين قيمة لا يسمح بها حجم المتغير الذى قمت بتعريفه مسبقا، مثل: dim AA as Integer AA = 50000 aa = #حجم! لأن المتغير Integer يتسع حتى رقم 32767 فقط أما #خطأ! فهو خطأ فنى لاسباب مختلفة سواء العملية الحسابية كالقسمة على 0 أو .... من الاسباب التى تحتاج لمراجعة العملية التى أدت لهذا الخطأ من جديد. هذا والله أعلم

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

السلام عليكم ورحمة الله استخدم هذا الكود Sub Cases() Dim j As Integer j = 9 Do While Cells(j, "D") <> "" If Cells(j, "D") = "حضور" Then Cells(j, "K") = 100 ElseIf Cells(j, "D") = "غياب" Then Cells(j, "K") = "غياب" ElseIf Cells(j, "D") = "اجازة" Then Cells(j, "K") = "اجازة" Else Cells(j, "K") = "" End If j = j + 1 Loop End Sub

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

بارك الله فيكى اخى ابو خليل وعفاك ولكن يا سيدى انا اقصد مساحه القاعده نفسها وليس مساحه الهارد فمساحه الهارد 500 جيجا وهى تفى بالغرض ولكن ما اقصده هو مساحه القاعده نفسها مع العلم ان هناك 2 من المحلات ليس بهم انترنت من الاساس

و عليكم السلام و رحمة الله أعتقد أخي الكريم أن الحل هنا ..

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

ماذا لو كان الاسم علي ......

السلام عليكم اتمنى ان يكون هذا الحل يكفي بالغرضUpdate.mdb

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

ضع هذا في الاستعلام لديك ...... B: Replace([test];"ي";"ى")

السلام عليكم اكيد انني ادخلت الملل في قلوبكم من فورمات البحث هذه ولكن للضرورة احكام ولكل شخص رغبة معينة في تنفيذ شي معين ولعل هذا التعدد في الملفات يفي بجوانب كثيرة في البحث موضوعنا هذا اليوم طبعا فورم للبحث ولكنه يبحث ليس في ملف واحد فقط وانما يبحث في مجموعة ملفات ( تكون في ملف واحد مع الملف الرئيسي) وايضا يقوم بفتح اي ملف مغلق من هذه الملفات تلقائيا عند دخولك فورم البحث مباشرة وايضا نتيجة هذا الكم من مجموعة البحث عملت زر( للبحث افتراضي) ختى تستطيع ان تكمل كلمة البحث التي تريدها بدون ان يقوم الكود مياشرة بالبحث عند ادخال اي حرف وايضا ابقيت الخاصية السابقة للبحث التلقائي ( اختياري) (وهذا العمل يصلح لاي واحد تكون معه ملف رئيسي ومجموعة ملفات ملحقة يقوم بالبحث فيها) العمل ده طلب الاخ SAFWAT ارجوا ان نكون عملنا جولة كاملة في اغلب نواحي البحث ونرجوا من الله القبول بفضله وكرمه في هذا الشهر الكريم تقبل الله منا ومنكم صالح الاعمال ودمتم في حفظ الله ======================================== ارجوا ملاحظة الملف المعدل في المشاركة رقم 10 التعديل: في الصفحة الرئيسية اضفنا جدول يتم من خلاله التحكم في اعدادات البحث الملفات والاوراق ونطاق البحث ======================================== Class.rar

هل هذا ما تريده ارجو توضيح سبب وجود الحقل المسمي Text95 فهو يقرأ من الترقيم التلقائي حسب الوحدة النمطية الموجودة فما فائدته ؟ المرفق 111.rar

قواعد المشاركة فى الموقع و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

أتفضل / شرح فيديو للطريقة اللي انت عايزها تم رفها على الرابط ده https://drive.google.com/file/d/1JXv8N3U1mPHvjPMl3mHYJaefsbN0hkbx/view?usp=sharing دورات.accdb

السلام عليكم اولا عليك بإنشاء صفحة جديدة فى ملفك تحت اسم Welcome ثم بعد ذلك عليك بفتح موديول جديد ووضع فيه هذان الكودين : Sub CommitSuicide() With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثم بعد ذلك ضع هذان الكودين فى حدث ThisWorkBook وعليك بوضع اسم كمبيوترك داخل الأقواس اللى فى هذا السطر من الكود Select Case Environ("COMPUTERNAME") Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub وأخيراً وضع الكود التالى فى حدث الصفحة الجديدة Welcome Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك

الاستاذ يحياوي : تحية طيبة مرفق اكواد رياضية رائعة - 2 ملف - مع شرح بسيط لتطبيقات vba مع الاكسل لاستاذنا الكبير محمد طاهر وفقك الله ياسر الحافظ شرح برنامج اكسل و تطبيقات الفيجوال مع اكواد رياضية رائعة.rar

فكرة هذا الموضوع رائعة اسمحوا لي بالمشاركة بهذا الكود البسيط كود منع إضافة أوراق عمل جديدة للملف الكود يوضع في ThisWorkbook منع إضافة أوراق.rar

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

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