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

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


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





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

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



25-09-2019 09:11 مساء
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 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
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1773
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 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
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10461
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 539
قوة السمعة : 36712
عدد الإجابات: 257
 offline 
look/images/icons/i1.gif وضع عنوان الخلية كقيمة في متغير Store ActiveCell In Variable Go Back At The End
أحسن الله إليك أخي الحبيب علي ومشكور على مرورك العطر

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

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

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

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

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

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




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


 










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

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