محمد عبدالسلام قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 السلام عليكم ورحمة الله وبركاته يوجد في الملف كود اخفاء واظهارصفوف الفارغة نرجو من حضراتكم عمل زر واحد اي بالضغط مرة اخفاء واخري اظهار زر واحد اخفاء واظهار.zip
محمد عبدالسلام قام بنشر سبتمبر 7, 2018 الكاتب قام بنشر سبتمبر 7, 2018 (معدل) ولكم جزيل الشكر بارك الله فيك وفي جهودك وجزاك الله خيرا تم تعديل سبتمبر 7, 2018 بواسطه محمد عبدالسلام
احمد بدره قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 ما فيش مشكلة ممكن تغير النطاق كما تريد وإليك الملف بعد ضبط إعدادات الصفحة وتعديل نطاق كود الإخفاء والإظهار زر واحد اخفاء واظهار.zip 1
محمد عبدالسلام قام بنشر سبتمبر 7, 2018 الكاتب قام بنشر سبتمبر 7, 2018 أخي الكريم لا أعرف طريقة مناسبة لشكرك وليس بوسعي شئ إلا قول جزاك الله عني كل الخير ولك مني دعوة بي الخير جزاك الله خير مرة أخري
محمد عبدالسلام قام بنشر سبتمبر 7, 2018 الكاتب قام بنشر سبتمبر 7, 2018 أخي الكريم طريقة لربط زر بي الكود جزاك الله خير مرة أخري
احمد بدره قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 بفضل الله توصلت إلى كود إخفاء صفوف بناء على قيمة أنا اخترتها في العمود K إذا كانت القيمة 0 ابتداءًا من الخلية K10وحتى الخلية K125 وعملت كود لإظهار الصفوف المخفية مرة أخرى وطبعًا جعلت الكودين يعملان بزر أمر واحد وبهذا الكود يمكن جعل قيمة الخلية في العمود K رقم 1 مقابل الصف الذي تريد إظهاره جرب الملف زر واحد اخفاء واظهار.zip 2
محمد عبدالسلام قام بنشر سبتمبر 7, 2018 الكاتب قام بنشر سبتمبر 7, 2018 اخي الحبيب اسأل الله ان يحفظك ويرعاك ويحقق مبتغاك ويزيدك من الخير والطاعات ويرزقك الرفقه الصالحه ويحميك من كل مكروه اسأل الله ان لايجعل في قلبك حاجة الا قضاها ولا هما الا فرجه ولا ضيقا الا ابدله بسعاده لاتشقه بعدها ابدا وان يرزقك رزقا حلالا طيبا حتى ترضى نفسك هذه دعوات من قلب من يحبك في الله 1
احمد بدره قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 16 دقائق مضت, محمد عبدالسلام said: لربط زر بي الكود أحببك الذي أحببتني فيه أشكرك على كلامك الطيب ودعاءك وأتمنى من الله أن يوفقك لما يحبه ويرضاه
محمد عبدالسلام قام بنشر سبتمبر 7, 2018 الكاتب قام بنشر سبتمبر 7, 2018 اخي الحبيب ممكن طريقة ربط الكود بي زر الخفاء
احمد بدره قام بنشر سبتمبر 7, 2018 قام بنشر سبتمبر 7, 2018 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 أتنمى من الله أن يكون هذا المطلوب ويكون واضحًا 2
احمد بدره قام بنشر سبتمبر 8, 2018 قام بنشر سبتمبر 8, 2018 تم عمل المطلوب كما تريد عمل 4 ورقات عمل بعد الانتهاء من كتابة أو التعديل في الخليةH36سوف يتم ورقة العمل لورقة العمل( الفاتورة التي تليها) زر واحد اخفاء واظهار.zip 1
محمد عبدالسلام قام بنشر سبتمبر 8, 2018 الكاتب قام بنشر سبتمبر 8, 2018 اخي الحبيب عمل رائع تشكر عليه اسأل الله ان يحفظك ولكين المشكلة يتم ترحيل البيانات الفاتورة من اليوزرفوم الا الفانورة 1 الأن اصباح لدي عدات صفحة كيف يتعرف عليهم اليوزرفورم وحدا تي الوحدا لوكانت هده طريقة في صفحة وحدا لكان افظل أرجو أن لا أكون قد أثقلت عليك اخي الكريم
احمد بدره قام بنشر سبتمبر 10, 2018 قام بنشر سبتمبر 10, 2018 معذرة لتأخري للرد عليك ولكن لظروف طارئة والحمد لله تم عمل ما تريد جرب الملف ملحوظة الفورم يرحل للأربع أوراق ( الخاصة بالفاتورة ) في الفورم يجب اختيار أو كتابة رقم صفحة الفاتورة المراد الترحيل إليها الفورم يقوم بالترقيم التلقائي الفورم يقوم بحساب القيمة تلقائي ( يقوم بضرب الكمية × السعر ) طبعًا أخر خلية يتم ترحيل فيها بيانات في أي ورقة من أوراق الفاتورة يتم الانتقال إلى الفاتورة التالية وهكذا في كل أوراق العمل الخاصة بالفاتورة زر واحد اخفاء واظهار.zip
محمد عبدالسلام قام بنشر سبتمبر 10, 2018 الكاتب قام بنشر سبتمبر 10, 2018 (معدل) عمل رائع جزاك الله عنا كل خير وأثابك حسن الدارين ومتعك برؤية وجهه الكريم شكرا لك اخي الكريم لدي ملاحظة ماد لو عملنا ليست بوكس يتم اظهار فيها البيانات لي في الورقة codes وعملنا كود بحت من خلال تكست بوكس وعند كتابة اول حرف من اسم الصنف تظهر النتائج في اليست بوكس ومن تما يتم اختيارالبيانات وترحيلها من ليست بوكس الا الفاتورة وهده الطريقة اسرع عند العمل بدلا من الكتابة البيانات في كل مرا لاعليك اخي انا من يجيب عليه ان يعتذر تم تعديل سبتمبر 10, 2018 بواسطه محمد عبدالسلام
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.