السلام عليكم
اضافة الي حل الاخ / عادل و الاخ / ابو اسامة
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii > 47 And KeyAscii < 58) Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub
السلام عليكم
اذا كانت التقارير هي نفسها التي تقوم بطباعتها فقم بأشاء نموذج لها ببرنامج الوورد و احفظها كقالب ( Document Template )
بحيث يمكنك استدعاء هذا القالب نتي اردت
تحياتي
السلام عليكم
اولا اضافة Module
ثم انسخي الكود و الصقيه في Module
يمكنك استخدام الاشكال التقائية كزر ( رسم شكل من شريط الرسم ثم كلك بالزر الايمن للماوس نختار تعيين ماكرو و من صندوق الحورا اختاري اسم الماكرو ( t_now ) ثم موافق
Public Sub t_now()
ActiveCell.Value = now
End Sub
السلام عليكم
الاخ /alaamun
لاخفاء الصيغ الموجدة في ورقة العمل بالكامل حدد ورقة العمل من تنسيق خلايا نشط الخيار مخفية ثم من القائمة ادوات حماية ورقة عمل
لاخفاء الصيغ لبعض الخلايا فحدد الخلايا و من القائمة تنسيق خلايا نشط الخيار مخفية ثم من القائمة ادوات => حماية => حماية ورقة
اماء لاخفاء شريط الصيغة يمكنك استخدام الكود التالي
ِApplication.DisplayFormulaBar=False
السلام عليكم
اخي الدالة MROUND تجدها موجود بعد تنشيط الخيار Analysis ToolPak من الوضائف الاضافية كما وضح الاخ amoudi
اما بالنسبة للجمع و التقريب في نفس الخلية يتم التعويض عن الخلية A1 مثلا بالدالة sum كالتالي
mround(sum(a1:a10);0.5)
round(sum(a1:a10)*2;0)/2
السلام عليكم
اختار من القائمة ادوات => حماية => السماح للمستخدمين بتحرير نطاق
اضغط علي الزر جديد و حدد النطاق الاول و حدد كلمة المرور لهذا النطاق
كرر العمل السابق مع النطاق الثاني و حدد كلمة مرور ثانية ثم قم بحماية ورقة العمل