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

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

بارك الله فيكم إخواني .. إليكم الملف المرفق به مجموعة خطوط والتطبيق عليها Fonts Like Hand-Writing.rar

الأخت الفاضلة أم ريان أهلا بك في المنتدى بين إخوانك يمكن البدء من هذا الموضوع كبداية http://www.officena.net/ib/index.php?showtopic=56941 وإن شاء الله تتابعي موضوعات المنتدى والحلول التي تقدم من قبل الأعضاء لتستفيدي

استاذ mxfouad مرفق ملف خط حمله فى فولدر font فى control panel سوف يعمل معك فى اكسل انشاء الله font1.zip

عظيم الهمة لا يقنع بملأ أوقاته بالطاعات، إنما يفكر ألا تموت حسناته بموته. أسأل الله – تعالى – أن يبارك لك في وقتك، ويمدك بالصحة والعافية. وجزاك ربي خيراً، ونفع بك. وبإخواني في هذا المنتدى المبارك.

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

تم الحل للرائع ابو تراب

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

اتقدم بالتهنئة للأخ / طلعت محمد حسن بالترقية الي الف مليون مبروك وان شاء الله من تقدم الي تقدم ** سيتم نقل الموضوع للمنتدي الاجتماعي بعد فترة

العنوان يدل على الموضوع جرب هذا الملف ولا تنسَ الدعوات....... واضغط اعجبني جمع في نفس الخلية.rar

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

ربنا مايحرمنى من تشجعيك ومرورك على مواضيعى احبك فى الله يااستاذى الحبيب ابو البراء ياسر خليل تقبل منى :fff: :fff: :fff: :gift2:

تسلم الأيادي .. يا كبير بسم الله ما شاء الله ..عليك حاجات تجنن بارك الله فيك وجزاك الله كل خير تقبل ودي واحترامي وحبي وتحياتي وأشواقي و حنيني و و و و إلخ

بارك الله فيك أخي الحبيب عمرو تم إضافة خطوطك إلى الملف ليكون جامع لكل الخطوط بالموضوع إن شاء الله Fonts Like Hand-Writing.rar

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

السلام عليكم ورحمة الله وبركاته معادله فى غاية البساطه تحويل الصف الى عمود تقبلو تحياتى تحويل الصفوف الى اعمده.rar

جرب الكود التالي Sub ClearIfFound() Dim Cell As Range Dim blFound As Boolean Application.ScreenUpdating = False For Each Cell In Range("A7:A" & Cells(Rows.Count, 1).End(xlUp).Row) blFound = Application.WorksheetFunction.CountIf(Range("L1:U5"), Cell.Value) If blFound = True Then Cell.EntireRow.ClearContents Next Cell Application.ScreenUpdating = True End Sub

ماشاء الله ربنا يبارك في حضرتك انا حبيت ال VBA بسببك

بالتوفيق ان شاء الله

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

حضرتك قلت (انا كل الى عايزو ان الصفحه لما تتاخد كوبى ميكونش فيها اى معادله) ودا اللي أنا عملته ، وبما إن الخلية اللي فيها الاسم فيها معادلة فطبيعي إنها تتمسح زي ما أضفت للكود !! .. راجع ملفك مرة أخرى وشوف الخلية دي عبارة عن معادلة أن عبارة عن ثابت

اتفضل عدم تفعيل الزر بعد الحفظ.rar

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

جرب الكود التالي .. Sub CopySheet() Dim strName As String, SH As Worksheet strName = Trim(Sheet1.Range("A8").Value) For Each SH In Worksheets If SH.Name = strName Then Exit Sub Next SH Sheet1.Copy after:=Sheets(Sheets.Count) Sheets("Sheet1 (2)").Name = strName With Sheets(strName) .Shapes("Button 1").Delete .Cells.SpecialCells(xlCellTypeFormulas).ClearContents End With End Sub ويا حبذا لما ترفق ملف يكون بدون حماية

مشاركة مع الأستاذ جعفر اعمل استعلام جديد وباسم qr1 ومصدره الجملة التالية: select DISTINCT [AnimalsRecords].[EarNo] from [AnimalsRecords] UNION select DISTINCT [BornsRecords].[SeasonalNo] from [BornsRecords]; وهذا الكود : Private Sub Cmd0_DblClick(Cancel As Integer) BornNo = Nz(DMax("[EarNo]", "qr1"), 0) + 1 End Sub اخي ابوخليل : كذلك انت لم ترد وتناقش هنا http://www.officena.net/ib/index.php?showtopic=60209&hl= تحياتي

والله عمل ممتاز ورائع ومبهر حقا تستحق لقب خبير درجة اولى

السلام عليكم أخي الفاضل جرب الملف التالي وإن شاء الله يفي بالغرض ولا تنسى أن تختار المشاركة التي تعجبك كأفضل إجابة تقبل تحياتي Copy Filtered Data From Closed Workbook.rar

وعليكم السلام أخي وائل انا فتشت في قوانين المنتدى ، بس للأسف الظاهر انهم تجاهلوا بعض الشروط ، لهذا ، فانا اضع بين يديك قانون جعفر: 1: ممنوع وضع مشاركات جديدة لها علاقة بالاكل ، إلا بعد الوجبات يعني تريدني ارد على سؤالك ، او ارد على بطني اللي يريد الزبيدي عُدنا للموضوع 1. انا غيرت مسمى الحقول الصفراء في النموذج الرئيسي الى: 2. في النموذج الفرعي ، في الحدث الحالي ، وضعت هذا الكود: يعني ، لازم تكون على السجل اللي تريد تعرف معلوماته ، وعليه بتحصل على النتيجة Private Sub Form_Current() On Error GoTo err_Form_Current Me.Parent.itemcode_count = 0 Me.Parent.itemcode_id = Me.itemcode Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For I = 0 To RC If Me.Parent.itemcode_id = rst!itemcode Then Me.Parent.itemcode_count = Me.Parent.itemcode_count + 1 End If rst.MoveNext Next I Exit Sub err_Form_Current: If Err.Number = 3021 Then 'no records Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub بس الظاهر ان عندك حدث آخر يتدخل كل شوي ، فلازم تعالجه علشان هذا الكود يشتغل عدل جعفر 41.AA.mdb.zip

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

بارك الله فيك وفي علمك

السلام عليكم المعادلة المستخدمة =SUMIF($I$3:$I$11;"*ثلج*";$H$3:$H$11) New Microsoft Excel Worksheet_3.rar

صديقي ابو القبطان مرفق نسخة عن الملف بصيغة 2003 لم اجربه لانني لا املك هذه الصيغة /حاول انت ان تجربه و اعطني النتيجة بالنسبة للاسماء يمكن ان تكتبها في العامود G ابتداء من G2 حتى g5000 كما يمكنك حذف اي اسم و استبداله باخر/ الارقام كما البيانات يمكن استعمالها تفتيش عن اسم 2003.rar

ألف ألف مبروك .. للأستاذ القدير طلعت محمد حسن

اللهم لا تحرم اساتذتنا في منتدانا هذا، في الدنيا السكينة وراحة البال؛ وفي الآخرة الجنة ومن اي الابواب شاءوا دخلوا ... يا رب العالمين...

تفضل و اعطني رأيك يمكنك استعمال هذا الماكرو ايضاً (لكن في ورقة اخرى من الالمصنف) Private Sub Worksheet_SelectionChange(ByVal Target As Range) FontSize = ActiveCell.Font.Size LargeSize = FontSize * 1.5 Cells.Font.Size = FontSize ActiveCell.Font.Size = LargeSize End Sub conditinal zoom.rar

أخي ابو حبيبة اليك الملف وان شاء الله يكون المطلوب تواريخ.rar

أخي الحبيب سليم وأخي الغالي خزاني اسمحا لي بتقديم هذا الحل إثراءاً للموضوع ..هنا الحل لا يعتمد على ورقة أخرى لتخزين القيم التي يتم إدخالها ، كما أنه مقتصر على الأرقام فقط دون النصوص Cell Counter YasserKhalil.rar

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

السلام عليكم تفضل أخى ما تريد Suppliers Coder - Copy.rar

ان شاء الله تكون المعادلة المطلوبة أستاذ mohamed.m if.rar

السلام عليكم ورحمة الله وبركاته كيف حالكم إخواني الكرام في المنتدى الغالي؟ لقيت نفسي نفسي (نفسي الأولى غير التانية ..) نفسي الأولى يعني أنا - وأعوذ بالله من كلمة أنا - ، ونفسي التانية يعني حاجة أتمنى أعملها .. المهم لقيت نفسي أعمل حاجة مختلفة .. بشكل مختلف .. بأسلوب مختلف يكون فيه عنصر التشويق والإثارة والبساطة مجتمعين في نفس الوقت. كتير مننا أول ما يسمع كلمة البرمجة والأكواد يتخض وكأن الموضوع مستحيل ...أبدا كل الحكاية إننا بنبدأ غلط مش بناخد الخطوات الصحيحة لتعلم البرمجة. لو عايز تتعلم البرمجة ونفسك بجد تبدأ تتمكن فيها خليك معايا ، هنقضيها رغي شوية وهزار شويتين ، وجد مش كتير ... ايه رأيكم؟ نبدأ على بركة الله .. أول حاجة بعد ما تنصب الأوفيس وتفتح الإكسيل تلاقي اللي انت عايزه مش موجود طيب نظهره إزاي ؟؟ ببساطة فيه زر أوفيس فوق شمال هتضغط عليه وتضغط Excel Options هتلاقي نافذة فيها خيار اسمه Show Developer tab in the Ribbon يعني إظهار التبويب ، وهتلاقي جنبه مربع تحط فيه علامة صح مبروك الخطوة الأولى واحد هيقولي عندك اقف أول خطوة فشلت فيها ..هقوله ربنا ما يحرمنا من الفشل لأن الفشل أول طريق النجاح .. هقولك لو ملقتش اللي بحكي عليه يبقا اصدار الأوفيس مختلف أنا شغال على 2007 ، وحضرتك على 2010 أو 2013 (بالنسبة ل 2003 والله ما أنا معبره كفاية عليه لحد كدا) ... بالنسبة لـ 2010 و 2013 بيكون من قائمة File ثم Options ثم من القايمة الشمال فيه Customize Ribbon وفي الناحية اليمين هتلاقي قائمة بالتبويبات وجنب كل تبويب علامة صح اللي يعجبك علم عليه صح واللي ميعجبكش ارميه في الزبالة... المهم هتلاقي التبويب اللي هيفتح لنا الباب لعالم البرمجة .. دا كان المفتاح للدخول نخش لتاني حاجة المفتاح عشان يفتح معاك لازم تحط عليه شوية زيت ، يعني لازم تضبط إعدادات الماكرو عشان الأكواد تشتغل معاك تمام من التبويب الجديد انقر على Macor Security هيفتح معاك نافذة بتختار منها آخر خيار Enable all macros وبتعلم علامة صح على الخيار اللي جنبه مربع Trust access to VBA الحمد لله خلصنا من النقطة الأولى والتانية ... ننتقل لنقطة جديدة : هيظهر التبويب في الآخر .. جمد قلبك واشرب ديو وافتح الباب لمحرر الأكواد اضغط على Visual Basic من التبويب المذكور أو لو بتحب تتعامل مع الكيبورد اضغط Alt + F11 كدا الباب الحمد لله فتح .. لو أول مرة تدخل على محرر الأكواد متتخضش واحدة واحدة هبندا نتعلم كل اللي موجود .. المهم محدش يستعجلني عشان أنا مستعجل النافذة دي اسمها نافذة المشروع Project window يعني الإكسيل بيتعامل مع المصنف إنه مشروع .. والمشروع مكون من 3 شيتات اللي بنسميهم أوراق العمل Sheet1 و Sheet2 و Sheet3 بس في 2013 الحمد لله بيكون الوضع الافتراضي شيت واحد بس (أصلي بتخنق من حتة 3 شيتات ع الفاضي بحس إن الملف كبير ع الفاضي وكل اللي يلزمني للعمل بشكل مبدئي هو شيت ولما أحب أضيف جديد مش هيكون أمر صعب) المهم مع أوراك العمل بنلاقي الكائن المسمى بالمصنف WorkBook ودا اللي بيحوي التعابين كلها أقصد الأكواد .. طيب محدش سألني ايه المنطقة الرمادي دي ومالها ضلمة ليه كدا؟ أنا أقولك عشان إنت تنورها .. اضغط دبل كليك على Sheet1 مثلا في نافذة المشروع هتلاقيها نورت والحمد لله استعداد لبداية الاحتفال بس فيه نقطة الأكواد لو اتكتبت هنا هتأثر على الورقة دي بس ... في الحتة اللي نورت الصق الكود اللي جاي ده وأفضل تكتبه بايدك عشان أنا شايف ايدك بتترعش وخايف .. قلت لك جمد قلبك الموضوع بسيط نبدأ بكود كدا سهل ولذيذ Sub Hello_Officena() MsgBox "Hello Officena!" End Sub أول كلمة Sub يعني ابدأ صب اللي عندك .. لا غلط .. معناها إجراء فرعي Subroutine يعني بينفذ مهمة محددة. وفي آخر الكود End Sub عشان القفلة (لو فاكرين شعبان عبد الرحيم بيقول ايه في الآخر بس خلاص دي القفلة بتاعته) هنا بقا دي القفلة بتاعت الإجراء الفرعي.. طيب ايه Hello_Officena دا اسم الإجراء ودا له قواعد أول حاجة مينفعش يبدأ برقم 77Hello_Officena ولا ينفع يكون فيه مسافة زي كدا Hello Officena بس ممكن لو حبينا بدل المسافة بحط Underscore اللي هي بتيجي بـ Shift + العلامة اللي على يمين الصفر اللي في الأرقام اللي فوق مش الأرقام اللي ف لوحة الأرقام .. وبردو فيه حاجات محرمة في اسم الإجراء زي علامة # أو $ أو % أو & أو % أو النقطة أو الفاصلة أو أو .. بقولكم ايه كفاية كلام عن اسم الإجراء .. لو كان فيه حاجة غلط في الاسم هيطلع لك رسالة خطأ تعرف إن فيه حاجة مش مظبوطة!! طيب السطر اللي في النص دا هو دا الكود .. الإجراء أو المهمة المراد تنفيذها .. بتبدأ بكلمة MsgBox ودي اختصار للكلمة Message Box أي صندوق الاسم ..... والله انا سرحت بس مش همسح اللي بكتبه خلي الكلام يكون تلقائي .. ودي بنكتب وراها الرسالة اللي عايزين نظهرها .. وطبعا فيه مسافة بعد الكلمة والكلام اللي هو الرسالة دا نص فنحطه بين أقواس تنصيص " " .. واحد برق لي عينه بيقولي بتتعمل إزاي دي قول لأقتلك .. هقوله حاضر يا باشا هقولك دي بتيجي إزاي .. اضغط على Shift وبعدين حرف الطاء بس خلاص .. طبعا أقواس التنصيص في أول النص وفي آخره مهو لازم القفلة. نجرب نشغل الكود إزاي .. فيه أكتر من طريقة يا إما تضغط على مثلث لونه أخضر فوق في شريط الأدوات الموجود في محرر الأكواد .. مش عاجبك شكل المثلث الأخضر خلاص روح لقائمة Run واضغط أول أمر .. لو انت تلميذ ذكي هتعرف الطريقة التالتة من التانية .. هسيبكم تقولوها إنتو ..مش عارفين !! طيب هقول أنا وخلاص اضغط على F5 من لوحة المفاتيح بس بشرط يكون مؤشر الماوس واقف في الكود.. لما نشغل الكود دا اللي هيظهر لي وبكدا أكون وصلتكم وفتحت لكم الباب .. لو عايزين نكمل قولوا كمل مش عايزين .. يبقا كفاية لحد كدا ويا كود ما يقربش منك حد .. ونعمل بالمثل الفلاحي اللي بيقول : ابعد عن الكود وادعي عليه! والسلام عليكم سبحانك اللهم وبحمدك .. نشهد أن لا إله إلا أنت ..نستغفرك ونتوب إليك كان معكم على الهواء مباشرة أخوكم أبو البراء من ملعب أوفيسنا .. إلى اللقاء مع مباراة جديدة وأهداف جديدة وشيقة دمتم بود ====================================== ====================================== السلام عليكم نرجوا وضع ردود الشكر والاعجاب على الرابط ادناه هنا ====================================== ======================================

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

وده رابط الموضوع http://www.officena.net/ib/index.php?showtopic=57923&hl=

عفوا اخواني على التاخير مرفق الملف تعديل الكود بدل جديد خلية عمود V1.zip

لمعرفة النوع (ذكر -أنثى) لمعرفة مكان الميلاد لمعرفة تاريخ الميلاد استخراج بيانات من الرقم القومي.rar

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

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

نموذج لحساب ضريبة كسب العمل طبقا للقانون 91 لسنة 2005 وتعديلات القانون حتى 2013 من اعداد دعم فنى سوهاج نموذج حساب الضريبة.rar

اخي الفاضل ابو تراب جزاك الله خير على المجهود الرائع

ماشاء الله برنامج اكثر من رائع مشكور على المجهود العظيم برجاء المساعدة في عمل برنامج خاص بشؤون الموظفين