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

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
ashraf_hertlion hassona229-- لا تميز خلال هذه الفترة YasserKhalil مطلوب تعديل الكود للطباعة اكسيل اسئله واجابات


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





نقل القيمه الموجوده فى خليه بمجرد تحديدها

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


موضوع مغلق


28-09-2021 06:02 مساء
seao
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 13-12-2020
رقم العضوية : 21093
المشاركات : 10
الجنس : ذكر
تاريخ الميلاد : 5-1-1983
يتابعهم : 0
يتابعونه : 0
قوة السمعة : 10
 offline 

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

اخوانى الكرام فى المنتدى 

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

مثلا فى الملف المرفق 

عند تحديد الخليه G20  الموجود بها قيمه 8 

يتم نقل الرقم 8 الى الخليه  AD 2

 

وعند تحديد خليه اخرى مثلا خليه E10   الموجود بها قيمه 2

يتم مسح الرقم القديم و  نقل الرقم 2 الى الخليه  AD 2

 

وجزاكم الله خيرا على مجهودكم فى مساعده الاخرين

 
 
  Select.xlsx   تحميل xlsx مرات التحميل :(3)
الحجم :(21.989) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
لاحظت أنه لاتوجد لك أية محاولات للوصول لحل المشكلة وهذا في حد ذاته مشكلة وغير مرغوب فيه
المفترض أنك تحاول الوصول لحل في الموضوع وتقف في نقطة معينة أو يتعثر عليك أمر ما ثم تسأل ونحاول إفادتك بأفكار تساعدك في الوصول للحل
عموماً جرب الكود التالي في حدث ورقة العمل وليس في موديول عادي
والحل بسيط جداً إذا كنت قد فهمت الموضوع
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("AD2").Value = Target.Value
End Sub
عرض الإجابة




28-09-2021 09:34 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif نقل القيمه الموجوده فى خليه بمجرد تحديدها
وعليكم السلام أخي الكريم
لاحظت أنه لاتوجد لك أية محاولات للوصول لحل المشكلة وهذا في حد ذاته مشكلة وغير مرغوب فيه
المفترض أنك تحاول الوصول لحل في الموضوع وتقف في نقطة معينة أو يتعثر عليك أمر ما ثم تسأل ونحاول إفادتك بأفكار تساعدك في الوصول للحل
عموماً جرب الكود التالي في حدث ورقة العمل وليس في موديول عادي
والحل بسيط جداً إذا كنت قد فهمت الموضوع
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("AD2").Value = Target.Value
End Sub



الكلمات الدلالية
الموجوده ، القيمه ، تحديدها ، خليه ، بمجرد ،


 










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

الساعة الآن 03:34 صباحا