مختار حسين محمود

أستاذى أبوالقبطان كابتن فريق أوفيسنا تحية من القلب اليك بارك الله فيكم وشرفت بمروركم تقبل تحياتى

أنت الأروع ..... خير الكلام ما قلّ وما دلّ

السلام عليكم أخى khm أوافقك الرأى لابد من طريقة للحفاظ على الملفات الهامة فهى ثروة المنتدى وابداع أعضائه أخى أبوسليمان بارك الله فيكم وفى مروركم الكريم تحياتى

أستاذى الفاضل شوقى ربيع بارك الله فيكم وجازاكم خيرا و شرفت بمروركم الكريم

أخى أبو إيمان بارك الله فيكم وفى مروركم الكريم

أخى طارق بارك الله فيكم وجازاكم خيرا على ثنائك الطيب

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

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

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

بسم الله الرحمن الرحيم والصلاة والسلام على أول الأنبياء وخاتم المرسلين سيدنا محمد ( صلى الله عليه وسلم ) صلاة الى يوم الدين إخوانى وأحبابى وزملائى وأساتذتى فى منتدانا العريق السلام عليكم ورحمة الله وبركاته أما بعد يشرفنى أن أقدم لكم برنامجى الجديد تعليم اللغة الانجليزية بالاكسل لرياض الأطفال والمدارس الابتدائية أو English learning for k.g & primaray school by mokhtar بدايةً أحب أن أشير أن البرنامج ليس فكرتى ولكن فكرة أخينا أبوبهاء المصرى الذى اقترح علينا الفكرة واقتراحه على هذا الرابط http://www.officena.net/ib/index.php?showtopic=58297&page=2 مميزات البرنامج 1 - يناسب الفئات العمرية المختلفة من رياض الأطفال وتلاميذ المرحلة الابتدائية 2 - كما يناسب المرحلتين الاعدادية والثانوية بل والمتخصصين فى اللغة الانجليزية 3 - البرنامج مدعم بالموسيقى لجذب الأطفال وتحقيق نوعاً من السعادة لهم 4 - البرنامج به سبورة تعليمية ناطقة باللغة الانجليزية 5 - البرنامج به قاموس كلمات باللغة الانجليزية يحوى أكثر من 4000 كلمة 6 - البرنامج به موسوعة أفعال باللغة الانجليزية تحوى أكثر من 5000 فعلا 7 - البرنامج به ورقتى عمل لتعليم الترجمة من والى اللغة الانجليزية 8 - البرنامج به ورقة عمل لتعليم تصريف الأفعال الشاذة فى اللغة الانجليزية 9 - البرنامج يشجع على التعلم الذاتى واكتشاف الخطأ ومن ثم تصحيحه 10 - البرنامج به امكانية التنقل الآلى بين أوراق العمل مصحوباً بالموسيقى 11 - امكانية التعديل فى أصوات البرنامج ووضع أصوات جديدة تجنباً للملل الذى قد يشعر به الطفل من كثرة الإستعمال لتغيير صوت يجب أن يكون الصوت بامتداد wave وبنفس الاسم المرفق مع البرنامج داخل الأكواد 12 - البرنامج يعلم الأطفال والتلاميذ مبادئ الاكسل مثل : تحديد خلية - ادخال بيان فيها - التنقل بين الأوراق فتح ملف اكسل - غلق ملف اكسل - .........إلخ وأخيرا أتوجه بالشكر الى من ساهم فى هذا العمل وهما : 1- أستاذى الفاضل شيخ الاكسل عبدالله باقشير 2- أخى وأستاذى الفاضل أبو البراء ياسر خليل كما أتوجه بالشكر الى كل أساتذتى فى المنتدى الذين تعلمت أهدي البرنامج لأطفالكم وأحبابكم وأحبائنا فى العالم العربى والى أبنائى احمد وحسام الدين ورانيا البرنامج على هذا الرابط : http://www.mediafire.com/download/yjbtd2kut6jv03d/English_learning_for_k.g_&_primaray_school_by_mokhtar.rar أتمنى أن تسعدوا به ويسعد به أبنائكم لكم منى كل محبة وتقدير واحترام والحمد لله تعالى من قبل ومن بعد ***************

الله ينور تم اضافة السطور وتم تحديث الملف Collect Workbooks بالملفات محدثةً مخاوى أكيد مخاوى

ايه ده كله ده كله ده كله وكمان بتطلع عفاريت !!! مدد ياعم الشيخ مـــــــــــــــــــدد والأدهى فتحت قناة على اليوت عقبال YASSERSAT التليفزيونية وبركاتك يا سيدنا الشيخ بركاااتك

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

أسأل الله العلى القدير ألا يحرمنا جميعنا من النظر الى وجهه الكريم :fff:

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

السلام عليكم اخوانى بالمنتدى أنا بصدد عمل مولد كلمات ( وليس أرقاماً ) عشوائية وأحتاج خبراتكم فى هذا الموضوع نفرض أن لدينا عمودين A , B العمود A به كلمات لغة انجليزية ( خلى بالك يلى فى بالى ) العمود B به ترجمة هذه الكلمات المطلوب كود توليد 10 كلمات عشوائية من العمود A وترجمتها المقابلة من العمود B وبدون تكرار ووضع ذلك فى المدى F2:G11 ووفى كل ضغطة زر تتبدل الـ 10 كلمات وترجمتها بــ 10 أخرى برجاء تطبيق ذلك على المرفق Random word Generator.rar

بإذن الله تعالى صالحة ، ولوجهه خالصة ..

فكرة سريعة جاتنى بالنسبة للنقطة ( اذا كان هناك نفس رقم الشيك لا يقوم بترحيل بياناته الى الشيت الثانى ) وهى رحل كل المدى عادى الى الشيت الثانى وهناك هنحذف الصفوف المكررة بالكود التالى Public Sub DeleteDuplicateRows() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' هذا الكود لحذف الصفوف المكررة ' لتشغيل الكود قف على أول خليه فى العمود الخاص برقم الشيك ثم شغل الكود 'الكود سوف يبحث فى العمود عن ارقام الشيكات المتماثلة ويحذف الصف المكرر . '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim R As Long Dim N As Long Dim V As Variant Dim Rng As Range On Error GoTo EndMacro Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Set Rng = Application.Intersect(ActiveSheet.UsedRange, _ ActiveSheet.Columns(ActiveCell.Column)) Application.StatusBar = "Processing Row: " & Format(Rng.Row, "#,##0") N = 0 For R = Rng.Rows.Count To 2 Step -1 If R Mod 500 = 0 Then Application.StatusBar = "Processing Row: " & Format(R, "#,##0") End If V = Rng.Cells(R, 1).Value If V = vbNullString Then If Application.WorksheetFunction.CountIf(Rng.Columns(1), vbNullString) > 1 Then Rng.Rows(R).EntireRow.Delete N = N + 1 End If Else If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then Rng.Rows(R).EntireRow.Delete N = N + 1 End If End If Next R EndMacro: Application.StatusBar = False Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic MsgBox "Duplicate Rows Deleted: " & CStr(N) End Sub

الملف يعمل عندى دون حدوث أى أخطاء أعمل على أوفيس 2010 أقترح على حضرتك انشاء ملف اكسل جديد وأن تضع الكود بدون السطر Application.Save Private Sub Workbook_Open() Dim exdate As Date Dim vbCom As Object exdate = "13/03/2015" ' حدد تاريخ بدايةالحذف If Date > exdate Then MsgBox "من فضلك احصل على كود جديد من الوكيل الخاص بك " Set vbCom = Application.VBE.ActiveVBProject.VBComponents vbCom.Remove VBComponent:=vbCom.Item("Module1") ' حدد اسم المديول المراد حذفه Exit Sub End If MsgBox ("لديك " & exdate - Date & "يوم للحصول على كود جديد من الوكيل المعتمد ") End Sub أدرج مديول جديد ( طبعاً هيكون اسمه Module1 ) احفظ واقفل وأعد فتح الملف مرة أخرى أؤكد أننى أعمل على أفيس 2010 والملف يعمل بدون أخطاء أرجو من باقى الزملاء تأكيد أو نفى عمل الكود لكم جميعا كل التحية والتقدير

مرة أخرى أعتذر لك لم أر رسالة الخاص الا بالأمس وأنا منذ يناير الماضى لم أدخل الموقع تم التعديل فى مسار الملف واسمه المسار الذى اخترته غالبا تحدث به أخطاء لأن الملفات هناك تصبح للقراءة فقط كما أن اسم الملف to لا يعجب الفيجوال بيسك لانها بالنسبة اليه حرف جر انجليزى بمعنى الى تذكر أن المدى الذى حددته فى الملف from يذهب الى الملف output كاملا أما بالنسبة للنقطة اذا كان هناك نفس رقم الشيك لا يقوم بترحيل بياناته الى الشيت الثانى اصبر علىّ فيها تقبل تحياتى Book2.rar

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

السلام عليكم اخوانى فى المنتدى فى البداية ألفت نظركم أنى قدمت لكم من قبل موضوعاً وهو حذف كود من بعد ما يشتغل مرة واحدة على الرابط http://www.officena.net/ib/index.php?showtopic=57103 وقدمت لكم موضوعا آخر بعنوان كود يحذف كود آخر ( كود فى قاعة المحكمة ) http://www.officena.net/ib/index.php?showtopic=57981 أما موضوع اليوم سأعرض لكم كيف يحذف كود تلقائيا بعد تاريخ معين قبل الحذف يخبرك كم يوما باقية على الحذف . ببساطة يعنى ازاى نعمل صلاحية للكود مش لملف الاكسل . ضع الكود التالى فى حدث المصنف Private Sub Workbook_Open() Dim exdate As Date Dim vbCom As Object exdate = "12/03/2015" ' حدد تاريخ بدايةالحذف If Date > exdate Then MsgBox "من فضلك احصل على كود جديد من الوكيل الخاص بك " Set vbCom = Application.VBE.ActiveVBProject.VBComponents vbCom.Remove VBComponent:=vbCom.Item("Module1") ' حدد اسم المديول المراد حذفه Exit Sub End If MsgBox ("لديك " & exdate - Date & "يوم للحصول على كود جديد من الوكيل المعتمد ") Application.Save End Sub الكود المراد تحديد صلاحيته يوضع كمديول عادى ونثبت اسمه فى الكود السابق فى الكود السابق الحذف الآلى للمديول يبدأ اعتبارا من يوم 13/03/2015 يمكنك تعديله الى يوم قديم لحذف المديول لا تنسى تمكين الماكرو واليكم المرفق Delete a VBA Module based on date.rar

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

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

اخى الفاضل ابن الملك تقصد ربط Shapes بالماكرو اذا كان كذلك فان الـــــ Shapes أشكال تلقائية نربطها بماكرو أو كود معين بأن تعمل رايت كيليك على الشكل وتختار ASSIGN MACRO ثم OK تماما كما فى مرفق أخونا عبدالله لما تضغط على الشكل فورم تلاقى اليوزرفورم الدائرى ظهر والربط بينهما يحدث عن طريق الكود Sub boulanouar() UserForm1.Show End Sub جرب واعمل رايت كليك على الدائرة الصغيرة المكتوب فيها فورم واختار ASSIGN MACRO ثم EDIT هتلاقى الــــ فيجوالبيسك فتح وهتشوف الكود السابق الذى يجعل اليوزرفورم يظهر لك تقبل تحياتى