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

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاة الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا أوفيسنا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لكم برنامجى المتواضع تعليم الرياضيات بالاكسل لرياض الأطفال والمدارس الابتدائية مميزات البرنانج 1- يناسب الفئات العمرية المختلفة من رياض الأطفال وتلاميذ المرحلة الابتدائية بل والاعدادية 2- التحكم الكامل فى البرنامج من حيث التدرج فى السهوله إلى الصعوبة 3- البرنامج مدعم بالموسيقى لجذب الأطفال وتحقيق نوع من السعادة لهم 4- امكانية التعديل فى أصوات البرنامج ووضع أصوات جديدة تجنباً للملل الذى قد يشعر به الطفل من كثرة الإستعمال لتغيير صوت يجب أن يكون الصوت بامتداد wave وبنفس الاسم المرفق مع البرنامج 5- البرنامج يعلم الجمع والطرح والضرب والقسمة كما يعلم الأطفال مبادئ الاكسل مثل : تحديد خلية - ادخال بيان فيها - التنقل بين الأوراق فتح ملف اكسل - غلق ملف اكسل - .........إلخ 6- البرنامج يشجع على التعلم الذاتى واكتشاف الخطأ ومن ثم تصحيحه . 7- لا أدرى هذا عيب أم ميزة وهو أن البرنامج يغلق بصوت لذلك عند غلق الملف نضغط مرتين على علامة الإغلاق x الأولى يعمل عندها صوت النهاية والثانية تغلق الملف وأخيرا أتوجه بالشكر الى كل من ساهم فى هذا العمل 1- الأستاذ الفاضل بن عليه حاجى 2- الأستاذ الفاضل سليم حاصبيا 3- الأستاذ الفاضل أبوتراب 4- الأستاذ الفاضل ابن مصر كما أتوجه بالشكر الى كل أساتذتى فى المنتدى الذين تعلمت منهم الكثيرأمثال الأستاذ ياسر خليل أهدي البرنامج لأطفالكم واخوانكم وأخواتكم وكل طفل عربى والى أبنائى احمد وحسام الدين ورانيا البرنامج على هذا الرابط http://www.mediafire.com/download/1r7e0pp7oz3bke5/تعليم_الرياضيات_بالاكسل_لرياض_الأطفال__والمدارس_الابتدائية.rar أتمنى أن تسعدوا به ويسعد به أولادكم لكم منى كل الاحترام والتقدير ************************

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

السلام عليكم اتفضل يااستاذ ايمن ولايهمك . ayman.rar

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

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

بسم الله الرحمن الرحيم لاحظت في الفترة الأخيرة كثرة الأسئلة عن موضوع نسيان كلمات مرور ملفات الإكسل أو بعض ورقات العمل بالملف فأحببت أن أشارك إخوتي وأحبّتي أعضاء ومشرفي وخبراء منتدانا الرائع هذه الإضافة MasNoPass لفك حماية أوراق العمل في ملفات الإكسل وتعمدت تسهيل عملها &&&&&&&&&&& فقط تحتاج لإضافة الوظيفة الإضافية: 1 في ويندوز xp نسخ المرفق إلى المسار التالي C:\Documents and Settings\***\Application Data\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم 2 في ويندوز 7 نسخ المرفق إلى المسار التالي C:\Users\***\AppData\Roaming\Microsoft\AddIns حيث أن C هو قرص النظام و *** هو اسم المستخدم ****************** بالنسبة لمستخدمي إكسل 2003 من خلال: فتح برنامج الإكسل والضغط على قائمة أدوات tools ===> وظائف إضافية Addins ===> ثم اختر MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2007 يتم ذلك من خلال : فتح برنامج الإكسل والضغط على زر الأوفيس ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Addins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok وبالنسبة لمستخدمي إكسل 2010 وما بعدها يتم ذلك من خلال : فتح برنامج الإكسل والضغط على قائمة ملف file ثم خيارات إكسل Excel options ثم اختيار وظائف إضافية Add-ins من الجانب الأيمن/الأيسر ثم اذهب go ثم اختيار MasNoPass ثم موافق ok /////////////////// طريقة العمل:- بعد تسجيل الوظيفة الإضافية تجد ظهور قائمة جديدة باسم (فك الحماية) وتحتاج فقط إلى فتح الملف المحمي ثم الضغط على قائمة فك الحماية واختيار (إزالة كلمة المرور) بعدها سيتم البدء في عدّ المحاولات والوقت المنقضي في إجراء العملية بعدها تظهر رسالة تفيد أنه تم إزالة كلمة المرور عن الملف وبعد الضغط على الرسالة ستجد الملف مفكوك بين يديك $$$$$$$$$$$$$$$$ و أذكّر نفسي وإياكم بأن الصحابة عليهم رضوان الله كان الواحد منهم إذا أراد أن يدعو لنفسه دعا لأخيه فيقول له الملك آمين ولك مثلها فلا ينقصني سوى دعائكم وأخيرا أذكر بخطورة الموقف وأرجو عدم استعمالها فيما حرّم الله وعند النقل يجب ذكر المصدر منتديات أوفيسنا اللهم قد بلّغت ... اللهم فاشهد أخوكم محمد صالح فيديو لشرح كيفية استعمال الأداة ولا ينقصني سوى دعاؤكم ينصح بالاشتراك في القناة وتفعيل جرس التنبيه ليصلكم كل جديد ومفيد وقت صدوره MasNoPass.rar New_MasNoPass.rar

السلام عليكم اقدم لكم في هذا الموضوع قناة على اليوتيوب خاصة بالاكسيل تحتوى القناة على اكثر من 160000 (مائة وستون الف) درس فيديو مدعمة بملفات للشرح حتى لحظة كتابة الموضوع وبعض الدروس اكثر من ساعة للدرس انا استفدت من هذه القناة كثيرا جدا ارجو ان تستفيدوا منها https://www.youtube.com/user/ExcelIsFun/videos

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

السادة أعضاء المنتدى الأفاضل منقول للفائدة شرح UserForm VBA Course English لعله يفيد To add a UserForm, do exactly as you would if you were adding a new module The UserForm window and "Toolbox" will appear If you don't see the Properties window, make sure that it is shown and then start by editing the name of the UserForm (so that you can easily find it later on A UserForm has its own events, just like a workbook or a worksheet. To add events, double click on the UserForm window : Now let's create two events as an example of how they work. The first event will define the initial dimensions of the UserForm, and the second will increase each of its dimensions by 50 pixels when the user clicks The event UserForm_Initialize will fire when the UserForm is launched Private Sub UserForm_Initialize() my_userform.Height = 100 my_userform.Width = 100 End Sub To simplify the code, we can use Me instead of the name of the UserForm (since this code is within the UserForm that we're working with Private Sub UserForm_Initialize() Me.Height = 100 Me.Width = 100 End Sub The second event will fire when the user clicks on the UserForm Private Sub UserForm_Initialize() Me.Height = 100 Me.Width = 100 End Sub Private Sub UserForm_Click() Me.Height = Me.Height + 50 Me.Width = Me.Width + 50 End Sub Launch a UserForm To launch a UserForm in a procedure, use Show Sub show_userform() my_userform.Show End Sub Controls have all sorts of properties, and the events associated with them vary, but for now we will only look at a few of the many possible uses of controls in VBA coding Let's start by adding the following 3 controls : a Label, a TextBox and a CommandButton Now let's edit the names and properties of the controls (using the Caption property, which contains the text). We want the following result For now, when we enter a number and press OK, nothing happens To make something happen, we'll start by adding an event that puts the value of the text box into cell A1 and closes the UserForm You can access the options that you see immediately below this text by double clicking on a control The drop-down list contains different controls and the UserForm Select a button and an event Click Private Sub CommandButton_validate_Click() Range("A1") = Textbox_number.Value 'Textbox_number is the name of the text box 'Value is the property that contains the value of the text box Unload Me 'Unload closes the UserForm 'We are using Me in place of the name of the UserForm (because this code is within the UserForm that we want to close) End Sub The value will now be saved in cell A1 before the closing of the UserForm Add a second Label and edit the following properties : Caption, Forecolor (color : red) and Visible (False, to hide the control by default Now let's add an event that will be fired when the value of the text box is changed, which will display an error message if the value is not numerical Private Sub Textbox_number_Change() If IsNumeric(Textbox_number.Value) Then 'IF numerical value ... Label_error.Visible = False 'Label hidden Else 'OTHERWISE ... Label_error.Visible = True 'Label shown End If End Sub The value will be tested each time a character is entered We still need to prevent the validation of the form if the value is not numerical Private Sub CommandButton_validate_Click() If IsNumeric(Textbox_number.Value) Then 'IF numerical value ... Range("A1") = Textbox_number.Value 'Copy to A1 Unload Me 'Closing Else 'OTHERWISE ... MsgBox "Incorrect value" End If End Sub So as not to leave the right-hand side of the UserForm blank when there isn't any error, we can reduce its size by modifying the UserForm's Width property Private Sub Textbox_number_Change() If IsNumeric(Textbox_number.Value) Then 'IF numerical value ... Label_error.Visible = False 'Label hidden Me.Width = 156 'UserForm Width Else 'OTHERWISE ... Label_error.Visible = True 'Label shown Me.Width = 244 'UserForm Width End If End Sub See result below Checkboxes Here is an example of how to use the CheckBox When a checkbox is checked/unchecked, the value of the corresponding cell can be modified by using the Click event Private Sub CheckBox1_Click() 'Number 1 If CheckBox1.Value = True Then 'If checked ... Range("A2") = "Checked" Else 'If not checked ... Range("A2") = "Unchecked" End If End Sub Private Sub CheckBox2_Click() 'Number 2 If CheckBox2.Value = True Then 'If checked ... Range("B2") = "Checked" Else 'If not checked ... Range("B2") = "Unchecked" End If End Sub Private Sub CheckBox3_Click() 'Number 3 If CheckBox3.Value = True Then 'If checked ... Range("C2") = "Checked" Else 'If not checked ... Range("C2") = "Unchecked" End If End Sub In this example, the checkboxes start out unchecked when the UserForm is first opened To check the boxes when the value of the corresponding cell is "Checked", we'll run a test when the UserForm is activated, using UserForm_Initialize Private Sub UserForm_Initialize() 'Check box if "Checked" If Range("A2") = "Checked" Then CheckBox1.Value = True End If If Range("B2") = "Checked" Then CheckBox2.Value = True End If If Range("C2") = "Checked" Then CheckBox3.Value = True End If End Sub The Option Buttons The user may only select one Option Button per "group", which is not the case with checkboxes To create a group, first insert a Frame and then OptionButton Once the form has been submitted, we will enter data into the cell that corresponds to the column numbers and row_value chosen In order to know which option button was chosen, we could do the same as in the previous example (with the checkboxes) but we will do it with a loop to reduce the length of the code We're going to use a For Each loop this time, a kind of loop that we haven't yet introduced. This kind of loop makes it possible to execute instructions for each object in an "object group" Private Sub CommandButton1_Click() Dim column_value As String, row_value As String 'Loop for each Frame_column control For Each column_button In Frame_column.Controls 'If the value of the control = True (then, if checked) ... If column_button.Value Then 'The variable "column_value" takes the value of the button text column_value = column_button.Caption End If Next 'Loop for the other frame For Each row_button In Frame_row.Controls If row_button.Value Then row_value = row_button.Caption End If Next Range(column_value & row_value) = "Cell chosen !" Unload Me End Sub Now this form enters the value "Cell chosen !" into the cell that has been chosen (provided that the form is complete To avoid a bug, we need to check to make sure that the user has chosen correctly from the two sets of option buttons In this example, when the form is incomplete, the "Confirm" button will appear in gray (deactived). This is not the simplest solution, but it's a good example of why functions/procedures are useful within a UserForm Edit the text as well as the Enabled property to deactivate the button The result will be In the preceding code, we used 2 For Each loops to retrieve the values of the option buttons. We will now need to use these same values for the "Confirm" button and the Click events for the ten option buttons So that we don't have to copy the loops for each event, we'll call them using a function Starting from the preceding code and modifying it, we will achieve this result Private Function column_value() 'The function returns the value of the text for the button chosen (column_value) For Each column_button In Frame_column.Controls If column_button.Value Then column_value = column_button.Caption End If Next End Function Private Function row_value() 'The function returns the value of the text for the button chosen (row_value) For Each row_button In Frame_row.Controls If row_button.Value Then row_value = row_button.Caption End If Next End Function Private Sub CommandButton1_Click() 'Action that is taken when you click "Confirm your selection" Range(column_value & row_value) = "Cell chosen !" 'column_value and row_value are the values returned by the functions Unload Me End Sub All we have left to do is to create a procedure that verifies that the buttons have been checked correctly (by calling the two functions), and which will activate the button if necessary Here again, the test is performed in a separate procedure to avoid copying the code 10x for each of the option button events Private Sub activate_button() 'Activating the button if the condition is verified If column_value <> "" And row_value <> "" Then 'column_value and row_value are the values returned by the functions CommandButton1.Enabled = True CommandButton1.Caption = "Confirm your selection" End If End Sub Private Sub OptionButton11_Click() activate_button 'Run the "activate_button" procedure End Sub Private Sub OptionButton12_Click() activate_button End Sub Private Sub OptionButton13_Click() activate_button End Sub Private Sub OptionButton14_Click() activate_button End Sub Private Sub OptionButton15_Click() activate_button End Sub Private Sub OptionButton16_Click() activate_button End Sub Private Sub OptionButton17_Click() activate_button End Sub Private Sub OptionButton18_Click() activate_button End Sub Private Sub OptionButton19_Click() activate_button End Sub Private Sub OptionButton20_Click() activate_button End Sub أتمنى أن يفيد حضراتكم ولسه فى باقى

السلام عليكم ورحمة الله وبركاته الى السادة اعضاء منتدانا الكرام اليكم اليوم شرح طريقة ارسال بريد الكتروني من خلال الاكسل لهذا الغرض عملت دلة صغيرة لارسال االايميل بلخيارات الاساسية التي ستحتاجها و سأحاول ان اعرضها اليكم بطريقة بسيطه مع توضيح كيفية عملها و الشروط التي يجب ان تتوافر قبل استخدامها سنفترض التالي البريد المرسل هو : send@gmail.com البريد المستلم هو : emp01@gmail.com تطبيق الدالة عنوان الرسالة ياتي قبل نصها ... ولكن بسبب تنسيق الكود في المنتدى فمعظم الاكواد تظهر نص الرسالة قبل العنوان 1 - ارسال رسالة بعنوان: اختبار و نص الرسالة: هذا اختبار ارسال رسالة SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","هذا اختبار ارسال رسالة" 2 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com" 3 - ارسال رسالة مع نسخة (CC) لـ manager01@gmail.com و نسخة كربونية (BCC) لـ send@gmail.com يفضل دائما ان تحتفظ بنسخة من الرسائل التي ارسلتها. SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة", "manager01@gmail.com","send@gmail.com" 4 - ارسال رسالة وارفاق ملف واحد SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,"c:\work\pic1.jpg" 5 - ارسال رسالة وارفاق اكثر من ملف SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار","اختبار ارسال رسالة",,,Array("c:\work\pic1.jpg","c:\work\pic2.jpg") 6 - ارسال رسالة لاكثر من مرسل اليه SendEMail "send@gmail.com", Array("emp01@gmail.com","emp02@gmail.com"), "اختبار","اختبار ارسال رسالة" 7 - ارسال رسالة لاكثر من نسخة (CC) SendEMail "send@gmail.com","emp01@gmail.com","اختبار" ,"اختبار ارسال رسالة", Array("manager01@gmail.com","manager02@gmail.com") 8 - ارسال رسالة بتنسيق HTML SendEMail "send@gmail.com", "emp01@gmail.com", "اختبار", "<B>نص الرسال</B>", , , , True شروط استخدام الدالة و افتراضات 1- الدلة تستخدم ملقم SMTP تبع ال GMail ولهذا يجب ان يكن لديك حساب في القوقل ... تم الافتراض هنا ان الحساب هو send@gmail.com (يجب ان تستخدم حساب حقيقي) 2- افترضنا كلمة السر هى password (غير كلمة السر للكلمة الحقيقية ) غير القيم كما في الصورة هذا فقط ما يجب عليك فعله لبدء استخدام الدالة الا ان هناك ملاحظة مهمة شركة قوقل في شهر 7 الماضي رفعت متطلبات الامن لديها و لهذا فان ارسال الايميل عبر ملقمها smtp.gmail.com لن يتم الا اذا خفضنا درجة الامان. ولهذا انصح ان تنشئ بريد الكتروني جديد لاتستخدمة الا في ارسال البريد عبر الاكسل لتخفيض درجة الامن لحساب قوقل اتبع الخطوات التالية: - ادخل على حسابك و اختر Account - في القسم Account Settings و اختر Access for less secure Apps - اختر Enable يمكنك تحميل الدالة من الملف المرفق اسال الله تعالى ان يتقبل منى ومنكم صالح الاعمال كود ارسال بيريد الكتروني.zip

السلام عليكم ورحمة الله وبركاته اقدم اليكم معادلات لحالات متقدمه للداله SUM ارجو ان تكون مفيده ولها نفع لاتنسونا بصالح دعاؤكم حالات متقدمه للداله sum.rar

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

استخدم Close بدلاً من Quit

بارك الله فيك أخي الجموعي على هذه الأكواد الرائعة بعد التجربة قمت بتغيير هذا السطر فقط لتجنب وقوع خطأ If LCase(SheetNewName.Text) = LCase(Worksheets(I).Name) Then فعند تجربة الكود قمت بكتابة كلمة Data في مربع النص فتم إنشاء الصفحة ، وعند كتابتها مرة أخرى ظهرت رسالة التنبيه ، وعند كتابتها بالحروف الصغيرة data ظهرت رسالة خطأ يرجى إعادة تجربة الكود قبل التعديل وبعد التعديل للتأكد من صحة ما قلت تقبل تحياتي

السلام عليكم ورحمة الله أخي الكريم، إضافة إلى الحل الذي قدمه أخي الحبيب طارق مع شرحه المستفيض، أقدم هذا الحل باستخدام خواص رؤوس المربع والمثلث مع استعمال إحداثيات نقط في معلم... يمكنك رسم هذه المربعات والمثلثات بتغيير قيمة الزاوية (بالدرجات degrees) بالنسبة لأحد رؤوس هذه الأشكال (الرأس A بالنسبة للمربع الكبير ABCD ، الرأس E بالنسبة للمثلث الكبير EFG ، الرأس H بالنسبة للمربع الصغير HIJK والرأس L بالنسبة للمثلث الصغير LMN)، ويكون هذا التغيير في الخلايا الملونة بالأصفر في شيت Sheet1... أرجو أن يفيدك هذا الملف... أخوك بن علية الملف المرفق : ccc.rar

اقدم لكم السلسلة التعليمية لشرح برنامج ميكروسوفت اكسس 2010 بالصوت والصورة على يوتيوب نغطى اهم الاجزاء للمبتدئين الجداول وخصائصها العلاقات الاستعلامات النماذج التقارير الشاشه الرئيسية الحماية فى اكسس الفتره التجريبيه للبرنامج تفعيل وتعطيل مفتاح الشيفت باجمالى 11 ساعة مقسمة على 22 فيديو جوده عالية منظمة ومرتبه ومرقمة فى قائمة تشغيل على اليوتيوب الرابط من هنا بالاضافه الى سلسله كل يوم معلومة سلسله تكمل السلسله السابقه وتتميز بقصر مدة الفيديو بحيث لا يزيد عن 15 دقيقه نغطى فيها اجزاء لم يتم شرحها فى السلسله السابقه ونؤكد على اجزاء لاهميتها واستعمالها بكثرة حتى الان وصلت 9 حلقات باجمالى 45 دقيقه رابط سلسله كل يوم معلومة من هنا

شكرا جزيلا بارك الله فيك

أخى الكريم جرب التالى من قائمة reveiw اختر track changes من القائمة التى تظهر اختر highlighgt changes علم على المربعات فى المربع الحوارى وقدام الخيار WHERE ضع المؤشر فيها ثم اضغط على الخلية التى تريد معرفة تاريخ تغيرها اضغط OK ثم روح اقف على الخليه هتلاقى آخر تعديل عليها متى حدث التغيير ؟ وكانت ايه ؟ وبقت ايه ؟ ظهر فى شكل تعليق لك تحياتى

لا اعتقد ان ذلك ممكناً (حسب علمي) لكن تستطيع ان تعرف اخر تعديل على الملف من خلال كليك يمين على اسم الملف حيث هو محفوظ (دون ان يكون مفتوحاً) و Properties او اذا كان الملف مفتوحاَ اذهب الى info>>>> file و ستجد هناك كل ما تريد معرفته

الأخ الفاضل أبو محمد أهلا بك بين إخوانك في المنتدى العريق جرب الكود التالي في حدث ورقة العمل ، كليك يمين على اسم الورقة ثم View Code ثم الصق الكود التالي .. لتجربة الكود قم بكتابة بعض القيم في العمود A Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Target.Column = 1 Then Cells(Target.Row, 2).Value = Format(Now(), "dd/mm/yyyy hh:mm:ss") End If End Sub

السلام عليكم اليك هذا الملف النموذج مجرد ادخال بيانات في العامود A تحصل على الوقت والتاريخ يمكنك التعديل عليه تاريخ تلقائي.rar

السلام عليكم ورحمة الله وبركاته بعد طول غياب أقدم لكم إخواني الكرام إخواني الأحباب ، الإصدار الأخير من مكتبة الصرح .. ورجاء أن تقوموا بتجربة الأكواد وإذا صادفتكم أي مشكلة من أي نوع رجاء الإبلاغ بها ، وإذا رأى منكم أحد أي خطأ في أي جزئية فليبادر بذكرها ، نريد تصحيح وتنقيح للعمل أولاً بأول لكي يظهر في نهاية الأمر (دا إذا كان له نهاية أصلاً .............) لكي يظهر بشكل يليق بمكانة المنتدى العريق ولكي ينفع به جموع المسلمين في كل مكان.. شكر خاص للأستاذ الكبير والأخ الغالي ابن مصر على إسهاماته وشكر خاص للعلامة باشمهندس المنتدى طارق محمود ومن أكثر الناس محبة لقلبي وشكر خاص لكل من ساهم في بناء المكتبة ولو بكلمة تشجيع فالمكتبة منكم ولكم ، منكم ولكم ، وأؤكد منكم ولكم وفي الختام أسأل المولى أن يجعل أعمالنا صالحة ولوجهه خالصة وأن ينفع بنا وأن يجمعنا في الفردوس الأعلى من الجنة إليكم الإصدار الأخير من مكتبة الصرح Codes Library v1.9.rar

السلام عليكم أخي الكريم عموما الإكسل ليس الأفضل للرسم ولكن ، انظر المرفق وبه بعض الشرح ccc2.rar

بواسطة هذا الكود تستطيع ان تحدد الى اي نطاق سوف يتم النقل مشكل 8.rar

السلام عليكم أخي الحبيب ياسر خليل مازلت أشكرك علي الجهد المتميز ، وفقك الله وأعانك أحببت أشارك ولو بشيء بسيط هذا الكود لترتيب أوراق العمل تصاعديا أو تنازليا طبعا جربته ، تمام وبصراحة لم أتحقق إن كان موجود بمكتبتنا الرائعة أم لا أضيف عليك هذا الجهد (التحقق من أنه موجود أم لا بالمكتبة) مرفق ملف شرح Sub Sort_Worksheets() Dim i As Integer, j As Integer, Ansr As VbMsgBoxResult Ansr = MsgBox("تريد ترتيب الشيتات تصاعديا ؟" & Chr(10) & "بضغط (لا) سيتم الترتيب تنازليا", _ vbYesNoCancel + vbQuestion + vbDefaultButton1, "Sort Worksheets") For i = 1 To Sheets.Count For j = 1 To Sheets.Count - 1 If Ansr = vbYes Then If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) ElseIf Ansr = vbNo Then If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then Sheets(j).Move After:=Sheets(j + 1) End If Next j Next i End Sub هذا الكود ضمن أكثر من مائة كود علي الرابط http://www.teachexcel.com/free-excel-macros/ أنا فقط عدلت في الشكل ونص السؤال بالعربية بدلا من الإنجليزية ومن هذا الرابط أيضا يمكن إقتباس فكرة ضم الأكواد في مجموعات أو عناوين كبيرة شرح الكود ترتيب أسماء الورقات.rar

السلام عليكم مرفق ملف به 3 أكواد مشروحة ... الأول: كود قراءة خصائص الأشكال الموجودة باى شيت وكتابة هذه الخصائص بشيت2 الثاني : كود ترتيب الشيتات بناءا على لون علامة التبويب لكل شيت .. المتشابهه في الالوان معا الثالث : كود لعمل Index باسماء كل الشيتات والارتباطات بينها وبين الشيت الرئيسي تحياتي 3Codes-IbnEgypt.rar

جزيت خيرا اخى الحبيب ابوتراب على اكوادك الرائعه ووجب على التنويه ان الداله IFERROR غير موجوده فى اصدار 2003 وان تم تطبيقها سيظهر خطا وتبدا المعادله XLFN يتم معالجة هذا الخطا اما بالتنسيق الشرطى وهو طمس الخطا باللون الابيض مثلا او استخدام الداله IF و ISERROR .....الخ تقبل تحيات اخيك

ما شاء الله تبارك الله .. تمكنك من المعادللات متميز فعلا جزاك الله خيرا استاذ محمد على المعادلة الاكثر من رائعة فقد استخدمتها في الملف المرفق كما يلي: =IFERROR(INDEX('بيانات الطلبة'!$V$7:$V$212,MATCH(0,COUNTIF($S$9:$S9,'بيانات الطلبة'!$V$7:$V$212),0)),"") استاذ قصي معادلة الاستاذ محمد تفي بالغرض و تتجاوز تعقيد كتابة الكود..اذا اردت بالكود فيمكن عمل ذلك عن طريق فك الحماية و من ثم اعادتها اترك لك الملف بالمعادلات للتجريب فلترة متقدمة.zip

السلام عليكم بعد اذن اساتذتى المهندس طارق وابو تراب جزاهم الله خير هذا حل متواضع منى بالمعادلات فقط ارجو ان يكون ذات فائده تقبلوا منى خالص التحيه معادلة صفيف تم تطبيقها فى شيت 3 {=INDEX(Sheet1!$T$7:$T$78;MATCH(0;COUNTIF($A$1:A1;Sheet1!$T$7:$T$78&"");0))} فلترة.rar

اخى الفاضل أبو تراب تحياتي لك .. حل رائع من أستاذ قدير . عمل معي بشكل جيد جدا ولكن بعد تعديل بسيط بجعل الكود بهذا الشكل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("D8")) Is Nothing And Target.Count = 1 Then Range("D5").Select Delet End If End Sub تحياتي

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

كود إخفاء صيغ المعادلات ومنع حذفها يوضع هذا الكود داخل ThisWorkbook Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim formula As Range On Error Resume Next Sh.Unprotect Password:="password" With Selection .Locked = False .FormulaHidden = False End With If Target.Cells.Count = 1 Then If Target.HasFormula Then With Target .Locked = True .FormulaHidden = True End With Sh.Protect Password:="password", UserInterFaceOnly:=True End If ElseIf Target.Cells.Count > 1 Then Set formula = Selection.SpecialCells(xlCellTypeFormulas) If Not formula Is Nothing Then With Selection.SpecialCells(xlCellTypeFormulas) .Locked = True .FormulaHidden = True End With Sh.Protect Password:="password", UserInterFaceOnly:=True End If End If On Error GoTo 0 End Sub وهذا شرح مترجم للكود هذا الماكرو إخفاء كل الصيغ في مصنف وعدم السماح لهم ليتم حذفها. لن تكون محمية الصفحة مثل ورقة عمل محمية العادية في التفوق؛ هذا يعني أنه ما زال بإمكانك إضافة المحتوى إلى المصنف دون مشكلة ويمكنك تعديل كل شيء طالما أنها ليست الصيغة. يمكنك إدخال صيغة جديدة ولكن لا يمكنك ثم حذف تلك الصيغة. وبالإضافة إلى ذلك، إذا قمت بتحديد خلية تحتوي على الصيغة، لن يتم عرض محتويات تلك الخلية. هذا يسمح لك للحفاظ على الصيغ مخفية عن المستخدمين ويضيف مستوى إضافي من الأمن. إذا كنت ترغب في تعديل خلية معينة، سيكون لديك للنقر تلك الخلية ثم "إظهار" تلك الخلية عن طريق كتابة كلمة المرور (الذي يقع في رمز VBA). أيضا، إذا كنت ترغب في حذف هذا الماكرو من المصنف الخاص بك، سيكون لديك لإعادة إدخال كلمة المرور لإلغاء حماية المصنف بعد ذلك إذا كنت تريد أن يكون كل شيء دون وقاية. مش عارف هل هذا هو المطلوب أخى ياسر أم لا لأننى لا أعرف الشرح على الكود نفسة

وهذا كود منع إضافة شيت جديد وتمت تجربته Private Sub Workbook_NewSheet(ByVal Sh As Object) Application.DisplayAlerts = False MsgBox "عفوا, لايمكنك اضافة اوراق اخرى", vbInformation Sh.Delete Application.DisplayAlerts = True End Sub

أستاذ / ياسر كل الشكر والتقدير والإحترام لحضرتك هذا كود خاص بمنع طباعة أى ورقة Private Sub workbook_BeforePrint(Cancel As Boolean) Cancel = True MsgBox "عفوا, لايمكنك الطباعة في هذاالملف", vbInformation End Sub

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

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

اخى الكريم الشرح موجود داخل الملف بصور توضيحيه ماعد هذا الكود فقط ضع هذا الكود ثم انشأ زر لتفعيله Sub AddValidationCirclesForPrinting() Dim DataRange As Range Dim c As Range Dim count As Integer Dim o As Shape 'Set an object variable to all of the cells on the active 'sheet that have data validation -- if an error occurs, run 'the error handler and end the procedure On Error GoTo errhandler Set DataRange = Cells.SpecialCells(xlCellTypeAllValidation) On Error GoTo 0 count = 0 'Loop through each cell that has data validation For Each c In DataRange 'If the validation value for the cell is false, then draw 'a circle around the cell. Set the circle's fill to 'invisible, the line color to red and the line weight to '1.25 If Not c.Validation.Value Then Set o = ActiveSheet.Shapes.AddShape(msoShapeOval, _ c.Left - 2, c.Top - 2, c.Width + 4, c.Height + 4) o.Fill.Visible = msoFalse o.Line.ForeColor.SchemeColor = 10 o.Line.Weight = 1.25 'Change the name of the shape to InvalidData_ + count count = count + 1 o.Name = "InvalidData_" & count End If Next Exit Sub errhandler: MsgBox "There are no cells with data validation on this sheet." End Sub jتحياتى ayman.rar

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

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

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

جزاكم الله خيرا ربنا يتقبل منا ومنكم صالح الاعمال

تفضل ارجوا التاكد من صحة الفروقات....الدالة مازالت في طور التطوير تعديل الكود بدل خلية عمود.zip

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

السلام عليكم ورحمة الله وبركاته موضوع اليوم هو دالة sumif دالة sumif.rar مكتبة دوال ومعادلات.rar

تفضل مثال Database4.rar

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

السلام عليكم تحية كبيرة لاخ ياسر بخصوص قبول TextBox لحروف فقط أو أرقام فقط افضل الاتي 1 لجعل التكست بوكس لاتقبل الا الارقام Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!0-9]" Then KeyAscii = 0 End Sub 2 لجعل التكست بوكس لاتقبل الا الحرف الانجليزية الصغيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!a-z]" Then KeyAscii = 0 End Sub 3 لجعل التكست بوكس لاتقبل الا الحروف الانجليزية الكبيرة Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-Z]" Then KeyAscii = 0 End Sub 4 لجعل التكست تقبل الا الحروف الانجليزية الصغيرة والكبيرة معا Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!A-z]" Then KeyAscii = 0 End Sub 5 لجعل التكست بوكس لا تقبل الا الحروف العربية Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[!أ-ي]" And ChrW(KeyAscii) <> " " Then KeyAscii = 0 End Sub اما اذا كنت تريد تفعيل المسطرة فكل ماعليك هو تلرك فراغ قبل الحرف الأول مثال Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A-Z]" Then KeyAscii = 0 End Sub أما اذا اردت تضمين بعض الاشكل كل ما عليك هو ادراج الشكل أو العلامة التي ستسمح بها بين الحرف الاول والمطة هذا مثال لايقبل الا الحروف الانجليزة الكبيرة والمسافة وهته الاشارات =:;/. Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If ChrW(KeyAscii) Like "[! A=:;/-Z]" Then KeyAscii = 0 End Sub تحياتي للجميع

هلا عباد جرب الملف المرفق كذلك يمكنك مراجعة الرابط التالي اذا اردت خيار اخر لارسال الايميل شرح ارسال بريد الكتروني عبر الاكسل email.zip

برنامج بيانات مدرسين شاملة ( الاسم - المدرسة -تاريخ التعيين - الكود- الرقم القومى- الوظيفة - تاريخ الميلاد - رقم التليفون )