عبد الله بولنوار

جرب قيمة الخلية.rar

جرب اعادة ظبط اعدادات الاكسال بهذ الملف استرجاع الاعدادات الاصلية للاكسيل.zip

جرب قيمة الخلية.rar

جرب لكن مبلغ الخصم غير ثابت ؟ مرتبات.rar

اللهم آمين جزيت بالمثل جرب فيه خلية في الصف 7 تم حذفها و تمديد عمود الترقيم الى 1000 ما انا الا متعلم و مبتدا اذا فيه اخطاء نتبهنب ممكن اصلحا stoks_5.rar

جرب STOCKS.rar

نفس الشيئ في الشهر و السنة لا حظ الفرق في اضافة دالة الشرط الاصلية =IF((IF($K$7>=H8;0;-1)+$L$7)>=I8;(IF($K$7>=H8;0;-1)+$L$7)-I8;(IF($K$7>=H8;0;-1)+$L$7)+12-I8) الاضافة و النتيجة =IF(I8="";""; =IF(I8="";"";IF((IF($K$7>=H8;0;-1)+$L$7)>=I8;(IF($K$7>=H8;0;-1)+$L$7)-I8;(IF($K$7>=H8;0;-1)+$L$7)+12-I8))

بسيطة في دالة الشرط تضع الشرط اذا كانت الخلية المعينة فارغة اترك هذه فارغة اما اذا كان غير ذلك نفذ التالي لاحظ الفرق بين المعادلتين =$K$7+IF($K$7>=H8;0;30)-H8 =IF(H8="";"";$K$7+IF($K$7>=H8;0;30)-H8) تم اضافة دالة الشرط if ثم تم اشتراط هذا الشرط H8="";"" اذا لم يتحقق ينفذ الدالة الموجودة و هي =$K$7+IF($K$7>=H8;0;30)-H8 تعمل في الخانة الاولى فقط و يتم السحب

جرب invoices.zip

كلمة الحماية موجودة في الخلية j1 يمكنك اخفاؤه و هذا مثال بكلمة المرور و اسم المستخدم الاسم : محمد كمة المرور : 123 123.rar

جرب هذا ‫ARCHIFE - نسخة.rar

Private Sub Workbook_Open() Dim Retvalue As String, GD As Integer Retvalue = GetSetting("A", "0", "Runcount") GD = Val(Retvalue) + 1 SaveSetting "A", "0", "RunCount", GD If GD > 4 Then ' الرقم (3) يحدد عدد مرات التشغيل MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج") ThisWorkbook.Close 0 End If End Sub الكود واضح اذا GD اكبر من 4 تظهر الرسالة و يغلق الصفحة لو غيرت الرقم الى 10 سيفتح الملف 10 مرات و هكذا

المرفق رغبات.rar

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

مجرد الضرب في - 1 يعكس الاشارة دون معادل فقط اكتب في الخلية المقابلة b1 =A1*-1 اذا كانت سالب تتحول الى موجب و اذا كانت موجب تتحول الى سالب

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

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

جرب انت اضفت سطرا قبل الجول مما يعني ضرورة فتغيرت الخانة الاولى في الجدول من a11 الى a12 و التي بعدها ايضا الكود مسجل فقط بالماكرو يعطي قيمة 1 للخلية الولى في الجدول ثم 2 في الخلية التي بعدها ثم يسحب الى الأسف ليعيد الترتيب كل ما نفذ الكود ORIGINALE1_2.rar

جرب numération produit de stock_3.rar

جرب numération produit de stock.rar

جزيت خيرا على ما تقدمه

تفضل إجمالى المبيعات السابقة ومبيعات اليوم_2.rar

ضع هذا الكود في حدث اي ورقة تريد تكون كلمة الجماية في الخلية a1 ثم اربطع بزر لتنفيذ الحماية Private Sub Protect() ActiveSheet.Protect ([a1]) End Sub

من قيمة خلية تقصد ام من الكود

المطلب الاول تفضل إجمالى المبيعات السابقة ومبيعات اليوم.rar