اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

مبيعات فرع.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 سيتم اخفاءها او اظهارها حسب الاختيار

والله اعلم

رابط هذا التعليق
شارك

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

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

مبيعات فرع -.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

رابط هذا التعليق
شارك

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

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

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

والله اعلم

تم تعديل بواسطه عبدالله المجرب
رابط هذا التعليق
شارك

السلام عليكم

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

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

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

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

تم تعديل بواسطه عبدالله المجرب
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information