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

لا اعلم اذا كنت تضغط على الازرار بشكل صحيح او لا 1- مستعملاً اصبعين من اليد اليسار اضغط بشكل مستمر على مفتاحي Ctrl و Shift 2-باليد اليمين اضغط على المفتاح Enter نقرة واحدة ثم حرر مفتاحي Ctrl و Shift للاسف لا توجد معادلة عادية (غير الصفيف) والله أعلم

انسخ هذه المعادلة الى الخلية AE8 (لنتفيذها اضغط Ctrl+Shift+Enter ولبس Enter وحدها) و اسحب يساراً ثم يميناً (المعادلة لا تعطي نتيجة الا اذا كان كل الصف بحنوي على بيانات) =IF(COUNTA($B8:$AD8)=29,INDEX($AN$9:$AN$25,SMALL(IF(ISNA(MATCH($AN$9:$AN$25,$C8:$AD8,0)),ROW($AN$9:$AN$25)-ROW($AN$9)+1,""),COLUMNS($A$1:A1))),"")

تفضل على 2003 القائمة المنسدلة في C5 مطاطة كل رقم يدرج فيها يتم حفظه تلقائياً والمكرر لا يسجل الا مرة واحدة Fatoura-Final 2003.rar

تم معالجة الامر Fatoura-Final 2.rar

لا تبحث عن المعادلات بالطربقة التقليدية (~+Ctrl+Shift) بعد الان اكسل يلوّن لك الخلية التي تحتوي على معادلة بمجرد كتابتها والضغط على Enter تلوين المعادلات.rar

السلام عليكم و رحمة الله و بركاته بعد إذنك أستاذي و أخي و صديقي العزيز رمهان حياك الله الأخ خالد هذا ملفك بعد التعديل Database5.rar

الاخ صلاح الصغير شاهد المرفق Omar_1.rar

السلام عليكم ورحمة الله وبركاته يشرفنى وجودي في هذا الصرح العظيم واحب ان اقدم لكم برنامجى المتواضع لادارة المخازن من اول وضع الاصناف وتكويدها وحتي صرفها بالفواتير وحساب قيمة الخصم ايضا فالبرنامج مكون من : صفحة الاصناف والسعر ورصيد اول المدة والوارد والمنصرف لكل صنف صفحة حركة المخزن والتى تضم تاريخ العملية رقم الآذن ونوع المستند وهو معد بقائمة مسبقا بإشهر العمليات في المخزن ونوع الحركة وارد او منصرف للمخزن وقائمة لكتابة الصنف والمتاح لتوفير الكمية المتاحة في المخزن واخيرا الكمية اي المصروفة او الواردة للمخزن واخيرا صفحة الفواتير التي تعتمد علي ملئ صفحة الاصناف والاسعار طبعا البرنامج مجانى لا اريد سوا الدعاء لي وارائكم علي الملف ومن اراد التعديل عليه يرجي مراسلتى علي الميل او الفيس المدمج في البرنامج الباسورد : 123456 Stores V2.xlsm

كل التقدير والاحترام لك استاذي سليم حاصبيا ابدعت في الاجابة تعجز عبارات الثناء لشخصكم شكرا لك يا مبدع شكرا لك يا مبدع شكرا لك يا مبدع شكرا لك يا مبدع شكرا لك يا مبدع

انسخ هذه المعادلة الى الخلية AE8 (لنتفيذها اضغط Ctrl+Shift+Enter ولبس Enter وحدها) و اسحب يساراً ثم يميناً (المعادلة لا تعطي نتيجة الا اذا كان كل الصف بحنوي على بيانات) =IF(COUNTA($B8:$AD8)=29,INDEX($AN$9:$AN$25,SMALL(IF(ISNA(MATCH($AN$9:$AN$25,$C8:$AD8,0)),ROW($AN$9:$AN$25)-ROW($AN$9)+1,""),COLUMNS($A$1:A1))),"") تفضل الملف جاهز وتحت الطلب فرز المعلمين الشواغر salim.rar

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

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

مشكور اخوي يعطيك العافيه ماقصرت

هل هذا ما تقصده recorder.rar

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

السلام عليكم ورحمة الله وبركات الطريقة_الاولي ان تكون الصور محفوظة داخل الملف ويتم عرض الصور من خلال اي مدي الطريقة_الثانية ان تكون الصور محفوظة داخل الملف ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم الطريقة_الثالثة ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة في الفورم ================================================== ================================================== شرح الطريقة_الاولي ان تكون الصور محفوظة داخل الملف ويتم عرض الصور من خلال اي مدي في ورقة All_Pic يتم استيراد الصور بالوقوف في خلية مثلا مثل C2 ثم استخدام زر ( ادراج صـــورة / صـــور بـــدء مـــن الخليـــة الحـــاليـــة ) لأستيراد صورة واخدة او عدة صور دفعه واحدة فيتم ادراج اسم الصور في العمود B والصور في العمود C ويتم تحديد حجم الصور في الكود Width_Of_Pic_Col = 2 Height_Of_Pic_Row = 7 بعرض 2 عمود وارتفاع 7 صفوف وانواع الصور التي يمكن استخدامها هي jpg gif png bmp tif Emf jpeg الطريقة_الاولي.rar ================================================== شرح الطريقة_الثانية ان تكون الصور محفوظة داخل الملف ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم يتم استيراد الصور بنفس طريقة الطريقة_الاولي ويتم تحديد حجم الصور بنفس طريقة الطريقة_الاولي وانواع الصور التي يمكن استخدامها هي jpg gif bmp Emf jpeg الطريقة_الثانية.rar ================================================== شرح الطريقة_الثالثة ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة في الفورم الطريقة_الثالثة.rar ================================================== ملحوظة هامة بالنسبة الي الطريقة_الاولي والطريقة_الثانية في الورقة التي يدرج بها الصور ترتيب الصور والاسماء لا علاقة له بإستدعاء الصور حتي الاسماء التي في العمود B يمكن حذفها الصور يمكن ان تكون في اي مكان في الورقة حتي لوكانت بصورة عشوائيه ==================================================

اعادة رفع الطريقة_الثانية لأن الملف السابق كان به اكواد زئده من الطريقتين الاخرتين الطريقة_الثانية ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم شرح الطريقة_الثانية ان تكون الصور محفوظة داخل فولدر ويتم عرض الصور بإستخدام اداة الصورة من مربع ادوات التحكم وانواع الصور التي يمكن استخدامها هي jpg gif bmp Emf jpeg المرفقات الطريقة_الثانية.rar الرجاء من السادة المشرفين استبدال هذا المرفق الطريقة_الثانية بالمرفق في بداية الموضوع استبدال هذا الشرح ذو اللون الاحمر بشرح الطريقة_الثانية في بداية الموضوع وبعد الاستبدال تحذف هذه المشاركه

الشكر لله أخي فراج والحمد لله أن عملك يسير بشكل جيد

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

الاخ صلاح الصغير شاهد المرفق Omar_1.rar

السلام عليكم أخي فايز في ملفك لن تستطييع تفعيل زر ترحيل لأنه لا يوجد أي كود في ملفك نهائيا أضف الكود ثم اربطه بزر ترحيل

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

الأخ الكريم عامر ياسر عن النبي صلى الله عليه وسلم (من كتم علماً ألجم يوم القيامة بلجام من نار)

السلام عليكم جرب المرفق غير المحمي... بن علية asc to excel_1.rar

استبجل الماكرو بهذا Sub experement() Dim my_rg As Range On Error Resume Next Set my_rg = Application.InputBox("insert you range", Type:=8) If my_rg Is Nothing Then MsgBox ("Please select One column") On Error GoTo 0 Exit Sub End If cols = my_rg.Columns.Count If cols <> 1 Then MsgBox ("Please select One column"): Exit Sub If my_rg.Count = 1 Then Set my_rg = my_rg Else Set my_rg = my_rg.SpecialCells(xlCellTypeBlanks).Columns(1) End If For Each cel In my_rg With cel If .Offset(0, 1).Value <> "" Then .Value = .Offset(0, 1).Value .Offset(0, 1).Value = "" .Offset(0, 2).Value = Date End If End With Next End Sub

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

فكرة ممتازة بارك الله فيك

جزيت خيراً !

كود اضافة الدوائر الحمرا ويعمل بطريقة فريده يمكنك استخدام تكبير او تصغير العرض بدون التاثير في وضع الدوائر في اماكنها (سيعمل الكود بدون مشاكل) ActiveWindow.Zoom صف الدرجات متغير هنا الصف رقم 12 اذا كانت الخلية في هذا الصف ليست رقم .. لا تتم اضافة دائرة في صفوف عمود الخلية عمود رقم الجلوس العمود متغير هنا رقم 2 اذا كان هذا العمود فاضي او صفر لن تتم اضافة الدوائر تم عمل زر مزدوج لإضافة وحذف الدوائر باسم (الدائرة) Sub اضافة_حذف() On Error Resume Next Dim XX As Shape Set XX = ورقة3.Shapes("الدائرة") With XX.TextFrame.Characters If .Text = "اضافة الدوائر" Then Circles1 .Text = "حذف الدوائر" Else RemoveCircles1 .Text = "اضافة الدوائر" End If End With On Error GoTo 0 End Sub Sub Circles1() Dim C As Range Dim MyRng As Range Dim V As Shape Dim X As Integer Dim G As Integer, R As Integer '================================================ ' عمود رقم الجلوس G = 2 ' صف الدرجات R = 12 ' نطاق الخلايا الذي تريد اضافة الدوائر فيها Set MyRng = Range("N13:BQ47") '================================================= ' اذا كانت النطاقات مختلفة يمكنك الاشارة اليهم بالتالي 'Set MyRng = Range("O13:O47,Q13:Q47,S13:S47") '================================================= X = ActiveWindow.Zoom Application.ScreenUpdating = False ActiveWindow.Zoom = 100 For Each C In MyRng If Cells(C.Row, G) = 0 Then GoTo 1 If IsNumeric(Cells(R, C.Column)) And Not IsEmpty(Cells(R, C.Column)) And (C.Value < Cells(R, C.Column) Or C.Value = "غ" Or C.Value = "غـ") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, C.Left + 1, C.Top + 1, C.Width - 2, C.Height - 2) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 10 V.Line.Weight = 1.25 End If 1 Next ActiveWindow.Zoom = X Application.ScreenUpdating = True End Sub Sub RemoveCircles1() Dim shp As Shape For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete Next shp End Sub دعوه طيبه لوجه الله لكل من ساهم في هذه الملف ( عبد الله باقشير ) اضافة و حذف دوائر_2.rar

بعد فتح المصنف الذي تريد قم بما يلي: 1-من تبويب Formula اختر name manager 2- حدد New 3 -في خانة Name حدد اي اسم تريده (عندي انا cell_has_formula ) 4- في خانة Refers to اكتب هذه المعادلة =GET.CELL(48,INDIRECT("rc",FALSE)) 5-اصغط Ok ثم Close 6- اصغط Alt+O+D+N ثم اختر من النافذة ....use a formula to determine 7-اكتب في خانة Fomat value هذه المعادلة cell_has_formula= 8- اختر التنسيق الذي تريد

الأخ الكريم سمير سامي السلام عليكم جرب المرفق التالى لعلة يفى بالغرض abo_abary_505.rar

كيف تبحث عن كل الخلايا التي تحتوي على شيء معين و تستبدلها بشيء اخر موضوع ليس بالجديد لكن يمكن تنفيذه بطريقة غير الكلاسيكية (أقصد غير Find and Replace العادية) Find & replace.rar

بارك الله فيك أخي الحبيب ناصر سعيد وجعل أعمالك في ميزان حسناتك يوم القيامة وندعو لمعلمنا الكبير عبد الله باقشير بكل خير وأن يتغمده الله برحمته في هذا الشهر الفضيل ، فكم استفدنا ولا زلنا نستفيد منه

إنت شغالين الله ينور من غيري .. طيب اتفضلوا الناسف الجديد .. حدد مسار المجلد وبس .. وكل اللي جوا المجلد من ملفات ومجلدات فرعية سيتم نسفها على الفور (الدمار الشامل !!!!!!!!! بجد) Delete Whole Folder.rar

شرح كيفية إضافة نتيجة مدرسة إلى موقعك حصرياً بالصور السلام عليكم ورحمة الله وبركاته فقط وحصرياً وبمجهود شخصى على نجوم اف ام شرح تفصيلى لكيفية اضافة النتيجة إلى موقع مدرستك بدون أى أكواد وبأقل مجهود وسيكون التطبيق على هذا المثال http://www.bordain.com/class1.html وبفرض ان النتيجة على قاعدة بيانات من نوع اكسل أو أكسس أو أى قاعدة أخرى يمكن تحويلها إلى أكسس وسيكون تطبيقنا على ملف اكسل حيث أن أغلب المدارس تقوم بإدخال البيانات والدرجات عن طريق الاكسل وسيكون الناتج النهائى لهذا العمل هو ملفين أحدهما ملف فلاش swf و الآخر ملف xml يتم رفعهم على السرفر فى مجلد واحد كما سنرى بداية سنفترض وجود ملف اكسل وليكن اسمه student. ويجب أن يكون على النحو التالى كما فى الصورة ويجب أن يكون اتجاه الورقة من اليسار إلى اليمين وأن يبدأ العمود الأول بالرقم (وهو رقم الجلوس) ثم الاسم ثم اى بيانات أخرى كدرجات المواد مثلاً. بهذا ينتهى العمل فى اكسل ثم نفتح برنامج اكسس قاعدة بيانات جديدة ومن قائمة ملف نختار احضار بيانات خارجية كما فى الصورة ونحدد نوع الملف اكسل، ونحدد ملف الاكسل الذى انشأناه بإسم student حيث يفتح المعالج، نقوم بعمل next next وعند المفتاح الأساسى نختار بدون مفتاح اساسى، كما فى الصورة حيث يتم استيراد الملف، ونقوم بعد ذلك بفتحه فى عرض التصميم ونحذف أى حقول ليست ضرورية، فقد يقوم اكسس عند الاستيراد بإضافة حقول - وهمية - نقوم بحذفها كما فى الصورة ثم نحفظ الجدول ونفتح قائمة ملف ونختار تصدير، كما فى الصورة ويجب ملاحظة أمرين عند تصدير الملف اولهما : أن يكون امتداد الملف xml والثانى : يجب أن يكون اسم الملف marks.xml الآن لدينا ملف xml هو ما نحتاجه، وملف الفلاش swf الذى ستقوم بتحميله من الرابط التالى www.bordain.com/marks.swf هذان الملفان marks.xml marks.swf. هو ما ستقوم بتحميله إلى صفحتك أياً كان نوعها، فى مثالنا السابق كان التعامل مع صفحة html عاديه جداً أدرجت بها ملف الفلاش، ويمكن ان تدرجها حتى داخل موضوع فى منتدى يدعم ادراج الفلاش. ويجب أن يكون الملفان فى نفس الدليل على السرفر حيث ان ملف الفلاش ينادى على القاعدة الموجودة يجواره فى ملف الxml. وهى طريقة سهلة فقط ان اتبعت الخطوات الموضحة فى الاعلى بكل دقة وفى رأيي افضل بكثير من قواعد الـ sql وغيرها مما يحتاج قدرات برمجية عالية. كما أن حجم الملفين فى النهاية لم يتجاوز 300 كيلو على قاعدة بيانات مكونة من 1000 طالب بدرجاتهم تحياتى وارجو لكم الإستفادة المصدر : http://100fm6.com/vb/showthread.php?t=131152 - 100fm6.com

وهذا رابط يفيد في هذا الموضوع http://www.traidnt.net/vb/showthread.php?t=1448677