نايف - م قام بنشر نوفمبر 29, 2008 قام بنشر نوفمبر 29, 2008 السلام عليكم كود تم تجميعه من المنتدى لكن به مشكلتين لم اتمكن من حلهما - أريد ان يكون التلوين لعدة خلايا من الصف فقط - أريد أن تحافظ الصفوف الثلاثة الأولى على تنسيقها نرفق ملف ____________________________.rar
ابو اسامة العينبوسي قام بنشر نوفمبر 29, 2008 قام بنشر نوفمبر 29, 2008 السلام عليكم الصف الاول يحافظ على تنسيقه اذا اردت اول ثلاث صفوف غير من if r>1 to if r > 3 ____________________________2.rar
قطان قام بنشر نوفمبر 29, 2008 قام بنشر نوفمبر 29, 2008 أخي أبو أسامة أرجو منك اضافة شرط بحيث اذا وضع المؤشر في خلية خارج الجدول لكن ضمن الصفوف 2 إلى 18 لا يتم تلوين الصف وشرط يلغي لون الصف الأول بالجدول لدى تحريك المؤشر بعيدا عنه ويعود اللون لدى عودة المؤشر له و إن أمكن دوال الفيجوال وما تفعله بالعربي يعني شرح لكل دالات الفيجوال عربيا فلقد وجدت شرحا اجنبيا ولغتي الانجليزية ضعيفة لو سمحت والسلام ختام
ابو اسامة العينبوسي قام بنشر نوفمبر 29, 2008 قام بنشر نوفمبر 29, 2008 السلام عليكم كما طلبت نصيحة لله تعلم البيسك بالانجليزى وليس بالعربى ____________________________3.rar
قطان قام بنشر نوفمبر 29, 2008 قام بنشر نوفمبر 29, 2008 مشكور وجزاك الله كل خير على النصيحة لكن أنا قصدت الدالة المكتوبة بالانجليزي ما ذا تفعل وشرح عملها بالعربي أما ان كان قصدك الشرح فصعب لأن بداية لغتي فرنسي أما البيسك فلقد بدأت باللغة الأم البسيك القديم وتفوقت نوعا ما فيه لكني لم أدخل الفيجوال بيسك نهائيا ولم أتعرف دواله أما الأساسيات من دالة الشرط وإلا ودالة ال ( و ) ( أو ) .... فمجودة لكني بحاجة للبداية ومن المقارنة بما قمت بتعديله أنت على الملف اكتسبت بعض الأشياء لكني بحاجة للمساعدة بأن أسأل عن بعض الكلمات مثل target مثلا فهي ثابت أما row و Column فهما الأسطر والأعمدة ؟؟؟؟؟؟؟ صحيح ؟ آسف على الإطالة لكني شخص متعب مشكور وزادك الله من علمه النافع والسلام ختام
عادل حنفي قام بنشر نوفمبر 29, 2008 قام بنشر نوفمبر 29, 2008 (معدل) السلام عليكم اخي Target ترجمتها الهدف و المقصود بها الخلية النشطة تحياتي تم تعديل نوفمبر 29, 2008 بواسطه aah_aah2008
قطان قام بنشر ديسمبر 1, 2008 قام بنشر ديسمبر 1, 2008 مشكور أخي الحبيب على التوضيح لكن أتمنى من أي خبير أن يشرح الخطوة التي قام بها ولو كان موضوع خاص لتوضيح الخطوات بحيث يستطيع كل متابع التعديل عليها ومتابعة أخطائه والاستفادة واستطعت تعديل الألوان وعملية تلوينها بشكل معقول لكن كثير من الخطوات ما زالت مبهمة بالنسبة لي أرجو منك تحمل لجاجتي لكني لا أحب أن أقرأ شيئا دون فهمه والتعديل عليه وإن أمكن شرح خطوات البرنامج سطرا سطرا إن أمكن لفهم آلية عمل البرنامج والسلام ختام
عادل حنفي قام بنشر ديسمبر 1, 2008 قام بنشر ديسمبر 1, 2008 (معدل) السلام عليكم اخي و بعد اذن اخي ابو اسامه R = Target.Row c = Target.Column If R > 1 And R < 19 And c < 15 Then Range("RR").Interior.ColorIndex = xlNone Range("FR").Interior.ColorIndex = 6 Range(Cells(R, 1), Cells(R, 15)).Interior.ColorIndex = 3 Else Range("RR").Interior.ColorIndex = xlNone Range("FR").Interior.ColorIndex = xlNone End If اخي السطر الاول يقصد به ان ال R تمثل الصف المستهدف اما السطر الثاني يقصد به ان ال C تمثل العمود المستهدف السطر الثالث اذا كانت الخليه التي نحددها بالماوس بين العمود الاول و العمود ال 19 قبل العمود ال 15 فانه فان النطاق المسمي داخل الشيت و هو RR يكون بلا لون وهو الذي من الصف 2 الي الصف 18 لتفريغ اي لو بالنطاق و النطاق المسمي داخل الشيت و هو FR و المقصود به الصف الاول يكون اللون =6 و هو الاصفر و الصف الذي تقع به هذه الخليه المحدده يمثل الخلايا التي تحت الاعمده من 1 الي 15 يكون لونه 3 و هو الاحمر غير ذلك اي(اذا كانت الخلية التي نحددها تقع خارج النطاق الذي حدد و هو بين العمود الاول و العمود 19 يعني الصف 2 و الصف 18) و قد تمثلت قيمة الصف بال R لاخذ نفس قيم الاعمده من 1 الي 19 للصفوف فانه النطاق المسمي داخل الشيت و هو RR يكون بلا لون النطاق المسمي داخل الشيت و هو FR يكون بلا لون اتمني اكون وفقت بالتوضيح مع التاكيد علي كلام الاخ الفاضل ابو اسامه من الضروره بالتعلم بالانجليزيه و محاولة فهم الكود و ليس حفظه ومره مع مره تنسجم مع الاكود و يسهل قرائتها فابدا بالصعب للتسهيل عليك فيما بعد ارجو ان يعذرني اخي ابو اسامه لتدخلي هذا دون اذن خالص تحياتي تم تعديل ديسمبر 2, 2008 بواسطه aah_aah2008
قطان قام بنشر ديسمبر 2, 2008 قام بنشر ديسمبر 2, 2008 الله أكبر هذا هو المطلوب فلقد استطعت معرفة الكود وكيفية استخدامه وسأسعى لتعديل البرنامج ومع كل خطأ سأسأل الخبراء جزاهم الله عنا كل خير وأعود وأشكرك أخي aah_aah2008 على الجهد وأشكر أخي أبو أسامة على نصيحته وسأحاول العمل بها خجل أمام صنيعكم مشكورين وفي ميزان حسناتكم والسلام ختام
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.