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

شرح لبرنامج اكسيل 2010 على اسطوانتين الاسطوانة الاولى الاسطوانة الاولى على الميديا فاير_منتديات اوفيسنا الاسطوانة الثانية الاسطوانة الثانية على الميديا فاير_منتديات اوفيسنا تحياتى للجميع قنديل الصياد

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

السلام عليكم ورحمة الله أخي الكريم، لا أعتقد أنه يمكن باستعمال الدالة SUBTOTAL عمل ذلك (بتحفظ)... وأقترح عليك المعادلة التالية التي تقوم بعدّ القيم الفريدة (المختلفة ودون تكرار): =SUMPRODUCT(1/COUNTIF(B4:B20;B4:B20)) بن علية

كتاب تعلم برنامج اكسيل 2010 فى 134 صفحة باللغة العربية حمل كتاب تعلم اوفيس 2010 باللغة العربية

اخي الفاضل تفحص المرفق Passwords1.rar

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

حديث لرسول الله -صلى الله عليه وسلم-، يقول: عن أبي هريرة -رضي الله عنه- أن رسول الله -صلى الله عليه وسلم- قال: إذا مات ابن آدم انقطع عمله إلا من ثلاث: صدقة جارية، أو علم ينتفع به، أو ولد صالح يدعو له، رواه مسلم راحل عنا امس العلامه القدير الاستاذ عماد الدين الحسامى وترك لنا علم ينتفع به حبيب اذكركم ببعض ما ترك لنا من اعمال وعلم ينتفع به أسال الله تعالى ان تكون جميع اعماله فى ميزان حسناته ممكن حضرتك تدخل على مكتبه الاستاذ عماد ونشوف اعماله من صفحته الشخصيه بالمنتدى الحسامى.zip الحسامى 2.zip شرح الفورم.zip نظام الحسامي للمخازن.zip واجهه كنترول للاستاذ الحسامي.zip شجرة الحسابات-عماد الحسامي.zip

السلام عليكم ورحمة الله وبركاته شكرا لكم يا أساتذتي الأعزاء على كل مجهوداتكم القيمة والمفيدة أستاذي العزيز عبد العزيز البسكري جزاك الله خيرا لقد قمت بتعديل الملف لكن المشكلة في الكود الذي وضعته فهو طويل أرجوا منك الاطلاع على الملف وتعديل كود مختصر اولا : الورقة الأولى (تطبيق) لا تضع فيها زر اليوزرفروم يمكنك وضع زر يوزر فروم في صفحة كل الموظف أضن أنك بهذه الطريقة تستطيع تجاهل multipage ثانيا : تقوم بإستدعاء الأعمدة الثلاثة شغال نساء ورجال وآخر من الورقة الأولى (تطبيق) للأسابيع الأربعة حسب جدول كل موظف أما عمود المصروف فيتم استدعاؤه من ورقة الموظف. وجزاك الله خير الجزاء أخوك في الله // الخليفة الأول حسابات الموظفين.rar

تفضل اخي تحياتي ملف قبل كود الطباعة.rar

السلام عليكم و رحمة الله و بركاته جزاك الله خيرًا أستاذنا الفاضل ياسر خليل أبو البراء المحترم:

وعليكم السلام أبي الغالي أبو يوسف كل عام وأنت بخير وكل عام وأنت إلى الله أقرب وعلى طاعته أدوم جزيت خيراً على شعورك الطيب النبيل تجاهي وإني والله في غيابي أشعر دائماً بأن جزءاً مني مفقود ، والحمد لله أنا بخير الآن وسأحاول التواجد في المنتدى قدر استطاعتي تقبل الله منا ومنكم

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

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

السلام عليكم أخي الحبيب م /ياسر شكرا جزيلا على الإحاطة بكل ما تقوم به هذه الدالة..Countif...لقد تعلمنا منك. جزاكم الله خيرا".

السلام عليكم وهذه معادلة اخرى بعد معادلة استاذى بن علية حاجى جزاه الله خيرا =SUMPRODUCT(SUBTOTAL(3;OFFSET($B$4:$B$20;ROW($B$4:$B$20)-MIN(ROW($B$4:$B$20));;1))*(1/COUNTIF(B4:B20;B4:B20))) هل ممكن هذه المعادلة تعد بدون تكرار.rar

ما هذه الروعة والشمولية والدقة ؟ ممتاز جداً - جزاك الله كل خير

إن لله ما أخذ وله ما أعطى وكل شىء عنده بأجل مسمى

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

السلام عليكم =========== حرصأ على وقت الاعضاء وعدم تكرار المواصيع وسهولة البحث هذا الموضوع خاص بادراج الصور فى الخلايا وما شابهها من مواضيع ساجعل الموضوع مثبت ومفتوح للردود وذلك لمشاركة الاخوة بروابط المواضيع المشابهة سيكون الموضوع مثبت ومفتوح للردود حتى يوم 10/10/2011 وبعد ستحذف الردود وينقل الموضوع الى الدليل جمعة مباركة على الجميع وكل عام وانتم بخير الموضوع رقم (1) عرض الصور في الخلايا حسب الاسماء http://www.officena....=1 =========================================== الموضوع رقم (2) ادراج صورة فى خلية http://www.officena....A9&fromsearch=1 =========================================== الموضوع رقم (3) طلب بخصوص ادراج صورة عن طريق الفورم وحفظها http://www.officena....A9&fromsearch=1 ============================================ الموضوع رقم (4) جلب صورة من ملف بدلالة الرقم الوظيفي http://www.officena....A9&fromsearch=1 ============================================= الموضوع رقم (5) إدراج الصـورة فـى تعليق الخليـة أتـومـاتيكيـا مع التحكم بحجمها http://www.officena....A9&fromsearch=1 ============================================= الموضوع رقم (6) دالـة ( VLOOK_Pic1 ) لعـرض الصـور من أى نـوع و أى حجـم http://www.officena....=1 ============================================= الموضوع رقم (7) ظهور الصوره بالنسبه- للمحترفين http://www.officena....showtopic=38962 ============================================= الموضوع رقم (8) كيفية حفظ الصورة داخل ورقة اكسيل http://www.officena....showtopic=28547 ============================================= الموضوع رقم (9) التقاط صورة للتحديد خلايا او صوره او اي شي http://www.officena.net/ib/index.php?showtopic=37813

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

تعلم برنامج اكسيل 2007 فى ثلاث مستويات المستوى الاول_منتديات اوفيسنا المستوي الثاني_منتديات اوفيسنا المستوي الثالث_منتديات اوفيسنا

السلام عليكم و رحمة الله وبركاته اشتقنا لك و لجديدك أستاذنا القدير محمد حسن المحمد .. خالص احتراماتي

بارك الله فيك أستاذنا الغالي ياسر فتحي البنّا .. جزاك الله خيرًا و زادك من علمه و فضله .. قلتها و أكرّرها أنّك دومًا تفاجئنا بمواضيعك المميّزة ..فنِعْمَ المفاجآت خالص احتراماتي

السلام عليكم و رحمة الله و بركاته أخي الغالي أحمد مرجان .. تفضّل المرفق .. ليست بوكس 50 عمودًا حسب قاعدة بياناتك ..لعل و عسى يكون المطلوب خالص احتراماتي الليست بوكس 49 عمودا.rar الليست بوكس 49 عمودا.rar

السلام عليكم ورحمة الله وبركاته إخوانى وحبائى أعضاء وأساتذة هذا المنتدى العظيم تحية طيبة وبعد وكل عام وحضراتكم بألف خير بمناسبة عيد الأضحى المبارك أعاده الله عليكم بالخير واليمن والبركات أقدم لكم اليوم أدة Add-in تقوم بتحويل قوائم الإكسيل 2007 و 2010 إلى قوائم إكسيل 2003 الكود المستخدم Sub Show_Excel_2003_Style_Menu() On Error Resume Next Dim cmdBar As CommandBar Dim cmdBarCtrl As CommandBarControl Dim sMenuName As String Dim sToolbarName As String Dim iMenu As Integer sMenuName = "Excel 2003 Style Menu" sToolbarName = "Excel 2003 Style Toolbar" CommandBars(sMenuName).Delete CommandBars(sToolbarName).Delete 'Code upto here can be used to hide/delete Excel 2003 'style menu from Excel 2007/2010. Set cmdBar = CommandBars.Add(sMenuName, , , True) 'This will create Excel 2003 style menu bar in Excel 2007/2010 With cmdBar .Visible = True For iMenu = 1 To 10 Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30001 + iMenu) Next iMenu Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30022) 'Chart Set cmdBarCtrl = .Controls.Add(Type:=msoControlPopup, ID:=30177) 'AutoShapes End With Set cmdBar = CommandBars.Add(sToolbarName, , , True) With cmdBar .Visible = True With .Controls Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=2520) 'New Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=23) 'Open Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3) 'Save Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=4) 'Print Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=109) 'Print Preview Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=2) 'Spelling Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=21) 'Cut Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=19) 'Copy Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=22) 'Paste Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=108) 'Format Painter Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=210) 'Sort Ascending Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=211) 'Sort Descending Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=984) 'Help Set cmdBarCtrl = .Add(Type:=msoControlComboBox, ID:=1728) 'Font Set cmdBarCtrl = .Add(Type:=msoControlComboBox, ID:=1731) 'Font Size Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=113) 'Bold Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=114) 'Italic Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=115) 'Underline Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=120) 'Align Left Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=122) 'Center Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=121) 'Align Right Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=402) 'Merge and Center Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=395) 'Accounting Number Format Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=396) 'Percent Style Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=397) 'Comma Style Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=398) 'Increase Decimal Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=399) 'Decrease Decimal Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3162) 'Decrease Indent Set cmdBarCtrl = .Add(Type:=msoControlButton, ID:=3161) 'Increase Indent End With End With Set cmdBar = Nothing Set cmdBarCtrl = Nothing On Error GoTo 0 End Sub أرجو ا من الله أن ينول رضاكم Excel2003_Style_Menu.rar

اخى العزيز لحساب عدد الخلايا الغير الفارغة استخدم الدالة مثال : ‎=COUNTA(A2:A6)‎

أنا بحاول اساعد حضرتك على قدر استطاعتى فاسمحلى ببعض الاستفسارات لعلى ييسر الله لى أمرا ما هى العلاقة بين جدول invoicehh & invoicett اليس من المفترض أن يكون الحقل invoicenum متساوى فى كلا الجدولين فليس منطقيا أن يكون رقم الفاتورة فى جدول الرأس مختلف عنه فى جدول التفاصيل أم الأمر على خلاف ذلك أرجو التوضيح

السلام عليكم احي ابو جنا الحمد لله انه سيلبي حاجتك اما بالنسببة لعمله اولا الشيت الذي اريد نسخه منه باستمرار اسميته Source وجعلته مخفيا يظهر لاخذ نسخة منه ثم يختفي مرة اخري طبعا بالكود الكود المستخدم في شيت اليوم Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row <> 8 Then Exit Sub If Target.Column < 3 And Target.Column > 16 Then Exit Sub If Cells(Target.Row - 1, Target.Column) <> "" Then Application.ScreenUpdating = False Sheets("Source").Visible = True Sheets("Source").Copy After:=Sheets("اليوم") ActiveSheet.Name = Format(Cells(Target.Row - 1, Target.Column), "dd_mm_yyyy") Sheets("Source").Visible = False Application.ScreenUpdating = True End If End Sub وان ا, اردت اي استفسار لايهمك تحياتي

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

السلام عليكم او بهذي الطريقه نسجل باسورد محرر الاكواد ضمن الكود Private Sub باسوورد() ' الكود في وضع الخاص (مخفي) وحفظ اسم الكود بمسمى معين ' بإستخدام كلمة Private ' Private Sub باسوورد Call Un_VBPro("123") ' مثلا اذا الباسورد حق محرر الاكواد 123 End Sub Private Sub Un_VBPro(ByVal Pwd As String) Dim vbProj As Object Set vbProj = ThisWorkbook.VBProject If vbProj.Protection <> 1 Then Exit Sub ' Set Application.VBE.ActiveVBProject = vbProj SendKeys Pwd & "~~" Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute Application.VBE.MainWindow.Visible = True DoEvents With Application .Goto "باسوورد" End With End Sub

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

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

الاستاذ / ياسر خليل المحترم شفاك الله وعفاك

السلام عليكم و رحمة الله و بركاته والله لم أكن أعلم بمرض أستاذنا القدير ياسر خليل أبو البراء .. سلامات يا غالي .. طهورٌ إن شاء الله ((اللّهّم ربّ الناّس، أذهب الباس، واشفه فأنت الشافي؛ لا شفاء إلا شفاؤك، شفاء لا يغادر سقماً)) فائق احتراماتي

شفاك الله وعافاك أخي ياسر ولا بأس طهور إن شاء الله. وأسال الله الشافي المعافي أن يمن عليك بشفاء لا يغادر سقماً

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

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

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

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

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

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

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

الأمر بسيط استخدم السطر التالي للإخفاء ws.Range("AZ" & lr).EntireRow.Hidden = True وغير كلمة True إلى False للإظهار انتهى

الاخ الفاضل استعمل هذا الكود في مثالك يعطيك ملف بجنب ملفك بالاسم الذي تختاره و يمكنك ان تختار الورقة التي تريد بالتعديل على الكود انا اخنرت هنا الورقة2 لاحظ الكود في المرفق نسخة احتياطية من ورقة وحيدة.rar

تم التعديل المطلوب و التحميل بعد قليل

الاخ الكريم تفضل الملف و ادعيلي ... ملاحظة هناك تغيير في الاسماء للضرورة (عدم وجود فراغات) (وجدت مشكلة في رفع الملف فرفعته على الميديافير) الاخ ابو احمد رجاء اذا في الامكان رفع الملف الى المشاركة لاني وجدت صعوبة في رفعه لان حجمه كبير و عندي مشكلة في الاتصال التحميل

أخى الفاضل / عـــــــــــــلاء سلام الله عليكم مرفق ملف بمساعدة اخى الفاضل // أحمد فضيلة لعله يفى الغرض ويمكنكم التعديل عليه Load Pictures HaNcOcK 2_2.rar

السلام عليكم ورحمة الله أخي الكريم "أبو أحمد"، اعتقدت أن الملف الذي وضعته هو عمل قمت به وتقدمه للإخوة الأعضاء ولم أنتبه إلا اليوم أنه طلب تغيير استدعاء بيانات بالصورة (بطريقة جديدة)... أقدم لك أخي الكريم الملف التالي الذي يحوي ملف البيانات ومجلد الصور (وينبغي أن يكونا مجموعين معا في مجلد واحد)... وإن شاء الله يكون هذا المطلوب... أخوك بن علية البيانات مع الصورة.rar

اضافة بسيطه على كود الاخ بن عليه وهو Private Sub Calendar1_Click() Range("A1") = Calendar1.Value UserForm1.Hide End Sub حيث تسمح لنا باخفاء الفورم عند اختيار التاريخ