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

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

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته مرفق ثلاث ملفات اثنان للترقيم التلقائي بالأكواد وواحد بالمعادلات بمجرد الكتابة في الخلية B يتم نزول الترقيم تلقائي كود ترقيم تلقائي 3.rar ترقيم تلقائي 4.rar ترقيم تلقائي بالمعادلة.rar

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

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

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

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

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

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

كود لجعل الفورم شفاف مع الابقاء على شريط عنوان الفورم و اطاره و على جميع الكونترولات بداخله ملف للتحميل : https://app.box.com/s/pzaml5g8slh8kq7bd03axq01vzmrldai الكود في موديول الفورم: Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Private Const LWA_COLORKEY = &H1 Private Const GWL_EXSTYLE = (-20) ' Private Const WS_EX_LAYERED = &H80000 Private Sub UserForm_Initialize() Dim hwnd As Long hwnd = FindWindow(vbNullString, Me.Caption) SetWindowLong hwnd, GWL_EXSTYLE, GetWindowLong(hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED Me.BackColor = vbRed SetLayeredWindowAttributes hwnd, vbRed, 0&, LWA_COLORKEY End Sub

السلام عليكم أخي الحبيب م /ياسر شكرا جزيلا على الإحاطة بكل ما تقوم به هذه الدالة..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

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

السلام عليكم ورحمة الله وبركاته كما قالوا لك الاساتذة ولكن الملف الذي ارفقته به خلل لذلك انظر الملف المرفق وحاول تلقي نظرة عليه وستستطيع عمل ذلك بسهولة jadwal1.rar

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

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

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

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

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

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

السلام عليكم و رحمة الله و بركاته أخي الفاضل أبو عادل ..إضافة لما تقدّم به الأستاذ القدير قنديل الصيّاد جزاه خيرًا و زادها بميزان حسناته .. هناك العديد من الدوال و الأكواد التي تقوم بهذا العمل .. لكن في ملفك لم تقمْ بتحديد النّطاق الذي يتم فيه العد .. لاحظ لو سمحت الملف المرفق وبه نوعيْن من الدّوال .. الشّرح موضّح في الصورة أدناه : الدالة المشار إليها بالسّهم الأخضر لا تحتسب في العد بالنطاق المحدّد الأرقام و إشارة "" .. أمّا المشار إليها باللّون الأحمر تحتسب في عدّها الاشارات و الأرقام ..شاهد الملف المرفق فضلاً لا أمرًا خالص احتراماتي حساب عدد الخلايا غير الفارعة.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 وان ا, اردت اي استفسار لايهمك تحياتي

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

أستاذ خالد بارك الله فيك أستاذنا العيدروس شرفت بمروركم وشكرا على هذه الاضافة الأكثر من رائعة يا زيزو يا بسكرى العيديه بتاعتك أهه افتح الفيجوال المحمى بكلمة سر كل سنة وأنتم جميعا بخير Open Visual Basic Editor .rar Open Visual Basic Editor .rar

السلام عليكم او بهذي الطريقه نسجل باسورد محرر الاكواد ضمن الكود 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 حيث تسمح لنا باخفاء الفورم عند اختيار التاريخ