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