أبو حنــــين قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 بعد إذنك أستذ فتحي واستاذ أبو حنين ولو أردنا مسح خانة الرقم ونريدعلامة - تظهر في المربعات نستعمل هذا الكود للإفاده لا غير ********************************** بالفعل و اعتقد ان هذا هو الانسب و الله اعلم
وليد فتحي قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 بعد اذنك استاذنا الفاضل ابو حنين تعديل بسيط على الكود لعله فيه افادة عند مسح خانة الرقم كان بيفضل الرقم القديم موجود فقمت بزيادة سطر بالكود لمسح الارقام القديمة في حالة اذا كانت الخانة فارغة بعد إذنك أستذ فتحي واستاذ أبو حنين ولو أردنا مسح خانة الرقم ونريدعلامة - تظهر في المربعات نستعمل هذا الكود للإفاده لا غير If Range("D6") = "" Then Range("J6:Q6") = "-" تعديل في محله أخي الفاضل الجموعي بارك الله فيك ونفع بك
الجموعي قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 جزاكم الله كل خير أساتذتي بارك الله فيكم استاذي أبو حنين لم تجب على سؤالي في المشاركة 20
أبو حنــــين قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 السلام عليكم هذا شرح مختصر ارجو ان يفي بالغرض ' اهم سطر في الكود هو هذا السطر '-------------------------------------------------------------------------------------- 'If Not Range("D6") = "" Then Cells(6, i + 9) = Mid(StrReverse(Range("D6")), i, 1) '-------------------------------------------------------------------------------------- ' حيث 'Mid الدالة ' تقوم باختيار رقم او حرف من سلسلة نصية تحدد انت البداية و الطول '-------------------------------------------------------------------------------------- 'StrReverse الدالة ' تقوم بكتابة الكلمة او الجملة عكسيا
الجموعي قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 السلام عليكم هذا شرح مختصر ارجو ان يفي بالغرض ' اهم سطر في الكود هو هذا السطر '-------------------------------------------------------------------------------------- 'If Not Range("D6") = "" Then Cells(6, i + 9) = Mid(StrReverse(Range("D6")), i, 1) '-------------------------------------------------------------------------------------- ' حيث 'Mid الدالة ' تقوم باختيار رقم او حرف من سلسلة نصية تحدد انت البداية و الطول '-------------------------------------------------------------------------------------- 'StrReverse الدالة ' تقوم بكتابة الكلمة او الجملة عكسيا مشكور أستاذي وهذه ما شرحها (6, i + 9)
أبو حنــــين قام بنشر فبراير 26, 2014 قام بنشر فبراير 26, 2014 (معدل) 6= الصف السادس i = حلقة التكرار 9 اصفناها لان i يبدأ بالواحد و 1+9=10 فيكون اول رقم يكتب في العمود رقم 10 تم تعديل فبراير 26, 2014 بواسطه أبو حنين
ahmedgenedy قام بنشر فبراير 27, 2014 الكاتب قام بنشر فبراير 27, 2014 الاستاذ / وليد فتحى بارك الله لك فى علمك وزادك الله من فضله
إبراهيم ابوليله قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 اخى ابوحنين ما اجمل حينما تكتب بارك الله فيك
أبو حنــــين قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 اخي ابراهيم جزاكم الله خيرا حفظكم الله و رعاكم و جعل الجنة مثواكم
وليد فتحي قام بنشر فبراير 27, 2014 قام بنشر فبراير 27, 2014 الاستاذ / وليد فتحى بارك الله لك فى علمك وزادك الله من فضله جزاك الله كل خير أخي أحمد
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.