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

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

السلام عليكم الف مليوووووون مبروك والى الامام دوما............

أخى الحبيب ( أبو_حنين ) شكرا أخى على مرورك وكلماتك ، وجزاك الله عنى خير الجزاء ولكن أخى الغرض من عمل هذا الملف كان العديد من الأسباب: 1- أن نبتعد عن عمل الكود عن طريق تبسيط المعادلة 2- أن أحقق مايعانية البعض منا من أخطاء أثناء الكتابة فى عمود فنحطأ ونكتب فى العمود المجاور له 3- ليس الغرض من الملف عدم حذف ماتم كتابتة ولكن عدم الخطأ فى الكتابة لأن عند غلق الملف ( locked ) لاتستطيع الكتابة فى هذا العمود إلا بعد فتحة أرجو أن أكون وصلت الفكرة تقبل تحياتى

حفظك الله اخي البروفسير على التعديل الرائع ادعوا الله لك بالتوفيق

الأستاذ / أحمد جندي السلام عليكم ورحمة الله وبركاته راجع مشاركة أستاذنا القدير / عبد الله باقشير تجد طلبك على هذا الرابط http://www.officena.net/ib/index.php?showtopic=49057

اخى العزيز ارجو ان يكون المرفق هو ما تريد ايضا يمكنك ان تذهب لهذا الرابط http://www.officena.net/ib/index.php?showtopic=48389&hl=%2B%D9%82%D8%A7%D8%A6%D9%85%D8%A9+%2B%D9%85%D9%86%D8%B3%D8%AF%D9%84%D8%A9+%2B%D9%85%D9%81%D9%84%D8%AA%D8%B1%D8%A9#entry293076 او البحث فى المنتدى بــــــ بقائمة منسدلة قائمة منسدلة مفلترة.rar

الاخ الفاضل البروفيسور اراك لخبطت الجدول عن الملف الذي عملنا عليه ؟ عموما اذا توفر الوقت سوف اعمل عليه

السلام عليكم جزاكم الله خيرا هذا كود يعمل على اي امتداد Option Explicit '====================================================== '====================================================== Sub RenameMe() Dim NewName As String, MyBook As String, MyPath As String, MyTyp As String, MyName As String '============================ On Error GoTo Err_kh_Name '============================ 1: NewName = InputBox("ادخل اسم الملف الجديد", "اسم الملف") If StrPtr(NewName) = 0 Then Exit Sub If Trim(NewName) = "" Then GoTo 1 '============================ With ThisWorkbook MyBook = .Name MyPath = .Path & Application.PathSeparator End With MyTyp = Mid$(MyBook, InStrRev(MyBook, ".")) MyName = Replace(MyBook, MyTyp, "") '============================ If NewName = MyName Then MsgBox "اسم الملف هذا هو نفس الاسم الحالي", vbOKOnly, "" GoTo 1 End If '============================ NewName = MyPath & NewName & MyTyp If Dir(NewName, vbDirectory) = vbNullString Then ThisWorkbook.SaveAs Filename:=NewName Kill MyPath & MyBook MsgBox "تم تعديل اسم الملف بنجاح", vbOKOnly, "الحمدلله" Else MsgBox "اسم الملف هذا موجود مسبقا", vbOKOnly, "" GoTo 1 End If '============================ Err_kh_Name: If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End Sub المرفق 2003 vvv.rar

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

تفضل أخى الكريم من أعمال العلامة الأخ /عبد الله باقشير غير اسم الملف من الخلية B2 55555.rar

ملف لحساب الضريبه طبقاً للقانون 11 لسنه 2013 + شرح وتحليل الداله معادلة حساب الضريبة علي الاكسل وفقا لاحدث تعديل للقانون 91 بالقانون 11 لسنة 2013-.rar