وائل يونس سلامي

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

أخي الكريم السلام عليكم قمت بالإجابة على جزء من أسئلتك في الملف المرفق ( حسب معرفتي المحدودة ) وسأحاول إكمال الباقي بمساعدة إخواني بإذن الله تمنياتي لك بالتوفيق _____.rar

أخي الكريم اكتب الكود التالي في محرر الفيجوال بيزيك على الشكل التالي : أدرج module أكتب الكود التالي : Public Sub Blink() Dim Rng As String If Range("A2") > 4 Then Rng = "C2" Else Rng = "" If Range("B2") > 6 And Rng <> "" Then Rng = Rng & "," & "F3" Else If Range("B2") > 6 And Rng = "" Then Rng = "F3" If Range("A7") > 10 And Rng <> "" Then Rng = Rng & "," & "N1" Else If Range("A7") > 10 And Rng = "" Then Rng = "N1" If Rng = "" Then Exit Sub 'And Rng <> "" Then Exit Sub Else Rng = "N1" With Sheets(1).Range(Rng).Interior If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2 End If End With appTime = Now() + TimeValue("00:00:01") Application.OnTime appTime, "Blink" End Sub ثم اكتب الكود الثاني Sub Macro1() Application.Run "FLASH.XLS!Blink" Range("D13").Select Application.Run "FLASH.XLS!Blink" Application.Run "FLASH.XLS!Blink" Application.Run "FLASH.XLS!Blink" Range("C2").Select Application.Run "FLASH.XLS!Blink" Application.Run "FLASH.XLS!Blink" Application.Run "FLASH.XLS!Blink" Range("C2,N1").Select Range("N1").Activate Application.Run "FLASH.XLS!Blink" Range("C2,N1,F3").Select Range("F3").Activate Application.Run "FLASH.XLS!Blink" Application.Run "FLASH.XLS!Blink" End Sub ثم اكتي الكود التالي : في محرر الفيجوال بيزيك للشيت التي تعمل عليها Private Sub Worksheet_Activate() appTime = Now() + TimeValue("00:00:01") Application.OnTime appTime, "Blink" End Sub هذا ما فهمته من الملف : وطبعا يمكنك استبدال أرقام الخلايا حسب ما تريد أرجو أن أكون قد وفقت بالإجابة تمنياتي لك بالتوفيق

أخي الكريم أنظر الملف المرفق وجدته في إحدى المشاركات من إخواني في المنتدى للأسف لا أذكر اسمه وبكل الأحوال جزاه الله ألف ألف خير FLASH.rar

أخي الكريم انظر المرفق أرجو أن يكون هو المطلوب num_to_date.rar

أخي الغالي إسلام ... السلام عليكم : مو بس بتشهي الواحد على ( 7 UP ) ............. انت بتخلي الواحد يتمنى تكون قريب حتى يبوسك على راسك المليان علم ولطف وذوق .....الله يزيدك من نعمه ... ويبارك فيك ويرحم والديك ويغمرهم بلطفه وعفوه ويسكنهم جنات الخلد .... لأنو فعلا بيستاهلو الرحمه لأنن جابو هيك رجال أغلى من الذهب

أخي الكريم : السلام عليكم هناك مشاركة لأخي الحبيب والغالي محمد عسكر حيث أضاف ملف -- بتحميله -- يمكنك زيادة الشروط ‘لى 30 شرط أو أكثر وهذه صورة من المشاركة التي قدمه الأخ الحبيب محمد عسكر جزاه الله خير -----اقتباس --- السلام عليكم و رحمة الله و بركاته اخى ابو حمزه اعتقد ان الأخ NSE يحق له ان يقول وجدتهااااااااااااااااااااااااااااااااااااااااااااااااااااااا لقد نفذ الكود كما ينبغى جزاه الله خبيرا فضلاا قم بالتحميل من هنا http://www.officena.net/ib/index.php?act=A...ost&id=7641 و زياره هذا الرابط http://www.officena.net/ib/index.php?showt...amp;#entry69418 تحياتى وبالنسبة لاستخدام الصيغة في التنسيق الشرطي أنظر الملف المرفق --- أرجو أن يفيدك book1.rar

إخي الحبيب إسلام ( dangerman2 ) إخواني الكرام تحية طيبة وبعد : لقد قمت بترجمة حصتي من الكتاب ( وهي الصفحة 62 ) وهي خلاصة الجزء الأول من الكتاب بمساعدة إحدى الأخوات في العمل . مع ذكر نقطة مهمة ( هي أنني لا أنا ولا هي ) نمتلك الخلفية الكافية عن ال( VBA ) لذلك أرجو الإطلاع على الترجمه ( وقد قمت بإرفاق النص الأساسي -- بالإنجليزية -- ) وإن كان هناك خطأ ما أرجو تعديله فأنا أعذر نفسي فقط لأن لغتي الانجليزية غير جيده ألتمس العذر : هذا ماستطعت تقديمه ... وإليكم الترجمه ...... في المرفق _________________.rar

مبدع دائما أخي أبو أسامة تحياتي لك ولأبي عبد الله وأخي الحبيب husas 707 ولك الشكر الكبير على الثقة ........... هذا لطف منك تمنياتي لك بالتوفيق

يمكنني الاستنتاج أنني لست الوحيد الذي يقول أنك فنان ( وإكسلجي .. عن جد ) وفقك الله .... ونزداد شوقا لنرى المزيد من العبقرية كما تعودنا تحياتي وأشواقي

أخي أبو عبد الله الحبيب دائما التواضع من شيم العلماء بارك الله بك وبأخي الحبيبHusas707 الله يديم المحبه

نحنا من بعدك أخي الحبيب إسلام .... ( من بعدك : بالسوري ...يعني تلميذك أنا ) تحياتي وشكري وامتناني للطفك وذوقك أنت وأخي الحبيب asmo200666 وألف شكر للتشجيع

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

أخي العزيز husas707 تحية طيبة رأيت هذه المشاركة لك في مكان أخر وقمت بالرد عليها وطبعا بعد إذن الحبيب الغالي وأستاذي العزيز جدا إكسلجي وإذا رأى الرد وأراد أن يضيف أي لمسة من لمساته السحرية فهذا شرف لي تمنياتي لكم بالتوفيق وهذا الحل بإذن الله يكون المطلوب _______1.rar

أخي الحبيب إضافة لما قدمه أخي الحبيب asmo200666 وبعد إذنه أنظر المرفق أرجو أن يكون هو المطلوب تمنياتي لكما بالتوفيق _______1.rar

أخي الحبيب dangerman2 وأخي الحبيب أيضا أبو عبد الله مبدعين دائما .... وبتشهو الواحد على أكلة سمك ومعها ( 7 UP ) يا لذيذ يارايق ههههههه

أخي الكريم جرب الـ IFYES قد تحصل على الفائدة المرجوه في المشاركة التالية http://www.officena.net/ib/index.php?showt...amp;#entry55059

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

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

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

أخي عبدالقادر غموزي السلام عليكم أسف جدا على الـتأخير ............. وأرجو أن يكون الحل الموجود في الملف المرفق ............هو المطلوب تمنياتي لك بالتوفيق CCG1.rar

السلام عليكم أكيد إني مش نقطة ببحرك أخي أبو أسامه بس بدي بعد إذنك قدم هالمحاولة أختي سلمى أنظري المرفق ok.wael.rar

أخي الكريم السلام عليكم ............ أنظر المرفق أرجو أن يفي بالغرض أخي انظر بعد التعديل البسيط ( منعا من ظهور أرقام بالإشارة السالبة) Book1.rar

أخي الكريم ...............السلام عليكم طبعا بعد إذن أساتذتي الكرام حاول أن تحفظ الملف بإسم ................. ثم من حفظ بنوع ....إختر ...( powerpoint show ) قد يحقق ذلك الغرض ......... وإذا كان بالإمكان إرفاق ملف ....... سأقدم ما أعرف بإذن الله تمنياتي لك بالتوفيق

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