نايف - م
-
Posts
343 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه نايف - م
-
-
يا أستاذ يا عظيم
سؤال بس للفهم
غيرت الرقم ل 2 و مشي الحال لأني مثل ما قلت حضرتك بيشير هذا الرقم ل رقم العمود اللي منشتغل عليه
طيب
من باب التعلم غيرتو للرقم 4 و تخيل أنو كمان مشي الحال
طيب سؤال للفهم
العمود 2 و العمود 4 بالورقة هنن بس ما فيهم صيغ و باقي الأعمدة فيهم صيغ - ممكن يكون ألو علاقة هالكلام أو شو المعنى
اذا مليت من أسئلتي - مافي مشكلة
شكرا ألك
-
طيب وصلنا للحل
شكرا
أنا أعمل على العمود B و أرسلت لك صورة و هي موجودة بالأعلى تشير للعمود B على أنه عمود العمل و لم تنبهني الى تغيير الرقم
على كل آسف عذبتك معي
بدلت للرقم 2
و مشي الحال
شكرا
-
غيرتها و ما مشي الحال
طيب
الرقم 1
في الكتابة التالية على شو بيدل
Cells(Rows.Count, 1
يعني شو معناه
-
طيب أخي الكريم
جربت و ما مشي الحال
طيب ملاحظة
حذفت من كودك +1
Sheets("BUY").Range("B" & Cells(Rows.Count, 1).End(xlDown).Row+1) = ListBox1.Column(0) Sheets("BUY").Range("B" & Cells(Rows.Count, 1).End(xlDown).Row) = ListBox1.Column(0)
فنزل المطلوب في آخر خلية من العمود B
بينفع في شيء
-
عنوان ؟؟؟؟؟
هل تقصد أن يكون فيها قيمة مثلا " تسلسل"
-
-
-
-
-
جربت هذا الكود في برنامجي و لم ينجح
نقل محتوى تكست بوكس لخلية في ورقة بالضغط على زر أمر
لا أعرف السبب
ممكن المساعدة
-
-
تمام هو المطلوب
شكرا لك و أدام لك الله هذه الموهبة
-
الأخ سليم
ممكن أن توجد بعض الخلايا في هذا المجال و هي تحوي صيغ
أريد أن أحول الصيغ لقيمها في هذا المجال
إن أمكن
و شكرا
-
سؤال للأخ سليم
عندما أردت أن أحول كل الصيغ في المجا ل (MY_RG) لقيم أضفت سطر فأعطى نتيجة غير صحيحة
Dim lr As Integer Dim my_rg As Range Dim my_nb As Integer Dim i As Integer my_nb = Cells(1, 1).Value lr = Cells(Rows.Count, 1).End(3).Row For i = 2 To lr If Cells(i, 1) = my_nb Then If my_rg Is Nothing Then Set my_rg = Cells(i, 1).Resize(1, 5) my_rg.Select Else Set my_rg = Union(my_rg, Cells(i, 1).Resize(1, 5)) my_rg.Select End If End If Next my_rg.Select my_rg.Value = my_rg.Value
ممكن المساعدة في أكتشاف الخطأ أو أضافة السطر الصحيح
.شكرا
-
الأخ الفاضل سليم
بارك الله بهاتين اليدين المبدعتين
شكرا لك
هو المطلوب
الأخ العيدروس : شكرا لمساهمتك لكن المطلوب ليس في حدث الورقة
-
شكرا للأخ سليم سرعة الأستجابة
أخي الكريم
طلبي تحديد select و ليس تلوين بتنسيق شرطي
أريد ذلك عن طرق البرمجة في محرر الأكواد
لأني سأربط البرمجة بزر أمر
و شكرا لك
-
ملف مرفق
أريد تحديد خلايا بأسطر غير متجاورة اذا كان لها رقم موجود بالعمود A يساوي رقم في خلية مفنرضة
-
شكرا أخي الكريم على هذه الأيقونات الجميلة
لكن
أين يمكن أن أفك الضغط عنها لأستفيد منها
أو
ما هي الطريقة الصحيحة للأستفادة منها في برنامج الأكسيل
شكرا
-
الشكر الجزيل للأخ سليم لأنني تعلمت كيف يمكن أضافة شرط ثاني للتنسيق الشرطي علما أنني كنت أبحث عنه من مدة طويلة و الآن بفضل الأخ سليم و بالمصادفة وجدت الحل
شكرا
-
الشكر الجزيل للأخ مختار
الشكر الجزيل للأخ سليم
وفقكم الله
تم المطلوب
-
الأخ سليم شكرا جزيلا لجهودك
كنت طيبا معي
لكن المطلوب هو كما تفضل الأخ مختار
الأخ مختار :
أريد أضافة شرط : اذا كانت الخلية في العمود A المقابلة للخلية الحاوية على الصيغة غير فارغة يتم تنفيذ الكود
if cell in range a <> "" and cell in range b hasformula then
شكرا لجهودك
-
شكرا للأستجابة
ما حدث أن الخلية التي بها صيغة و يقف المؤشر فوقها تتلون
أنا أريد أن تتلون كل الخلايا التي بها صيغة بحيث استطيع تمييزها عن الخلايا التي بها قيمة
شكرا
-
كيف يمكن تلوين خلية اذا كان محتواها صيغة
بوضع كود في الحدث
selectionchange
و يزول التلوين بعد أن يصبح محتوى الخلية قيمة
ملاحظة : اذا ممكن المجال بالورقة قابل للتغير ( ديناميكي ) بأضافة قيم بشكل دائم
شكرا
-
شكرا جزيلا للطفك الواضح
أخي الكريم أعذر جهلي
لم أكن أعرف أنه يجب الضغط على أنتر بعد الكتابة لتنفيذ الأمر
شكرا
- 1
تحديد خلايا متجاورة في أسطر غير متجاورة
في منتدى الاكسيل Excel
قام بنشر
سؤال أحر مرتبط بنغس الفكرة
هل يمكن تحديد الخلايا في العمود E (فقط ) اذا كان قيمة الخلية في العمود a تساوي القيمة في الخلية a1