ابوسلماان

نظرة ولو جبر خاطر   

الاعزاء

وجدت ملف رائع جدا ،، ( بصراحة لا اعرف مصدره )   يقوم باحتساب الوقت على شريط تقدم ويظهر النسبة المنجزة. كما هو واضح في الملف المرفق. ولكني لم استطع استخدامه بسبب أني لم استطع دمجه مع اي عملية اود  احتسابها.

سؤالي :

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

وشكراً،،

Bar1.rar

شكرا جزيلا استاذ سليم

بارك الله فيك

اشكرك استاذ سليم ،،

بخصوص الكود أعلاه لم استطع استخدامه..

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

برجاء مساعدتي في تنفيذ الكود والورقة مخفية،، ولو امكن شرح الكود للاستفادة بارك الله فيكم.

وشكراً

sales_trans.rar

الاعزاء

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

جربت هذا المثال ولم افلح

Sheets("المبيعات").Select

هل من طريقة لتنفيذ كودات على اوراق عمل مخفيه .. وشكراً

5 دقائق مضت, بن علية حاجي said:

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

المعادلة العادية استعملت فيها الدالة MATCH التي نعرف أنها تحدد الموقع الأول لقيمة في النطاق فقط، أما معادلات الصفيف فقد استعملت فيها الدالة SMALL التي تحدد مواقع كثيرة بالترتيب باستعمالها في معادلة صفيف مع المتغير الترتيبي للدالة... بالنسبة للمعادلة العادية يمكن استعمالها في كل الحالات لكن باستعمال عمود إضافي نحدد فيه مواقع كلمة Fr أو Sa أو غيرها في النطاق... وقد تم تطبيق ذلك في الملف المرفق...

بن علية حاجي

weekSum2.rar

مشكور استاذي العزيز ،، اطلعت على الملف و وصلت الفكرة..

بارك الله فيك ،،

في معادلة المصفوفة لم افهم وجود دالة IF

=SUM(OFFSET($C$2;SMALL(IF($F$3:$F$33="Sa";ROW($3:$33)-2);ROW($A1));;7))

1 دقيقه مضت, بن علية حاجي said:

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

لم أفهم عليك معنى "الترتيب" مع جميع الأسابيع؟؟

بن علية

المعادلات ممتازة جدا ،، وجربتها  وادت الغرض ،، لكن باب الاستفادة هل بالامكان تطبيق المعادلة العادية فقط بدون المصفوفة للوصول لنفس النتيجة؟

عزيزي سليم 

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

خالص محبتي ،،

34 دقائق مضت, بن علية حاجي said:

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

محاولة بمعادلتين (معادلة عادية للأسبوع الأول ومعادلة صفيف لباقي الأسابيع) في الملف المرفق...

بن علية حاجي

weekSum.rar

تسلم استاذنا بن علية

بارك الله فيك اخي العزيز.  وكنت اتمنى عليك توضيح هل بالامكان ترتيب جميع الاسابيع بالمعادلة العادية ؟
وهل يمكن ترتيبها جميعا بمعادلة الصفيف ايضا.

شاكر لك من الاعماق استاذنا.

الاعزاء 

احتاج الى دالة تقوم في الصف الاول مثلا ..  بجمع البيانات من اول يوم في الشهر وحتى تجد يوم جمعة،

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

مش عاوز مايكرو ،، احتاج الى دالة ( معادلة ) لو تكرمتم ..

مرفق الملف.

weekSum.rar

السلام عليكم

هل بالامكان مساعدتي في معرفة التالي:

1- عند ادراج جدول pivottable  تكون الاعمدة المتضمنة أرقام غير منسقة ،، واضطر الى اعادة تنسيقها كأرقام واظهار فاصل الآلاف ..الخ ..  هل بالامكان وضع اعداد افتراضي ثابت لهذه الجزئية.

2- لا تظهر القيم في ملف الاكسل للاعمدة المتضمنة الدالة IFSUM وذلك لأنها تقرأ البيانات أو تجمعها من ملف اكسل آخر . وتظهر بدلا عن الارقام الصيغة #VALUE ،، وحتى تظهر الارقام يجب فتح ملف الاكسل الآخر كل مرة.

فكيف يمكن معالجة هذا الخطأ .

وشكرا

شكرا جزيلا  اخي العزيز

وجدت الحل في المعادلة التالية :

TEXT(C4;"b2ddd")&" "&TEXT(C4;"b2dd/mmm/yyyy")

ثم يمكن نسخ قيمتها الى عمود آخر  وعند اللصق  اختيار  ( لصق قيم ).

وشكراً ،،

الاعزاء ............... السلام عليكم

لدي عمود فيه التاريخ الميلادي  وعمود آخر  هو عبارة عن نسخ من العمود الاول ولكن بتنسيق تاريخ هجري.

المطلوب ،،  عند نسخ العمود الثاني  ولصقه في عمود ثالث (  بالقيمة فقط )  ان يلصق التاريخ الهجري ( كنص ) وليس المطلوب ظهور ارقام او معادلات العمود الاول.

المرفق يوضح المطلوب ان شاء الله 

وجزاكم الله خيرا ،،،

نسخ.rar

الاخ العزيز  بن علية حاجي

صباح الخير والبركات عليك ،،

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

عموما عزيزي  ساحاول ان اشرح المطلوب ويا ليت اوفق 

لو انت  لاحظت في الجدول ستجد ان رقم الفاتورة قد يتكرر  في ست وثائق تقريبا ..  فلو افترضنا الفاتورة رقم 192700  تكررت  ست مرات بعدد الوثائق الموجودة.
المطلوب هو فرز هذه الفاتورة بناء على التالي :

1- عندما تكون الفاتورة مرتبطة بالوثيقة ( العروض ، الايرادات ، القيود2 ) ضعها اولاً  ،، ورتبها حسب تاريخها المحدد في الوثائق الثلاث..

2- ثم حين تجدها في الوثائق التالية ( قيود ، معالجة ، مقبوض )  ضعها ثانياً ورتبها حسب تاريخها ..  ولا يجب ان تكون قبل الوثائق الاولى ( العروض ، الايرادات ، القيود2 ) بأي حال من الاحوال حتى لو كان تاريخها قبل. 

* اتمنى اني استطعت ايصال الفكرة ،،   وشكرا جزيلا  لتعاونك اخي العزيز ،، وبارك الله فيك .

تحياتي ،،

الاعزاء ............... السلام عليكم

كيف يمكنني اجراء فرزين  في جدول ..  بحيث يكون الاول عام على الجميع ،،  ثم يقوم الفرز الثاني بفرز بيانات محددة داخل جدول وبشرط مختلف .. و بحيث تتم عملية الفرز للبيانات المطلوبة بذات المكان التي وضعت فيها عبر الفرز الاول ..

المرفق يوضح المطلوب ان شاء الله 

وجزاكم الله خيرا ،،،

bill_sort.rar

استاذ ياسر

قمت بتجربة الفكرة التي طرحتها 

"جرب تحديد العمود الذي يحتوي على التواريخ ، ثم من التبويب Data ستجد أمر اسمه Text to Columns انقر عليه ثم انقر finish"

والحمد لله ،، تم اصلاح التاريخ في الجدول..  لكن عند ادراج جدول PivotTable  لتحليل البيانات ظهرت البيانات كنصوص ولم يتعامل معها كتواريخ .. بمعنى آخر (  لا امكانية لتحويل التاريخ الى سنة او ربع او شهر ) كما هي طبيعة جدول الـ   PivotTable  في الحالات العادية.

عموما ..  انحلت نصف الاشكالية وتبقى النصف الآخر ،، وان شاء الله سنجد حل له ،،،

خالص محبتي  وامتناني لتعاونك.

اهلا عزيزي  ياسر 

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

هذه المرة ارسلت لكم بالملف الاصلي ..  لكي تتطلعوا على الاشكالية، و لان هذه الاشكالية تواجهني كثيراً في عملي..  ولا اعرف السبب اين هو بالضبط ؟ فمجرد تحويل الملف الى اكسل لا استطيع التعامل مع عمود التاريخ كتاريخ ..  وبسبب ذلك لا استطيع تحليل البيانات بالشكل الصحيح.

وقد حاولت حل الاشكالية عبر الدالة ( text)  والدالة ( datevalue) او عبر ضرب الخلية × 1 ..  ولكن دون جدوى ..  حاولت ايضا تعديل تنسيق الخلية الى تاريخ وبتنسيقات مختلفة دون فائدة.

 الحالة الوحيدة التي ضبطت معي .. هي ( ضرب الخلية × 1 ) ثم  تعديل تنسيق الخلية الى تاريخ ثم  النقر على مستوى كل خلية لتتغير الى خلية ،، وتخيل كم يحتاج منك هذا الموضوع من وقت اذا كان لديك 13 الف  صف مثلاً.

ساجرب الحل الذي ذكرته في تعليقك ،، وسأفيدكم به لاحقاً ان شاء الله .

تحياتي

اعتقد انك لا تحتاج الى ضرب  الناتج ×  100

لانك تختار التنسيق ( نسبة مئوية ) فلا تحتاج الى اضافة  ضرب الناتج في 100

احذف عملية الضرب ،، وستجد ان النسبة الظاهرة صحيحة .

مساء الخير

كيف استطيع معالجة التاريخ الذي يظهر كنص ..  احتاج الى كود يعالج هذه المشكلة التي دائما ما تواجهني عند استيراد ملف من النظام المحاسبي.

الغريب ان بعض التواريخ الظاهرة في الجدول صحيحة وبعضها غير صحيحة ..  يمكن ملاحظة ذلك عند تصفية العمود.

اتمنى اجد حل مناسب  ( كود أو  معادلة ) 

وشكرا لكم..

Bill_date.rar

بس        

الاعزاء ............... السلام عليكم

احتاج الى تنفيذ هذا الكود ولكن على ورقة العمل النشطة التي اعمل عليها ،،  وليس على الورقة المذكورة في الكود المرفق.

ما هو التغيير الذي سأجريه على الكود ليتم التنفيذ على الورقة المفتوحة او النشطة.   وشكراً ،،

Sub Macro3()
 

    ActiveSheet.Range("$A$4:$E$9500").AutoFilter Field:=3, Criteria1:=">=" & Range("F2").Value, _
        Operator:=xlAnd, Criteria2:="<=" & Range("G2").Value
    ActiveWorkbook.Worksheets("Cus1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Cus1").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "C4:C9500"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Cus1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A1").Select
    End Sub

شكرا اخي العزيز ابو عيد

شكرا اخي ابو عيد ..

كنت اشاهد هذا الكود في بعض الملفات،،  لكني لم افهمه ..  واليوم عرفت فائدته. فشكرا جزيلا.

 طيب اللي يسوي هذا الكود ويضع رقم  0   بعده ايش يعني اخي ابو عيد ؟؟

الاعزاء ............... السلام عليكم

لنفترض ان لدي كود وعند تنفيذه تظهر الرسالة المرفقة ،،  

ماهو الكود الذي يجعل هذه الرسالة لا تظهر....    بحيث اضع هذا الكود بعد الكود تبعي،، وبحيث تظهر بدلا عن هذه الرسالة رسالة خطأ اخرى من صياغتي وتفيد بأن هناك خطأ في تنفيذ الكود.

مع خالص محبتي

بعد عدة تجارب  لقيت الحل

ActiveSheet.Range("$A$4:$E$286").AutoFilter Field:=3, Criteria1:=">=" & Range("G2").Value, _
        Operator:=xlAnd, Criteria2:="<=" & Range("F2").Value
 

شكرا