عمر الجزاوى قام بنشر سبتمبر 22, 2023 مشاركة قام بنشر سبتمبر 22, 2023 السلام عليكم ورحمة الله وبركاته بعد اذنكم ممكن عمل نطاق دينامكى للفريم الموجود في اليوزر فور عند الضغط الليست بوكس 1 يدرج الصنف الى الليست بوكس 2 المطلوب كلما دخل صنف داخل الليست بوكس يتسع الليست والفريم حتى يأخذ 10 أصناف ويتم عمل إزاحة لليبل الخاص بعدد الاصناف والاجمالى والخصم وزر الطباعة مثل الموجود فى الصورة وجزاكم الله خير المصنف1.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة احمد عبدالحليم قام بنشر سبتمبر 23, 2023 أفضل إجابة مشاركة قام بنشر سبتمبر 23, 2023 (معدل) وعليكم السلام ورحمة الله وبركاته ضع هذا قبل اخر End If Me.Frame1.Height = Me.Frame1.Height + 14 Me.ListBox2.Height = ListBox2.Height + 14 Me.Label8.Top = Me.Frame1.Top + Me.Frame1.Height + 10: Me.Label9.Top = Me.Label8.Top + Me.Label8.Height: Me.Label10.Top = Me.Label9.Top + Me.Label9.Height Me.TextBox1.Top = Me.Label8.Top: Me.TextBox2.Top = Me.TextBox1.Top + Me.TextBox1.Height: Me.TextBox3.Top = Me.TextBox2.Top + Me.TextBox2.Height Me.CommandButton1.Top = Me.Label8.Top تم تعديل سبتمبر 23, 2023 بواسطه احمد عبدالحليم 3 1 رابط هذا التعليق شارك More sharing options...
عمر الجزاوى قام بنشر سبتمبر 23, 2023 الكاتب مشاركة قام بنشر سبتمبر 23, 2023 استاذ احمد منذ الوهلة الاولى لرؤيتك ومشاركتك هذا الموضوع ايقنت ات الخير أت لا محالة تقبل وافر تقديرى واحترامى اقسم بالله انت عبقرى حققت المطلوب الله يبارك فى حضرتك تبقى معى نقطة واحدة وهى الطباعة ان شاء الله اجهز الشيت الخاصة بنقطة الطباعة واتمنى مشاركتك فى الموضوع وجزاكم الله خير 1 رابط هذا التعليق شارك More sharing options...
عمر الجزاوى قام بنشر سبتمبر 23, 2023 الكاتب مشاركة قام بنشر سبتمبر 23, 2023 استاذ احمد السلام عليكم ورحمة الله وبركاته بعد اذنك ياستاذ احمد بعد العمل الفورم بيكبر وبيكبر المطلوب الفريم يقف عند 20 صنف ويخزن الباقى فى الليست واظهر باقى الاصناف من السكرول بار مثل مافى الصورة رابط هذا التعليق شارك More sharing options...
احمد عبدالحليم قام بنشر سبتمبر 23, 2023 مشاركة قام بنشر سبتمبر 23, 2023 قم باضافة التالى Me.Frame1.Height = Me.Frame1.Height + 14 If Me.Frame1.Height > 365 Then Me.Frame1.Height = 365 Me.ListBox2.Height = 280 End If 1 2 رابط هذا التعليق شارك More sharing options...
عمر الجزاوى قام بنشر سبتمبر 23, 2023 الكاتب مشاركة قام بنشر سبتمبر 23, 2023 انا اتشرفت بردكم الكريم وحلك المبهر بارك الله فيكم استاذنا الفاضل وجعله الله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان