جعل القائمه المنسدله تعرض الأعمدة بدل الصفوف

[أيهاب ممدوح]

كل المشكله اني اريد التعديل علي الماكرو الذي يجعل القائمه المنسدله تعرض ما يطلب منها ولكن اريد عند اختيار التاريخ يظهر لي الاعمده وليس الصفوف كما في الملف المرفق اريد التعديل فقط وشكرا علي التعاون

مبيعات فرع.rar

[عبدالله المجرب]

كل المشكله اني اريد التعديل علي الماكرو الذي يجعل القائمه المنسدله تعرض ما يطلب منها ولكن اريد عند اختيار التاريخ يظهر لي الاعمده وليس الصفوف كما في الملف المرفق اريد التعديل فقط وشكرا علي التعاون

اخي الكريم

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

لاستبدال الصفوف بالاعمدة استبدل هذه الجملة في الكود

للاخفاء للصفوف

Selection.EntireRow.Hidden = False

والاظهار للصفوف

Selection.EntireRow.Hidden = True

بهذه الدالة على الاعمدة (لكن حدد الاعمدة التي تريد ظهورها واخفاءها كما هو معمول مع الصفوف) للاخفاء

Selection.EntireColumn.Hidden = False

للاظهار

Selection.EntireColumn.Hidden = True

ملاحظه تعريف الصفوف التي يتم اخفائها او اظهارها في الكود

Rows("1:745").Select

والتي تعني ان الصفوف من 1 الى 745 سيتم اظهارها او اخفاءها وتعريف الاعمدة في الكود كالتالي

Columns("IR:IS").Select

والتي تعني ان العمودين IR & IS سيتم اخفاءها او اظهارها حسب الاختيار

والله اعلم

[ياسر الحافظ]

الاستاذ ابو احمد :

ماشاء الله ...

تسم ايد وجزاك الله كل الخير

وفقك الله

ياسر الحافظ " ابو الحارث "

[MAHMOUD ALI YOUSSEF]

السلام عليكم

اخي ابو احمد

معلومة جميلة جزاك الله كل خير

:clapping:

:fff: :fff: :fff:

[أيهاب ممدوح]

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

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

مبيعات فرع -.rar

[عبدالله المجرب]

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

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

اخي الكريم

سوال

لماذ هذا الكود مكرر بشكل كبير

ActiveSheet.Protect Password:="haitham29181"

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

Selection.SpecialCells(xlCellTypeFormulas, 23).Select

    Selection.Protect Password:="haitham29181"

والله اعلم

[أيهاب ممدوح]

ارجوا التوضيح اكثر بمعني كتابه بدايه الكود ونهايه الكود لاني حاولت ولم تنجح وشكرا لتعبك معي

[الحسامي]

السلام عليكم

اخي الكريم وبعد اذن اخي وحبيبي ابو احمد

لا يوجد داعي لهذا الكود الضخم والمعقد بعض الشئ والذي يصعب تتبعه

ويمكنك الاستغناء عته وقد قمت بعمل كود مختصر يلبي طلبك

Dim x1, i   As Integer

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="haitham29181"

Columns("d:iq").EntireColumn.Hidden = True

If ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 33 Then

Columns("d:iq").EntireColumn.Hidden = False

Range("d6").Select

ElseIf ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 32 Then

For i = 11 To 251 Step 8

Cells(1, i).EntireColumn.Hidden = False

Next

Range("k6").Select

Else

x1 = ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value

Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _

Cells(1, ((x1 - 1) * 5) + x1 * 3 + 8)).EntireColumn.Hidden = False

Cells(6, ((x1 - 1) * 5) + x1 * 3 + 1).Select

End If

ActiveSheet.Protect Password:="haitham29181"

وبالنسبة لحماية الخلايا فقط قم بغلق الخلايا التي تحتوي على معادلات

من خلال كليك يمين format cells ومن ثم protection ثم قم بتفعيل خاصية louck

وقد قمت بعمل الخلايا لتاريخ 1/8 كعينة ويمكنك اجراء الباقي على باقي الخلايا

مبيعات فرع -1.rar

[عبدالله المجرب]

ارجوا التوضيح اكثر بمعني كتابه بدايه الكود ونهايه الكود لاني حاولت ولم تنجح وشكرا لتعبك معي

تم التعديل لكبر حجم الكود

ولكون الكود المضاف من الاستاذ الحسامي ادى الغرض المطلوب

والله اعلم

تم تعديل يوليو 30, 2011 بواسطه عبدالله المجرب

[أيهاب ممدوح]

السلام عليكم

اخي الكريم وبعد اذن اخي وحبيبي ابو احمد

لا يوجد داعي لهذا الكود الضخم والمعقد بعض الشئ والذي يصعب تتبعه

ويمكنك الاستغناء عته وقد قمت بعمل كود مختصر يلبي طلبك

Dim x1, i   As Integer

Application.ScreenUpdating = False

ActiveSheet.Unprotect Password:="haitham29181"

Columns("d:iq").EntireColumn.Hidden = True

If ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 33 Then

Columns("d:iq").EntireColumn.Hidden = False

Range("d6").Select

ElseIf ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value = 32 Then

For i = 11 To 251 Step 8

Cells(1, i).EntireColumn.Hidden = False

Next

Range("k6").Select

Else

x1 = ActiveSheet.Shapes("Drop Down 283").ControlFormat.Value

Range(Cells(1, ((x1 - 1) * 5) + x1 * 3 + 1), _

Cells(1, ((x1 - 1) * 5) + x1 * 3 + 8)).EntireColumn.Hidden = False

Cells(6, ((x1 - 1) * 5) + x1 * 3 + 1).Select

End If

ActiveSheet.Protect Password:="haitham29181"

وبالنسبة لحماية الخلايا فقط قم بغلق الخلايا التي تحتوي على معادلات

من خلال كليك يمين format cells ومن ثم protection ثم قم بتفعيل خاصية louck

وقد قمت بعمل الخلايا لتاريخ 1/8 كعينة ويمكنك اجراء الباقي على باقي الخلايا

شكرا جزيلا علي المجهود وتم نجاح الكود بنجاح ولكن اريد شرح هذا الكود المتميز الذي وفر المجهود والوقت ايضا

[أيهاب ممدوح]

شكر ااااااااااااااا جزيلا لكلا من الاخين الكريمين الذين ساعدوني في الملف ولكني لدي طلب اخر اريد كود لعمل طباعه لنطاق معين

[عبدالله المجرب]

شكر ااااااااااااااا جزيلا لكلا من الاخين الكريمين الذين ساعدوني في الملف ولكني لدي طلب اخر اريد كود لعمل طباعه لنطاق معين

اولاً اوجه الشكر للاستاذ الفاضل الحسامي على الكود المميز

اخي الفاضل

هذا كود للطباعة مباشرة للنطاق A4:H34 ويمكنك تعديله

Sub Print1()

    ActiveSheet.PageSetup.PrintArea = "$A$4:$H$34"

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Range("H9").Select

End Sub

وهذا كود للمعاينة ثم الطباعة لنفس النطاق

Sub Preview_Print()

    ActiveSheet.PageSetup.PrintArea = "$A$4:$H$34"

    ActiveWindow.SelectedSheets.PrintPreview

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

    Range("H9").Select

End Sub

والله اعلم

[أيهاب ممدوح]

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

[أيهاب ممدوح]

لدي فكرة ولا اعرف هل ممكنه من الناجيه العمليه او لا واريد المساعده اريد عمل قائمه باسماء المنتجات الرئسيه لاختار المنتج وفي نفس الوقت القائمه التاريخ تعمل ؟؟؟؟

اي اريد عمل قائمه بجوار قائمه التاريخ لاختار المنتج الرئيسي في اليوم المعين ؟؟؟

وشكرا جزيلا

[عبدالله المجرب]

لدي فكرة ولا اعرف هل ممكنه من الناجيه العمليه او لا واريد المساعده اريد عمل قائمه باسماء المنتجات الرئسيه لاختار المنتج وفي نفس الوقت القائمه التاريخ تعمل ؟؟؟؟

اي اريد عمل قائمه بجوار قائمه التاريخ لاختار المنتج الرئيسي في اليوم المعين ؟؟؟

وشكرا جزيلا

اخي الحبيب

المطلوب غير واضح

يفضل ارفاق ملف به المطلوب

وستجد بإذن الله من يساعدك من ابطال هذا الصرح العظيم

ابواحمد

[أيهاب ممدوح]

يوجد في الملف قائمه تعمل علي اظهار تاريخ معين وهي فعاله جدا ؟

ولكن اريد عمل قائمه اخري تعمل علي اظهار المنتجات الرئيسيه من الصفوف للتسهيل العمل علي الملف؟؟؟ظ

يوجد مرفق

كما اريد ان اعمل ماكرو حمايه للمصنف بالكامل عند الضغط عليه يغلق الاوراق بالكامل والعكس صحيح

شكرا جزيلا

مبيعات الفرع.rar

[عبدالله المجرب]

اخي الفاضل

اولاً

ما هو موجود في ملفك المرفق ليست قائمة منسدلة بالمعنى الحقيقي للقائمة المنسدلة ولكن هذا مربع الكومبوبوكس وضع ليناسب عمل الكود الخاص باخفاء واظهار الاعمدة حسب قيمة الخلية (IT1) المرتبطة بهذا الكومبوبوكس والتي ينتج اخفاء اعمد حسب الرقم بهذه الخلية

ثانياً

بماذا تريد ان تربط القائمة المنسدلة (اين البيانات الخاصة بالمنتجات)

وهل تريدها للاختيار فقط ام سترتبط بالكود

ثالثاً

بشان زر الحماية هل تريد عند الضغط عليه يتم اخفاء اوراق العمل ام مجرد الحماية فقط

والله اعلم

[أيهاب ممدوح]

اخي الفاضل

اولاً

ما هو موجود في ملفك المرفق ليست قائمة منسدلة بالمعنى الحقيقي للقائمة المنسدلة ولكن هذا مربع الكومبوبوكس وضع ليناسب عمل الكود الخاص باخفاء واظهار الاعمدة حسب قيمة الخلية (IT1) المرتبطة بهذا الكومبوبوكس والتي ينتج اخفاء اعمد حسب الرقم بهذه الخلية

ثانياً

بماذا تريد ان تربط القائمة المنسدلة (اين البيانات الخاصة بالمنتجات)

وهل تريدها للاختيار فقط ام سترتبط بالكود

ثالثاً

بشان زر الحماية هل تريد عند الضغط عليه يتم اخفاء اوراق العمل ام مجرد الحماية فقط

والله اعلم

الي الاخ ابو احمد

شكرا علي الرد

اولا : شكرا علي التوضيح بالنسبه لقائمه المنسدله او الاصح مربع الكومبوبوكس

ثانيا : اريد كود لاخفاء الصفوف بدلا من الاعمده بنفس اطريقه الكود الموجود من قبل الاخ الحسامي

ثالثا : اريد زر للحمايه فقط

رابعا زر في الصفحه الرئسيه يحولك الي صفحه العمليات اليوميه وزر داخل العمليات اليوميه لرجوع الي الصفحه الرئيسيه وذلك بدون اظهار اي اسم الشيت في الاسقل

خامسا : اريد التاريخ يظهر هجري بصيغه ( 1محرم 1432 )

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

[أيهاب ممدوح]

اخي الفاضل

اولاً

ما هو موجود في ملفك المرفق ليست قائمة منسدلة بالمعنى الحقيقي للقائمة المنسدلة ولكن هذا مربع الكومبوبوكس وضع ليناسب عمل الكود الخاص باخفاء واظهار الاعمدة حسب قيمة الخلية (IT1) المرتبطة بهذا الكومبوبوكس والتي ينتج اخفاء اعمد حسب الرقم بهذه الخلية

ثانياً

بماذا تريد ان تربط القائمة المنسدلة (اين البيانات الخاصة بالمنتجات)

وهل تريدها للاختيار فقط ام سترتبط بالكود

ثالثاً

بشان زر الحماية هل تريد عند الضغط عليه يتم اخفاء اوراق العمل ام مجرد الحماية فقط

والله اعلم

شكرا علي اهتمامك

ااولا : اريد زر حمايه واخفار والعكس من نفس الزر برقم سري 123

ثانيا اريد زر في الصفحه الرئيسيه يحولك الي صفحه العمليات اليوميه دون اظار الورقه في الشريط بالاسفل وزر داخل العمليات اليوميه لرجوع الي الصفحه الرئيسيه

ثالثا اريد تحويل التاريخ الي هجري ليظهر 1 محرم 1432 وهكذا ......

وشكرا جزيلا واسف لتعبك وشكرا جداااااااااااااا ختي اذا لو تتمكن من العمل جزاك الله خيرا

مبيعات الفرع.rar

[عبدالله المجرب]

ااولا : اريد زر حمايه واخفار والعكس من نفس الزر برقم سري 123

ثانيا اريد زر في الصفحه الرئيسيه يحولك الي صفحه العمليات اليوميه دون اظار الورقه في الشريط بالاسفل وزر داخل العمليات اليوميه لرجوع الي الصفحه الرئيسيه

المطلوب في المرفق

ثالثا اريد تحويل التاريخ الي هجري ليظهر 1 محرم 1432 وهكذا ......

من تنسيق الخلايا اختر صيغة التاريخ هجري

مبيعات فرع -1.rar

[أيهاب ممدوح]

شكرااااااااااااااااااا جدا علي هذا المجهود الرائع

لاكن لي بعض الطلبات

عايز اعرف ازاي وضع جميع اسماء الملف في الفور كما انت فعلت لا اعرف وكما تعلم انني انقل كل مافعلته انت الي الملف الاصلي الذي يستحيل تحميله علي المنتدي

لذلك اريد شرح هذة الخطوة

[أيهاب ممدوح]

شكرا جزيلا لقد تم التعديل بنجاح واشكرك جزيلا وبارك الله لك ويرزقق الجنه ان شاء الله

اود ان اطلب منك الاتي :-

الاول كود يعمل علي عند قفل الملف وحفظه يرسل بيه الي الاميل الياهو الخاص بي وهو ehabmamdouh28@yahoo.com

الثاني اغير اسم اليوزفور من haitham الي ehab

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

شكرا جزيلا

[عبدالله المجرب]

شكرا جزيلا لقد تم التعديل بنجاح واشكرك جزيلا وبارك الله لك ويرزقق الجنه ان شاء الله

اود ان اطلب منك الاتي :-

الاول كود يعمل علي عند قفل الملف وحفظه يرسل بيه الي الاميل الياهو الخاص بي وهو ehabmamdouh28@yahoo.com

الثاني اغير اسم اليوزفور من haitham الي ehab

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

شكرا جزيلا

السلام عليكم

اخي الفاضل تم حل الطلبين الثاني والثالث في المرفق

للطلب الاول راجع الرابط

http://www.officena.net/ib/index.php?showtopic=26407

مبيعات فرع -1.rar

[أيهاب ممدوح]

شكرا جداااااااااااااااا

لكن انا اريد معرفع تغير اسم اليوزرفورم وليس عملها

شكراااااااااااااا

[عبدالله المجرب]

شكرا جداااااااااااااااا

لكن انا اريد معرفع تغير اسم اليوزرفورم وليس عملها

شكراااااااااااااا

تفضل الشرح في المرفق

الشرح1.rar

تم تعديل أغسطس 1, 2011 بواسطه عبدالله المجرب