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

هلا والله بأصحابنا شخباركم ، شعلومكم ، ان شاء الله في خير وعافية انا تطرقت لهذا الموضوع ، كجزئية من موضوع آخر ، ووضعت رابط للقائمة ascii code الحروف العربية ، هنا: http://www.officena.net/ib/index.php?showtopic=59183&p=393754 جعفر

السلام عليكم أتفضل أخي ان شاء الله يكون المطلوب new.rar

السلام عليكم ورحمة الله وبركاته اخوانى الافاضل تحية طيبة وبعد .................................................... ومازلنا مع conditional formatting ......................... اليوم سوف نقدم درسا جديدا فى كيفية تلوين السطور الفرديه والزوجيه داخل نطاق محدد ولقد تناولنا اولا نبدأ بتلوين السطور الفرديه اليوم سوف نتناول ثانيا بتلوين السطور الزوجيه كما يتضح من الصوره الاتيه نقوم بتحديد النطاق من a4:d20 ثم نتبع الشرح الاتى 0=MOD(ROW(),2) الان قم بتطبيق المثال على ملف من عندك وستلاحظ النتيجه بنفسك ارجو ان تتقبلو تحياتى.

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

بسم الله الرحمن الرحيم " وَاذْكُر رَّبَّكَ فِي نَفْسِكَ تَضَرُّعاً وَخِيفَةً وَدُونَ الْجَهْرِ مِنَ الْقَوْلِ بِالْغُدُوِّ وَالآصَالِ وَلاَ تَكُن مِّنَ الْغَافِلِينَ " صدق الله العظيم الأعراف 205 من هذا المنطلق اخوانى وأحبابى أتقدم إليكم ببرنامجى الجديد Ela Salaty on Excel version:1.1 2015 الأهداف المرجوة من البرنامج بإذن الله تعالى تذكير المستخدم بالله عز وجل أثناء العمل على الاكسل من خلال أدعية وأذكار وتسابيج مكتوبة فى البرنامج تعرض على المستخدم فى فورم كل فترة زمنية محددة بالبرنامج هذه الأدعية والأذكار تكون مصحوبةً بصوت ينبه الى ظهور الدعاء وبعدها يتلاشى الذكر أو الدعاء من أمام المستخدم شيئا فشيئا يمكن للمستخدم التعديل بالزيادة والنقصان على الفترات الزمنية كيفما يشاء على أن يقوم بعمل حفظ وإعادة فتح البرنامج من جديد يمكن للمستخدم التعديل بالزيادة والنقصان والتغيير أيضا على الأدعية كيفما يشاء فقط ضع الدعاء الذى تحبه فى خلية بعمود الأدعية [AA] بورقة العمل الأولى تذكيرالمستخدم بمواعيد الصلاة أثناء العمل على الاكسل مواقيت الصلاة فى البرنامج حسب التوقيت المحلى لمدينة أسيوط جمهورية مصر العربية وعلى المستخدم مراعاة فروق التوقيت بالتعديل فى الكود الخاص بمواعيد الصلاة فى بلده بالنسبة للآذان اخترت له نداءً بسيطاً يعبر عنه وليس الآذان كاملا رغبةً منى فى تقليل حجم الملف يمكن للمستخدم تغييره ووضع الصوت الذى يحبه بشرط نفس الاسم ونفس مسار ملف البرنامج والامتداد ويف وضعت بصمة تاريخية للشيخ الشعراوى فى البرنامج تنهمر بسببها الدموع عقب كل آذان هذه البصمة لإعلاء التأثير النفسى على المستخدم وحثه على سرعة الاستجابة لنداء الحق لم أنسَ أحبابنا الأطفال بنين وبنات فى البرنامج 3 ملفات فلاش مدمجة فى البرنامج من أحد المواقع الاسلامية http://www.ipc-kw.com لتعليم الوضوء والصلاة لتشعيل ملف الفلاش ضغطة شمال واختر تشغيل ربنا تقبل منا إنك أنت السميع العليم وتب علينا يا مولانا أنت التواب الرحيم وصلى اللهم على سيدنا محمد (ص) صلاةً ما ذكره الذاكرون وما غفل عن ذكره الغافلون رابط الملف : http://www.4shared.com/rar/OEsU4QGBce/Ela_Salaty_on_Excel__V_1__2015.html الأكواد منقولة من مواقع أجنبية واضافات وتعديلات شخصية لتحقيق الهدف وأخر دعاؤنا الْحَمْدُ لِلّهِ الَّذِي هَدَانَا لِهَـذَا وَمَا كُنَّا لِنَهْتَدِيَ لَوْلا أَنْ هَدَانَا اللّهُ الأعراف 43 ================== مختار حسين محمود الأسيوطى 14/04/2015

يمكنك ذلك عن طريق الطريقة الاولى : اختيار الخط AGA Arabesque ثم كتابة حرف ال e صغير والنتيجة e كم يمكنك معرفة باقي الاختصارات بتجربة كل حرف فمثلاً ال a يكتب q وهكذا يمكنك تجربة باقي احرف لوحة المفاتيح الطريقة الثانية : عن طريق التبويب ادارج رمز ثم المزيد من الرموز ثم ايضاً اختيار نوع الخط AGA Arabesque واختيار النص الذي تريده الطريقة الثالثة : يمكنك ذلك عن طريق كتابة الحروف fdfa ثم بعدها alt+x وتكون النتيجة ﷺ ولاضافة التشكيل لها يتم اختيار الخط Sakkal Majalla وتكون النتيجة ﷺ

السلام عليكم ارجو تقبل هذه الهدية الصغير اكثر من 2000 اسم البحث بمعيار الحرف يوجد بطى بسيط عند استدعاء الاسماء نظراً للعدد الكبير يمكن إضافة اسم جديد لقائمة الاسماء الاسم ومعناه.rar

السلام عليكم ورحمة الله وبركاته أحب أن أشاركم المينى كود ده . هو لتجميد صفحة أو ورقة عمل الكود يوضع فى حدث المصنف : Option Explicit Private Sub Workbook_Open() ThisWorkbook.Sheets("ورقة1").ScrollArea = "A1:R25" ' غير منطقة الكتابة بتغيير المدى End Sub وهذا الرابط له علاقة مباشرة للموضوع وزيادة : http://www.officena.net/ib/index.php?showtopic=61137 وهذا مرفق لتجميد أو تثبيت الصفحة على مدى محدد . تحياتى لكم تثبيت منطقة الكتابة.rar

الاخ والمعلم الفاضل ياسر خليل شكراجدا لحضرتك فعلا هو دا حل المشكله .. تسلم وسلمت يمينك وأكثر الله من امثالك وشكرا ليك استاذي مختار على هذا المجهود الرائع تقبلوا تحياتي

سيد ياسر خليل جزاك الله خيرا الحل هو عين المطلوب بارك الله فيك وزادك علما نافعا وعملا صالحا وزى ما انا عودتك على طول ممكن بصه على الموضوع ده http://www.officena.net/ib/index.php?showtopic=61189 وبارك الله فيك

أحبابي وأصحابي في كل مكان يسعدني أن أهدي لهواة ومحترفي برمجة vba في الأوفيس دالة جديدة لترجمة النصوص من أي لغة إلى أي لغة في إكسل 2013 باستعمال ترجمة جوجل بطريقتين وهذا رابط ملف الإكسل الموجود في الفيديو http://adf.ly/1GFYwU قائمة برموز اللغات * * 'AFRIKAANS' : 'af', * 'ALBANIAN' : 'sq', * 'AMHARIC' : 'am', * 'ARABIC' : 'ar', * 'ARMENIAN' : 'hy', * 'AZERBAIJANI' : 'az', * 'BASQUE' : 'eu', * 'BELARUSIAN' : 'be', * 'BENGALI' : 'bn', * 'BIHARI' : 'bh', * 'BULGARIAN' : 'bg', * 'BURMESE' : 'my', * 'CATALAN' : 'ca', * 'CHEROKEE' : 'chr', * 'CHINESE' : 'zh', * 'CHINESE_SIMPLIFIED' : 'zh-CN', * 'CHINESE_TRADITIONAL' : 'zh-TW', * 'CROATIAN' : 'hr', * 'CZECH' : 'cs', * 'DANISH' : 'da', * 'DHIVEHI' : 'dv', * 'DUTCH': 'nl', * 'ENGLISH' : 'en', * 'ESPERANTO' : 'eo', * 'ESTONIAN' : 'et', * 'FILIPINO' : 'tl', * 'FINNISH' : 'fi', * 'FRENCH' : 'fr', * 'GALICIAN' : 'gl', * 'GEORGIAN' : 'ka', * 'GERMAN' : 'de', * 'GREEK' : 'el', * 'GUARANI' : 'gn', * 'GUJARATI' : 'gu', * 'HEBREW' : 'iw', * 'HINDI' : 'hi', * 'HUNGARIAN' : 'hu', * 'ICELANDIC' : 'is', * 'INDONESIAN' : 'id', * 'INUKTITUT' : 'iu', * 'ITALIAN' : 'it', * 'JAPANESE' : 'ja', * 'KANNADA' : 'kn', * 'KAZAKH' : 'kk', * 'KHMER' : 'km', * 'KOREAN' : 'ko', * 'KURDISH': 'ku', * 'KYRGYZ': 'ky', * 'LAOTHIAN': 'lo', * 'LATVIAN' : 'lv', * 'LITHUANIAN' : 'lt', * 'MACEDONIAN' : 'mk', * 'MALAY' : 'ms', * 'MALAYALAM' : 'ml', * 'MALTESE' : 'mt', * 'MARATHI' : 'mr', * 'MONGOLIAN' : 'mn', * 'NEPALI' : 'ne', * 'NORWEGIAN' : 'no', * 'ORIYA' : 'or', * 'PASHTO' : 'ps', * 'PERSIAN' : 'fa', * 'POLISH' : 'pl', * 'PORTUGUESE' : 'pt-PT', * 'PUNJABI' : 'pa', * 'ROMANIAN' : 'ro', * 'RUSSIAN' : 'ru', * 'SANSKRIT' : 'sa', * 'SERBIAN' : 'sr', * 'SINDHI' : 'sd', * 'SINHALESE' : 'si', * 'SLOVAK' : 'sk', * 'SLOVENIAN' : 'sl', * 'SPANISH' : 'es', * 'SWAHILI' : 'sw', * 'SWEDISH' : 'sv', * 'TAJIK' : 'tg', * 'TAMIL' : 'ta', * 'TAGALOG' : 'tl', * 'TELUGU' : 'te', * 'THAI' : 'th', * 'TIBETAN' : 'bo', * 'TURKISH' : 'tr', * 'UKRAINIAN' : 'uk', * 'URDU' : 'ur', * 'UZBEK' : 'uz', * 'UIGHUR' : 'ug', * 'VIETNAMESE' : 'vi', مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI شير x الخير فزكاة العلم نشره

أخي الكريم أبو محمد نصري يوجد أسفل كل مشاركة كلمة "تحديد كأفضل إجابة" يرجى اختيار المشاركة رقم 2 الخاصة بالأخ الفاضل علي الشيخ والنقر على الكلمة لتحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي

جرب المعادلة التالية رغم أنني لم أفهم المطلوب جيداً لا تنسى الضغط على Ctrl + Shift + Enter لأنها معادلة صفيف ضع المعادلة في الخلية E9 ...إذا لم تعمل المعادلة استبدل الفاصلة بفاصلة منقوطة =IF($D9="","",MAX(IF(OR($D9="فاتورة رقم",$D9="بيان رقم",$D9="إذن إضافة"),1,""),IF($D$7:$D8=$D9,$E$7:$E8)+1))

الأخ الفاضل أبو تريكة جرب الكود بهذا الشكل Sub GetData_Example3() GetData ThisWorkbook.Path & "\1.xlsx", "1", _ "A1:t26", Sheets("1").Range("A1"), False, True GetData ThisWorkbook.Path & "\2.xlsx", "1", _ "A1:t26", Sheets("1").Range("A27"), False, True GetData ThisWorkbook.Path & "\3.xlsx", "1", _ "A1:t26", Sheets("1").Range("a53"), False, True End Sub تم تغيير كلمة True قبل الأخيرة إلى False لأنه بارامتر يتعامل مع العنوان .. فإذا كان للبيانات عنوان في الملف المراد جلب البيانات منه .. جعلت القيمة True أما إذا لم تكن البيانات لها عنوان فتقوم بجعل القيمة False أرجو أن تكون تلك النقطة هي حل المشكلة تقبل تحياتي

وعليكم السلام أخي محمد انا انزلت البرنامج ، وما صار شئ لما ضغطت على Enter !! رجاء التوضيح بتفصيل أكثر ، بالكلمات ، واذا اردت بالصورة ، فخير جعفر

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

جزاكم الله خير الجزاء

شف هذا هل ممكن يخدمك http://www.officena.net/ib/index.php?showtopic=41233

بارك الله فيك وزادك من علمه وفرج كربك

السلام عليكم استاذ / محمد كويك بعد اذن ابا البراء ، استاذ / ياسر ، بارك الله فيكم جميعا عدم تكرار رقم الفاتورة.rar

هل هذا المطلوب ؟ الحصص الدراسية1.rar

السلام عليكم ..حتى تعم الفائده .. المشكله يا اخوانى الكرام كانت فى العلامه المائيه صورة كبيرة الحجم وتم حل المشكلة بتغيير الصورة لحجم اصغر

جرب هذا ام اهم ما تقصد بالمرتجع لذا حسبت المخزون كما يلي ( الرصيد + الوارد) طرحت منهم المنصرف + المرتجع ) تجميع اصناف.rar

على فرض ام الخلية المعنية هي A1 اكتب احد هاتين المعادلتين و اسحب نزولاً =SUBSTITUTE(a1,"*","")+0 =REPLACE(a1,LEN(a1),1,"")+0

جزاك الله خيرا و زادك علما نافعا فى الدنيا و الآخرة .. و منتظرين لتقديمك لمواضيع أخرى تثرى ساحة اللغة العربية و مساحة المحتوى العربى فى الانترنت .. دمت بخير و أعزك الله .

أخي في الله أبو يوسف في أسفل كل مشاركة يوجد كلمة "تحديد كأفضل إجابة" بتشوف المشاركة التي حلت المشكلة وتحددها كأفضل إجابة ليظهر الموضوع مجاب ومنتهي

الأخ الفاضل أيمن إليك الملف التالي (دالة مميزة بالنسبة لي .. وتوفر عليك عناء المعادلات والطرق المتفرعة) فقط ضع الدالة المعرفة في موديول واستخدامها في منتهى السهولة واليسر List Unique UDF Function.rar

أخي الفاضل ابن الملك (ما تقول أمير وخلاص ...!) جرب الملف التالي عله يفي بالغرض Export VBE Project.rar

اكتب هذه المعادلة في C5 ثم اسحب نزولاً =IF(B5<>"",ABS(B5-B4),0)

سجلني من (لقسم منا ) لا يستطيع في كلا النوعين

وعليكم السلام حول البرنامج الى mde او accde بالطريقة هذه ، غير ممكن الحصول على الكود (لقسم منا ) ، وشفّر بيانات الجداول ، فحتى لو استطاعوا الوصول لداخل البرنامج (قسم منا ) ، فلن يستفيدوا من البيانات ، جعفر

الدرس الأول: مولد الباركود أول خطوة لمعرفة كيفية قراءة الباركود هو طريقة توليدها ومن ثم ربطها بالبرنامج. تختلف صياغة الباركود نظراً للكود الذي يتبعه والتي تحدد معايير رسم وقراءة رموز الباركود، مثل كود 93 و كود 39 وكود 128، ولهذا السبب يشتكي البعض من عدم تمكنه من قراءة رموز الباركود، ولهذا في هذا الدرس سنعتمد على كود 128 وكود QR لأنهما الأكثر شيوعاً وتقبل معظم الأجهزة.. هناك برامج ومواقع كثيرة تقوم بتوليد الباركود، ونحن في هذا الدرس قمنا بتوليد الباركود عن طريق موقع خارجي من خلال المرفق التالي. barcode generator.rar

تفضل مع اضافة زر العودة للصفحة الاولى التعامل مع اوراق العمل 2.rar

الأخ الكريم أبو يوسف لم ترفق ملف فعملت على الملف المرفق الذي تفضل به الباشمهندس طارق النتائج في العمود L ..تم عمل كود ليجمع البيانات من الأعمدة ثم حذف الأرقام التي لا تطابق الشرط Sub CopyAllToOneColumn() Dim lCol As Long, lRow As Long Dim LR As Long, I As Long Dim Cell As Range LR = Cells(Rows.Count, 2).End(xlUp).Row lRow = 2 Application.ScreenUpdating = False Range("L2:L1000").ClearContents For lCol = 2 To 10 Cells(lRow, 12).Resize(LR - 1).Value = Range(Cells(2, lCol), Cells(LR, lCol)).Value lRow = Cells(Rows.Count, 12).End(xlUp).Row + 1 Next lCol For I = lRow - 1 To 2 Step -1 If Len(Cells(I, 12)) <> 9 And Len(Cells(I, 12)) <> 12 Then Cells(I, 12).Delete Shift:=xlUp End If Next I Application.ScreenUpdating = True End Sub تقبل تحياتي Delete Numbers Based On Length.rar

كتاب ممتاز لكن أساتذة المنتدى قدموا ماهو أفضل منه من وجهة نظرى

الأخ الكريم مصطفى إليك الملف التالي Sub DeleteSheets() Dim I As Long Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("بداية") Application.ScreenUpdating = False Application.DisplayAlerts = False For I = 3 To 10 For Each SH In Worksheets If WS.Cells(I, "B").Value = SH.Name Then SH.Delete Next SH Next I Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تقبل تحياتي Delete Sheets Based On Range Values YasserKhalil.rar

الأخ الكريم سعد مشكور على توضيح طلبك .. ونعتذر إليك إذا كنا قد أرهقناك بكثرة توجيهاتنا إليك الملف التالي عله يفي بالغرض Sub SheetA() Dim WS As Worksheet, SH As Worksheet Dim lRow As Long, Cell As Range Set WS = Sheets("SQ"): Set SH = Sheets("A") lRow = 28 Application.ScreenUpdating = False For Each SH In Worksheets If SH.Name = "A" Or SH.Name = "B" Or SH.Name = "C" Or SH.Name = "D" Then SH.Range("B28:J230").ClearContents With WS For Each Cell In WS.Range("J2:J" & .Cells(Rows.Count, "J").End(xlUp).Row) If Cell.Value & Cell.Offset(, 1).Value = SH.Range("A27").Value Then SH.Cells(lRow, "B") = lRow - 27 SH.Cells(lRow, "C") = Cell.Offset(, -6) SH.Cells(lRow, "D") = Cell.Offset(, -3) lRow = lRow + 1 End If Next Cell End With End If lRow = 28 Next SH Application.ScreenUpdating = True End Sub تقبل تحياتي Grab Data Based On Conditions.rar

الأخ الفاضل عمرو طلبة إليك الملف التالي عله يفي بالغرض Sub LoopThroughAllWorkbooks() Dim FolderPath As String, FileName As String Dim WBK As Workbook Dim SH As Worksheet FolderPath = ThisWorkbook.Path & "\Collections\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" Set WBK = Workbooks.Open(FolderPath & FileName) For Each SH In WBK.Worksheets If Not IsEmpty(SH.Range("A1")) And SH.Range("A1").Value = "شركة حياة للطاقة و المياه" Then SH.Range("A1").Value = "شركة حياة لخدمات المياه" End If Next SH WBK.Close SaveChanges:=True FileName = Dir() Loop Range("A1").Select Application.ScreenUpdating = True End Sub أرجو أن يفي بالغرض Loop Through All Workbooks To Change String.rar

الاخ الكريم مصطفى فينك بقالك فترة مختفي (لعله خير) إليك الملف التالي رغم أنك لم توضح بالتفصيل طلبك ، ولكني حاولت التدقيق في الطلب حتى فهمت مرادك Sub CopySheets() Dim I As Long Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("نسخ"): Set SH = Sheets("بداية") Application.ScreenUpdating = False For I = 3 To 10 If blnWorksheetExists(SH.Cells(I, "B")) Then GoTo 1 WS.Copy after:=Sheets(Sheets.Count) ActiveSheet.Name = SH.Cells(I, "B").Value ActiveSheet.Range("B2").Value = SH.Cells(I, "B").Value 1 Next I SH.Activate Application.ScreenUpdating = True End Sub Function blnWorksheetExists(strWorksheet As String) As Boolean On Error Resume Next blnWorksheetExists = Not (ThisWorkbook.Worksheets(strWorksheet) Is Nothing) On Error GoTo 0 End Function تقبل تحياتي Copy Sheet Based On Range Values YasserKhalil.rar

أخي الفاضل جرب الملف التالي عله يفي بالغرض Sub Tarhil() Dim WS As Worksheet, SH As Worksheet Dim lRowWS As Long, lRowSH As Long Set WS = Sheets("ورقة1"): Set SH = Sheets("ورقة2") lRowWS = ActiveCell.Row lRowSH = Application.WorksheetFunction.Match(WS.Range("C1").Value & " " & WS.Range("D1").Value, SH.Columns("E:E"), 0) SH.Cells(lRowSH, "B").Value = WS.Cells(lRowWS, "B").Value End Sub تقبل تحياتي ترحيل.rar

أخي الفاضل راجع التوجيهات على هذا الرابط أولاً http://www.officena.net/ib/index.php?s=d6ea3650efcc28c459c126a6e93260f7&showtopic=60147 يبدو أنك لم تستجيب للمشاركة رقم 2 و 3 ..

ارسل الملف الذي تعمل عليه حالياً ووضح المطلوب بالظبط

عمل شيت الراسبين كيفية عمل كوبى من نموذج الى نموذج اخر ترقيم تلقائى من اى رقم يحدده المستخدم عمل تقرير اسبوعى وشهرى لغياب الطلاب مساعدة فى طباعة ارقام الجلوس كنترول اعدادي المعدل كنترول اعدادي كنترول الصف الثانى الثانوى علمى وأدبى للأستاذ السيد ابو ا... كنترول التقويم الشامل للصف الأول الإعدادي2008_2009 اول برنامج لى : كنترول مدرسي برجاء المساعدة (عنوان معدل) تصميم برنامج للكنترول ، طلب مشورة --- تم تعديل العنوان Na... الاحصائيات (تمت الإجابة) توزبع ارقام الجلوس والرقم السري فى برنامج ك... عمل برنامج كنترول مدرسي من الألف الى الياء رنامج كنترول مدرسى تلوين كل حقل بلون مختلف فى الجدول تسجيل الغياب وتجميعة مع المواد الاخرى في كنترول شيت كنترول للتعليم الاعدادي رنامج الكنترول المدرسى للمدارس الابتدائية المصرية كنترول الصف الأول الثانوي 2008_2009 سوف اقوم بالبحث اكثر وعرض باقى النتائج لاحقاا

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

رائع رائع رائع ... شكراً لك أستاذنا الكريم ... كل ما نتمناه نجده في ردودك الكريمة ..

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

نعم دالة مثل دالة الاكسل تعطيك عدد الاحرف Step -1 علشان نعكس السلسلة من الاكبر الى الاصغر ودائما الافتراضي step 1 هذه دالة بحث في النص مثيل دالة FIND و SEARCH هذا على السريع ودمتم

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