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

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

السلام عليكم ورحمة الله وبركاته أحبائى فى الله تقبلوا جميعا تحياتى أقدم لكم اليوم كود لعله يفيد Show Picture on Mouse Hover with VBA Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim sh As Worksheet Set sh=Sheet1 If sh.Pictures("Smallman").Visible=False Then 'Smallman is the name of the pic sh.Pictures("Smallman").Visible=True End If sh.Shapes("Label1").Visible=True 'This line is the most important (No Delete) End Sub Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Dim sh As Worksheet Set sh=Sheet1 If sh.Pictures("Smallman").Visible=True Then 'Smallman is the name of the pic sh.Pictures("Smallman").Visible=False End If sh.Shapes("Label1").Visible=False 'This line is the most important (No Delete) End Sub Private Sub CommandButton1_Click() 'Excel VBA for command button add. MsgBox "Your Macro Here" End Sub Mouse Over the Command Button.rar

الى اساتذتى و من لهم الفضل فى تعليمى الكثير ,,,,,, - بدون رغى كتير علشان مش باعرف أتكلم كتير - بصراحه انا كنت عاوز اهدى الملف دة لبعض الاساتذه بس بصراحه أتكسفت انسى حد علمنى حاجه واكون مكتبتش اسمه ف انا بهديه لكل أوفيسنا بصراحه ده مشروع واحد زميلى فى الشغل وانا مقدرتش امسك نفسى لما شفته عن انى اشارك بيه اصحابى و من من الممكن ان ينتفع به ---- نَحوى نحوى مفيش كلام ------ عباره عن اله حاسبه بصراحه غريبه الاطوار علشان ........... .......... .............................................................. ,,,,, " ما تيجوا نشوف " بصراحه بحاول اقلد أسلوب الاستاذ الكبير ياسر خليل ..... بس مش عارف .... Calculator Version 1.rar

السلام عليكم ورحمة الله أخي الكريم عيد مصطفى يمكنك تصحيح معادلتك في التنسيق الشرطي بحذف الرمز $ في المعادلات من أمام الحرف H في النطاق H$4:$H$88 ليصبح من الشكل H$4:H$88 وستعمل المعادلات بصفة صحيحة في جميع الأعمدة المعنية... والله أعلم أخوك بن علية السلام عليكم ورحمة الله أخي الكريم عيد مصطفى، إذا كنت تريد تحديد القيمة الصغرى في الأعمدة على أن تكون غير معدومة عليك بتغيير الجزئية (MIN(H$4:H$88 من معادلة التنسيق الشرطي الخاصة بأصغر قيمة بالجزئية ((MIN(IF(H$4:H$88<>0;H$4:H$88 بن علية حاجي

وعليكم السلام ورحمة الله وبركاته مشاركة مع زملائي وبالتحديد تفعيل الخيار الضغط عند الاغلاق : انا مع ابو خليل وذلك للاسباب التالية 1. لم ياتي الخيار افتراضيا معمول صح ! معناته يوضع في حالات خاصة وهنا اتوقع انه عندما يكون لديك انشاء كائنات وحذف كائنات في نظامك اي هناك تعديلات في البنية او تركيبة القاعدة فهنا تحتاج بالضرورة لتفعيل هذا الخيار ! اما اذا كانت لحجم البيانات فهنا تستطيع ان تفعل الخيار في اوقات تحددها انت ثم تعيد ازالة الخيار ! فمثلا استطيع ان احدده عند وقت محدد او عند وصول حجم القاعدة الى حجم معين ! 2. لو كان من الافضل وضع الخيار دائما لتم وضع هذا الخيار ضمنيا في الاكسس وبدون خيار صريح للمستخدم لاحظ انه تولدت فكره من سؤالك ولضغط القاعدة الحالية وذلك بتفعيل الخيار ثم الاغلاق ثم الفتح وتعطيل الخيار وذلك من الامر : Application.SetOption "Auto compact", true Application.SetOption "Auto compact", False تحياتي

نعم صحيح ، في النسخة الاولى من اكسس 2007 ، الضغط والاصلاح كان يتلف قاعدة البيانات ، واصلحت مايكروسوفت الوضع بإصدار تحديثات له (ولكن وللأسف الشديد ، هناك مستخدمين يستعملون البرنامج الاصلي ، وبدون اي تحديثات له طول العمر!! فلذلك ، ولهذه النسخ بالذات ، كلامك صحيح 100%) ، بس ما دمنا نتكلم عن التحديثات ، احب ان أضيف هذه المعلومة: اول تحديث للأكسس 2000 ، كان يحتوي على اكثر من 300 تصليح/إضافة. لهذا السبب ، التحديث غاية في الاهمية ، سواء لنظام التشغيل الوندوز او الاوفيس. تم استدعائي لأحد الدول لأنظر في مشكلة برنامجهم الذي كان به بعض المشاكل ، ومن ضمن هذه المشاكل فقد جزء من البيانات ، الكهرباء كانت تنقطع ولم تكن منتظمة ، وقد كانت الشبكة عندهم عبارة عن كمبيوترات لابتوب ، والسيرفر عليه UPS ، فالمبرمج الذي عمل البرنامج والشبكة لهم اخذ في الاعتبار مشكلة عدم انتظام الكهرباء بهذه الطريقة ، ولكني اكتشفت المشكلة ، والتي كانت بسبب انقطاع الكهرباء ، وهي ان المبرمج لم يضع UPS على Switch الشبكة ، فتواصل البيانات ينقطع بين الكمبيوترات والسيرفر عند انقطاع الكهرباء ، وتم حل المشكلة بربط الـ Switch بجهاز UPS اذن في هذه الحالة ، نستطيع ان نعمل التالي: 1. بأمر من الاكسس ، نعمل نسخة إضافية من برنامج الجداول ، 2. نتأكد ان نسخة برنامج الجداول موجوده ، 3. وبأمر آخر نعمل الاصلاح والتعديل ، فاذا لأي سبب تلفت هذه النسخة ، فنستطيع استعمال النسخة الاحتياط. طبعا انا هنا اعطيت البديلبسبب انقطاع الكهرباء جعفر جعفر

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

و عليكم السلام و رحمة الله و بركاته ... حسب معلوماتي ... بالعكس لا يؤثر حتى اثناء التشغيل و ليس فقط عند الاغلاق ... و لننتظر رأي الأساتذة الكرام ...

بارك الله فيك على التّجاوب الطيّب أستاذي القدير ...

..... شاهدوا المرفق أخوكم عماد الحسامي

السلام عليكم ,, في الملف المرفق معلومات عن المسافرين بشكل يومي , كيف يمكن عمل ورقة خاصة بكل مسافر بحيث عند اضافة معلومات جديدة الى الورقة الرئيسية يتم التحديث تلقائيا الى الورقة الخاصة بكل مسافر . مع جزيل الشكر traveller analysis.rar

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

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الكود الرّائع .. جزاك الله خيرًا و زادك من علمه و فضله لإثراء الموضوع و التّنويع بالملفات .. أقدّم هذا الملف .. حيث بعد انتهاء صلاحيته المحددة سلفًا بتاريخ محدّد مثلما مشار إليه بالسّهم الأحمر سيُطلب منّا كلمة المرور و التي هي 123 .. و هناك العديد من الأمثلة المتنوعة .. إذا أردت الزّيادة .. زدناك أخي الكريم " أبو تيم " فائق إحتراماتي حماية الملف بتاريخ محدد.rar

Protect All Worksheets in Workbook using VBA Sub sbProtectAllSheets() Dim pwd1 As String, pwd2 As String pwd1 = InputBox("Please Enter the password") If pwd1 = "" Then Exit Sub pwd2 = InputBox("Please re-enter the password") If pwd2 = "" Then Exit Sub 'Check if both the passwords are identical If InStr(1, pwd2, pwd1, 0) = 0 Or _ InStr(1, pwd1, pwd2, 0) = 0 Then MsgBox "You entered different passwords. No action taken" Exit Sub End If For Each ws In Worksheets ws.Protect Password:=pwd1 Next MsgBox "All sheets Protected." Exit Sub End Sub Insert a Module for Insert Menu ولحمايته لفترة زمنية كفترة تجريبية Sub workbook_open() If Time >= " 01-01-2016" Then msgbox "the time work of this application is finished" ThisWorkbook.Close False End Sub

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

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذنا الغالي " ياسر فتحي البنّا " على الأكواد الجميلة و الملفات الرّائعة فائق إحتراماتي

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

أخى الحبيب ياسر فتحى بارك الله فيك ما شاء الله عليك نشاط ملحوظ فى عز البرد !!

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

حبيبى حسام تسلم ايدك كيف اشكرك

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

تفضل اخى الكريم شاهد المرفق هل هو طلبك تقبل تحياتى عملية الدفع.zip

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

معيار البحث سيكون بالاسم وشكرا

اخى الكريم جرب المرفق هل هو طلبك تقبل تحياتى اظهار بيان مواد.zip

استاذى ابويوسف فكره وعمل رائع ابسط الطرق صراحه تقبل تحياتى

عطر الله أيامك وأسعد قلبك وملأك إيماناً ويقيناً وزادك من علمه وفضله ...آمين.

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

السلام عليكم قمة الروعة والجمال أخي الحبيب الصقر اللهم أدمها نعمة

التاريخ فى f8 و g 8

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

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

وعليكم السلام اخى م/ياسر فتحى كود ممتاز من الممكن استخدامه فى الحماية ان الاكواد تلغى فى حالة فتح الملف بطريقة غير شرعية

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

وعليكم السلام ورحمة الله وبركاته تفضل وهذا كود حدث الحالي للنموذج form1 ، والذي عليه قمت بعملية قراءة النموذج الفرعي: Private Sub Form_Current() On Error GoTo err_Form_Current Me.aa1 = Nz(Int(Me![Text31] / 60), 0) Me.gg = Nz(Int(Me![aa1] / 7), 0) Dim rst As DAO.Recordset Set rst = Me.frm2.Form.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC If Len(rst!datee & "") <> 0 Then If Month(rst!datee) = 1 Then t1 = t1 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 2 Then t2 = t2 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 3 Then t3 = t3 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 4 Then t4 = t4 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 5 Then t5 = t5 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 6 Then t6 = t6 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 7 Then t7 = t7 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 8 Then t8 = t8 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 9 Then t9 = t9 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 10 Then t10 = t10 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 11 Then t11 = t11 + DateDiff("n", rst![hg1], rst![hg2]) If Month(rst!datee) = 12 Then t12 = t12 + DateDiff("n", rst![hg1], rst![hg2]) End If rst.MoveNext Next i ' ' we get a write conflict when using this method!! ' rst.MoveLast: rst.MoveFirst ' For i = 1 To RC ' If Len(rst!datee & "") <> 0 Then ' rst.Edit ' If Month(rst!datee) = 1 Then rst!DateSum = t1 ' If Month(rst!datee) = 2 Then rst!DateSum = t2 ' If Month(rst!datee) = 3 Then rst!DateSum = t3 ' If Month(rst!datee) = 4 Then rst!DateSum = t4 ' If Month(rst!datee) = 5 Then rst!DateSum = t5 ' If Month(rst!datee) = 6 Then rst!DateSum = t6 ' If Month(rst!datee) = 7 Then rst!DateSum = t7 ' If Month(rst!datee) = 8 Then rst!DateSum = t8 ' If Month(rst!datee) = 9 Then rst!DateSum = t9 ' If Month(rst!datee) = 10 Then rst!DateSum = t10 ' If Month(rst!datee) = 11 Then rst!DateSum = t11 ' If Month(rst!datee) = 12 Then rst!DateSum = t12 ' rst.Update ' End If ' rst.MoveNext ' Next i ' Forms!form1!frm2.SetFocus Forms!form1!frm2.Form.GoToFirstRecord For i = 1 To RC If Len(Forms!form1!frm2!datee & "") <> 0 Then If Month(Forms!form1!frm2!datee) = 1 Then Forms!form1!frm2!DateSum = t1 If Month(Forms!form1!frm2!datee) = 2 Then Forms!form1!frm2!DateSum = t2 If Month(Forms!form1!frm2!datee) = 3 Then Forms!form1!frm2!DateSum = t3 If Month(Forms!form1!frm2!datee) = 4 Then Forms!form1!frm2!DateSum = t4 If Month(Forms!form1!frm2!datee) = 5 Then Forms!form1!frm2!DateSum = t5 If Month(Forms!form1!frm2!datee) = 6 Then Forms!form1!frm2!DateSum = t6 If Month(Forms!form1!frm2!datee) = 7 Then Forms!form1!frm2!DateSum = t7 If Month(Forms!form1!frm2!datee) = 8 Then Forms!form1!frm2!DateSum = t8 If Month(Forms!form1!frm2!datee) = 9 Then Forms!form1!frm2!DateSum = t9 If Month(Forms!form1!frm2!datee) = 10 Then Forms!form1!frm2!DateSum = t10 If Month(Forms!form1!frm2!datee) = 11 Then Forms!form1!frm2!DateSum = t11 If Month(Forms!form1!frm2!datee) = 12 Then Forms!form1!frm2!DateSum = t12 End If Forms!form1!frm2.Form.GoToNextRecord Next i Forms!form1!frm2.Form.GoToFirstRecord Exit Sub err_Form_Current: If Err.Number = 94 Then 'null Resume Next ElseIf Err.Number = 3021 Then 'No Records Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub وفي النموذج الفرعي ، نتحكم في التنقل بين السجلات: Public Sub GoToFirstRecord() Me.datee.SetFocus 'Go to the first record in the subform. DoCmd.GoToRecord , , acFirst End Sub Public Sub GoToNextRecord() Me.datee.SetFocus 'Go to the next record in the subform. DoCmd.GoToRecord , , acNext End Sub Public Sub GoToLastRecord() Me.datee.SetFocus 'Go to the last record in the subform. DoCmd.GoToRecord , , acLast End Sub جعفر 282.za-Time6.12-UP1.mdb.zip

اخى الكريم جرب الملف المرفق هل هو طلبك تقبل تحياتى بحث اليست بوكس.zip

مشكورين عمجهوداتكم بس طلعت معي المشكله هاي

اعد تعين مدى الطباعه فقط اخرى الكود كالتالي Sub Clear_Sheet4_Data() Dim LastRow As Integer With Sheet4 LastRow = .Range("A" & Rows.Count).End(xlUp).Row .Range("A29:AY" & LastRow).Clear .Range("c8:x27").ClearContents '----------------------------------------------- .PageSetup.PrintArea = .Range("A1:Ay33").Address '----------------------------------------------- End With End Sub

تفضل طلبك ملاحظات وجدت في الجدول انك عامل كل الحقول عبارة عن عملة ونحن نريد ارقام - تم تعديلها حساب البالات.rar

نعم ضع الكود التالى ملف الورد Option Explicit Sub DeleteAllFilesInAFolder() Dim MyFolder, FSO, FLDR, FileName MyFolder = ActiveDocument.Path & "\Test\" Set FSO = CreateObject("Scripting.FileSystemObject") Set FLDR = FSO.GetFolder(MyFolder) For Each FileName In FLDR.Files FileName.Delete True Next End Sub التطبيق على المجلد Test بتاع أستاذنا ياسر

السّلام عليكم و رحمة الله و بركاته ألف شكر أستاذي القدير " محمد حسن المحمّد " على الكود أكثر من الرّائع الذي يظهر القائمة المنسدلة بشكل عمودي جذّاب .. تميّز جديد الشكر موصول للأستاذ الفاضل " يحيى حسين " جزاكما الله خيرًا و زادكما من علمه و فضله للتّنوية أستاذي القدير .. كقاعدة عامّة .. أينما وجدت كلمة WorkSheet ..لا تتردّد .. فالكود يكون إلزاميًا في حدث الورقة فائق إحتراماتي

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

أخي وحبيبي في الله أبو يوسف أعانكم الله على البلاء الذي ابتلاكم الله به .. ولا أملك لكم إلا الدعاء لكم أن يفرج الله عنكم ما ابتلاكم به .. وصبراً فمهما طال الليل لابد من بزوغ الفجر مساهمةً مني في الموضوع الرائع الذي بدأته ..سأساهم ولو بالقليل لعل أن يجد صدى ومنفعة لدى جميع الأعضاء أقدم لكم دالة من دوال الإكسيل وما يقابلها في محرر الأكواد الدالة هي CHAR : لمعرفة الحرف أو الرمز المقابل لرقم معين افتح ملف إكسيل وضع الرقم 1 في الخلية A1 وضع الرقم 2 في الخلية A2 ثم .. حدد الخليتين معاً وقم بسحب الخليتين من مقبض السحب .. واسحب الأرقام حتى الصف 255 أي اكتب الأرقام من 1 إلى 255 في الخلية B1 اكتب المعادلة التالية : =CHAR(A1) ثم قم بسجب المعادلة إلى آخر النطاق أي إلى الخلية B255 ستلاحظ وجود علامات ورموز وحروف في العمود الثاني ..هذا يدعى جدول الأسكي ASCII .. على سبيل المثال الأرقام من 0 إلى 9 تأخد الأرقام في جدول الأسكي من 48 إلى 57 الأرقام من 65 إلى 90 الحروف الإنجليزية الكبيرة الأرقام من 97 إلى 122 الحروف الإنجليزية الصغيرة الرقم 10 يمثل سطر جديد الرقم 32 يمثل المسافة (التي تؤخذ بالمسطرة يا باشمهندس) الرقم 44 يمثل الفاصلة , ------------------------------------------------------------------------ الدالة المقابلة للدالة CHAR في محرر الأكواد هي الدالة CHR مثال تطبيقي للاستفادة من الدالة : أنشيء ورقة عمل جديدة وضع النص التالي بهذا الشكل في الخلية A1 Yasser,Ahmed,Khalil,Salem,Baraa غير ارتفاع الصف وخليه 100 لتكون الأسماء واضحة أمامك الفاصلة تفصل بين الأسماء بفاصلة .. والمطلوب أن توضع الأسماء في نفس الخلية في أسطر متتالية أي تكون بهذا الشكل: قم بوضع الكود التالي في موديول .. Sub UseCHR() Dim str As String str = Range("A1").Value str = Replace(str, Chr(44), Chr(10)) Range("A1").Value = str End Sub يتم تعريف المتغير من النوع النصي باسم str ليحمل قيمة الخلية A1 وفي السطر الثالث يتم استبدال الفاصلة Chr(44) بسطر جديد Chr(10) ..بكل بساطة بالتالي أصبح لدينا المتغير الجديد تم فيه استبدال الفاصلة بسطر جديد .. في السطر الأخير يمكنك وضع قيمة المتغير في نفس الخلية A1 أو يمكنك وضعها في خلية جديدة كما ترغب أرجو أن تكون الخاطرة قد أعجبتكم تقبلوا وافر تقديري واحترامي

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

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

حل أروع وأجمل أخي أنو نصار تسلم الأيادي يا كبير تقبل وافر تقديري واحترامي

ابدأ في VB.Net http://www.tutorialspoint.com/vb.net/

الاستاذ الفاضل أبو عبدالله استخدم هذا الكود منذ 2012 وعملت به على اكسيس 2010 و2013 واعطى نفس النتيجة الاستاذ الفاضل أزهر جزاك الله خير وشكرا على البرنامج

السلام عليكم ورحمة الله وبركاته يمكنك استخدام الكود التالي ( قم بانشاء ميديول جديد والصق هذا الكود فيه ) Option Compare Database Global Const SW_HIDE = 0 Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form loX = apiShowWindow(hWndAccessApp, nCmdShow) End Function نفذ الاجراءات التالية على كل نموذج رئيسي في القاعدة '1- في خصائص النموذج تحت التبويب "تنسيق" (Format) حول خاصية "نمط الحدود" (Border style) الى "مربع حوار" (Dialog). '2- في التبويب "الكل" (All) 'حول الخاصية "منبثق" (Pop up) الى نعم (Yes) 'حول الخاصية "مشروط" (Modal) الى نعم (Yes) 'خلف نموذج البداية Private Sub Form_Open(Cancel As Integer) fSetAccessWindow (SW_HIDE) End Sub

بارك الله فيك أخي الكريم بإمكانك إضافة الإجراء Requery الى الماكرو لتحديث البيانات دون الحاجة الى الخروج