أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
EM_ACC مجدى يونس-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة بحاجة الى كود ترحيل اكسيل اسئله واجابات


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





محتاج كود لشيت الطلاب فقط ادخال اختصار في خلايا العمود

السلام عليكم محتاج كود لشيت الطلاب فقط في حال كتابة رقم 1 في اي خلية من C2 الى C100 تظهر كلمه ( ابتدائي) وفي حاله كتابة ..


موضوع مغلق


26-01-2021 09:13 مساء
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 

السلام عليكم محتاج كود لشيت الطلاب فقط في حال كتابة رقم 1 في اي خلية من C2 الى C100 تظهر كلمه ( ابتدائي) وفي حاله كتابة رقم ٢ تظهر كلمة (اعدادي)
مع جزيل الشكر  كما في المرفق 
 
 
  ملف .xlsx   تحميل xlsx مرات التحميل :(2)
الحجم :(10.084) KB



أفضل إجابة مقدمة من salim وهي:
هذا الماكرو

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C1:C100")) Is Nothing _
 And Target.Count = 1 Then
  Select Case Target.Value
   Case 1:   Target = "ابتدائي"
   Case 2: Target = "اعدادي"
   Case Else: Target = Target
   End Select
 End If
 Application.EnableEvents = True
End Sub

الملف مرفق (تكتب 1 او  2 وتضغط  Enter/   tab / arrow/
او  تنتقل بالماوس الى خلية اخرى   او اي شيء اخر)
عرض الإجابة




26-01-2021 10:51 مساء
مشاهدة مشاركة منفردة [1]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif محتاج كود لشيت الطلاب فقط ادخال اختصار في خلايا العمود
هذا الماكرو

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("C1:C100")) Is Nothing _
 And Target.Count = 1 Then
  Select Case Target.Value
   Case 1:   Target = "ابتدائي"
   Case 2: Target = "اعدادي"
   Case Else: Target = Target
   End Select
 End If
 Application.EnableEvents = True
End Sub

الملف مرفق (تكتب 1 او  2 وتضغط  Enter/   tab / arrow/
او  تنتقل بالماوس الى خلية اخرى   او اي شيء اخر)
 
 
  I3dadi.xlsm   تحميل xlsm مرات التحميل :(4)
الحجم :(22.572) KB


27-01-2021 07:27 صباحا
مشاهدة مشاركة منفردة [2]
ابو طيبه
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 31-08-2019
رقم العضوية : 14499
المشاركات : 233
الجنس : ذكر
يتابعهم : 7
يتابعونه : 1
قوة السمعة : 290
 offline 
look/images/icons/i1.gif محتاج كود لشيت الطلاب فقط ادخال اختصار في خلايا العمود
شكرا جزيلا لك استاذ سليم بارك الله فيك وجعلها في ميزان حسناتك



الكلمات الدلالية
محتاج ، لشيت ، الطلاب ، ادخال ، اختصار ، خلايا ، العمود ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 06:09 صباحا