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

أتمنى من الله أن تكونوا جميعا بخير وصحة وسلامه وكل عام وأنتم بخير رمضان مبارك وربنا يبلغنا جميعا الشهر المبارك. موضوع اليوم هو أخر جزء في موضوعات الإضافات للإكسل Excel Addins وحبيت إني أعمل كتاب إلكتروني بسيط " PDF " يضم فيه كل الموضوعات الخاصة بالإضافات والذي يحتوي على التالي : تعريف الإضافة + طريقة تحويل الماكرو إلى إضافة + حمايتها بكلمة سر عمل شيت بسيط يحتوي على 2 زر أحدهم لتثبيت الإضافة والأخر لحذف التثبيت تلقائيا طريقة التعديل على الإضافة عمل تبويب للإضافة لكي تظهر في الإكسل كـ Tab طريقة حماية الإضافة بدون باسورد وجعلها غير قابلة للعرض وطريقة كسر هذا النوع من الحماية طريقة عمل تحديث للإضافة بحيث يقوم المستخدم بعمل تحديث للإضافة في حال إصدارلك لإصدار به تحديثات لأي استفسار عن أي جزئية في الكتاب بإذن الله تعالى أنا حاضر لتحميل البرنامج إضغط على الرابط التالي أو في المرفق http://directexe.com/8yg/الإضافات_في_الإكسل_Excel_Addins_.pdf دمت في رعاية الله الإضافات للإكسل Excel Addins.txt

كل سنة وجميع الأعضاء الأعزاء بألف خير وزيادة فى الخير هذه طريقة أخرى لفصل الرقم عن النص من جهة اليسار وهى معادلة صفيف أى لكى تحقق النتيجة المرجوة بالشكل الصحيح لابد من الضغط على " ctrl+shift+enter " {=MID(A2,MATCH(TRUE,ISNUMBER(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1)*1),0),LEN(A2))} وهذه أيضا وهى ليست دالة صفيف أى يكفى فيها الضغط على " enter " =MID(A2,MIN(FIND({0,1,2,3,4,5,6,7,8,9,0},A2&3^45)),99) أما بخصوص فصل النص فيمكن إستخدام معادلة الأخ الفاضل " سليم " تقبلوا تحياتى وتهنئتى

السلام عليكم/ ها هو تفنيط المعادلة الموجودة بالمرفق

تفضل اخي هذا نفس الشيء بواسطة المعادلات ‫‫بيانات العاملين بالمجمع -معادلات.rar

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

السلام عليكم ورحمة الله وبركاته برنامج الجدول المدرسي الاصدار الثاني مقدمة عامة عن عمل البرنامج: يصلح لجميع المدارس ايا كان نوعها في اي قطر من الاقطار العربية وذلك للميزات والامكانيات التالية: مميزات البرنامج 1 - عدد الحصص اليومية 12 حصة يتمدد وينكمش من 6 حصص الى 12 حصة. 2 - عدد ايام الاسبوع 7 ايام يتمدد وينكمش من 5 ايام الى 7 ايام. 3 - عمل قوائم للفصول لكل مدرس وامكانية التبديل بينها وبين قائمة كل الفصول. 4 - يتسع 120 معلم و120 فصل و120 مادة. 5 - التحكم في عرض اوراق المصنف يمينا او يساراً ========================= امكانيات البرنامج 1 - استخراج جداول الفصول (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 2 - استخراج جداول المعلمين (الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 3 - استخراج جداول المواد(الكل او بالاختيار) مع احتواء ثلاثة جداول لورقة الطباعة 4 - استخراج جداول اجمالي الفصول 5 - استخراج جداول اجمالي المعلمين الاعدادات الاولية في بداية العمل على البرنامج في الرئيسية 1 - غير العام وبداية العمل بالجدول في الخلايا D2:D3 2 - غير العناوين للمحافظة والادارة والمدرسة في الخلايا B6:B8 3 - اضغط زر حذف جميع البيانات لحذف جميع البيانات في المصنف 4 - ادخال اسماء الايام في جدول الاسبوع خمسة ايام افتراضية 5 - تحديث قائمة الحصص باختيار عدد الحصص التي تريدها في الرئيسية انشاء قوائم للفصول لكل مدرس في الصف المقابل للمدرس في الاعمدة F:O حول البرنامج برنامج مجاني الاصدار الثاني برمجة / خبور خير باستشارة الاستاذ / محمدي عبد السميع الذي سيقوم بالردعلى استفساراتكم خبور خير برنامج الجدول المدرسي الاصدار الثاني.rar

السلام عليكم ورحمة الله وبركاتة اخي الكريم شاهد المرفق ان شاء الله يكون هو المطلوب . forma.rar

الأخ الحبيب حسام صقر المنتدى وأحد الكبار الذين نتعلم منهم اسمح لي بمشاركة بسيطة بناءً على الكود الذي تفضلت به Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row > 1 Then If Target.Column >= 1 And Target.Column <= 4 Then ActiveCell = Cells(1, Target.Column) End If End If End Sub تقبل تحيات أخوك أبو البراء

حمدا لله على سلامتك يا حبيبى أ / ياسر خليل كل سنة وحضرتك بخير ويعود عليك الأيام بخير كنا مفتقدينك

أنت لم توضح شئ بالمرة ، خصوصا أن ليس هناك بيانات استرشادية يمكن العمل عليها كل ما فهمته من كلامك هو عند تغيير النوع يحدث عدة اشياء ( معادلات على حد قولك ) و يكون تأثيرها فى الصف الذى حدث به التغيير ما الغرض من المعادلات ؟ ما الذى ستفعله ؟ هل تريد جمع شئ ما الى ش آخر هل تريد أكبر قيمة ؟ هل تريد تغيير لون الخلية ؟ ماذا تريد أن تفعله المعادلات حتى يمكننا أن نرى الصيغ المناسبة أو الأكواد .. أنت لم تضع سوى رؤوس و عناوين دون بعض التفاصيل .. حتى الصف الذى به من الى النوع مبهم تماما ما معنى 1 2 3 4 5 ؟ ضع بيانات و قل أنك تريد عندما يحدث كذا فيجب ان يتغير كذا من الى و ضع بعض النتائج المحتمل ظهورها حتى نتمكن من ايجاد صيغة أو كود يؤدى ما تريده أما ان تطالب بوضع معادلات لا تخبرنا بما تريده منها فكيف بالله عليك أن نعرفها ؟ لا تخبرنا ان كانت لجمع او بحث او منطقية او ... لا توضح الرابط بينها و بين الخلايا المتواجدة أى معادلة يجب ان تكون ذات اتجاهين على سبيل المثال س= ص + ع تجد ان المعطيات لدينا س ( الخلية المستهدف اظهار الناتج فيها ) ص ، ع خلايا أخرى بها بيانات أنت تقول لنا س دون ان ترشدنا على ص ، ع و العلاقة بينهما و س حتى نضع المعادلة الصحيحة فنقول س = ص + ع ممكن مثلا نقول ان س = ص + ع بشرط أن ع > ص أو ... الخ الخلاصة يرجى معرفة الغرض من المعادلات ؟ ماذا تريدها ان تفعل حتى يتم وضع الصيغ أو الأكواد المناسبة .

الأخ الحبيب أبو يوسف إليك الحل التالي عله يكون المطلوب Sub AddFilteredCells() Dim rngData As Range, R As Range Set rngData = Range("G11:G25") Set Dict = CreateObject("Scripting.Dictionary") Range("D31:E50").ClearContents For Each R In rngData.SpecialCells(xlCellTypeVisible) Dict.Item(R.Value) = Dict.Item(R.Value) + R.Offset(, 2).Value Next R Range("D31").Resize(Dict.Count, 1) = Application.Transpose(Dict.keys) Range("E31").Resize(Dict.Count, 1) = Application.Transpose(Dict.items) End Sub تقبل الله منا ومنكم صيام الشهر وقيامه المجموع الفرعي الأصناف والكميات.rar

تم التعديل حسب ماتراه مناسباً اضغط على أفضل اجابة تكرار 2003 معدل.rar

هذا العمل اهداء مني الى جميع الاخوة المشرفين و الاعضاء والى جميع من يرتاد هذا المنتدى العملاق ليستفيدوا منه في ارشفة كثر من صورة للمعاملات وتحويلها الى pdf يعمل على اوفيس 2007 اعتقد ان الاستاذ / عبدالله مجرب فاكرني كنت احد اعضاء منتدى الفريق العربي للبرمجة ويسعدني ان اكون احد اعضاء هذا المنتدى . معاكم الاستاذ / عطية مبروك العصماني كل ما اتمناه من الله ان يرفع عني المرض ويشفيني منه ( دعواتكم لي بالشفاء ) والله ولي التوفيق سحب الصور.rar

السلام وعليكم / اخى الكريم لفهم هذة المعادلة لابد من الفهم الجيد لكلاً من IF , INDEX+MATCH اما استخدام INDEX+MATCH يلاحظ ان هؤلاء دالتين وسنقوم بدمج المعادلتين معاً من المعروف ان لكل دالة معاملات فكرة الدمج انه من الممكن الوصول الى احد هذه المعاملات من خلال دالة اخرى فى البداية دعنا نتذكر كل معادلة على حدى والان لاحظ المثال التالى يلاحظ اننا حصلنا من خلال الدلة MATCH على الصف الذى يحوى الكود100 حيث نطاق البحث من B5:B7 وهو الصف الاول فكرة المثال هى اننا نريد ان نضع الكود فيظهر لنا اسم الصنف وذلك يتم من خلال الدالة INDEX ولكن عند كتابة المعادلة ستقابلك مشكلة وهى رقم الصف فنطاق البحث يمكن تحديدة بسهولة(الجدول من B5:D7 ) ورقم العمود الذى تريد بياناتة هو العمود الثالث حيث B العمود الاول (وفقاً للنطاق المحدد حيث بدايتة B) و C العمود الثانى و D العمود الثالث , اما رقم الصف ؟؟؟ لو كتبنا انة = 1 ستقوم الدالة بارجاع القيمة Mose فى كل مرة مهما كان الكود الذى تم ادخالة لاننا حددنا الصف = 1 والعمود = 3 ونقطة تقاطعهما = Mouse ولو قولنا انة = 2 ستقوم الدالة بارجاع القيمة Printer فى كل مرة وهكذا والان لابد من ايجاد دالة تقوم بالبحث عن رقم الصف الذى يوجد بة الكود الذى تم ادخالة ومن ثم ستقوم الدالة INDEX بوظيفتها وهى ايجاد نقطة تقاطع الصف مع العمود الدالةالتى يمكنها القيام بهذة الوظيفة هى MATCH وستكون المعامل الثانى للدالة INDEX وهو رقم الصف (الترتيب بالجدول) اتمنى ان يكون اسلوب العرض مفهوم وان شاء الله سأوافيك قريباً بشرح المعادلة بالمرفق ان لم يتفضل احد الاساتذة بشرحها

بارك الله فيك http://directexe.com/8yg/%D8%A7%D9%84%D8%A5%D8%B6%D8%A7%D9%81%D8%A7%D8%AA_%D9%81%D9%8A_%D8%A7%D9%84%D8%A5%D9%83%D8%B3%D9%84_Excel_Addins_.pdf?download_token=7ad7f6ba9d81beab8a100ef3ab8380eb5934cc3abc6a212e59d76239b2796d39 هذا رابط تنزيل الملف مباشر

تفضل اخى الكريم عدد الحراس.rar

تفضل اخى الكريم مرفقك 89.db1.rar

السلام عليكم الملف كتاب عن الإضافات في الإكسل Excel Addins 3 الإضافات في الإكسل Excel Addins .part3.rar

رمضان كريم اليك هذا الحل وأضغط افضل اجابة اذا كان كذلك فصل القياس.rar

اللهم تقبل صيامنا وقيامنا وصالح أعمالنا وأعتق رقابنا من النار وأرحم كل موتى المسلمين في هذه الأيام المباركة اليوم بمشية الله حبيت أقدم موضوع بسيط وخفيف عن خاصية يمكن البعض لا يعرف عنها وهي خاصية في الإكسل تسمى Watch Window ودي بتسهل علينا متابعة محتوى خلية أو مجموعة خلايا معينة في الإكسل أثناء العمل الفائدة منها : أحيانا خلال العمل في شيت واحد أو مجموعة شيتات مختلفة نحتاج إلى مراقبة التغييرات التي تحدث في خلية أو أكثر أثناء العمل خاصة إذا كنا نتنقل من صفحة إلى أخرى ومن أعلى الصفحة إلى أسفلها فأفضل شئ لنجعل قيمة خلية معينة ثابته أمام أعيننا في أي وقت خلال تنقلنا بين الشيتات فهي تقوم بعرض المعلومات التالية عن محتوى الخلية اسم ملف الإكسل Book اسم الشيت Sheet اسم الخلية Name رمز الخلية Cell القيمة Value المعادلات التي تحتويها الخلية Formula والصور والتجربة من خلالكم توضح الفكرة أكثر بمشية الله يمكن الوصول إلى الـ Watch Window في إصدارات أوفيس 2007 وأعلى من خلال تبويب Formula ثم Watch Window يمكن إضافة الخلية أو الخلايا بالضغط على Add Watch ولحذف خلية أو خلايا من المتابعة نضغط على Delete Watch كما يمكن سحبها في أعلى الصفحة لتكن ثابته بشكل عملي أكثر كالتالي ودمتم في رعاية الله

أنا أضفت في الجزء العلوي nR = 6 10 If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10 If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub وأضفت في الجزء السفلي بعد End With WS.[H6].Value = "تم الترحيل" WS.Range("H6:H" & LR).FillDown

السلام عليكم أخي العزيز جرب التعديل التالي ، فأنا لم اجربه Sub Transfer() Application.ScreenUpdating = False On Error Resume Next Dim Cell As Range, T As String, LR As Long, LRT As Long Dim WS As Worksheet, Answer As Long Set WS = Sheets("1") LR = WS.Cells(35, 3).End(xlUp).Row nR = 6 10 If Cells(nR, "H").Value = "تم الترحيل" Then nR = nR + 1: GoTo 10 If nR > LR Then MsgBox "لن يتم الترحيل : برجاء ضبط العمود إتش": Exit Sub T = WS.Range("A3").Value Application.ScreenUpdating = False WS.Unprotect "2191612" If Not IsEmpty(WS.Range("C6")) Then With Sheets(T) .Unprotect "2191612" LRT = .Cells(Rows.Count, 3).End(xlUp).Row + 1 WS.Range("B" & nR & ":G" & LR).Copy .Cells(LRT, 2).PasteSpecial xlPasteValues .Protect "2191612" End With WS.[H6].Value = "تم الترحيل" WS.Range("H6:H" & LR).FillDown Sheets("1").Select ActiveWindow.SmallScroll Down:=-12 Range("A3,C6").Select Else MsgBox "الخلية المحددة فارغة لذا لن يتم تنفيذ الكود": Exit Sub End If WS.Protect "2191612" Application.CutCopyMode = False Application.ScreenUpdating = True End Sub

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

اخى الحبيب كل عام وحضرتك بالف خير انظر المرفق هل هو طلبك تقبل تحياتى DOCUBLE CLICK.zip

بعد السلام اليك هذا الحل القوائم المنسدلة مطاطة تستجيب لاي تغيير فقط اذا كان اسم المادة غير مكرر اضغط افضل اجابة اذا كان كذلك استخراج القيم حسب التاريخ salim.rar

موضوع مميز ومفيد للعاملين بالتربية والتعليم شكرا جزيلا للجميع وخاصة المبدع المايسترو / ياسر خليل أبو البراء