أبو حنــــين

السلام عليكم تم تعديل الملف حسب طلبكم lamassat 2.rar

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

السلام عليكم لاثراء الموضوع يمكن عمل ذلك أيضا بالكود إفتح ملف جديد و ضع فيه زر ثم حدد مجموعة نطاقات في هذا الملف ثم انسخ الكود التالي سترى كل النطاقات قد كتبت في العمود K بعدها اضغط على اي خلية تحتوي على اسم نطاق معين في العمود K مرتين متتاليتين سيحذف هدا النطاق الكود : Private Sub CommandButton1_Click() For s = 1 To ActiveWorkbook.Names.Count Cells(s, 11) = ActiveWorkbook.Names(s) Next End Sub Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) For s = 1 To ActiveWorkbook.Names.Count If Target = ActiveWorkbook.Names(s) Then Cancel = True ActiveWorkbook.Names(s).Delete Exit Sub: End If: Next: Target = "" End Sub

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

إن شاء الله أخي أحمد و الله اشاطرك الرأي الاصدار 2003 يحتوي على كل ما يريده المستخدم كما ان واجهته بسيطة و يمكن الوصول الى اي شيئ بيسر

جرب أخي المرفق Book1.rar

ما هو السعر الذي يضرب في القيمة 7% ؟ هل هو الموجود في الخانة الاولى ؟

أخي أحمد انا اعمل على اكسل 2003 و الملف عندي يعمل بطريقة عادية لا ادري اين الخلل

أخي رجب لاحظ الزمن الذي تم فيه ارسال مشاركتي و مشاركتك سبحان الله

أخي جرب هذا الكود في حدث الورقة Private Sub Worksheet_Change(ByVal Target As Range) If Right(Target.Value, 2) = "" Then Target.NumberFormat = "0.00" Else Target.NumberFormat = "General" End If End Sub

السلام عليكم اخي الحبيب : / احمد زمان ارجو ان تجرب الملف و تخبرني بالنتيجة

السلام عليكم هذه طريقة لمعرفة كل التغيرات التي حدثت قبل و بعد فتح الملف ـ اقتح الملف المرفق ـ أكتب أي شيئ في الصفحة الاولى : كلمات ، أرقام ، دوال ، ........ ـ قم بغلق الملف سترى مربع حوار يطلب منك الموافقه على ما حدث من تغيير ، اضغط على نعم ـ مربع حوار آخر يطلب منك كلمة المرور و هي رقم : 1 بعدها يغلق الاكسل و تفتح لك مفكرتين الاولى قبل التغيير الثانية بعد التغيير ملاحظة : الملف يعمل مع اصدار 2003 و لا اعرف هل يعمل مع باقي الاصدارت او لا لوحة المفاتيح.rar

السلام عليكم بالفعل لم نستطع الاتصال منذ الصباح تقريبا

أخي : / khhanna جزاك الله خيرا على المرور تقبل تحياتي

أخي الحبيب : / الشهابي : أسعد دوما بمروركم الطيب و العطر و كلماتكم التي تعبر عن نبل أخلاقكم جزاكم الله خيرا

إذا كان كذلك فيمكن كتابة الكود التالي Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 7 And Target.Row > 6 And Target.Row < 30 Then Cancel = True Target.Value = 0.07 End If End Sub

حسب المرفق أرى أن الغرض هو الكتابة في العمود G القيمة 7% أو ترك الخلية فارغة هل هذا هو القصد

الحمد لله أن المشكل انتهى تقبل تحياتي الأخوية سأحاول إيجاد طريقة ربما أسهل ان شاء الله

أخي الكريم هذه الظريبة من أي رقم تحسب و أبن يكتب الناتج ارجو التوضيح بالطريقة التالية الضريبة تحسب من الخلية ؟؟؟ في العمود مثلا A , او B , او C . . . . . . الناتج ( يكتب أو يضاف أو يضرب في ) الخلية ؟؟؟ من العمود مثلا A , او B , او C . . . . . . لانني لم استسغ السؤال

السلام عليكم جرب أخي المرفق lamassat 12.rar

بعد إذن الإخوة الاستاذ طارق الاستاذ محمود يمكن عمل ذلك بالكود التالي Private Sub Worksheet_Selectionchange(ByVal Target As Range) Dim Art Art = Array(" ", " ", " ") For r = 0 To 2 ActiveCell.Replace What:=Art(r), Replacement:="" Next End Sub

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

السلام عليكم بالفعل كان هناك خطأ جرب المرفق و اخبرني بالنتائج acc33.rar

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

السلام عليكم إخوتي و أحبتي : أبو ردينة : / حفظكما الله ( الأب و البنية و الأهل ) أبو إسحاق : / حفظكما الله ( الأب و الإبن و الأهل ) سعد عابد : / حفظك الله ( سعد و الأهل ) " أخي سعد إن لم تكن متزوجا فعجل ، فخير البر عاجله" جزاكم الله خير الجزاء و جعل الله لكم مجموع الحروف التي كتبتموها مرفوع للأس بنفس عدد الحروف حسنات إن شاء الله و الشاطر يحسب عدد حسناته