طلب تبديل رقم في الاكسل بكلمات

[سحـابة خير]

السلام عليكم

اود عمل شيت تقييم للمعلمات

 

1> Pre Foundation

  2 >  Foundation

3 > Emerging

4 > Established

5 > Accomplished

 

بحيث لو كتبت 1 يكتب البرنامج بنفسه كلمة Pre Foundation

 

 وهكذا

 

وشكرا

[وليد فتحي]

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

على حسب فهمي لطلبك

اتفضل الملف المرفق وأتمني من الله ان يكون هذا طلبك

تحياتي لك

تبديل_W.rar

[سحـابة خير]

شكرا لتجاوبكم السريع معنا

 

لكنني أريده أن يتبدل في نفس المربع - يعني بمجرد ان انتهي من كتابة رقم 1 وانتقل للمربع الثاني ، يتحول رقم 1 الى كلمة Prefondation

[وليد فتحي]

شكرا لتجاوبكم السريع معنا

 

لكنني أريده أن يتبدل في نفس المربع - يعني بمجرد ان انتهي من كتابة رقم 1 وانتقل للمربع الثاني ، يتحول رقم 1 الى كلمة Prefondation

 

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

الشكر لله اتفضل الملف على حسب طلبك

جرب الكتابة بالخانة رقم B3

تبديل_W1.rar

[سحـابة خير]

ممتاز

لكنني عندما حذفت الصف 2 لم تتحول الكلمات

هل هناك معادلة مخفية ؟

[سحـابة خير]

وعندما سحبت المربع لاسفل لايعمل

 

وعندما نسخت المربع لمكان ثاني لا يعمل

[وليد فتحي]

 الملف شغال بالكود وليس بالمعادلات وكان الكود شغال على خلية رقم B3

علشان كده انت لما حذفت الصف الثاني وجيت تكتب

كتبت بالخلية B2 فعلشان كده الكود مشمتغلش

فحاول فيها لاني خبرتي بالاكواد ليست كبيرة

[سحـابة خير]

ترى انا بحتاج اسحب هالكود لصف كامل ، لما جربت سحبته ماشتغل

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سحـابة خير

بارك الله فيكي

بعد اذن اخي الحبيب / وليد فتحي ... جزاه الله خيرا

طريقة باستخدام الكود لتنفيذ طلبك علي العمود A

قومي بكتابة الرقم 1 الي 5 في اي خلية في العمود A وشاهدي النتيجة في العمود A في الخلية نفسها

باستخدام الكود التالي

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
For i = 1 To 25000
If Cells(i, 1) = 1 Then Cells(i, 1) = "Pre Foundation"
If Cells(i, 1) = 2 Then Cells(i, 1) = "Foundation"
If Cells(i, 1) = 3 Then Cells(i, 1) = "Emerging"
If Cells(i, 1) = 4 Then Cells(i, 1) = "Established"
If Cells(i, 1) = 5 Then Cells(i, 1) = "Accomplished"
Next
End Sub

تقبلي خالص تحياتي

 

ملفات مرفقة

 

تقييم .rar

تم تعديل أبريل 22, 2014 بواسطه حمادة عمر
للخطأ في رفع الملف بالخطأ وتم تصحيح المرفق

[شوقي ربيع]

السلام عليكم

تحية كبيرة الى الاخوين  وليد فتحي و حماده عمر

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

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then
        Select Case Target
            Case 1
                Target = "Pre Foundation"
            Case 2
                Target = "Foundation"
            Case 3
                Target = "Emerging"
            Case 4
                Target = "Established"
            Case 5
                Target = "Accomplished"
        End Select
    End If
    
End Sub

RABIECHAOUKI.rar

[سحـابة خير]

جزاك الله خير مشرفنا

 

لكن طلبي ان يتغير الرقم في نفس العمود

 

يعني لو كتبت رقم 1 في 1A  يتغير الرقم 1 ليصبح Prefoundation  في نفس الخلية

 

هل هذه الخاصية متاحه في اكسل ؟

 

اذا ليست متاحه اعتقد اني احتاج قائمة منسدلة واكتب الرقم ويختار البرنامج بناء على الرقم ،، وفي نفس الخلية

[حمادة عمر]

السلام عليكم

الاخت الفاضلة / سحـابة خير

بارك الله فيكي

 

عودي للمشاركة السابقة ... تم تعديل الكود في المشاركة رقم 9 لتتناسب مع طلبك

حيث كنت قد اسأت فهم طلبك ...

وتم التعديل ... وتعديل المرفق ... شاهدي المشاركة مرة اخري

 

وتم تقديم حل آخر من اخي الحبيب / شوقي ربيع ... جزاه الله خيرا

 

تقبلي خالص تحياتي

[أم عبد الله]

الأستاذة الفاضلة / سحابة خير

 

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

 

بعد إذن أساتذتي الأفاضل الأستاذ / وليد فتحي وأستاذنا الكبير / حمادة عمر وأستاذنا الكبير / شوقي ربيع جزاهم الله خيراً على الحلول والأكواد الرائعة ولإثراء الموضوع يمكن عمل ذلك بدون اكواد أو دالات يمكن الذهاب إلى خيارات الاكسيل ونختار تدقيق ومنها تصحيح تلقائي يظهر مربع حواري به خانتين في الخانة الأولى نكتب 1مع حرف و , مثلاً يعتي تكون على الصور 1, وفي الخانة الثانية نكتب الكلمة المراد استبدالها ثم نضغط على إضافة وهكذا لباقي الأرقام واخترت كتابة الرقم 1 مع حرف الواو 1, لتفادي عند كتابة الرقم 1 فقط في باقي الملفات يستبدلها بالكلمة التي كتبناها وبعد الانتهاء نختار أي خلية نكتب مثلاً 3, ثم نضغط Enter تظهر الكلمة مباشرة. وإليك الملف به المطلوب.

A1.rar

[سحـابة خير]

حمادة عمر

 

ممتاز هذا ما ابحث عنه شكرا جزيلا

 

بقي ان تعلمني كيف اعمل هالحركة

او كيف انقلها لملفي الخاص الذي اشتغلت عليه

[سحـابة خير]

الخطوة التالي هي حساب المعدل لاعطاء كل متوسط اسم

 

يعني بعد ان انتهي من تقييم كل هدف ، راح يطلع لي مجموع او متوسط في عامود لحاله ( وهذا له حساب مختلف) ، احتاج احول هالمتوسط الى كلمات مثل ماتفضلتم بتحويله لي سابقا

 

انا عندي الكود جاهز لاني اشتغلت عليه

 

1:1.99 = 1

2:2.99 = 2

3: 3.99 = 3

4: 4.99 = 4

5: 5.99 = 5

 

-------

0-10 = 1

11-20 = 2

21-30 = 3

31- 40 = 4

-----------------

0-10 = 1

11-20 = 2

21-30 = 3

31- 40 = 4

 

هالتقسيمات لكل عمود راح يختلف معدل الارقام

 

----

هل بامكانكم توفير هالمعادلات لي في ملف ؟

 

شكرا جزيلا لتعاونكم معنا

[وليد فتحي]

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

الاستاذة سحابة خير

برجاء ارفاق ملف حتي يستطيع من يقدر على تقديم المساعدة العمل عليه

[سحـابة خير]

 

السلام عليكم

 

تم توفير الملف للمساعدة

 

شكرا لردودكم المميزة

تقييم المعلمات.rar

[أم عبد الله]

الأستاذة الفاضلة / سحابة خير

 

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

 

إليك الملف لعله المطلوب.

تقييم المعلمات.rar

[سحـابة خير]

صباح الخير

اقدر جهودكم معي

 

احتاج تحويل كل شي في الملف لكلمات

يعني لما احط رقم 1 يطلع Prefoundation- وفي الاعمدة الصفراء يجمع بنفسه حسب المعالات ثم يغير إلى كلمات بدل الارقام

 

هل هذا ممكن ؟

[سحـابة خير]

مشرفنا حماده عمر استطاع فهم ما احتاج

لكنني احتاج ان افهم كيف استطاع تغيير الرقم الى كلمه في الملف الذي ارفقه في مشاركته

[وليد فتحي]

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

الاستاذة الفاضلة سحابة خير

على حسب فهمي لطلبك تم العمل بالمعادلات وليس بالاكواد عن طريق بعض الاعمدة المخفية

اتمني من الله ان يكون هذا طلبك

تحياتي لك

تقييم المعلمات_W.rar