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

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


اعلان هنا
صقور الاكسيل
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا


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





وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله في منتدى أوفيسنا وجدت سؤال لأحد الأخوة ، وهو كيف يمكن وضع عنوان ..



25-09-2019 09:11 مساء
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
السلام عليكم ورحمة الله وبركاته

إخواني وأحبابي في الله


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

لنفرض أننا حالياً في الخلية (A1)  و يتم تخزين هذا العنوان في متغير ، ثم يتم الذهاب إلى الخلية ( K35) و عند تشغيل الماكرو يتم الانتقال تلقائياً إلى الخلية (A1) باعتبارها هي الخلية التي كنا فيها .. أي يتم الرجوع إلى آخر خلية كانت نشطة

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

وإليكم الكود لعله يفيد أحدكم

Sub Store_ActiveCell_In_Variable_Go_Back_At_The_End()
    Dim c As Range
    
    Set c = ActiveCell
    
    'Your Macro
    Application.Goto Range("K35")
    Application.Wait Now + TimeValue("00:00:03")
    
    Application.Goto c
End Sub


إعداد وتقديم / ياسر خليل أبو البراء




25-09-2019 10:21 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1496
الدولة : مصر
الجنس : ذكر
الدعوات : 1
قوة السمعة : 6946
الاعجاب : 49
 offline 
look/images/icons/i1.gif وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End
أحسنت استاذ ياسر كود ممتاز جعله الله فى ميزان حسناتك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

25-09-2019 10:50 مساء
مشاهدة مشاركة منفردة [2]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End
أحسن الله إليك أخي الحبيب علي ومشكور على مرورك العطر




26-09-2019 09:42 صباحا
مشاهدة مشاركة منفردة [3]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End
ابو اليسر
اكدب عليك اكدب عليك اكدب عليك
اكدب عليك لو قولت فهمت حاجة
ما تتفضل علينا بفيديو عملى كده
لكى امثالى يقدروا يفهموا121




26-09-2019 05:49 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End
بارك الله فيك أخي صلاح
أنا أسجل فيديوهات عندما يتاح لي الأمر ، ولن أستطيع تسجيل فيديو لكل موضوع في الحقيقة ..خصوصاً أن الموضوع بسيط ولا مشكلة على الإطلاق في أسطر الكود
ما المشكلة التي واجهتك بالكود؟




29-09-2019 10:47 صباحا
مشاهدة مشاركة منفردة [5]
صلاح الصغير
menu_open
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 55
المشاركات : 292
الجنس : ذكر
تاريخ الميلاد : 13-10-1973
قوة السمعة : 231
الاعجاب : 0
 offline 
look/images/icons/i1.gif وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End
لا مفيش كل الموضوع ان ما فهمت اى حاجة
طيب ملف لله بلاش فيديو
حبيبى ابو اليسر




29-09-2019 01:50 مساء
مشاهدة مشاركة منفردة [6]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 8640
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 21
قوة السمعة : 25458
الاعجاب : 167
 offline 
look/images/icons/i1.gif وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End
صدقني لو الموضوع مستاهل كنت وضعت ملف ..
فكرة الموضوع مشروحة وببساطة شديدة ...

صاحب السؤال عايز ايه؟؟!! >> عايز يقف في خلية معينة أي خلية وليكن A1 وينفذ الكود ، والكود تقريباً هيروح ويحدد خلايا تانية ، فعايز يرجع لأول خلية كان واقف فيها قبل تنفيذ الكود

خد الكود وانسخه والصقه عندك في أي ملف ..واقف في الخلية A1 وجرب الكود ولاحظ الكود بيعمل ايه >>
الكود هيحفظ الخلية النشطة اللي إنت واقف فيها ويروح لخلية معينة K35 مثلاً وينتظر لثواني ويرجع تاني لنقطة البداية
بس خلاص يا مؤمن
 







الكلمات الدلالية
عنوان ، الخلية ، كقيمة ، متغير ، Store ، ActiveCell ، Variable ،


 







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

الساعة الآن 01:08 مساء

أعلن هنا
أعلن هنا
أعلن هنا