أبو عبد النور

شكرا لك اخي ابو اسامة بالنسبة للوميض لا اريده ان يكون باستمرار لانه يثقل الجهاز. هو يعمل هكذا : - عند فتح المستند واذا كانت هناك انذارات لمواعيد فان ورقة "مواعيد" تومض لفترة لكي تنبهنا وبعد مدة تنفتح تلقائيا - عند فتح ورقة "مواعيد" يظهر لنا عدد المواعيد كل حسب شروطه، مثلا : مواعيد اقل من 3 ايام : 2 مواعيد اقل من يومان : 0 مواعيد اقل من يوم : 1 مواعيد حينية : 1 ثم امام كل خانة موعد تكتب رسالة : * "باقي 3 ايام قبل الموعد" مع الوميض واللون الاصفر. * "باقي يومان قبل الموعد" مع الوميض واللون البرتقالي. * "الموعد غدا" مع الوميض واللون الاحمر. * "الموعد اليوم" مع الوميض واللون الاخضر. ... شكرا وبارك الله فيكم وفي جهودكم. blink0.rar

السلام عليكم، هل من الممكن الحصول على ورقة مواعيد اين يكون التنبيه بواسطة وميض الورقة وكذا الخلايا المعنية ؟ بحيث وميض الخلايا يكون بثلاث مراحل : 1 - الموعد - 3 : اللون اصفر 2 - الموعد - 2 : اللون برتقالي 3 - الموعد - 1 : اللون احمر 4 - الموعد : اللون اخضر ... شكراً وبارك الله فيكم.

هل من الممكن الحصول على ورقة مواعيد اين يكون التنبيه بواسطة وميض الورقة وكذا الخلايا المعنية ؟

هل من جديد ؟ بارك الله فيكم.

الامر بسيط. البرنامج يبحث لك عن اصغر قيمة واكبرها لحظة ادخال اي قيمة في الجدول الاول. وما دام الامر متعلقا بالبورصة فاني اترك متابعته لاصحاب الخبرة.

اطن ان هذا يفي بالغرض أخي. __________.rar

الملف في المرفقات. عدل عليه ما استطعت. وفقك الله. LigneColor.rar

كيف يمكن نسخ التنسيق الى اي مجال ؟ بانتظار اصحاب الخبرة في الـ VBA.

شكرا لك أخي. ولكنني - حسب الردود - انا الوحيد الذي لم افهم كيفية عمل الملفا ومن ثم الاستفادة منه. لو تفضلت بقليل من الشرح بارك الله فيك.

شكرا لك أخي وائل.

نعم هذا يحقق الغرض. بارك الله فيك أخي وائل. ولكن كيف أوسع نطاق تطبيق الشرط ؟ ثم باستعمال الـ VBA ، كيف يمكن التعديل على الكود أعلاه لتحقيق الغرض ؟ شكراً.

السلام عليكم، اريد ان تاحصل على التالي : لدي جدولان في الورقة. الجدول الاول : - تلوين السطر النشط بالاصفر من A الى F إذا كانت القيمة المدخلة في العمود C هي "v" أو "V" - تلوين السطر النشط بالبرتقالي من A الى F إذا كانت القيمة المدخلة في العمود C هي "r" أو "R" الجدول الثاني : - تلوين السطر النشط بالاصفر من G الى L إذا كانت القيمة المدخلة في العمود I هي "v" أو "V" - تلوين السطر النشط بالبرتقالي من G الى L إذا كانت القيمة المدخلة في العمود I هي "r" أو "R" لقد كتبت هذا الكود : Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Intersect(Target, Range("C2:C" & Range("C65536").End(xlUp).Row)) Is Nothing Then If Intersect(Target, Range("I3:I" & Range("I65536").End(xlUp).Row)) Is Nothing Then Exit Sub End If On Error GoTo Fin 'Premier tableau If Target.Column = 3 And Target.Count = 1 Then Select Case LCase(Target.Text) Case Is = "v" Range("A" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 19 Case Is = "r" Range("A" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = 44 Case Else Range("A" & Target.Row & ":F" & Target.Row).Interior.ColorIndex = xlNone End Select End If 'Deuxieme tableau If Target.Column = 9 And Target.Count = 1 Then Select Case LCase(Target.Text) Case Is = "v" Range("G" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 19 Case Is = "r" Range("G" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = 44 Case Else Range("G" & Target.Row & ":M" & Target.Row).Interior.ColorIndex = xlNone End Select End If Application.EnableEvents = True Fin: End Sub

شكرا للمجهود الكريم اخي برقش. بارك الله فيك اخي زايد ولكن ليس هذا المطلوب.

شكرا لك أخي برقش على الرد. ما اريده كما هو موضح في العمود الثاني من الارقام. ولكن هناك مشكل الخط. هل يجب دائما تثبيته على حاسب آخر حتى تقرأ الارقام ؟ شكراً.

شكرا لك أخي ميمو على تعاونك. انتظر جديدك وجديد باقي الاخوة.

السلام عليكم، الشكر لك موصول أخي ميمو على الجهد المقدم. ولكن ما أريده ستجد مثالا عليه في المرفقات. شكراً. __________________.doc

السلام عليكم، كيف اجعل الترقيم في قائمة وسط دوائر ؟ شكراً.

المثال في المرفق. Ex.rar

هل من الممكن اخي ابو تامر ان تختصر الحدثان في حدث واحد يتم تنفيذه في الورقة الاولى ؟

شكرا لك اخي ابو تامر. ولكن هل من الممكن تعديل الكود اعلاه حتى آخذ فكرة جيدة ؟

شكرا لك على الاهتمام أخي أبو تامر. في الحقيقة لا يهمني عند عمل Capital ان يكون للحرف الاول او كل الجملة. لان هذا المثال سقته لفهم لماذا لم يشتغل الحدثان مع بعض ويقتصر الامر على الاول فقط. لانه كان الكود في الاصل يشمل Worksheet_Change واحد في الورقة1 وكان البرنامج يعمل بصورة جيدة ولكن لما اضفت له Worksheet_Change في الورقة2 اصبح لا يعمل. ولكن سوف اتحدث فيما بعد عن الاضافات التي لم تعمل لدي ان شاء الله. ولكن الآن ارجو المزيد من التوضيح اخي ابو تامر فيما يخص AdvancedFilter و xlFilterCopy و CritertiaRange لان البرنامج دائما يتوقف عند هذا السطر : [A1:A100].AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Sheets("recto").Range("A5"), Unique:=True شكراً.

اين الاساتذة الكرام بارك الله فيهم ؟

السلام عليكم، اردت تجريب تنفيذ حدثان Worksheet_Change في آن واحد ولكني لم افلح. وهذا مثال على ذلك : عندما اكتب حرفا باللغة الانجليزية (مثلا a) في العمود A الورقة1 ينقل الى الورقة2 العمود A مع جعله Capital (هكذا A) . الكود في الورقة1 : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then [A1:A100].AdvancedFilter Action:=xlFilterCopy, _ CopyToRange:=Sheets("Feuil2").Range("A1"), Unique:=True Sheets("Feuil2").Range("A1:A100").Sort key1:=Sheets("Feuil2").Range("A1") End If End Sub الكود في الورقة2 : Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Count = 1 Then Target = Application.Proper(Target) End If End Sub فأين هو الخطأ ؟ شكراً.

للاسف لا استطيع ذلك ... انظر الى خصاءص جهازي على توقيعي ...

شكرا على الرد السريع اخانا علي السحيب. لقد جربت مثالك على اوفيس 2002 ولكن تنغلق نافذة الاكسل بعد تجريب المثال الذي يحدث خطا ما في البرنامج ... لم اجربها بعد على اوفيس 2000.