شوقي ربيع

السلام عليكم الاخ عمرو ماعسي القول الا عمل راااااااااااااائع ومتقن الى ابعد الحدود به مجهود كبيير وصبر أكبر شكرا جزيلا وجعله الله في ميزان حسناتك ألف شكر

وملاحضة اخري يمكن تطبيق الاكواد على اي كائن أخر غير الازرار كاليبل مثلا ودلك بالتعديل في الاكواد طبعا

السلام عليكم أستاد حمادة عمر كما قلت لك سابقا ان تعليقاتك تسعدني بحق شكرا لمرورك رأيكم يهمنا

االسلام عليكم اوفيسنا اليوم جلبت لكم كود يعوضكم عن عناء اضهار الازرار بطريقة جميلة في (حدث تحريك الماوس) و(حدث كليك) فبدلا من برمجة كل زر على حدى برمجت كود في موديل ستندار واخر في موديل كلاص الان اضف اي زر في الفورم وسيكون مبرمج مسبقا ولن تضطر لبرمجت اكواد الازرار مطلقا ملاحضة يمكنكم ان تختارو ما تشؤن من الاوان التي تعجبكم او تنسيقات بكل بصاطة ويسر ودلك في التغيير في مودل كلاص فقط ارجو ان ينال اعجالكم hoorabie.rar

السلام عليكم شكرا جزيلا اخي احمد لم اتصور الامر بهده البصاطة يبدو اني اسأت فهم الكود وللافادة حولته ليتمكن الجميع من تنصيبه كدالة وتصبح قادر على الترجمة الفورية للنصوص داخل ملف الاكسل في اي ملف اكسل ملاحضة يجب تفعيل Microsoft HTML Object Library Microsoft Internet Controls من Qutils Références-VBAProject طريقة عمل الدالة هي كليك يمين على اي خلية بها نص من traduire cette valeur اختر اللغة التي تريد الترجمة اليها بعد لاحضات قليلة سوف يترجم النص في نفس الخلية و ان أردت أن تضهر الترجمة في خلية اخرى قبل ان تقوم الداة بالترجمة ادهب الى الخلية التي تريد ان تضهر بها الترجمة فقط traduire cette valeur.rar

للرقع

ارجو ان يكون هدا المطلوب حسب فهمي لسؤال Sub PRINT_ALL2() Application.ScreenUpdating = False With Sheets("BBB") With .UsedRange For I = 6 To 16 If .Cells(I, 2).Value = 10 Then .Cells(I, 1).EntireRow.Hidden = True End If Next I End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub

السلام عليكم اخي حمادة عمر عمل اكثر من رااااااااااااااااااااااااااااااااااااااااااااااااائع

هده ترجمة لمحتويات الكود traduire cette valeur -.rar

السلام عليكم وجدة كود خاص بالترجمة الفورية للكلمات في احد المواقع الاحنبية واردة نشره في المنتدى لتعم الفائدة على الجميع لاكن الكود به خلل او نقص ما وحاولة جاهدا لكتشافه ومع الاسف لم اصل لحل هدا المرفق به االاكواد الخاصة بهته الدالة اول شى لازم تفعيل Microsoft HTML Object Library Microsoft Internet Controls من Qutils Références-VBAProject لان الكود يعمل بالنت عند كتابة تساوي (=) في اي خلية ثم الحرف t تضهر لكم الدالة باسم traduction ارجو من اعضاء المنتدى خاصتا عباقرة الاكواد التوصل الى حل ما نضرا لجمال الفكرة وشكرا traduire cette valeur.rar

شكرا لك اخي ابو محمد لوضعك الكود في ملف لان النت عندي موش تمام وهدا تعديل على الكود السابق لكي يتجاهل الصفوف الفارغة اثناء الطباعة Sub PRINT_ALL2() Application.ScreenUpdating = False With Sheets("AAA") With .UsedRange For I = 6 To Sheets("AAA").Range("A" & Rows.Count).End(xlUp).Row If .Cells(I, 1).Value = "" Then If .Cells(I, 2).Value = 10 Then .Cells(I, 1).EntireRow.Hidden = True End If End if Next I End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub

السلام عليكم تفضل اخي Sub PRINT_ALL() Application.ScreenUpdating = False With Sheets("AAA") With .UsedRange For I = 6 To Sheets("AAA").Range("A" & Rows.Count).End(xlUp).Row If .Cells(I, 2).Value = 10 Then .Cells(I, 1).EntireRow.Hidden = True End If Next I End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 .Rows.Hidden = False End With Application.ScreenUpdating = True End Sub

السلام عليكم كود اضافة تعليق Dim rng As Range Set rng = ActiveSheet.Cells(4, 4) If rng.Comment Is Nothing Then rng.AddComment rng.Comment.Text "It is now " & Format(Now) كود الغاء التعليق Dim rng As Range Set rng = ActiveSheet.Cells(4, 4) If rng.Comment Is Nothing Then rng.AddComment rng.Comment.Text "It is now " & Format(Now) كود اضهار او اخفاء التعليق Comment.Visible = False

السلام عليكم والله اخي واستادي حمادة اسعد كثيرا بتعقيباتك شكرا لك

السلام عليكم شهادة من استادتي حمادة عمر /احمد زمان والاستاد ابو حنين شهادة اعتز بها شكرا جزيلا

السلام عليكم ضع هدا الكود في حدت Worksheet_SelectionChange For a = 2 To 200 If Cells(a, 1) <> "" Then Cells(a, 46) = "=RC[-27]+RC[-21]" Cells(a, 47) = "=(RC[-26]+RC[-20])*R1C48" End If Next a كما يمكنك زيادة مدى الكود بالزيادة في نهاية المتغير a

السلام عليكم جرب هدا ارجو ان يفي بالطلب انشاء الله Test.rar

السلام عليكم بعد ادن الاستادين حماده عمر و أبو حنين قمت بهده المحاولة بحيث جعلت الامر مشابه للشريط المتحرك للمنتدى بشكل كبير بحيث يتغيلر محتوى الشريط بشكل دائم ارجو ان يفي بالغرض Book222.rar

افضل اكسل 2007

الف شكر استاذ مجدى يونس وجازاك الله كل الخيير

بعد إدن الاساتدة شاهد هده المحاولة Classeur1.rar

شكرا جزيلا لمرورك اخي حمادة

السلام عليكم اخي الموسطي بخصوص طلبك الاول ساعمل انشاء الله عليه في الاصدار القادم اما سوءالك عن استهلاك النت فهو بالعك لايتطلب استهلاك كبيير ان صح التعبيير فلو تدهب الى البرنامج الدي وضعته سابقا تصفح النت بواسطة الاكسل وجرب التصفح بواسطته ستلاحض انه اخف من المتصفحات التي نعما بها موزيلا مثلا هدا لان البرنامج على روابط مباشرة اما عن سوءالك عن كيفية اضافة قنوات فهو امر بسط ان كنت على دراية ولو قليلة بلغة HTML فلو لاحضة انه داخل كود مسار WebBrowser1.Navigate قد برمجة كود HTML بدلا من وضع رابط للمسار مثال بدلا من( WebBrowser1.Navigate(www.google.com) نضع Me.WebBrowser1.Navigate _ "about:<html><body BGCOLOR ='#CCCCCC' scroll='no'><font color=" _ & LaCouleur & " size='7' face='Arial'>" & _ "<marquee scrollAmount=4>" & LeTexte & "</marquee></font><embed height=440 name=player0 type=application/x-shockwave-flash align=middle pluginspage=http://www.adobe.com/go/getflashplayer width=820 src=http://www.watcharab.com/tv/swf/aljazeera_documentary.swf?autostart=true&amp; quality=high bgcolor=#000000 width=90% height=100% name=playeralign=middle allowScriptAccess=sameDomain allowFullScreen=true type=application/x-shockwave-flash pluginspage=http://www.adobe.com/go/getflashplayer/></body></html>" هدا كود html الجزيرة الاخبارية ارجو ان اكون قد وضحة الفكرة

السلام عليكم ورحمت الله وبركاته طلب مني احد الاصدقاء في العمل ان اصمم له برنامج بالاكسل لتتبع الموضفين والاليات فرتأيت ان اطرح هدا البرنامج بعما اتممته بحمد الله في المنتدى لتعم الفائدة على الجميع ارجو ان ينال اعجابكم الرقم السري لمحرر الاكواد 181183 Souvid Personeles.rar