أساسيات VBA إكسل -- 04 إستخدام العنصر Range / Cells / Offset
HTML-код
- Опубликовано: 14 окт 2024
- شرح استخدام Range و Cells و Offset للوصول الى الخلايا VBA Excel
تابعونا عبر :
الموقع الإلكتروني » et3lmonline.com/
الموقع الإلكتروني المؤقت لمايكروسوفت أوفيس » et3lmonline.com...
الفيسبوك » / et3lmonline
الفيسبوك الصفحة الفرعية لمايكروسوفت أوفيس » / et3lmmsoffice
تويتر » / et3lmonline excel training, excel help, microsoft excel help, excel courses
بجد الله يفتح عليك كلام بسيط بس مهم جدا
جزاك الله كل خير على هذا التبسيط الجميل و الله اليوم فهمت كويس VBA
ماشاء الله عليك انا استفدت منك جدا
شرح ممتاز
زادك الله بسطة في العلم والجسم
السلام عليكم
هذا الدرس جميل و واضح جدا،
أشكر كثيرا على كيفية الشرح.
مع السلامة.
شكرا أخي والله نورتنا وتعلمنا منك أشياء رائعة نشاء الله تكتب لك في ميزان حسناتك
بارك الله فيك وجزاك الله خير شرح رائع ومفيد
انسان رائع رائع رائع رائع رائع رائع رائع رائع رائع
شكرا على المجهود الرائع وجزاكم الله خيرا
جزاك الله خيرا استاذنا محمود .. ونرجو المزيد فى مجال مشاركة الملفات على شبكة داخلية بحيث يتم فتح الملف على اكثر من جهاز وكل مستخدم له صلاحيات مختلفة فى الادخال والاطلاع والتعديل والطباعة
للأسف لم استخدم هذه العمليات من قبل حتى استطيع شرحها.
جزاك الله خير انا بالمانيا واستفدت كتيير من الشرح
عندي سؤال لوسمحت ياليت تساعدني فيه مطلوب مني اعمل من الخلية d4 :d13 واحط فيها من ٤ الى ٤٠ ازاي اعملها حاولت وماعرفتش
ali mj Public Sub aaa()
Cells(4, 4).Value = 4
Cells(5, 4).Value = 8
Cells(6, 4).Value = 12
Cells(7, 4).Value = 16
End Sub
ازاي اختصر الكوود
ali mj Sub a_a()For i = 1 To 10 Cells(i + 3, 5).Value = i * 4Next iEnd Sub
et3lmonline الله يوفقك واتمنى لكم التقدم ومعاونتنا
شكرا لتعبكم وفية سؤال لو عايز اخذ خلية من الشيت واضيف عليها من التكست بوكس القيمة واضعها فى خلية اسفلها جديدة
الشكر لله
للأسف لا استخدم الاكواد بشكل كبير، فلا استطيع المساعدة
يمكنك ان تضع استفسارك في منتديات اوفيسنا وستجد هناك اساتذتنا
بارك الله فيك ويزيدك من علمه وفضله
سؤال:
هل من الممكن تلوين الخلايا تنسيق شرطى عن طريق vba
بمعنى تلوين خلايا داخل العمود بناء على شرط معين مرتبط بخلية تانية بدالة if بس يكون عن طريق vba
لست مستخدم جيد للأكواد في الاكسل
لكن اجابة سؤالك هي نعم يمكنك القيام بذلك، لكن لماذا لا تستخدم التنسيق الشرطي المتاح في الاكسل؟
للقيام بما تريده، ستحتاج الى 4 معلومات
1 - طريقة تنفيذ تنسيق معين على الخلية
2 - استخدام الجمل الشرطية في اكواد الاكسل
3 - التعامل مع الخلايا (موضوع هذا الفيديو)
4 - اضافة الكود في المكان الصحيح، والذي اعتقد انه حدث* يتم تنفيذ الكود الخاص به متى تغيرت قيمة في خلايا معينة
* حدث = event
للأسف كما ذكرت سابقا لست مستخدم جيد، فلا استطيع توفير كود يساعدك
@@et3lmonline شكرا جزيلا لحضرتك
تستحق الاحترام
مشكور ...... وجزاك الله كل خير
بارك الله فيك
بالنسبة للتعامل مع الجداول المسماه في الاكسل إزاي
بفرض ان الجدول اسمه
xtbl
Range("xtbl").Select
هذا الامر سيقوم بتحديد كامل الجدول (بدون رؤوس الأعمدة)
تسلم علي الرد يا أستاذنا الكريم
بس التعامل معاه زي مثلا أخر صف فيه بيانات وكده ......
أقصد مثلآ كإني مصمم فورم كامل فيه كل حاجه من إضافة وحذف وتعديل وبحث بالحرف وكمان تكست بوكس بيجيب اللي داخل الجدول المسمي في الشيت مثلا
ساعتها الموضوع حيبقي مختلف كتير خصوصاً كل الفيديوهات بتشرح الشغل ده علي خلايا عادية مش علي جدول مسمي ..
نتمني من حضرتك فيديو يوضح التعامل معاه أثناء عمل فورم يحتوي علي أزرار لعمل ماذكرته لحضرتك ....
وبعتذر علي الإطاله وبارك الله فيك ...
ودائما موفق باذن الله
أهلا Safia
للأسف خبرتي في الاكواد بالاكسل محدودة جدا لعدم استخدامي لها
لكن اجابة استفسارك موجودة بالموضوع التالي
stackoverflow.com/a/46545583
استاذنا العزيز شكرا على الشرح لدي سؤال كيف اعمل خلية داخل الاكسيل تظهر فيها صور منتجات اخزنها مسبقاً في D: وهناك قائمة في اكسيل باسماء المنتجات كلما اثبت التأشير على اسم منتج تظهر صورته في هذه الخلية وشكراً
شاهد هذا الفيدو
ruclips.net/video/CEM0pp5SjMU/видео.html
تذكر ان كثرة الصور في الملف ستؤدي الى زيادة في حجم ملف الاكسل
thanks for this video , please i need your help to make some thing with macro i can't get any output .
ان كانت هناك مشكلة تتعلق بهذا الفيديو، فتفضل باضافتها في تعليق
اما اذا كان شئ خارج اطار الموضوع فللأسف لست ذو خبرة مناسبة للمساعدة في هذا الامر
حاول في منتديات اوفيسنا
@@et3lmonline لا هى مثال غير الموجود في الفيديو بس اين منتديات اوفيسنا ممكن لينك ؟
www.officena.net/ib/
ممتاززززز
استاذي الفاضل :: بارك الله فيك . وجعل علمك شافعاً لك يوم القيامه
حضرتك اتكلمت عن Activecell وازاي اعمل لها offset بمقدار معين للصفوف والاعمده
تمام .. ليه استفسار لو سمحت
ازاي اعمل offset للــ Activecell بمقدار 0 صف واخر خليه مكتوب بها بيانات في نفس الصف بمعنى لو انا واقف في الخليه A1 وعندي بيانات مكتوبه في الصف 1 لغاية الخليه f1 ازاي وانا في userform اقوله ان textbox ده بيساوي الــ Activecell. بأزاحة بمقدار (0 صف و اخر خليه مكتوب بها بيانات +1 في نفس الصف )
**************
عندي افتراض X لازاحة الاعمده مثلاً
x = Range("A" & Rows.Count).End(xlUp).Row
Range("A" & x + 1).Value = TextBox1.Value
انا عايزها للصف تحتار اخر خليه بها بيانات في نفس الصف الموجود به الــ Activecell
ارجو ان يكون استفساري واضح
كما ارجو الاجابة وجزاك الله عنا كل خير
+zakaria taha للأسف السؤال غير واضح بالنسبة لي
لكن أعتقد أن هذا الفيديو قد يساعد
Microsoft Excel Training تحديد أخر صف / عمود في جدول البيانات بإستخدام VBA
ruclips.net/video/0KTAvXJQXWg/видео.html
السلام عليكم ورحمة الله وبركاته
استاذي المحترم
من فضل حضرتك محتاج كود تفعيل التفقيط بالنسبة للارقام الي حروف اوفيس 2007 عربي
وجزاك الله خيرا
ابحث عن فيديو التفقيط هنا في القناة وستجد به رابط الكود وطريقة استخدامه
وعليكم السلام ورحمة الله وربركاته
تحية طيبة الأخ الكريم
لدي سؤال عن ترحيل بيانات فاتورة مبيعات وهو: هل يمكن كتابة كود ترحيل بيانات فاتورة وجمع الأصناف المتشابهة منها في جدول المبيعات تلقائيا دون تكرارها, أي جمع السعر النهائي والعدد المباع مثلا لصنف ما تلقائيا خلال الترحيل دون تكرار اسم الصنف أسفل بعضها.
هل لديك فيديو على قناتك يقوم بشرح ذلك..
أهلاً وسهلا
فهمت سؤالك، لكن لا أعرف طريقة عملها
شكرا لك، ماذا يعني هذا : range("a65356
هذا اشارة للخلية a65356 بحيث تستيطع التعامل مع خصائصها المتنوعة
جميل جدا
بس عندى إستفسار
عايز أعمل فى vba دالة if
بمعنى عايز اقوله لو الخلية bs5 = 1 والكلية cd5 >0 فى الورقة رقم 2 ادينى قيمة الخلية e5 فى الورقة رقم 1 وفى حالة عدم التحقق اديني 50 مثلا
بس الدالة تطبق على العمود bs والعمود cd فى الورقة رقم2 والعمود e فى الورقة رقم1
بمعنى ان عندى 1000 طالب وعايز الدالة تطبق على كل الحالات التى تنطبق عليها الشروط
حاولت أنفذ إللى حضرتك شرحته بس للأسف لم تنجح
وشكرا جزيلا لحضرتك
السؤال غير واضح
لماذا تحتاج الى استخدام الاكواد؟ هل ما تحتاجه لا يصلح معه المعادلات، خصوصا وانك تشير الى وجود 1000 طالب وهو رقم صغير من الصفوف
@@et3lmonline عندما أستخدم المعادلات تظهر رسالة خطأ مرجع دائرى
ولا أعرف ماهو الحل
وعندما شاهدت الفيديو جاءت فكرة حلها بالأكواد
وأرجو المساعدة
الخطأ الذي ظهر لك سببه بناء معادلة تشير الى نفسها بشكل مباشر او غير مباشر
لسرعة الحصول على مساعدة، انصحك باضافة سؤالك في جروب خبير اكسل على الفيسبوك
تحية طيبة الأخ الكريم
لدي سؤال عن ملف إكسل حجمه 18 ميغا
عمل الملف بطيء رغم أنني قمت بنقله إلى أكثر من لابتوب وشغلت الأكواد و لكنه يعاني من نفس البطء
حتى يكون الأمر واضحاً أكثر.. هناك كود من عدة كلمات نستطيع من خلالها عند فتح الملف في كل مرة يقوم بالانتقال تلقائياً إلى الصفحة التي قمنا بتحديدها في الكود عن طريق الأمر Select
ومنذ ذلك الحين والبرنامج عندي يعاني من الثقل رغم أنني قمت بحذف الكود عندما لاحظت ثقله ولكن رغم ذلك بقي البطء موجوداُ فيه
ولم أجد حلاً لذلك إلى الآن.. وعند القيام بأي ترحيل أو أي تغيير أو حتى الانتقال بين الخلايا يعطي رسالة أسفل الشريط إلى اليسار مضمونها:
يتم الآن المعالجة (4 معالج)
أهلا وسهلا
للأسف لا أستطيع ان أساعدك في مثل هذه المشكلة، لعدم توافر معلومات كافية، ولضعف معلوماتي في جزئية ترحيل البيانات.
نصائح قد تفيد:
1- الرسالة التي تظهر لك، تشير الى قيام الاكسل باتمام عملية معالجة معينة، فهل لديك معادلات كثير في الملف وتحتاج وقت حتى يتم حساب نتيجتها؟
2- ان كنت تستخدم الدالة countif / countifs، فهم ذو اداء ضعيف، بمعنى ان استخدامهم بشكل مكثف في الملف يحتاج الى وقت اطول من المعتاد في عملية المعالجة.
3- ان كان الملف لا يوجد به بيانات كبيرة ليكون حجم الملف 18 ميجا، ازل كل التنسيقات الغير ضرورية، تأكد من حذف الصفوف الخالية تحت اخر صف به حركة بيانات والمثل للأعمدة
يمكنك ارسال الملف --بدون اكواد-- الى et3lmonlinep at gmail dot com وان كانت لدي اي ملاحظات سأبلغك بها
السلام عليكم استاذي الكريم اريد عمل ترحيل من الفاتورة الي صفحة العميل مع العلم ان الترحيل يكون بعدة شروط اولا.يجب مراعاة الصنف مع لون الصنف اذا كان هذا مطابق لطلب العميل في ورقته ناخذ الكمية من الفاتورة ووضعها في ورقة العميل زائد الكمية المباعة سابقا في حالة لم ياخذ كل الكمية في اول مرة وشكرا
وعليكم السلام
للأسف خبرتي في هذا الموضوع ضعيفة فلا استطيع المساعدة
يمكنك ان تستعين بخبرات الاساتذة في منتدى اوفيسنا ستجد هناك ان شاء الله ما تريد
ماشاء الله عليك انا استفدت منك جدا