Ali Mohamed Ali

تفضل عندما تريد ترتيباً تصاعدياً تقوم بكتابة رقم 1 فى الرسالة الحوارية و -1 عندما تريد ترتيباً تنازلياً الوزن.xlsm

لو ممكن رفع الملف للتجربة

عليك بفتح مديول جديد ووضع هذا الكود به وربطه بزر Sub xlSortSheets_Test() Dim strWhich As String Dim Which As Integer strWhich = InputBox("لترتيب أسماء الأوراق تصاعدياً أدخل الرقم 1 " & vbNewLine & "لترتيب أسماء الأوراق تنازلياً أدخل الرقم -1 ", "تحديد طبيعة ترتيب أسماء الأوراق", "1") If strWhich = vbNullString Then Exit Sub If strWhich = "-1" Or strWhich = "1" Then Which = strWhich Call xlSortSheets(Which) Exit Sub End If MsgBox "لم تدخل الأرقام المسموح بها لعمل الترتيب" & vbCrLf & "لم يتم ترتيب الأوراق", vbOKOnly End Sub Sub xlSortSheets(Optional Which As Integer = 1) Dim I As Integer Dim J As Integer Dim SheetNames() As String Dim temp As String ReDim SheetNames(Sheets.Count) For I = 1 To Sheets.Count SheetNames(I) = Sheets(I).Name Next I For I = 1 To Sheets.Count - 1 For J = I + 1 To Sheets.Count If (Which = -1 And SheetNames(I) < SheetNames(J)) _ Or _ (Which = 1 And SheetNames(I) > SheetNames(J)) Then temp = SheetNames(I) SheetNames(I) = SheetNames(J) SheetNames(J) = temp End If Next J Next I temp = Sheets(Sheets.Count).Name For I = Sheets.Count To 1 Step -1 Sheets(SheetNames(I)).Select Sheets(SheetNames(I)).Move Before:=Sheets(temp) temp = SheetNames(I) Next I Sheet1.Select End Sub

وعليكم السلام -بارك الله فيك أستاذ عبد اللطيف بالتأكيد هناك ترتيب وكما تشاء سواء تصاعدياً أو تنازلياً -كما بهذا الرابط https://www.officena.net/ib/topic/33468-هل-يمكن-ترتيب-اسماء-شيت-الاكسيل-ابجدي/ وهذا هو الملف ترتيب الأوراق حسب أسمائها.xls

وعليكم السلام وهذا مخزاه ان المكتبة المسئولة عن هذا التقويم غير متوفرة لديك فلابد من العمل على تنزيلها

تفضل لك ما طلبت-فانك لم توضح هذا من البداية Fuddruckers OD Jun 2019.xlsx

وعليكم السلام-تفضل قيمة المبيعات 1.xlsm

تفضل كان عليك من البداية استخدام خاصية البحث في المنتدى فهناك موضوع كبير للعلامة الراحل عماد الدين الحسامى يخص طلبك ,موجود على كل هذه الروابط https://www.officena.net/ib/topic/63602-أعمال-العلامه-القدير-الراحل-عماد-الدين-الحسامى/?tab=comments#comment-413052 https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/?tab=comments#comment-260297 https://www.officena.net/ib/topic/56966-اريد-عمل-شجرة-حسابات-بالtree-view-فى-الاكسيل/?tab=comments#comment-361556 وأيضا هذا هو البرنامج شجرة الحسابات.xls

وعليكم السلام-تفضل Fuddruckers OD Jun 2019.xlsx

لا يمكن العمل على التخمين عليك برفع الملف وشرح المطلوب عليه بكل دقة

تفضل تم العمل بمعادلات المصفوفة -فلا يمكن الحل بمعادلة Vlookup نهائياً معادلة اظهار نتائج بحث.xlsx

وعليكم السلام-تفضل فرز حسب الحالة - نقص صف.xls

تفضل لك ما طلبت ,تم التعديل للطلبات الجديدة مستحقات 1.xlsx

احسنت أستاذ عبد اللطيف بارك الله فيك ورحم الله والديك

تفضل لك ما طلبت كشف استهلاك المواد.xlsx

أحسنت أستاذ محمد وجعلك الله دائما زخراً لنا وبارك الله فيك وزادك الله من فضله

رائع أستاذ مجدى بارك الله فيك وزادك الله من فضله

نتيجة الأستاذ بن علية هي الأدق والأصح فرقم 10 مثلا ترتيبه الثالث كما بمعادلة الأستاذ بن علية

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

السلام عليكم-ما قمت بعمله ليس مضبوط حسابيا فالمعادلة تعمل بشكل دقيق حيث ان : الشيكات المستحقة بعد 5 أيام اى يوم 13/07/2019 ,لا يوجد شيكات لهذا التاريخ والشيكات المستحقة بعد 10 أيام اى يوم 18/07/2019 ,لا يوجد شيكات لهذا التاريخ أما الشيكات المستحقة بعد 11 يوم فأكثر فهم ثلاثة شيكات وقيمة الشيكات كما أخبرتك في المعادلة سابقا 991778 عليك التأكد بنفسك ومراجعة ما تم عمله سابقا

أحسنت استاذ سليم معادلة ممتازة

تفضل تم الغاء الحماية نهائيا للتمكن من وضع كود التايمر وكود الحروف الكبيرة-واعتقد ايضا ان ملفك به فيروس timer.xlsm

وعليكم السلام لابد من رفع ملف وشرح المطلوب عليه بكل دقة حتى تتمكن الأساتذة من المساعدة-فلا يمكن العمل على التخمين !!!

أحسنت أستاذ سليم بارك الله فيك وزادك الله من فضله

معادلة ممتازة استاذى الكريم بارك الله فيك