قصي قام بنشر أكتوبر 18, 2011 قام بنشر أكتوبر 18, 2011 شكرا لكم .. وجزاكم الله خيرا هل يوجد كود يحعل الاعداد دائما بالعربي في صفحة الاكسيل ؟
عبدالله المجرب قام بنشر أكتوبر 18, 2011 قام بنشر أكتوبر 18, 2011 السلام عليكم تم فتح موضوع مستقل للفائدة اخي يمكن ذلك بوضع هذا الكود في حدث التفعيل لورقة العمل التي نريد Private Sub Worksheet_Activate() Cells.Select With Selection .ReadingOrder = xlRTL End With Range("A1").Select End Sub
saad abed قام بنشر أكتوبر 18, 2011 قام بنشر أكتوبر 18, 2011 اخى عبدالله المجرب شكرا جزيلا وجزاك الله خيرا سعد عابد
احمد حمور-ابوعبدالله قام بنشر أكتوبر 18, 2011 قام بنشر أكتوبر 18, 2011 اخي ابو احمد جزاك الله خيرا على هذا الكود ولو انني فهمته ولكنه لم يظهر الارقام بالعربي فارجوك ان كان هناك تقصير من عندي ان تدلني عليه وان كان موجود جزء ناقص في الكود ان تضعه حتى تكتمل الصوره لدي ولو انه في نظير ابداعاتك المتواصله في منتدانا الغالي اعتقد ان التقصير عندي ولكني ربما لم افهم تطبيق الكود جيدا
الحسامي قام بنشر أكتوبر 19, 2011 قام بنشر أكتوبر 19, 2011 يمكن استخدام الكود التالي Cells.NumberFormat = "[$-2000000]0"
عبدالله المجرب قام بنشر أكتوبر 19, 2011 قام بنشر أكتوبر 19, 2011 اخي احمد حمور الكود (وانا اعلم انك فاهمه) يعمل عند تفعيل الصفحة اي لو وضعت الكود في حدث ورقة العمل ثم جربت لن يعمل الكود ولكن اذهب الى صفحة اخرى ثن عد للصفحة المطلوب بإذن الله سيعمل الكود ابواحمد
احمد حمور-ابوعبدالله قام بنشر أكتوبر 19, 2011 قام بنشر أكتوبر 19, 2011 اخي ابو احمد اعلم تماما ما تقول بانه لا يعمل طالما انني في نفس الصفحه واحتاج الى مغادرة الصفحه ومن ثم الرجوع اليها ولكن هذا لم يفلح ابدا ( لا عليك يا اخي ) بارك الله فيك يا زينة شباب البحرين اخي الحسامي كودك يعمل 100% دون عناء
احمد حمور-ابوعبدالله قام بنشر أكتوبر 20, 2011 قام بنشر أكتوبر 20, 2011 اخي احمد جرب المرفق التالي لا نتيجه عندي يبدو ان الموضوع متعلق بفورمات الجهاز او ان الكود لا يعمل مع اوفيس 2003 فيديو1.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.