ahmed_atoon قام بنشر ديسمبر 20, 2010 قام بنشر ديسمبر 20, 2010 اريد ان اقوم بعمل ورقه عليها ارقام 1 2 3 وهكذا وفى الخانه اللى تحتيها بعمل معادله =A1 مثلا لكتابه نفس الرقم اللى فوق تلقائيا. ولكنى اريد ان يكون الرقم بالمقلوب لاننى سوف اقوم بطباعته هكذا ووضعه على استاند ذو وجهين فيبان الرقم من الناحيتين. ولم اجد طريق لعكس الرقم غير ان اقوم بعمل رقم رقم عن طريق الرسم وعكسه. وبالتالى هذا الكلام لن استطع من خلاله انجاز الارقام لكونها كثيره وايضا لا يمكن تطبيق معادله انى اسمع الارقم تلقائيا. ومرفق ملف بالمطلوب Book1.rar 1
ahmed_atoon قام بنشر ديسمبر 20, 2010 الكاتب قام بنشر ديسمبر 20, 2010 تسلم يا اخي بس ديه بتتعمل عادي من format cell وفيها مشكله ان لما هتطبع هتلاقى الرقم طالع بالجانب مش زي ما انا عاملها فى الشبت المطلوب
mimas قام بنشر ديسمبر 23, 2010 قام بنشر ديسمبر 23, 2010 ما رأيك بهذا الحل أخي أحمد .... تفضل في المرفقات : M.M.Mxls.rar
بن علية حاجي قام بنشر ديسمبر 25, 2010 قام بنشر ديسمبر 25, 2010 السلام عليكم ورحمة الله أخي الكريم حاولت أن أجد لك أرقام مقلوبة عبر النت دون جدوى، وكنت أردت أن أقترح عليك القيام بقلب الأرقام باستعمال الرسام أو غيره ووجدتك قد قمت بذكر ذلك في نص موضوعك، ثم ظهرت لي فكرة أخرى وهي إنشاء صورة مقلوبة لكل رقم من 0 إلى 9 واستعمال الدالة INDIRECT لجلب الصورة حسب عنوان الخلية في ورقة أخرى (مدرج فيها كل صور هذه الأرقام)... وقد حضرت لك ملفا بالمرفقات يقوم بكتابة 5 أرقام بالمقلوب (عدد من خمسة أرقام)... تجد كل العمل في الملف المرفق أرجو أن أكون قد وُفّقت في الإجابة على طلبك... ملاحظة: يمكن تحجيم الأرقام والصور حسب ما تريد (يجب مراعاة التناسب بين حجم الرقم وصورة مقولبه) ويمكن إضافة أرقام أخرى للعدد... أرقام مقلوبة بالصور.rar أخوك بن علية
بن علية حاجي قام بنشر ديسمبر 25, 2010 قام بنشر ديسمبر 25, 2010 السلام عليكم ورحمة الله أخي الكريم تعديل بسيط على الملف المرفق السابق بحيث هذه المرة نكتب العدد كاملا (من خمسة أرقام) في الخلية باللون الأحمر وأعلاه يكتب تلقائيا مقلوبه (حسب المطلوب) (وقد تم تصحيح وتعديل خصائص الصور في توحيد ارتفاعها وعرضها لئلا تظهر صور الأرقام غير مستوية كما في الملف السابق)... وأي استفسار تجدني بإذن الله في الخدمة... أرقام مقلوبة بالصور_2.rar أخوك بن علية 1
بن علية حاجي قام بنشر ديسمبر 25, 2010 قام بنشر ديسمبر 25, 2010 السلام عليكم ورحمة الله أخي الكريم وهذا عمل آخر مختلف تماما عما سبق، قمت بتحضير نوع خط جديد سميته Inversed.ttf يقوم بقلب أي حرف أو رقم أو علامة بعد تطبيق هذا النوع عليها وتجد اسم الخط في قائمة الخطوط مقلوبا هو أيضا... في الملف المرفق تجد ملفين أحدهما هو نوع الخط يجب تنصيبه مع خطوط ويندوز والملف الثاني هو مثال تطبيقي على قلب الأرقام وقد استعملت معه دوال تقوم بكتابة الأرقام بالعكس (من اليمين إلى اليسار) (والحد الأعلى لأرقام العدد الذي تريد قلبه هو 6 أرقام)... أخوك بن علية قلب الأرقام بالخط.rar 4
خالد الشاعر قام بنشر ديسمبر 25, 2010 قام بنشر ديسمبر 25, 2010 استاذى الفاضل خطوط قلب الارقام تعمل مع برنامج ورد و الخط المرفق لقلب الارقام BACKRG__.rar
بن علية حاجي قام بنشر ديسمبر 26, 2010 قام بنشر ديسمبر 26, 2010 (معدل) السلام عليكم ورحمة الله أخي الكريم، لم أفهم عليك الملاحظة "خطوط قلب الارقام تعمل مع برنامج وورد" لأنه إذا تم تنصيب أي خط من الخطوط فتجدها تعمل مع أي برنامج في الويندوز... ونوع الخط الذي حضرته وسميته Inverse.ttf في ردي السابق قمت بتدوير حروف وأرقام ورموز الخط المعروف Times New Roman أفقيا ثم عموديا بزاوية 180 درجة (وهو الذي يريده أخونا أحمد في طلبه -على ما أعتقد-) بينما نوع الخط الذي اقترحته في ردك فهو يقوم بقلب الحروف والأرقام عموديا بزاوية 180 درجة... والله أعلم أخوك بن علية تم تعديل ديسمبر 26, 2010 بواسطه hben 1
الخالدي قام بنشر ديسمبر 26, 2010 قام بنشر ديسمبر 26, 2010 السلام عليكم ورحمة الله وبركاته في الملف المرفق معادلة تقوم بعكس الارقام الموجودة في خلية , مثلا الارقام (123456) تعكس الى(654321) و المعادلة تعمل بصرف النظر عن عدد الارقام في الخلية. وضعت المعادلة في هذا الموضوع بسبب اني استفدت واخذت الفكرة الاساسية للمعادلة من المعادلات الموجودة في ملف اخي الفاضل الاستاذ بن علية تحياتي معادلة عكس الارقام.rar 6
سليم حاصبيا قام بنشر يناير 11, 2016 قام بنشر يناير 11, 2016 (معدل) بعد اذن اخواني في المنتدى هذا الكود البسيط الذي يعكس كل شيء (ارقام ونصوص) معادلة عكس الارقام 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 تم تعديل يناير 11, 2016 بواسطه سليم حاصبيا 3
ياسر خليل أبو البراء قام بنشر يناير 11, 2016 قام بنشر يناير 11, 2016 أخي الكريم سليم بارك الله فيك وهذه دالة معرفة أبسط تقوم بالمهمة Public Function strReverse(ByVal cell As Range) As String strReverse = VBA.strReverse(cell.Value) End Function 3
قلم-الاكسل(عبدالعزيز) قام بنشر يناير 12, 2016 قام بنشر يناير 12, 2016 رائعون ومبدعون كالعادة شكرا للجميع بارك الله فيكم والى الامام ما يعجبني في المبدعين دوما سباقين 2
أ . مجدي قام بنشر يناير 12, 2016 قام بنشر يناير 12, 2016 مبدع كعادتك أستاذ بن علية حاجي ... و فقك الله ......
الردود الموصى بها