بعد اذن اخواني في المنتدى
هذا الكود البسيط الذي يعكس كل شيء (ارقام ونصوص)
معادلة عكس الارقام salim.rar
Function RevText(s As String)
If Len(s) = 1 Then
RevText = s
Else
RevText = RevText(Mid(s, 2, 99)) & Left(s, 1)
End If
End Function
اخواتي ياسر و .....بردو ياسر
الكود داخل الملف واضح جداً لكل من اراد ان يتطلع عليه
اعتقد انه لا حاجة لشرحه اذ ان اي شخص عنده قليل من الالمام بالاكواد يستطيع ان يفهمه بسرعة
لمن يمهه الأمر
كيف نحمي الخلايا غير الفارغة من التفيير او المسح بمجرد ادراج البيانات فيها
للتراجع عن الحماية يجب ادخال كلمة السر الموجودة في الملف (يمكن مسحها بعد معرفتها لابعادها عن الفضوليين)
protect_non_empty.rar
افعل مايلي
1-انقر على زاوية الصفحة فبل العامود A و فوف الصف 1
2-من القائمة home والتبويت cells اختر Format
3-ضع عرض الاعمدة مقدار معين كما تريده
4- Ok
5- اعد نفس العملية و لكن حدد ارتفاع الصفوف بنفس المقدار لتظهر لك الخلايا مربعة