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

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

اليك هذا الملف ربما يساعدك جدول 2.rar

السلام عليكم ورحمة الله وبركاته استكمالا لسلسلة شرح الجمل الشرطية سنستحدث سلسلة اخرى تتعلق بكيفية استخدام الخلايا في ال vba وكان من المفروض البدء بها قبل شرح الجمل الشرطية لكونها تعتمد عليها في بعض الجوانب وسيتم تناول ثلاثة مواضيع بالتناوب وهي : 1. استخدام جمل ال range 2. استخدام جمل ال cells 3. استخدام جمل ال offset وسنبدأ بالموضوع الاول ...حيث هناك مرفق تم فيه شرح الكيفية في الاستخدام الموضوع باجتهاد شخصي وقد يحتمل الصواب والخطأ وقد يحتمل النسيان فان كنت قد أصبت فالحمد لله وانت كنت قد اخطأت فذلك يعلمني وان كنت قد نسيت فجل من لا ينسى او ان اكون قد اغفلت بعض الجوانب التي لم اضعها في الحسبان وهذه دعوة مفتوحة للجميع بالمشاركة في هذا الموضوع حتى يكون موضوع هادف وكامل ومفيد ان شاء الله اخوكم عماد الحسامي hosami range.rar

السلام عليكم فكرة اخفاء و أظهار الصفحات عن طريق فورم بواسطة دبل كليك و اخفاء شريط الصفحات ، لعموم الاستفادة و شكرا Double Click to Hide and Unhide Sheets.zip

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

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

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

مرفق الحل ويمكن تعديل saudi riyal و halala Function SpellNumber(ByVal MyNumber, _ Optional pbNum As Boolean = True, _ Optional ptCur As String = "saudi riyal", _ Optional ptDec As String = "halala", _ Optional ptPlu As String = "") Dim Curr, Decm, Temp Dim DecimalPlace, Count Dim vtPHolder As String ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " '' String representation of amount MyNumber = Trim(Str(MyNumber)) '' Position of decimal place 0 if none DecimalPlace = InStr(MyNumber, ".") '' Convert decimal part, and set MyNumber to currency amount If DecimalPlace > 0 Then vtPHolder = Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2) If pbNum = True Then Decm = GetTens(vtPHolder) Else Decm = vtPHolder End If MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Curr = Temp & Place(Count) & Curr If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Curr Case "" Curr = "No " & ptCur & "" Case "One" Curr = "One " & ptCur Case Else Curr = Curr & " " & ptCur & "" End Select Select Case Decm Case "" Decm = " No " & ptDec & ptPlu Case "One", "01" Decm = " and " & Decm & " " & ptDec Case Else Decm = " and " & Decm & " " & ptDec & ptPlu End Select SpellNumber = Curr & Decm End Function '******************************************* ' Converts a number from 100-999 into text * '******************************************* Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If 'Convert the tens and ones place If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function '********************************************* ' Converts a number from 10 to 99 into text. * '********************************************* Function GetTens(TensText) Dim Result As String Result = "" 'null out the temporary function value If Val(Left(TensText, 1)) = 1 Then 'If value between 10-19 Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else 'If value between 20-99 Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit(Right(TensText, 1)) 'Retrieve ones place End If GetTens = Result End Function '******************************************* ' Converts a number from 1 to 9 into text. * '******************************************* Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function تفقيط انجليزي.rar

السلام عليكم حل الجزء الاول ارجو ان يكون المطلوب مشاريع.rar

البرنامج شغال كويس وعموما غيرت امتداد الملف وجرب برنامج شئون الطلبة ابتدائي2.rar

يُرْوَى عَنْ مُعاذٍ رَضِيَ اللهُ عَنْهُ قوله : تَعَلَّمُوا العِلْمَ فإنّ تعلُّمَهُ لِلّهِ خَشْيَةً وَطَلَبَهُ عِبَادَةٌ ومُدَارَسَتَهُ تَسْبِيحٌ والبَحْثَ عنهُ جِهَادٌ وَتَعْلِيَمهُ مَنْ لا يَعْلَمُ صَدَقَةٌ وَبَذْلَهُ لأهْلِهِ قُرْبَةٌ وَهُوَ الأَنيِسُ في الوَحْدةِ والصاحِبُ في الخَلْوَةِ والدّلِيل على الدِّين والمُصَبِّرُ على السرَّاءِ الضَّرَّاءِ والوَزِيرُ عِندَ الإخِلاء والقَرِيبُ عندَ الغُرَباءِ وَمَنارُ سَبيلِ الجَنّةِ يَرْفَعُ اللهُ بِهِ أقْوَامًا فيجعلُهُمْ في الخَيْرِ قَادةً سادةً هُدَاةً يُقْتَدَى بهم أَدِلِّةً لِلْخَيرِ تُقْتَفَى آثارُهمْ وَتُرْمَقُ أَفْعالُهُمْ وَتَرْغَبُ الملائكةُ في خُلَّتِهمْ وبأَجنِحَتِهَا تمْسَحُهُمْ وَكُلُّ رَطْبِ ويابسٍ لهُمْ يَستغْفرُ حَتَّى حِيتَانُ البَحْرِ وَهَوامُّهُ وَسِبَاع البَرِّ وَأَنْعامُهُ والسَّماءُ وَنُجُومُها ، لأنَّ العِلْمَ حَيَاةُ القُلُوب مِنَ العَمَى وَنُورُ الأبْصَارِ مِنِ الظُلَمِ وَقوَّةُ الأبْدانِ مِنَ الضَّعْفِ يَبْلُغْ بِهِ العَبْدُ مَنَازلَ الأَبْرارِ والدَّرَجَاتِ العُلَى وَمُدَارَسَتُهُ بالقيام به يُطاع اللهُ عزَّ وجلَّ وَبِهِ يُعْبَدُ ، وَبِهِ يُوَحَّدُ ، وَبِهِ يُمَجَّدُ ، وَبِهِ يُتَوَرَّعُ ، وَبِهِ تُوصَلُ الأَرْحَامُ ، وَبِهِ يُعرفُ الحَلالُ والحرامُ ، وهو إمامٌ والعَمَلُ تابعُهُ يُلْهَمُهُ السُعداءُ وَيُحْرَمُهُ الأَشْقِياءُ .

إسم الملف: برنامج لتقليل هالك الحديد File Submitter: محمد طاهر تاريخ الإضافة: 11 May 2010 آخر تحديث: 17 Jun 2010 القسم فى المكتبة: دورات و دروس فى الإدارة والعمل و الحياة هذا الملف لتقليل هالك الحديد و يعتمد على اضافة السولفر فى الاكسيل 2007 و يعيبه استغراق وفت طويل فى الحساب و يوجد به خمسة طرق مختلفة للحساب تختلف فى دقتها و سرعتها الملف اعددته من فترة طويلة و استغرق جهدا كبيرا ، و لكن لا أستطيع الحكم عليه و عن مدى فائدته بعد مضي هذه الفترة ، و لكن للاسف لم انشره سابقا وأوفيسنا لم يكن قد تم افتتاحه بعد ،و قد ذكرني به موضوع الأخ طارق ، لذا أنشره الآن و اتمني ان يكون مفيدا للمهتمين بهذا المجال و يعيب هذا الملف أنه قد يغيب أثناء التنفيذ خصوصا مع الطرق الأولي و أسرع الطرق و أقلها دقة هي الخامسة المسماة Turbo صراحة لم استرجع تفاصيل الملف ، فقد مضت فترة و اتركه بين يدي المهتمين بهالك الحديد و الأكواد ، الان قمت بتعديله ليعمل على 2007 ، و تذكر لابد من وجود اضافة السولفر ليعمل Solver Add-in و ايضا اوجه الانتباه الي انه قد يطول فترة التنفيذ بحسب الحالة و الطريفة المختارة فصبرا جميلا أترككم مع الملف إضغط هنـــــــــــا لتنزيل الملف

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