نجوم المشاركات

نتيجة الصف الأول الثانوى 2014/2013 " مدرسة الشهيد عبد المنعم رياض الثانوية بنين بقنا " http://elshaheed.bl.ee/marks.html

أخى الحبيب / محمود الشريف عمل رائع تسلم ايديك ولو سمحت لى أخى الحبيب بتعديل بسيط على الكود لمنع تكرار الرسالة بشكل مستمر عند الضغط على زر NO Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim R_ALI As Range Set R_ALI = Intersect(Target, Range("B6:B26")) If Target.Count > 1 Then Exit Sub If Target - Target.Offset(-1) <> 1 Then Application.Speech.Speak "Sorry you exceed the serial number If You Want To Keep It Press Yes Else Press No" Choices = MsgBox(" YES " & "إذا كنت تريد الإبقاء على الإدخال الحالي إضغط " & vbNewLine & " NO " & "وإذا كنت تريد حذف الإدخال الحالي إضغط ", vbYesNoCancel, "تحديد المطلوب") Select Case Choices Case vbYes Exit Sub Case vbNo Application.EnableEvents = False Target.Select Target = "" Application.EnableEvents = True End Select End If End Sub

أخى الحبيب / محمود الشريف جزاك الله كل خير على هذه الكلمات الطيبة العطرة

السلام عليكم مرحبا أخي الفاضل في مدرستك العظيمة اولا : نأمل تغيير أسمك للغة العربية حتى يسهل التواصل بيننا هل ترغيب نقل البيانات في الصفحة الثانية على أي أساس - وهل الأسطر هذه سوف تتغير فيما بعد أم ماذا وسوف أقدم لك ملف مبدئي للنقل عن طريق ربط الخلايا في الورقة رقم 2 بالمقابل لها في الورقة الأولى إلى أن تضع تصور كامل لطريقة النقل نقل البيانات.rar

أخى الحبيب / محمود الشريف أنت لا تثقل على إطلاقا بل يشرفنى تقديم أى مساعدة لأخى الحبيب محمود الشريف تفضل أخى ما أردت تحديد وتعديل الخلية النشطة.rar

عمل رائع بارك اللة فيك وجعلة في ميزان حسناتك.

أستاذى الحبيب / عبد الله باقشير حفظك الله لنا معلما نتعلم من كنوزه كل يوم جزاك الله عنا خير الجزاء تلميذكم / رجب جاويش

كشف رائع لاتمام الاستفاده امكانية جعل التواريخ قوائم منسدله يتم اختيار التاريخ منها مع الشكر

اخى / ابو هايدي يارك الله فيك

أخى الكريم بداية أهلا بكم عضوا بمنتديات أوفيسنا ولى رجاء عندكم قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف بخلاف أتمنى تغيير أسم الظهور الخاص بكم الى اللغة العربية ليسهل التواصل بين الأعضاء تطبيقا لقوانين الموقع ضرورة رفع ملف به تصور لما تريد حتى يتسنى للسادة الأعضاء وأساتذة الموقع تقديم المساعدة الممكنة لكم وتوفيرا للوقت والجهد وتقبلوا منى وافر الإحترام والتقدير

السلام عليكم اخي الحبيب رجب ........حفظه الله يمكنك انتقاء الاعمدة التي تريدها باستخدام الدالة Choose بدلا من استخدام الشروط ' هنا تحدد الاعمدة المطلوبة c = Choose(cc, 8, 9, 12, 13, 16, 17, 20, 21, 25, 27) الكود كاملا Sub KH_Dwayr() Dim X As Integer, i As Integer, c As Integer, cc As Integer Dim myshp As Shape '=========================== Del X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For i = 11 To Cells(Rows.Count, "B").End(xlUp).Row Step 4 For cc = 1 To 10 ' هنا تحدد الاعمدة المطلوبة c = Choose(cc, 8, 9, 12, 13, 16, 17, 20, 21, 25, 27) With Cells(i, c) If Not IsEmpty(.Value) And Val(.Value) < 0.5 * Val(Cells(10, c)) Or .Value = "غ" Then Set myshp = ActiveSheet.Shapes.AddShape(msoShapeOval, .Left + 2, .Top + 1, .Width - 2, 4 * .Height - 2) With myshp .Fill.Visible = msoFalse .Line.Weight = 2 .Line.ForeColor.SchemeColor = 10 .Line.Visible = msoTrue .Shadow.Visible = msoFalse End With End If End With Next Next ActiveWindow.Zoom = X Application.ScreenUpdating = True End Sub شاهد المرفق 2003 دوائر.rar

حل أخر بعد الحل الرائع لأختى العزيزة " أم عبد الله " =SUMPRODUCT(--(date>=$E$3)*(date<=$H$3)*(tools=C$4)) وعذرا لبعدى عن المنتدى هذه الأيام لكثرة الأعباء تقبلوا تحياتى 1556.rar

السلام عليكم تفضل أخى تحديد الخلية النشطة.rar

بعد إذن إخوتى الأفاضل تفضل أخى نموذج + قائمة.rar

الأستاذ الفاضل / محمود الشريف السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا العمل الأكثر من رائع بجد عمل ممتاز جداً جداً لأن هذه الأسماء الصحيحة الواردة من الكتاب والسنة وهى تختلف عن الأسماء المتداولة التي يعرفها العامة من الناس ويجب العمل على نشر هذه الأسماء الجديدة التي وردت في القرآن الكريم والسنة النبوية . أسأل الله العلي القدير أن يجعلها في ميزان حسناتك وأن يزيدك من العلم النافع وعمل الخير. تقبل الله منا ومنكم صالح الأعمال. لك كل التحية والتقدير.

السلام عليكم و رحمة الله وبركاته اخونا المبدع محمود خالص تحياتي وتقديري اسأل الله العلي العظيم ان تكون دائما بخير وسعادة

السلام عليكم و رحمة الله وبركاته بعد اذن اخي ابو نصار الذي لا يشق له غبار في الأكواد هذا كود آخر يقوم بتكبير العرض ZOOM للورقة الحالية Range("a1:g1").select Activewindow.Zoom = true اذا افترضنا انك تريد تكبير العرض لكي يشمل فقط الأعمدة من A الى G ضع هذا الكود في موديل واربطه مع زر في نفس الورقة

السلام عليكم أخي رائد راجع المرفق وأنظر إن كان لك طلبات أخري محاسبة 2012_2.rar

الله يرعاك أخي استاذ طارق جاري التجربه وسنعلمكم بالنتائج لاحقا" وبأنتظار بقية أبداعاتك

السلام عليكم أخي الكريم تفضل المرفق به الإستدعاء في كلا الورقتين (الصرف والقيد) بالنسبة لجزئية الترحيل ثانية والتلوين بالأحمر ، تحتاج بعض الوقت مؤقتا فلتدرس المرفق لو به ملاحظات محاسبة 2012_2.rar

ما شاء الله حزمة رائعة من الأكواد البسيطة في مبناها الكبيرة في معناها جزاك الله خيرا يا باشمهندس

السلام عليكمالاخوه الكرام : لاحظت ان اغلب الردود لمساعده الاعضاء دون شرح المشكله و كيفيه حلها ولكن الذى يستفيد منها بصوره اساسيه صاحب المشاركه و كذلك من يقوم بالبحث و المعرفه ومن الممكن ان تكون هناك مشاركه بها معلومات قيمه جدا و يمر عليها العضو دون ان يعرف مابها بمجرد ان اسم العنوان لا يعجبه او لا يعبر على مضمون المشاركه 0 ولذلك قررت ان اخصص هذا الموضوع للشرح محاولا ان يكون الشرح باسلوب بسيط و سهل و بصور موضحه 0 فعند تتبعى للمشاركات و جدت ان كثير من الاعضاء يسألون عن الماكرو طريقه انشاءه و فائدته و مما جعلنى ان اقوم بشرح الماكرو و ما الدور الذى يقوم به و كيفيه ربطه بمفتاح لتشغيله 0 الامر يتطلب فى البدايه معلوات بسيطه عن الماكرو : فالماكرو ببساطه هو انك تقوم بتسجيل خطوات معينه سواء ان كانت هذه الخطوات كتابه ارقام او معادلات او حتى التنقل بين الصفحات ثم عند تشغيل الماكرو يقوم بتنفيذ هذه الخطوات مره واحده دون تدخل منك و هناك طريقتان لتسجيل الماكرو 0 الطريقه الاولى : و هى الطريقه السهله فتقوم بتشغيل تسجيل الماكرو ثم تقوم باداء الخطوات التى تريدها ثم توقف التسجيل و بذلك تكون قد انتهيت من صناعه الماكرو , كأنك تقوم بتسجيل شريط أغانى ثم تقوم بعد ذلك بضغط مفتاح Play فتستمع الى الاغنيه التى تقوم بتسجيلها 0 الطريقه الثانيه : تقوم بكتابه الخطوات بلغه Visual Basic الفيجوال بيزيك و سوف نتناولها فى الشرح بشكل مبسط 0 و طبعا ارحب باى سؤال او استفسار او حتى تعديل طالما انه مع طريق الاستفاده للجميع 0 و اتمنى ان يكون هذا الموضوع صدقه جاريه يستفيد منها الجميع , و لا ينقصنى غير دعوه صالحه يجعلها الله فى ميزان الحسنات يوم القيامه 0 نبدأ بسم الله الرحمن الرحيم الدرس الاول الطريقه الاولى : أفتح الاكسيل و قف فى اعلى الصفحه بجوار Help (مساعده) و اعمل ريت كليك تظهر لك الشاشه التاليه 0 تابع : تابع : تابع : تابع : تابع : هذه طريقه بسيطه لصناعه الماكرو و الى لقاء لشرح كيفيه تشغيل الماكرو عن طريق مفتاح قال رسولنا صلى الله عليه وسلم " من صنع إليكم معروفا فكافئوه، فإن لم تجدوا ما تكافئوه به،فادعوا له حتى تروا أنكم قد كافأتموه "