سليم حاصبيا

سؤال فزورة كيف يمكن ان نسثني عدداً معيناً (مع مضاعفاته من تسلسل ما)؟؟ انظر إلى المرفق (سأقوم برفع الباسورد فيما بعد) تسلسل مخصص.rar

جرب هذا الملف Book1 books.rar

ضع هذا التنسيق General;[Red](General)

اخي m120 لا اعرف لما لا يفتح ملفك عندي لتسوية الامر لكن يمكنك نسخ البيانات من ملفك الى الملف الذي رفعته لك و ان شاء الله سيعمل

يمكن ان يكون المطلوب مصنف الاستحقاق salim.rar

جرب هذا الملف Date_Dif.rar

اخي الكريم الملف مصروب فيروس و قد رفض الجهاز فتحه لذا صممت لك ملفاً شبيهاً به مه كافة المعادلات اللازمة انظر الى المرفق صفحة 2 Ta'akhir.rar

جرب هذا الملف Talween.rar

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

اخواني في المنتدى عودة الى الالغاز الاكسلية A2 كيف يمكن ان ننشىء جدولاً كالمرفق بمعادلة واحدة تكتب في الخلية (سأرفع المعادلة لاحقاً) magic_table 1.rar

تم التعديل حسب الطلب Sub HideEmptyRowsAndColumns() UsedRange.Rows.Hidden = False UsedRange.Columns.Hidden = False x = ActiveSheet.UsedRange.Row - 1 y = ActiveSheet.UsedRange.Rows.Count LastRow = x + y Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Hidden = True Next r m = ActiveSheet.UsedRange.Column - 1 n = ActiveSheet.UsedRange.Columns.Count LastColumn = m + n For c = LastColumn To 1 Step -1 If Application.CountA(Columns(c)) = 0 Then Columns(c).Hidden = True Next c Application.ScreenUpdating = True End Sub

جرب هذا الكود Sub DeleteEmptyRowsAndColumns() x = ActiveSheet.UsedRange.Row - 1 y = ActiveSheet.UsedRange.Rows.Count LastRow = x + y Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r m = ActiveSheet.UsedRange.Column - 1 n = ActiveSheet.UsedRange.Columns.Count LastColumn = m + n For c = LastColumn To 1 Step -1 If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c Application.ScreenUpdating = True End Sub

جرب هذا الملف اعتذر اخي ياسر لم ار مشاركتك الا بعد التحميل Ages.rar

حتى الان لم افهم ما تريد بالضيط املأ الجدول بالمرفق التالي بالارقام التي تتوقعها يمكنك اضافة بغض الارقام و أعد تحميل الملف EXPERIANCE.rar

استبدل المغادلة بهذه =IF(IF(MOD(A1,5)<2.5,FLOOR(A1,5),CEILING(A1,5)),CHOOSE((MOD(A1,5)<2.5)+1,CEILING(A1,5),FLOOR(A1,10)))

يمكن ان يكون هذا الشيء؟؟!! Book1.rar

انت اغطيت مثالاً و انا نفذت عليه المعادلة كيف تريد ان تجغل 33.6 35 و 91.5 الى 90 اليس 35 و 90 هم مضاعفات للخمسة اشرح طلبك بوضوح مغ بعض الامثلة (1.2 ماذا تصبح و 1.65 ماذا تصبح و الرقم الصحيح ماذا تفعل به هكذا)

جرب هذه المغادلة (الارقام في العامود A) =IF(MOD(A1,1)=0,A1,CHOOSE((MOD(A1,1)<0.5)+1,CEILING(A1,5),FLOOR(A1,5)))

اثراءً للموضوع هذه المعادلة =IF(MONTH(DATE($E$2,$D$2,ROWS($A$1:A1)))=$D$2*1,DATE($E$2,$D$2,ROWS($A$1:A1)),"")

اخي احمد جرب ان تضغ شهر 2 مثلاً و تلاحظ ان شهر اذار دخل قد دخل ضمن اللعبة

بعد اذن اخي افاضل رجب جرب هذا الملف داله العطل بالتاريخ salim.rar

Sub DeleteEmptyRowsAndColumns() x = ActiveSheet.UsedRange.Row - 1 y = ActiveSheet.UsedRange.Rows.Count LastRow = x + y Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r m = ActiveSheet.UsedRange.Column - 1 n = ActiveSheet.UsedRange.Columns.Count LastColumn = m + n For c = LastColumn To 1 Step -1 If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c Application.ScreenUpdating = True End Sub هي دي العبقرية بحد ذاتها اخي ياسر و لكن اتسائل كيف لم تمسح الصفوف و الاعمدة الفارغة من كل الورقة لا اعلم السبب الاقتباس الى ياسر خليل و يظهر انه لنفسي

جرب هذا الكود Sub DeleteEmptyRowsAndColumns() x = ActiveSheet.UsedRange.Row - 1 y = ActiveSheet.UsedRange.Rows.Count LastRow = x + y Application.ScreenUpdating = False For r = LastRow To 1 Step -1 If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete Next r m = ActiveSheet.UsedRange.Column - 1 n = ActiveSheet.UsedRange.Columns.Count LastColumn = m + n For c = LastColumn To 1 Step -1 If Application.CountA(Columns(c)) = 0 Then Columns(c).Delete Next c Application.ScreenUpdating = True End Sub

يمكن استعمال هذه المعادلة البسيطة (اختر منها النطاق المناسب) =SUMPRODUCT(--ISNUMBER(SIGN($A$1:$A$8)),$A$1:$A$8)

جرب هذا الملف search salim.rar