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

شرح لبرنامج اكسيل 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

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

تفضل اخي تحياتي ملف قبل كود الطباعة.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

السلام عليكم ورحمة الله وبركاته إخوانى وحبائى أعضاء وأساتذة هذا المنتدى العظيم تحية طيبة وبعد وكل عام وحضراتكم بألف خير بمناسبة عيد الأضحى المبارك أعاده الله عليكم بالخير واليمن والبركات أقدم لكم اليوم أدة 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)‎

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

اخي الفاضل لم يـكن الموضوع بسيطا كما تخيلت عموما لم ارد ارفع لك الملف الا بعد التاكد من النتائج ارجو ان يكون المطلوب تحياتي متكررات.rar

السلام عليكم ورحمة الله وبركاته لتشكيل عن طريق لوحة المفاتيح: 1-لوضع الشدة ..... (shift + ذ ) 2-لوضع السكون ..... ( shift + ء ) 3-لوضع الفتحة ....... ( shift + ض ) 4-لوضع تنوين الفتح ....... ( shift + ص ) 5-لوضع الضم ....... ( shift + ث ) 6-لوضع تنوين الضم ....... ( shift + ق ) 7-لوضع الكسر ........ ( shift + ش ) 8-لوضع تنوين الكسر ........ ( shift + س ) __________________ وظائف أزرار لوحة المفاتيحبالترتيب:- ______________________ -(Esc)= و وظيفة هذا الزر فى لوحةالمفاتيح أثنين: الوظيفة الأولى و هى متعلقة بالأنترنت... حيث أنه يوقف تحميلالصفحة التى أردت فتحها . و الوظيفة الثانية و هى خاصة بالأكسبلورار .... حيث أنه يمكن من الخروج من بعض العمليات التى تقوم بها على جهازالكمبيوتر. 2-(F1)= و وظيفة هذا الزر فى لوحة المفاتيح هى فتح ملف ال (HELP) . و مع الأسف99.9(%) من مستخدمى الكمبيوتر يخافون فتح هذا الملف لأنهم يملون القراءه . حاجة غريبة !!!! و على فكرة هذا الملف يحوى جميعأستخدامات الويندوز من الألف حتى الياء . f2)= و وظيفة هذا الزر فىلوحة المفاتيح هى تغيير اسم أى ملف ، أو فولد ، أو درايف . و بأختصار شديدبدل ما تعمل كليك يمين ، و تضغط على (rename) ... فهذا الزر يسهل الأمر عليك ياباشا . أيضاً لهذا الزر فائدة أخرى ، و هى متعلقة بال (D.O.S) ... و الوظيفةهى أنك و أنت بتغير نسخة الويندوز من الدوس ، فبمجرد الضغط على هذا الزر فتظهرلك شاشة ال (MENU). 4-(F3)= و وظيفة هذا الزر فى لوحة المفاتيح هى أظهارلوحة البحث عن الملفات .... الله.. حاجة سريعة !!! بدل ما تضغط على قائمة (START) ، ثم (SEARCH) ، ثم (FILES OR FOLDERS) ... يا خبر أبيض !!! هو الواحدلسه هيضغط على كل هذه الأزار .... و هذه هى فائدة لوحة المفاتيح .. توفير الوقت . أيضاً لهذا الزر فائدة أخرى ، و هى متعلقة بال (D.O.S) ... و الوظيفة هىبمجرد الضغط على هذا الزر فتظهر لك شاشة ال (VIEW) .. أى خدمة . 5-(F4)= و وظيفة هذا الزر فى لوحة المفاتيح هى أنك عندما تضغط على أيقونة (MY COMPUTER) الموجودة على الديسكتوب ، ثم تضغط على (VIEW) الموجودة فى أعلى اليسار ، وبعد أن تضغط عليها ستنزل لك قائمة ... ففى بداية هذه القائمة ستجد الكلمة (TOOLBARS) ، و تخرج منها قائمة أخرى .. . و فى هذه القائمة ستجد الكلمة (ADDRESS BAR) .. . فأذا ضغطت عليها ، فستجدها ظهرت لك فى صفحة الأكسبلورار، و هى بأختصار الخانة البيضاء التى تكتب فيها اسم الموقع الذى تريد أن تذهبأليه ، و على يمين هذه الخانة البيضاء الطويلة ستجد زر يسمى (GO) .. وفائدة هذا الزر هى أنك بعد كتابة اسم الموقع فبمجرد الضغط عليه ، فأنك بهذاتعطى أمر بالذهاب الى الموقع الذى كتبته ، و وظيفة الزر الذى نتحدث عنه منذالبداية ، و هى أنك بمجرد الضغط عليه فيفتح لك الخانة البيضاء و ترى قائمةتنزل منها أسماء المواقع التى دخلتها من قبل . أيضاً لهذا الزر فائدة أخرى ، وهى متعلقة بال (D.O.S) ... و الوظيفة هى بمجرد الضغط على هذا الزر فتظهر لك شاشةال (EDIT) . 6-(F5)= و لهذا الزر وظائف متعددة ، و هى كالتالى: الوظيفةالأولى و هى متعلقة بالأنترنت ... و هى بمجرد الضغط على هذا الزر فأنك بهذا تعيدتحميل أو فتح صفحة النت مرة أخرى . الوظيفة الثانية و هى متعلقة بالأكسبلورار ... وهى بمجرد الضغط على هذا الزر فأنك بهذا كأنك بتعمل (*RefresH*) للكمبيوتر. الوظيفةالثالثة و هى متعلقة بالدوس أو (D.O.S) ... و الوظيفة هى بمجرد الضغط على هذا الزرفتظهر لك شاشة ال (COPY) لكى تحدد منها كيف ستكون أختيارات النسخ عن طريق شاشةالدوس ، و على فكرة أنا دائماً بعمل ال (COPY) و ال (CUT) من خلال الدوس ، وهذا لسرعته الرهيبة فى النقل و الحفاظ على كفاءة الويندوز. 7-(F6)= و لهذاالزر وظيفتين: الوظيفة الأولى و متعلقة بالأكسبلورار ، و هى وظيفة لذيذة و غريبةجداً ، و أنا متأكد أنه لا يعلمها ألا القليل من مستخدمى عالم الكمبيوتر ... و هىأنك عندما تشير بالماوس على مثلاً ملف (NOTEPAD) فمن المؤكد أنه يجعل الملف مظلل ،و هنا تأتى روعة زر ال (F6) ... و هى أنك حتى و لو ظللت مائة ملف أو فولدر فبمجردالضغط عليه ، فأنه يزيل هذا التظليل بالكامل ... و جربوها .. جميلة !!! و الوظيفةالثانية و هى متعلقة بالدوس ... و فائدة هذا الزر فى الدوس تنقسم الى قسمين.. القسمالأول هو أنك يمكنك عمل (RENAME) لأى ملف ، و القسم الثانى هو أنك يمكنك عمل (MOVE) أيضاً لأى ملف أو أى شئ . 8-(F7)= و مع الأسف ليس له فائدة تستحقالأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوس و هى بمجرد الضغط على هذاالزر فتظهر لك شاشة ال (MK DIR) ، و هذه الخاصية طبعاً مهمة . 9-(F8)= و معالأسف ليس له فائدة تستحق الأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوسو هى بمجرد الضغط على هذا الزر فتظهر لك شاشة ال (DELETE) . 10-(F9)= و معالأسف ليس له فائدة تستحق الأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوسو هى بمجرد الضغط على هذا الزر فتظهر لك شاشة ال (PULL DN) . 11-(F10)= و معالأسف ليس له فائدة تستحق الأهتمام من ناحية الويندوز. لذلك سأشرح فائدته فى الدوسو هى بمجرد الضغط على هذا الزر فأنك تخرج من الشاشة الزرقاء التى تقوم بعمل أغلبعمليات الدوس من خلالها ، بأختصار فهى تساوى معنى كلمة (QUIT): أى خروج .... أىخدمة . أما وظيفة الزر (Fn) فهو يستخدم فى بعض البرامج ، و أعتقد أنه ليس مفيد ... و أن كان وظيفة الزر (Fn) تأتى فى أستخدامات ال (EXCEL) و ال (ACCESS) و كلحاجة فى وقتها ... 12-(F11)= و وظيفة هذا الزر هى عمل حفظ لأى ملف .. مثلاً الوورد ، أو النوتباد . و بأختصار فهو يساوى كلمة (SAVE) . 13-(F12)= و وظيفة هذا الزر بأختصار تساوى كلمة (SAVE AS) . 14-(PRINT SCREEN/SYS RQ)= و هى أنك مثلاً و أنت واقف على الديسكتوب ، وبمجرد أنك تضغط على هذا الزر ، و تضغط على قائمة (START) ثم (PROGRAMS) ثم (ACCESSORIES) ثم (PAINT) ... فستجد هذا البرنامج الخاص بالرسم ... فما عليك ألا أنتضغط على زر (EDIT) الموجود أعلى اليسار ، ثم (PASTE) ، و ستجد أن شاشة الديسكتوبالتى كنت واقف عليها قد طبعت فى البرنامج ، و يمكنك بعد ذلك الضغط على زر (FILE) ثم (SAVE AS) ، و أكتب أى أسم للصورة ، و لا تنسى أن تحفظ الصورة بهذا الأمتداد (JPEG) و ذلك لأن هذا الأمتداد ترجع فائدته فى أنه يضغط الصورة الى أصغر حجم . وهيص يا عم .... أى خدمة. 15-(Esc+cool.gif=أستخدام فى لوحة المفاتيح ، و هوأنك عندما تضغط على هذين الزرين مثلاً فى برنامج ال (WORD) فأنك سترجع الى الوراءكلمة واحدة . 17-(PAUSE/BREAK)= و الوظيفة كالتالى ... و أنت بتضغط على زر ال (POWER) لكى تفتح الكمبيوتر طبعاً بتظهر لك شاشةسوداء فيها ال (CD-ROM) و ال (HARD DRIVE) و أمكانيات ال(CPU) ... المهم .. بمجردالضغط على زر ال (PRINT SCREEN/SYS RQ) فأنه يوقف الشاشة ، و بهذا يمكنك قرائةمحتويات جهازك بسهولة و براحتك . و لكى تجعل الكمبيوتر يكمل التحميل للدخول علىالويندوز ، فما عليك ألا أن تضغط على زر (ENTER) و هتدخل على الويندوز منغير أى قلق . 18-(INSERT)= و لهذا الزر وظيفتين ... الوظيفة الأولى وسأشرحها مع وظيفة أخرى. و الوظيفة الثانية و هى متعلقة بالدوس ... و تأتى عندماتريد أن تنسخ ملفين فى الدوس و تريد تحديد الملفين .. فما عليك ألا أن تقف علىالملف و تضغط هذا الزر ، ثم تقف على الملف الثانى و تضغط أيضاً هذا الزر . 19-(HOME)= للذهاب الى أعلى الصفحة مرة واحدة . 20-(END)= للذهابالى أسفل الصفحة مرة واحدة . 21-(PAGEUP)= طريقة سهلة جداً تستخدم للأتجاهالى أعلى الصفحة ، بالتدريج . 22-(PAGEDOWN)= طريقة سهلة جداً تستخدم للأتجاه الى أسفل الصفحة ، بالتدريج . 23-(NUM LOCK)= و وظيفة هذا الزر هي تشغيل و أغلاق الجزء الموجود فى أقصى يمين لوحة التحكم . 24-(BACKSPACE)= لها وظيفتين .. الوظيفة الأولى و هى متعلقة بالأكسبلورار ، فعلى سبيل المثال فىبرنامج الوورد عندما تضغط على هذا الزر فأنك بهذا تزيل به الحروف . و الوظيفةالثانية و هى متعلقة بالأنترنت أكسبلورار ، و وظيفتها تحدث بمجرد أن تضغط على هذاالزر فأنك بهذا تفتح الصفحة السابقة للصفحة التى أنت عليها الآن . 25-(علامةال PROPERTIES)= هذا الزر ستجده عند ثالث زر على يمين الزر (SPACE) ، و وظيفتههى أنك بدل ما تعمل كليك يمين على (MY COMPUTER) و تضغط على (PROPERTIES) ، فهذاالزر يوفر عليك كل شئ . و له وظيفة أخرى و هى أنك أذا أشرت بالماوس على أى ملف، و ضغطت على هذا الزر فأنه سيظهر لك محتويات الملف نفسه . 26-(علامةالويندوز)= و هذا الزر سيكون ثانى زر على يمين الزر (SPACE) و وظيفة هذا الزرهى فتح قائمة (START) . و من الآن بدل ما أقول العبارة (علامة الويندوز) فسأقول الكلمة (WINDOWS) .. ماشى . 27-(TAB)= و هذا الزر له وظيفتين ... الوظيفةالأولى وهى فى برنامج الوورد أو برنامج كتابة بمجرد الضغط على هذا الزر؛ فأنهينتقل الى الأمام ثمانية أحرف . و الوظيفة الثانية هى أنه يتحول بين الخانات . 28-(windows+e)= لتشغيل ال (windows explorer) . 29-(windows+f)= لفتح لوحة البحث عن الملفات (files or folders) . 30-(windows+m)= لتنزيلجميع الصفح المفتوحة على ال (taskbar) . 31-(windows+r)= لفتح لوحة ال (run) . 32-(windows+d)= و هى أيضاً تستخدم لتنزيل جميع الصفح المفتوحة على ال (taskbar) . 33-(windows+l)= للخروج من الويندوز . 34-(windows+p)= لفتح خصائص الطباعة . 35-(windows+c)= لفتح ال (control panel) . 36-(windows+k)= لمعرفة خصائص لوحة المفاتيح . 37-(windows+tab)= للتنقل بين العناويين بسهولة . 38-(windows+pause/break)= لأظهار خصائصالنظام ، أو ال (system properties) . 39-(windows+shift+m)= لأعادةأظهار جميع اللوحات ا لى نزلتهم على ال (taskbar) . 40-(windows+Ctrl+f)= للبحث عن أجهزة الكمبيوتر... و ذلك أما عن طريق ال (network) ، أو ال (internet) . و هى ما تسمى بــِ (remote access) . 41-(alt+printscreen/sys rq)= لتصوير الشاشة . 42-(alt+tab)= أمرمفيد جدا لك اذا كان هنالك نوافذ كثيرة مفتوح يمكنك اختيار النافذة المطلوبة . 43-(alt+f4)= لأغلاق أى نافذة . 44-(alt+Esc)= للتنقل بين النوافذ .... حركة جميلة جداً . 45-(alt+space+s)= تصغير أظهار النافذة . 46-(alt+d)= تستخدم هذه الطريقة للتظليل على الموقع المكتوب فى ال (address bar) .. مهمة . 47-(alt+left arrow)= و هذه الطريقة ترجعك للصفحةالسابقة على الأنترنت . 48-(alt+right arrow)= و هذه الطريقة تنقلك للصفحةالتالية على الأنترنت . -(alt+shift)= و هذه الطريقة تحول لغة الكتابة منالعربية الى الأنجليزية ، و العكس . و على فكرة أنتم مش محتاجيين أنكمتضغطوا على الزرين (alt+shift) الموجودين على اليسار ... بالعكس كفاية جداً الىعلى اليمين للتحويل .. خلاص ... أى خدمة . 50-(alt)= هذا الزر بمفرده وبمجرد الضغط عليه .. . فأنك تستطيع أن تفتح الأزرار الموجودة أعلى اليسار ، وهى (file – edit –view – etc) ، و بعد أن تضغط على هذا الزر ؛ فأضغط علىالأتجاهات للتنقل بينهم . 51-(ctrl+a)= هذه الطريقة تمكنك من التظليل علىجميع الملفات الموجودة فى أى فولدر مرة واحدة . 52-(ctrl+c)= هذه الطريقةتمكنك من عمل نسخ لأى ملف . 53-(ctrl+x)= هذه الطريقة تمكنك من عمل (cut) لأى شئ . 54-(ctrl+v)= هذه الطريقة تمكنك من عمل (paste) لأى شئ . 55-(ctrl+Esc)= لفتح قائمة (start) . 56-(ctrl+s)= لعمل حفظ لأى ملف (save) . 57-(ctrl+o)= لفتح ملف أو فولدر أو برنامج . 58-(ctrl+p)= لأعطاء أمر بالطباعة . 59-(ctrl+z)= للتراجع عن آخرأمر قمت به ، أو بمعنى أوضح و أدق (undo) . 60-(ctrl+cool.gif= لزيادة سمك الخط ،و هذا الأمر يستخدم فى برامج الكتابة ، و الحرف (cool.gif هذا أختصار للكلمة (bold) . أيضاً هذا الأمر يستخدم فى حالة الأنترنت .. و وظيفته هى ترفتح و ترتيب ال (favourites) . 61-(ctrl+u)= لوضع خط تحت العبارة التى تحددها أنت . 62-(ctrl+i)= لأمالة الخط . 63-(ctrl+h)= لفتح ملف ال (history) الموجود بالكمبيوتر . 64-(ctrl+d)= لأضافة موقع الى قائمة ال (favourite) . 65-(ctrl+n)= لفتح صفحة جديدة . 66-(ctrl+o)= لفتح موقع جديد . 67-(ctrl+r)= لأعادة تحميل الصفحة . 68-(ctrl+s)= لحفظ الصفحة التى تفتح أمامك . 69-(ctrl+w)= لأغلاق صفحة النت . 70-(ctrl+f4)= أيضاًلأغلاق الصفحة التى أمامك ، و لكنه لا يمكنه أغلاق برنامج ... عكس الأمر (alt+f4) الذى يغلق البرامج و أيضاً الصفحات

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

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

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

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

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

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

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

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

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

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

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي الفاضل " الشهابي " على المتابعة الطيّبة و الاهتمام .. كنت قد كتبت موضوعًا بعنوان " مساعدة في إيجاد حل للميلتيباج " .. هو نفس الملف .. على كلٍّ تفضّل المرفق سيّدي الكريم : http://up.top4top.net/downloadf-top4top_f35158ecf11-rar.html

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

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

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

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

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

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

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

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