اذهب الي المحتوي
أوفيسنا

استفسار فى عكس او قلب رقم


ahmed_atoon

الردود الموصى بها

اريد ان اقوم بعمل ورقه عليها ارقام 1 2 3 وهكذا وفى الخانه اللى تحتيها بعمل معادله =A1 مثلا لكتابه نفس الرقم اللى فوق تلقائيا.

ولكنى اريد ان يكون الرقم بالمقلوب لاننى سوف اقوم بطباعته هكذا ووضعه على استاند ذو وجهين فيبان الرقم من الناحيتين. ولم اجد طريق لعكس الرقم غير ان اقوم بعمل رقم رقم عن طريق الرسم وعكسه. وبالتالى هذا الكلام لن استطع من خلاله انجاز الارقام لكونها كثيره وايضا لا يمكن تطبيق معادله انى اسمع الارقم تلقائيا.

ومرفق ملف بالمطلوب

Book1.rar

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

أخي الكريم حاولت أن أجد لك أرقام مقلوبة عبر النت دون جدوى، وكنت أردت أن أقترح عليك القيام بقلب الأرقام باستعمال الرسام أو غيره ووجدتك قد قمت بذكر ذلك في نص موضوعك، ثم ظهرت لي فكرة أخرى وهي إنشاء صورة مقلوبة لكل رقم من 0 إلى 9 واستعمال الدالة INDIRECT لجلب الصورة حسب عنوان الخلية في ورقة أخرى (مدرج فيها كل صور هذه الأرقام)... وقد حضرت لك ملفا بالمرفقات يقوم بكتابة 5 أرقام بالمقلوب (عدد من خمسة أرقام)... تجد كل العمل في الملف المرفق أرجو أن أكون قد وُفّقت في الإجابة على طلبك...

ملاحظة: يمكن تحجيم الأرقام والصور حسب ما تريد (يجب مراعاة التناسب بين حجم الرقم وصورة مقولبه) ويمكن إضافة أرقام أخرى للعدد...

أرقام مقلوبة بالصور.rar

أخوك بن علية

رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

أخي الكريم تعديل بسيط على الملف المرفق السابق بحيث هذه المرة نكتب العدد كاملا (من خمسة أرقام) في الخلية باللون الأحمر وأعلاه يكتب تلقائيا مقلوبه (حسب المطلوب) (وقد تم تصحيح وتعديل خصائص الصور في توحيد ارتفاعها وعرضها لئلا تظهر صور الأرقام غير مستوية كما في الملف السابق)...

وأي استفسار تجدني بإذن الله في الخدمة...

أرقام مقلوبة بالصور_2.rar

أخوك بن علية

  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

أخي الكريم وهذا عمل آخر مختلف تماما عما سبق، قمت بتحضير نوع خط جديد سميته Inversed.ttf يقوم بقلب أي حرف أو رقم أو علامة بعد تطبيق هذا النوع عليها وتجد اسم الخط في قائمة الخطوط مقلوبا هو أيضا... في الملف المرفق تجد ملفين أحدهما هو نوع الخط يجب تنصيبه مع خطوط ويندوز والملف الثاني هو مثال تطبيقي على قلب الأرقام وقد استعملت معه دوال تقوم بكتابة الأرقام بالعكس (من اليمين إلى اليسار) (والحد الأعلى لأرقام العدد الذي تريد قلبه هو 6 أرقام)...

أخوك بن علية

قلب الأرقام بالخط.rar

  • Like 4
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله

أخي الكريم، لم أفهم عليك الملاحظة "خطوط قلب الارقام تعمل مع برنامج وورد" لأنه إذا تم تنصيب أي خط من الخطوط فتجدها تعمل مع أي برنامج في الويندوز... ونوع الخط الذي حضرته وسميته Inverse.ttf في ردي السابق قمت بتدوير حروف وأرقام ورموز الخط المعروف Times New Roman أفقيا ثم عموديا بزاوية 180 درجة (وهو الذي يريده أخونا أحمد في طلبه -على ما أعتقد-) بينما نوع الخط الذي اقترحته في ردك فهو يقوم بقلب الحروف والأرقام عموديا بزاوية 180 درجة... والله أعلم

أخوك بن علية

تم تعديل بواسطه hben
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم ورحمة الله وبركاته

في الملف المرفق معادلة تقوم بعكس الارقام الموجودة في خلية , مثلا الارقام (123456) تعكس الى(654321) و المعادلة تعمل بصرف النظر عن عدد الارقام في الخلية.

وضعت المعادلة في هذا الموضوع بسبب اني استفدت واخذت الفكرة الاساسية للمعادلة من المعادلات الموجودة في ملف اخي الفاضل الاستاذ بن علية

تحياتي

معادلة عكس الارقام.rar

  • Like 6
رابط هذا التعليق
شارك

  • 5 years later...

بعد اذن اخواني في المنتدى

هذا الكود البسيط الذي يعكس كل شيء (ارقام ونصوص)

معادلة عكس الارقام 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

 

تم تعديل بواسطه سليم حاصبيا
  • Like 3
رابط هذا التعليق
شارك

أخي الكريم سليم بارك الله فيك

وهذه دالة معرفة أبسط تقوم بالمهمة

Public Function strReverse(ByVal cell As Range) As String
    strReverse = VBA.strReverse(cell.Value)
End Function

images.jpg.8551a28bbc4897d59104f692964b0

  • Like 3
رابط هذا التعليق
شارك

  • 1 year later...
زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information