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

السلام عليكم ورحمة الله وبركاته احبتي اهدي لكم محاولة بسيطة لموضوع إزالة التشكيل في الاكسس طبعا كان هناك مشاركات حول هذا الموضوع هنا http://www.officena.net/ib/index.php?showtopic=59784 حيث يتلخص الحل بفكرتين : 1. انشاء دالة خاصة تقوم بفحص الاحرف والرموز المستثناه من الابعاد عن النص وما غير ذلك سيتم اعتماده ! انظر استعلام 1 والدالة fn 2. باستخدام إمكانيات الورود في ذلك ! انظر نموذج1 ! لاحظ هنا انه لابد من وضع مرجع للورود من خلال نافذة الكود ملاحظة : استخدمت ملف الأخ السائل في الرابط السابق الأخ "محب لله ورسوله" وذلك لاحتوائه على نص مشكل وفضيل ونسأله سبحانه الثواب والاجر لنا وللأخ صاحب الملف ! تحياتي 'رمهان 'اوفيسنا Public Function fn(fld) y = "أبجدهوزحطيكلمنسعفصقرشتثخذضظغـ ىؤءئةاآإ()><.؟}{][1234567890:,/" For i = 1 To Len(fld) If InStr(1, y, Mid(fld, i, 1)) > 0 Then xx = xx & Mid(fld, i, 1) Next i fn = xx End Function Private Sub أمر0_Click() ''رمهان ''اوفيسنا Set objw = CreateObject("Word.application") Set objd = objw.Documents.Add ''هنا تستطيع عمل شرط على السجلات مثلا الفارغة وذلك لتقليل كثرة عملية التعديل Set rs = CurrentDb.OpenRecordset("جدول_الرسائل"): rs.MoveLast: rs.MoveFirst For i = 1 To rs.RecordCount objd.Range.Text = rs(1) objw.Selection.Find.ClearFormatting objw.Selection.Find.Replacement.ClearFormatting With objw.Selection.Find .Text = "[ً-ْ]" .Replacement.Text = "" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True End With objw.Selection.Find.Execute Replace:=wdReplaceAll DoCmd.RunSQL "update جدول_الرسائل set حقل1='" & objd.Range.Text & "' where مفتاح_أساسي=" & rs(0) rs.MoveNext Next i Set objd = Nothing objw.Application.Quit SaveChanges:=wdDoNotSaveChanges Set objw = Nothing Set objd = Nothing End Sub التشكيل.rar

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

اخواني في المنتدى /بعد السلام اليكم هذا الملف الذي كثر التداول به وهو كيف نحصل على كل الاسماء من حدول والتي تبدأ بحرف معيّن find_by_letter.rar

اخى الكريم جرب هذا الملف 12.rar

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

chaouki.rar

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم مع تحياتي اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.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

السلام عليكم ورحمة الله وبركاته الحمد لله الذى بنعمته تتم الصالحات ، والحمد له وحده فهو الذى لا يحمد على مكروه سواه قبل ان اطرح موضوعى أود أن اتقدم بإعتذار وشكر وإهداء اما الاعتذار : فهو للعملاقين الكبيرين الاستاذ والاخ والصديق / ضاحى الغريب والاستاذ / شوقى ربيع حيث ان مستوى اخراجى للعمل اقل مما ابدعا فيه ، وانا اعتبرها اساءة منى وأما الشكر : فهو لأخى وحبيى الاستاذ / احمد فؤاد الذى دلنى على هذا المنتدى الطيب اهله ، والاستاذ / ضاحى الغريب الذى وقف الى جوارى دائما ناصحا ومعلما ومرشدا حتى على المستوى الشخصى واما الاهداء : فهو لهذا المنتدى الذى من خلاله تعلمت ، والى كل اعضاءه والقائمين على ادارته والى استاذى / ضاحى الغريب ( خاصة ) جزاهم الله عنا خير الجزاء ... لقد احتجت الى برنامج ينظم لى فى عملى مايخص عملية دخول الحاويات ورسوم الجمارك وما الى ذلك ، ووجدت ان برنامج شئون الموظفين الذى اخرجه العملاقين مناسباً تماما لما احتاج ، فعملت عليه ليناسب احتياجاتى ، وها انا ذا اضعه بين ايديكم للتطويره والاستفاده منه ، وجزاكم الله خيراً .. واليكم رابط التحميل http://www.mediafire.com/download/kc1x6o4dcwe4vv7/نظام_الجمارك.xlsm

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

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

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

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

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

جرب المعادلة بهذا الشكل .. إذا كان عدد الأرقام ثابت .. =CHAR((MID(A1,1,3)))&CHAR((MID(A1,4,3)))&CHAR((MID(A1,7,3)))&CHAR((MID(A1,10,3)))

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

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

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

اخواني في المنتدى /بعد السلام اقدم لكم نوعاُ جديداً من البحث عن اي قيمة في اي عامود(من اختيارك) و ما يقابلها في عامود اخر (بردو من اختيارك) ما يشبه الدالة Vlookup new vlookup.rar

السلام عليكم طبق هذه المعادله =ROUNDUP(85.5464654;0)

السلام عليكم كل الاصناف تجدها اخر قائمة الاصناف تم اضافة عبارة كل الاصناف في حدث الاقلاع ComboBox2.AddItem "ßá ÇáÇÕäÇÝ" اما كود البحث اصبح هكذا If ComboBox1 = "" Then MsgBox "ÇÎÊÑ ÇáÔåÑ ÃæáÇ": Exit Sub d = Me.ComboBox2 e = 0 Dim bMonth As Byte Dim x As Integer: x = 0 Me.TextBox1.Value = 0 For i = LBound(keyArray) To UBound(keyArray) bMonth = Month(keyArray(i, 1)) If d = "ßá ÇáÇÕäÇÝ" And bMonth = ComboBox1.ListIndex + 1 Then e = e + 1: ReDim Preserve itemArray(1 To 4, 1 To e) itemArray(1, e) = keyArray(i, 1) itemArray(2, e) = keyArray(i, 4) itemArray(3, e) = keyArray(i, 5) itemArray(4, e) = keyArray(i, 7) x = x + Val(keyArray(i, 7)) ElseIf keyArray(i, 4) = d And bMonth = ComboBox1.ListIndex + 1 Then e = e + 1: ReDim Preserve itemArray(1 To 4, 1 To e) itemArray(1, e) = keyArray(i, 1) itemArray(2, e) = keyArray(i, 4) itemArray(3, e) = keyArray(i, 5) itemArray(4, e) = keyArray(i, 7) x = x + Val(keyArray(i, 7)) End If Next i If e > 0 Then If UBound(itemArray, 2) > 1 Then Me.ListBox1.List = Application.Transpose(itemArray) Else Dim c(1 To 1, 1 To 4) c(1, 1) = itemArray(1, 1) c(1, 2) = itemArray(2, 1) c(1, 3) = itemArray(3, 1) c(1, 4) = itemArray(4, 1) Me.ListBox1.List = c End If Else Me.ListBox1.Clear End If Me.TextBox1.Value = x End Sub كل الاصناف.rar

وللعلم ، انا عملت على طريقة الاكسس ، وسابقا عملت برنامج لطباعة الارقام على شيكات البنوك ، وببعض المحاولات لتضبيط الحقول ، والبرنامج شغال تمام جعفر

الاخ الحبيب ياسر اصله بيهزّر انا لبناني ومن بيروت

تم بحمد الله هنا تنفيذ مادار بمخيلتي حول استخدام الوورد كحل اخر وكلها بركات الأستاذ أبا خليل والمشجع الأستاذ جعفر طبعا وبركات الأخ السائل حول اثارة موضوع بهذه الأهمية وندرة الحلول حوله ! http://www.officena.net/ib/index.php?showtopic=59840

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

السلام عليكم اولا لم اجد الكود السابق في الملف المرفق ثانيا توجد حاجا اسمها الحلاقات التكرارية تغنيك عن مئات الاسطر وهذا التعديل للكود الذي ادرجته اعلاه على حسب فهمي للطلبك Sub AddData() Application.ScreenUpdating = False smsm.Range("d12").Select If smsm.Range("d12").Value = "" Then MsgBox "ÇáÑÌÇÁ ÇÏÎÇá ÇáÇÓã ÞÈá ÚãáíÉ ÇáÇÖÇÝÉ" Exit Sub End If Dim en As Long: en = good.Range("e15000").End(xlUp).Row + 1 Dim i As Long: For i = 2 To 54 good.Cells(en, i) = smsm.Range("d" & i + 8).Value Next smsm.Range("d11:e11,d12:e12,c15:e34").ClearContents good.Range("b8:h1000").Sort Key1:=good.Range("b8"), Order1:=xlAscending, Header:=xlNo, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal smsm.Range("e9") = smsm.Range("e9") + 1 smsm.Range("c11").Select End Sub

جزاكم الله خيرا مع تنمنيانا لك بالتوفيق ومزيد من الأعمال الجديدة

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

هذه هى البداية ويمكنك اكمال الباقى بناءاً علييها مخازن متعدده1.rar