ترتيب جدول بحسب التاريخ الهجري

[فـهـد]

السلام عليكم و رحمة الله

 شهريا  يتواجد ملف اكسل يتم تصديره من موقع حكومي ، أود ترتيب الجدول بحسب التاريخ الهجري من الأقدم للأحدث أو العكس ..

كذلك أود اضافة علامة   :   بين ارقام الوقت في عمود الوقت  وتحويلها لنظام ال 12 ساعة لتسهل قرائتها

و جزيتم خيرا ..

 

الملف مرفق ..

Export.xlsx

[نزار سليمان عيد]

عفوا يبدو انني لم احمل الملف الصح

تفضل

Export.xls

[نزار سليمان عيد]

يتم ذلك عن طريق البرمجة بلغة الفيجوال بيسك

يمكنك الاحتفاظ بهذا الملف والنسخ بعد التعديل

او اذا اردت الشرح على الكود 

[فـهـد]

حسنا ، هل عملية الترتيب ستتأثر بعدد الأسطر؟

لأنه في كل مرة ستزيد عدد الأسطر عما قبل

 

[نزار سليمان عيد]

اي نعم تتاثر

بس ممكن اعمل لك ملف اذا حددت اكبر عدد من الادخالات تتوقعها

شوف المرفق عدلت المدى الى 3000 عملية

Export.xls

[فـهـد]

أخ نزار ..

لدي طلب بسيط  حفظك الله  بخصوص عمود التواريخ الهجرية 

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

  حاولت عن طريق تنسيق الخلايا ، لكن على ما يبدو لم يتعرف على قيم التاريخ على انها تاريخ ، حتى لو اخترت تاريخ ام القرى من تنسيق الخلايا / تاريخ

  اتوقع ما احتاج  زر منفصل ،  فقط اود تنسيق عمود التاريخ الهجري بحيث يظهر اسماء الايام بجانب التاريخ،  و إن أمكن تظليل الخلايا التي تظهر فيها ايام الجمعة والسبت.. 

  وشكرا

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

 من بعد اذن الأستاذ القدير: نذار سليمان عيد

و الذي تعلمت منه الكثير جزاه الله خيرا

 اخي الكريم

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

وهو عمل رائع يشكر عليه

جزاه الله كل خير

 اخي الكريم

اود ان اغير الفكرة

 كما تعلم ان الاكسل يتعامل مع الوقت و التاريخ بنظام رقمي

لذلك من الأفضل ان نعمل ما يلي

نحول التاريخ من هجري الى تاريخ ميلادي

مع دمج خانة التاريخ و الوقت معا بحيث يعطينا صيغة وقت بنص طويل dd/mm/yyyy hh:mm

 وهذا سوف يسهل علينا عمليات الفرز بحيث يكون الفرز دقيق من واحد عامود

 من تنسيق الخلايا Ctrl+1 تستطيع تغيير الشكل الظاهر امامك الى شكل تاريخ هجري او شكل تاريخ ميلادي

 من التنسيق الشرطي تستطيع تغيير لون الخلية حيث انه يتعامل معها كرقم و ليس نص

 هذه الفكرة

أتمنى ان تعمل الدالة الخاصة بتعديل التاريخ الهجري على جهازك

 شاهد المرفق

و للحديث بقية

لوضع التنسيق الشرطي

و لوضع كود الفرز

 

=VALUE(CONCATENATE("a";$C6;" ";SUBSTITUTE($E6;RIGHT($E6;2);"");":";RIGHT($E6;2)))

 

Export--TAAM.xlsx

[فـهـد]

   جميل جدا ما قدمته أخ أحمد

أود عمل مسافة اكبر بين  hh:mm و dd/mm/yyyy 

لأني اواجه صعوبة في قراءة الوقت  و أود تسهيل القراءة

بالنسبة لأسماء الايام  ، فكما ذكرت في الرد السابق هناك فرقا ينقص يوما فعليا عن التاريخ الفعلي

هل الأمر طبيعي ؟

وشكرا جزيلا لما قدمته أخي الفاضل   

[احمدزمان]

ممكن تجرب تغيير نوع الخط للخلية

راح يعطيك اشكال قد تكون اسهل للقرائة

و حل آخر

حدد الخلايا للتاريخ ثم

اضغط Ctrl+1

من تبويب رقم اعلى الشاشة

اختار مخصص

تظهر لك صيغة التاريخ زد عليها مسافات ثم موافق

ان شاء الله تظبط

 

5 ساعات مضت, فـهـد said:

النسبة لأسماء الايام  ، فكما ذكرت في الرد السابق هناك فرقا ينقص يوما فعليا عن التاريخ الفعلي

هل الأمر طبيعي ؟

 

طبيعي

انته تعرف انه التاريخ الهجري احيانا يفرق حتى مع تقويم ام القرى حسب رؤية الهلال

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

بحيث تزيد او تنقص يوم حسب ما تكتب انته فيها 1 او -1

ثم نضع كود برمجي بحيث يثبت قيم التاريخ التي تم حسابها حتى لا تتغير قيمة التاريخ عند تغييرك للقيمة في خانة فرق التاريخ

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

تحياتي و تقديري

 

[فـهـد]

   انت رهيب  ..   اذا تكرمت  ممكن عمل الكود

 

[احمدزمان]

الله يكرمك و يوسع عليك

تم عمل الكود وهو يعمل بالترتيب التالي

فرز و تيب البيانات حسب العمود L التاريخ و الوقت

تثبيت قيم التاريخ و اليوم بحيث تصبح بدون دوال

اضافة الدوال للصفوف التي ليس بها دوال

Dim ER, RN1 As Range

    ActiveWindow.ScrollRow = 6
    Range("A5:O6000").Sort Key1:=Range("L5"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
For Each RN1 In Range("L5:M6000")
If RN1.HasFormula And RN1 <> "" Then _
RN1 = RN1.Value
Next
Range("L3:M3").Copy
ER = Application.CountA(Range("A:A")) + 9
For FR = 5 To ER
If Cells(FR, 12) = "" Then _
Cells(FR, 12).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Next 'FR
    Application.CutCopyMode = False

مع التحية

Export--TAAM1.xls

[فـهـد]

اعذرني .. انشغلت قليلا  ..

لي عودة حفظك الله  للتجربة و ابداء الرأي ، مع اني اثق بالنتيجة مسبقا