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

عمل زر وحد اظهار واخفاء الصفوف الفارغة


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

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

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

نرجو من حضراتكم

عمل زر واحد

اي بالضغط مرة  اخفاء واخري اظهار

 

 

 

زر واحد اخفاء واظهار.zip

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

ما فيش مشكلة ممكن تغير النطاق كما تريد

وإليك الملف بعد ضبط إعدادات الصفحة وتعديل نطاق كود الإخفاء والإظهار

زر واحد اخفاء واظهار.zip

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

بفضل الله توصلت إلى كود إخفاء صفوف بناء على قيمة أنا اخترتها في العمود K إذا كانت القيمة 0 ابتداءًا من الخلية K10وحتى الخلية K125

وعملت كود لإظهار الصفوف المخفية مرة أخرى

وطبعًا جعلت الكودين يعملان بزر أمر واحد

وبهذا الكود يمكن جعل قيمة الخلية في العمود K رقم 1  مقابل الصف الذي تريد إظهاره

جرب الملف

زر واحد اخفاء واظهار.zip

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

اخي الحبيب

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

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

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

16 دقائق مضت, محمد عبدالسلام said:

لربط زر بي الكود

أحببك الذي أحببتني فيه 

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

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

Sub إخفاء_إظهار()
On Error Resume Next
Dim XX As Shape

'الإعلان عن متغير اسمه Shape (الشكل)
Set XX = Sheet1.Shapes("الدائرة")

' ممكن تغيير الاسم الذي باللون الأحمر باسم الشكل الذي قمت بإدراجه

' استدعاء الشكل في شييت1
With XX.TextFrame.Characters
    If .Text = "إخفاء الصفوف" Then

' اسم الأول الذي تريد إظهاره في الشكل
       Ahmed_Head

' اسم الماكرو الأول
       .Text = "إظهار الصفوف"

' الاسم الثاني الذي تريد إظهاره في الشكل
    Else
       Ahmed_Show

'اسم الماكرو الثاني
       .Text = "إخفاء الصفوف"

اسم الأول الذي تريد إظهاره في الشكل
    End If
End With
On Error GoTo 0
End Sub

أتنمى من الله أن يكون هذا المطلوب ويكون واضحًا

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

تم عمل المطلوب كما تريد عمل 4 ورقات عمل بعد الانتهاء من كتابة أو التعديل في الخليةH36سوف يتم ورقة العمل لورقة العمل( الفاتورة التي تليها)

زر واحد اخفاء واظهار.zip

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

اخي الحبيب

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

اسأل الله ان يحفظك

ولكين  المشكلة يتم ترحيل البيانات الفاتورة من اليوزرفوم الا الفانورة 1 الأن اصباح لدي  عدات صفحة كيف يتعرف عليهم اليوزرفورم وحدا تي الوحدا

لوكانت هده طريقة في صفحة وحدا لكان افظل

أرجو أن لا أكون قد أثقلت عليك اخي الكريم

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

معذرة لتأخري للرد عليك ولكن لظروف طارئة

والحمد لله تم عمل ما تريد

جرب الملف

ملحوظة الفورم يرحل للأربع أوراق ( الخاصة بالفاتورة ) في الفورم يجب اختيار أو كتابة رقم صفحة الفاتورة المراد الترحيل إليها

الفورم يقوم بالترقيم التلقائي 

الفورم يقوم بحساب القيمة تلقائي ( يقوم بضرب الكمية × السعر )

طبعًا أخر خلية يتم ترحيل فيها بيانات في أي ورقة من أوراق الفاتورة يتم الانتقال إلى الفاتورة التالية وهكذا في كل أوراق العمل الخاصة بالفاتورة

زر واحد اخفاء واظهار.zip

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

 

 عمل رائع جزاك الله عنا كل خير وأثابك حسن الدارين ومتعك برؤية وجهه الكريم شكرا لك اخي الكريم

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

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

لاعليك اخي انا من يجيب عليه ان يعتذر

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

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

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



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

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

Important Information