عزيزي قطان
السلام عليكم
بالنسبة لتصغير الفورم , استخدم الكود التالي
لاحظ أن القيم x f يمكن تعديلها للقيمة المناسبة لك
Private Sub CommandButton1_Click()
Dim x, f As Variant
x = 180
f = 30
If Me.Height > f Then
Me.Height = f
Me.Width = f
Else
Me.Height = x
Me.Width = x
End If
End Sub
minimize userform.rar
عزيزي أوضح لك نقطة مهمة
كلما كتبت في خانات الاكسل البعيدة كلما زاد حجم الملف لأن حجم البيانات المخزنة يزداد
فأنصحك عزيزي أبو الحمز بتحديد الأعمدة الغير مستخدمه (قم بتحديد العمود ثم اضغط Ctrl + ـshift+ السهم) ثم مسحها و تطبيق نفس الشيء على الصفوف
تقبل مروري
يعطيك العافيه أخوي أبو الحمز .. فكرة رائعة
اسمح لي أن أدلو بدلوي
(1) قم بتحديد العمود ,,, العمود A مثلا
(2) في الكونشنل فورماتنق قم بإضافة المعادلة التالية
=ISEVEN(Row())
وبكذا تكون لونت كل صف زوجي في الشيت حيث تتميز هذه الفكرة بتوفير مساحة الملف
ما استفدنا شي من هالمشاركة
ولكن الشباب يحاولون و يجتهدون لايصال المعلومة و لايبخلون على أحد يا أحمد
أهم حاجه المعلومة تكون مفيدة بأي طريقة وصلت , فيديو , نص أو حتى صور
و "كل واحد حر بموزه"