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

اخي الحبيب ياسر تم تغيير الاسم لنكون قدوة تحياتي

يمكن ان يكون ما تريده البحث عن التكرار 1.zip

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

السلام عليكم ورحمة الله وبركاته نبدأ بعون الله في شرح شيء جديد في عالم البرمجة ، وهو القاموس Dictionary ، وإن شاء المولى يكون مفيد لكم إخواني الكرام. طبعاً عنوان الموضوع جذبكم مش عشان البرمجة أكيد عشان الناموس (وإزاي نقدر نتخلص من الناموس والإزعاج اللي بيسببه ) .. الناموس هنا معناه القانون أو القاعدة .. ودا عنوان كعامل جذب مش أكتر ما هو القاموس Dictionary؟ ---------------------------- من اسمه ممكن نعرفه ..القاموس يعني تجميعة كلمات باللغة الإنجليزية وليها مرادف سواء بنفس اللغة أو بلغة أخرى .. اللي يهمنا في القاموس إني عبارة عن تجميعة Collection القاموس في لغة البرمجة عبارة عن تجميعة ، وبنستخدمه عشان نخزن فيه : أرقام - نصوص - تواريخ - مصفوفات نطاقات - كائنات - متغيرات .. والقاموس عبارة عن عناصر أو بنود Items وكل عنصر له مفتاح مميز Unique Key المفتاح دا فايدته ايه؟ من اسمه بردو نعرف إن المفتاح بيفتح لنا الباب .. بيفتح الباب للعنصر (عشان نتعامل معاه بشكل برمجي .. يعني المفتاح دليلنا أو مرشدنا للعنصر المطلوب التعامل معه) القاموس فايدته إننا بنقدر نتعامل مع البيانات في الذاكرة بعيداً عن ورقة العمل ..يعني مفيش تحديث للشاشة Screen Updating ، مفيش حساب تلقائي Auto Calculation ، بكدا نقدر نفول إنه أسرع في التعامل مع البيانات ++ (فائدة) بما إن القاموس بيحتوي على مفاتيح مميزة ، فيمكن استخدام الخاصية .Keys عشان نستخرج قائمة فريدة Unique List من البيانات ** القاموس ليس ضمن المكتبة القياسية للغة البرمجة VBA ، إنما هي جزء من Microsoft Scripting Runtime library ، وهذه المكتبة توجد في الملف الموجود في المسار التالي \Windows\system32\scrrun.DLL ولذلك إذا أردت استخدام القاموس فيمكنك من خلال محرر الأكواد الذهاب للقائمة Tools ثم References واختر المكتبة المسماة Microsoft Scripting Runtime library إنشاء القاموس Create Dictionary ----------------------------------- أبسط طريقة لإنشاء القاموس استخدام الأسطر التالية With CreateObject("scripting.Dictionary") End With ماذا تعني هذه الأسطر؟ تعني إنشاء كائن جديد بالاعتماد على المكتبة المسماة scripting.Dictionary ، وما بين السطرين سيتم كتابة أسطر وأوامر برمجية الأسطر التي ستبدأ بنقطة تعني التعامل مع خصائص الكائن أي أنها ستتعامل مع الكائن الجديد ## مثال بسيط لإضافة عنصر للقاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" End With الطريقة Method التي تلي النقطة تسمى Add أي أضف .. والمقصود منها إضافة عنصر جديد للقاموس .. ذكرنا في بداية الموضوع أن لكل عنصر مفتاح مميز ، المفتاح هنا First Name ، والعنصر يحتوي على النص Yasser يمكن استخدام متغير للقاموس بهذا الشكل Dim Dict As Object Set Dict = CreateObject("scripting.dictionary") With Dict .Add "First Name", "Yasser" End With الإعلان عن المتغير من النوع كائن ، ثم تعيين قيمة للمتغير ليساوي إنشاء الكائن من المكتبة الخاصة scripting.Dictionary ثم بدء التعامل مع الكائن القاموس .. ## مثال آخر : المثال التالي سيتناول عد العناصر داخل القاموس باستخدام الخاصية Count قم بوضع الكود داخل موديول ثم نفذ الكود ستجد رسالة بها عدد عناصر القاموس وهو في المثال 2 فقط مفتاح العنصر الأول هو First Name ومفتاح العنصر الثاني هو Second Name أما كلمة Yasser وكلمة Khalil فهي محتويات أو عناصر القاموس With CreateObject("scripting.dictionary") .Add "First Name", "Yasser" .Add "Last Name", "Khalil" MsgBox .Count End With وأكتفي بهذ الجزء البسيط .. لكي أجد المتابعة الجيدة منكم وإلى اللقاء في الأسبوع المقبل إن شاء الله مع حلقة جديدة في نفس الموضوع دمتم على طاعة الله

ياسلام عليك يا اخ ياسر هو ذلك تماما بس سؤال مش ناوي تحترف برا مصر ياابو البراء؟

أخي الكريم وائل الأسيوطي (الحمد لله أن تم تغيير اسم الظهور للغة العربية) بدايةً ادخل على Excel Options ثم Advanced أي خيارات متقدمة ثم اذهب للقسم المسمى When Calculating this workbook وأزل علامة الصح من جانب الخيار Update links to other documents تلك كانت الخطوة الأولى قبل إجراء عملية نسخ أوراق العمل حدد ورقة العمل المسماة 1 ثم من لوحة المفاتيح اضغط Ctrl مع الاستمرار وانقر على ورقة العمل المسماة 2 .. حتى يتم نسخ الورقتين معاً .. كليك يمين عليهما ثم الأمر Move or Copy من النافذة التي ستظهر لك علم على الاختيار Create Copy حتى يتم النسخ وليس القص ، ومن القائمة المنسدلة في النافذة اختر المصنف المراد نسخ الأوراق إليه أرجو أن يكون المطلوب إن شاء الله

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

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

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

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

للرفع واحياء ذكريات الماضى

اعتقد استاذنا القدير ان المسالة مسالة ترتيب الاحرف في المتغير xletter ومايقابله من الحروف في الجملة النصية المكتوبة والتي تمثل المواقع المقابلة لكل حرف ! تحياتي

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

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

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

لتطبيق فكرة الملف على الملف الخاص بك اتبعى الخطوات التالية الخطوه الاولى :- فتح محرر الاكواد من خلال Alt+f11 هتظهر معاك الصورة التالية فى الصورة دائرة حمراء صغيرة بداخلها Insert اضغطى عليها هتفتح معك قائمة اختارى منها Module ستجدى صفحه شاشة بيضاء جديده شاهدى الصورة أنسخ الكود التالى واعملى له لصق فى الشاشة البيضه Option Explicit Sub ToggleCutCopyAndPaste(Allow As Boolean) 'Activate/deactivate cut, copy, paste and pastespecial menu items Call EnableMenuItem(21, Allow) ' cut Call EnableMenuItem(19, Allow) ' copy Call EnableMenuItem(22, Allow) ' paste Call EnableMenuItem(755, Allow) ' pastespecial 'Activate/deactivate drag and drop ability Application.CellDragAndDrop = Allow 'Activate/deactivate cut, copy, paste and pastespecial shortcut keys With Application Select Case Allow Case Is = False .OnKey "^c", "CutCopyPasteDisabled" .OnKey "^v", "CutCopyPasteDisabled" .OnKey "^x", "CutCopyPasteDisabled" .OnKey "+{DEL}", "CutCopyPasteDisabled" .OnKey "^{INSERT}", "CutCopyPasteDisabled" Case Is = True .OnKey "^c" .OnKey "^v" .OnKey "^x" .OnKey "+{DEL}" .OnKey "^{INSERT}" End Select End With End Sub Sub EnableMenuItem(ctlId As Integer, Enabled As Boolean) 'Activate/Deactivate specific menu item Dim cBar As CommandBar Dim cBarCtrl As CommandBarControl For Each cBar In Application.CommandBars If cBar.Name <> "Clipboard" Then Set cBarCtrl = cBar.FindControl(ID:=ctlId, recursive:=True) If Not cBarCtrl Is Nothing Then cBarCtrl.Enabled = Enabled End If Next End Sub Sub CutCopyPasteDisabled() 'Inform user that the functions have been disabled MsgBox "النسخ واللصق والحفظ باسم غير مسموح به فى هذا الملف" End Sub Sub n() Call ToggleCutCopyAndPaste(True) End Sub الخطوه الثانية فى هذه الصورة يوجد دائره حمراء بداخلها ThisWorkbook اضغطى عليها هتظهر معك الصوره التالية فى الشاشة البيضه المسماه ThisWorkbook انسخى الكود التالى وقمى بصلقه فى هذا الشاشة ( حدث المصنف ) Option Explicit Private Sub Workbook_Activate() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Deactivate() Call ToggleCutCopyAndPaste(True) End Sub Private Sub Workbook_Open() Call ToggleCutCopyAndPaste(False) End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If SaveAsUI = True Then Me.Save Cancel = True End If End Sub اذا كنت تريد عمل زر لتفعيل خاصيه النسخ واللصق مره اخرة نفذ الخطوة الثالته والرابعه لو مش عايز انتقل للخطوة الخامسه مباشرة الخطوه الثالثه :- الخطوة الرابعه :- يتم تحديد الزر بالوقوف عليه ثم الضغط كليك يمين شاهدى الصورة الخطوه الخامسه :- هى حفظ الملف بضيغه Xlsm شاهد الصورة ارجوا ان يكون شرح تطبيق نقل الكود واضح تقبلوا تحياتى

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

ثالثا :- وقت تنفيذ الكود الخاص بــ ComboBox دلوقتى هنتكلم عن أهم طرق وقت تنفيذ الكود واكثرها شيوعا فى الاستخدام 1- Afterupdate :- هنا يتم تنفيذ الكود بمجرد الانتهاء من الادخال فى ComboBox والانتقال الى اى عنصر اخر ( وهو يشبه كثير طريقة Exit) 2-EXit :- هنا يتم تنفيذ الكود بمجرد الخروج من ComboBox والانتقال الى اى عنصر اخر ( يشبه كثير طريقه Afterupdate ) 3-Change :- هنا يتم تنفيذ الكود عند حدوث اى تغيير فى ComboBox 4-DblClick :- هنا يتم تنفيذ الكود عند الضغط دبل كليك بالماوس داخل ComboBox 5-Enter :- هنا يتم تنفيذ الكود بمجرد وضع مؤشر الماوس داخل صندوق ComboBox دلوقتى هنعرف ازاى بيكون كتابه الاعلان على الاكواد الخاصه بالـ ComboBox ( وهى نفس الطريقه لكل عناصر التحكم فى الفورم ) مثال على حدث Afterupdate Private Sub ComboBox1_AfterUpdate() 'هنا بيتم كتابه الكود المراد تنفيذه End Sub السطر الاول هو بداية الاعلان عن الكود فنقوم بكتابة Private Sub ستجد لونها بالكود أزرق ( وهو بداية لاى كود خاص لأى عنصر تحكم داخل الفورم ) ثم نقوم بكتابة اسم العنصر المراد عمل الكود له وهو بمثالنا ComboBox ثم نقوم بكتابة _ ( تكتب من خلال الضغط على Shift+زر الطرح الموجود بالاعلى بجوار زر + ) ثم نقوم بكتابة وقت تنفيذ الكود (اللى هو موضوعنا اليوم) ثم كتابة () قوسين بهذا الشكل وبمجرد الضغط انتر ستجد الكود عمل سطر تانى فيه End sub يوجد طريقه اخرى وهى اتبع الصوره التالية توضح لك قم بالضغط على اى مكان فاضى بالفورم وادخل لمحرر الاكواد الخاص بالفورم

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

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. من فترة وأنا أريد طرح هذا الموضوع ، ولكني بسبب الزهايمر على ما يبدو فإني قد نسيته تماماً .. وذكرني به الأخ الحبيب والمعلم الكبير عادل حنفي فأحببت أن أشارككم هذا البرنامج الصغير في حجمه الكبير في فائدته البرنامج هو Smart Indenter VBA .. يقوم البرنامج بترتيب أسطر الكود بحيث يسهل قراءة الأكواد ..كنوع من التنظيم تنصيب البرنامج سهل للغاية ومش محتاج شرح ... بعد التنصيب ادخل على محرر الأكواد لديك وفي أي موديول مكتوب اعمل كليك يمين ستجد الأداة منصبة في الأوفيس لديك يمكنك اختيار ترتيب الإجراء الفرعي فقط أو الموديول بالكامل أو جميع الأكواد في المصنف مرة واحدة الأداة تعمل مع نظام 32 بت فقط أما 64 بت فلا تعمل للأسف أرجو أن يكون البرنامج مفيد للجميع حمل البرنامج من هنا

الله يبارك فيك يا ياسر ويجعلة في ميزان حسناتك جاري التجربة واحب اشاركك بالبرنامج دة VBA Decompiles and compacts VBA projects ودة الموقع بتاعة http://cpap.com.br/orlando/VBADecompilerMore.asp?IdC=Help لعل فية افادة للزملاء VBADecompiler.rar

اخي جرب المرفق ضرائب جديد2015.rar

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

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

الاخوة الافاضل العزيزين على قلبى اقدم لكم شرح مبسط لداله VLOOKUP للمبتدئين هذا الشرح عملته لاحدى اعضاء المنتدى وحبيت اعمله مشاركه مستقله حتى يعم النفع مثلا عندنا جدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c والجدول هذا بشيت اسمه الطلبه مثلا وحنا الان فى شيت اسمه الفصل مثلا فى الخلية A1 مكتوب اسم الطالب محمد احمد وانا عايز بالخلية B1 ابحث عن اسم الطالب ده بالجدول واجيب جنسيتة كدا تمام داله VLOOKUP هى دالة بحث تتكون من اربع اقسام كالتالى اول شئ نقف بالخلية b1 اللى هنعمل فيها المعادله ونكتب ) VLOOKUP= اولا الخلية اللى هندور عليها بالجدول وهو فى هذا المثال نحتاج الى البحث عن اسم الطالب صح اذن نقول ; VLOOKUP(A1= بس نقف هنا فى فاصله بعد A1 صح دى بتتكتب من شيفت+ حرف ك بالعربى على الكيبورد كدا تمام ثانيا حنا عايزين نبحث عن اسم الطالب ده فين فى اى جدول فى شيت الطلبه فى الجدول من A1:c5 طيب كدا حلو قوى لحد كدا نرجع بقى نكمل المعادله بتاعتنا ونقول ;A1:c5!الطلبه;VLOOKUP(A1= ونقف هنا طبعا ايه اللى انضاف اسم الشيت وهو الطلبه متبوع ! علامة التعجب هذه هتقولى ازاى نكتبها هقول شيفت + رقم 1 اللى فوق جنب حرف ذ بالكيبورد طيب كتبنا اسم الشيت وبعدها ! ثم الجدول بتاعنا وهو A1:C5 ثالثا القيمة اللى احنا عايزنها من الجدول هو احنا بنعمل المعادله دى ليه اصلا من علشان نجيب الجنسية للطالب اللى موجود بالخلية A1 من الجدول اللى بشيت اسمه الطلبه حلو طيب الجدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c طيب احنا اتفقنا انى انا عايز اجيب الجنسية ( عمود الجنسية هنا كم رقمه من الجدول رقمه 2 برافو نرجع بقى نكمل المعادله ;2;A1:c5!الطلبه;VLOOKUP(A1= ايه الزياده هنا هو رقم 2 اللى هو رقم عمود الجنسية بالجدول صح رابعا كتابة 0 أو 1 ( الزيرو يعنى ابحث عن اسم الطالب مطابقه تامه يعنى لو الخلية A1 فىها محمد احمد يروح يدور بالجدول على الاسم ده بالملى ولو لقى اسم طالب محمد احمد على ملوش دعوه بيه لانه مش نفس الاسم صح فية اختلاف عنه وهو على &&& اما 1 فهو البحث عن اسم الطالب بالجدول فممكن يكون موجود محمد احمد على فيجيبة لانه بيبحث عن اى جزء مشابه فلافضل اختيار 0 ) نرجع بقى نكمل المعادله (0;2;A1:c5!الطلبه;VLOOKUP(A1= ايه اللى انضاف جديد هو 0 وقفلنا القوس لان المعادله كدا خلصت بقت باللون الاخضرمنورة كدا تمام يبقى مننساش انى فى اربع اقسام للداله ما بين كل قسم نحط ( ; ) وهى قلب اللغه انجلش وبعدين شيفت وحرف ك اتمنى اكون وفقت فى هذا الشرح المبسط ويعم النفع على الجميع

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

بعد أذن اخويا ياسر اخي يونس تم اصلاح الخطاء في ملفك برجاء الاطلاع اذا ما تم حل المشكلة ام لا new_if_con_Y.rar

وعليكم السلام أخي أبوعبدالله بالبحث السريع في المنتدى ، وجدت الرابط التالي: http://www.officena.net/ib/topic/13380-ارتباط-أكسس-بالأوفيس-وغيره-من-البرامج/#comment-57644 والذي يحتوي على 3 روابط تخص Registry جعفر

وسبقني أخي رمهان للخير . التنسيق عندي هو: "MR"000000 والنتيجة: جعفر 234.قاعدة البيانات1.accdb.zip

انا الان في العمل ولكن : اخبرتك من قبل بأن القائدة الاكبر تكون بتطبيق الفيديو وبالنسبة للكود موجود في المشاركة قبل تعليقك يمكنك ان تنسخ الكود منها

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

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

أخوي عبدالله إحساسي يحسسني بأن فيه شئ آخر تريد تعمله بعدما تحل موضوع نقل البيانات للاكسل شو الخطوة التالية اللي تريد تعملها؟ هل تريد حفظ ملف الاكسل باسم معين؟ هل تريد ان تطبع البيانات او ايش الخطوة اللي تريد تعملها بعد حفظ البيانات في الاكسل؟ لو تعطينا تفصيل اكثر ، ممكن نعطيك جواب متكامل اكثر جعفر

أخي الغالي ياسر فتحي مشكور على مرورك العطر بالموضوع .. وجزيت خيراً على دعائك الطيب المبارك

السلام عليكم أخي الحبيب أبو البراء بدأت الدرر تخرج من أكمامها Smart Indenter من Smart ياسر بارك الله. أعوذ بالله وأعيذكم بالله من الألزهايمر...لأنه مرض أرذل العمر...." لكي لا يعلم من بعد علم شيئا" حيث تفسد الحواس ويختل فيه النظام العقلي والفكري...لا فكر ولا منطق...وقاكم الله منه أخي الحبيب أبو البراء وكل من يقرأ مشاركتي هذه..والسلام عليكم.

ربما كان هذا ما تريد count_in _All salim advenved.zip

السلام عليكم و رحمة الله و بركاته اليك التعديل على الكود حسب حقلي اسم المعرف و الجنس Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الجنس]='" & [الجنس] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا على حسب اسم المعرف و الشهر اذا تنسيق حقل الشهر نص Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]='" & [الشهر] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub و هذا اذا نتسيق حقل الشهر رقم Private Sub أمر147_Click() Dim stDocName As String Dim stLinkCriteria As String stDocName = "FORM2" stLinkCriteria = "[اسمالمصرف]='" & Me![اسمالمصرف] & "' And [الشهر]=" & [الشهر] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_أمر147_Click: Exit Sub Err_أمر147_Click: MsgBox Err.Description Resume Exit_أمر147_Click End Sub بالتوفيق

أخي الكريم قلم الإكسيل إليك الدالة المعرفة التالية تغنيك عن استخدام الجدول الموجود Function dhTranslate(ByVal strIn As String, Optional ByVal strMapIn As String, Optional ByVal strMapOut As String, Optional fCaseSensitive As Boolean = True) As String Dim intI As Integer Dim intPos As Integer Dim strChar As String * 1 Dim strOut As String Dim intMode As Integer strMapIn = Join(Array("أ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "و", "ي")) strMapOut = Join(Array("أ", "ب", "ج", "د", "ه", "و", "ز", "ح", "ط", "ي", "ك", "ل", "م", "ن", "س", "ع", "ف", "ص", "ق", "ر", "ش", "ت", "ث", "خ", "ذ", "ض", "ظ", "غ")) If Len(strMapIn) > 0 Then If fCaseSensitive Then intMode = vbBinaryCompare Else intMode = vbTextCompare End If If Len(strMapOut) > 0 Then strMapOut = Left$(strMapOut & String(Len(strMapIn), _ Right$(strMapOut, 1)), Len(strMapIn)) End If For intI = 1 To Len(strIn) strChar = Mid$(strIn, intI, 1) intPos = InStr(1, strMapIn, strChar, intMode) If intPos > 0 Then strOut = strOut & Mid$(strMapOut, intPos, 1) & " " Else strOut = strOut & strChar & " " End If Next intI End If dhTranslate = strOut End Function الحروف المعكوسة.rar

مبارك

مبرووووووووك يا استاذنا وعقبال الجنه

الاخ الحبيب يحيى حسين الف الف مبرك وانت بالفعل تستحقها تحياتي

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

جرب التعديل بهذا الشكل Function CalcString(S As String) Dim ArrLetters, ArrValues, X() As Byte, SpaceCounter As Long Dim I As Long, Counter As Long, Pos& ArrLetters = Join(Array("أ", "ا", "إ", "ب", "ت", "ث", "ج", "ح", "خ", "د", "ذ", "ر", "ز", "س", "ش", "ص", "ض", "ط", "ظ", "ع", "غ", "ف", "ق", "ك", "ل", "م", "ن", "ه", "ة", "و", "ي")) ArrValues = Array(1, 1, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 26, 27, 28) X = StrConv(S, vbFromUnicode) For I = 0 To UBound(X) Pos = InStr(ArrLetters, Chr(X(I))) If Pos > 0 Then Counter = Counter + ArrValues((Pos - 1) / 2) Next I On Error Resume Next SpaceCounter = SpaceCount(S) If SpaceCounter = 0 Then CalcString = Counter Else CalcString = Counter - SpaceCounter End If End Function Function SpaceCount(ByVal strLine As String) As String Dim Str As String Dim TempCount As Long Dim I As Long Str = Trim(strLine) TempCount = 0 For I = 1 To Len(Str) If Mid(Str, I, 1) = " " Then TempCount = TempCount + 1 Else If TempCount > 0 Then SpaceCount = SpaceCount & " " & TempCount TempCount = 0 End If End If Next I SpaceCount = Mid(SpaceCount, 2) End Function

السلام عليكم. تحية شكر بخط يدي لأساتذتي الكرام..تقبل الله طاعتكم بمناسبة العيد.

السلام عليكم اخي قنديل كما اوضحت سابقا الترقية للجيل الرابع ضرورة و ليس خيار ، و لا اعتقد ان هذه النسخة ينقصها الكثير عن سابقتها بل فيها مميزات اضافية. و هناك اشياء يمكن اضافتها مع الوقت و ليس الاهم هو الشكليات لانها مقدور عليها و يمكن تعديلها مع الوقت و سياتي عليها تعديلات متعددة باذن الله اما النسخة السابقة ، فلا مستقبل لها حيث اوقفت الشركة المنتجة تطويرها فعليا ، لذا مع تطور لانظمة التشغيل لدى المستخدمين او السيرفر سيظهر فيها مشاكل جوهرية لن نستطيع التعامل معها دون دعم فني من الشركة ناهيك عن متطلبات الامن و خلافه و التي ستتأثر بتوقف التطوير. ان الترقية الي الجيل الرابع خيار استراتيجي من ناحية التطوير المستقبلي و الحماية و الامن و هذا امر لا شك فيه و مثلا درجة توافق النسخة الحالية مع اجهزة الهاتف لا يقارن بسابقتها و ان كان مازال يحتاج الي تحسين ، ايضا سرعة الاداء مختلفة الان و هناك تحسينات كثير مثل سحب المرفقات الى صندوق التحميل مثلا. اما العودة للنسخة السابقة فمعناه بالاضافة الي خسران المميزات المستقبلبة و مواكبة التطوير فانه معناه العودة لتاريخ 18 يوليو و خسران مشاركات ما يزيد على شهر ، حيث ان تصميم قواعد البيانات مختلف و به تعديلات كبيرة و لا يمكن التحويل ، فالشركة تقدم سكريبتات للترقية فقط و ليس للعودة للنسخة السابقة , كل ما يمكن هو استعادة النسخة بتاريخ 17 يوليو بحالتها و بياناتها. لم اشأ التطرق الي هذا سابقا ، و لكن الترقية يم تكن نزهة ، و لم يمكننا خلالها الاهتمام كثيرا بالشكليات ، و كل فترة يصلنا تعليق عن النسخة ما بين انتقاد و ما بين التحدث مزاحاً عن ثورة فى المنتدى بالرغم مما تم توضيحه ، بينما التغلب على مشاكل الترقية نفسها تطلب مجهود و ضغط غير غير عادي ربما لم نمر بمثله منذ افتتاح المنتدى فى عام 2003، و تطلب الاستعانة بتدخل دعم فني خارجي من كل من شركة الاستضافة و شركة الاي بي و التنسيق مبينهما و اضطررنا اثناء الفترة الماضية الي توفير نسخ خارجي مستمر و سيرفر اضافى خارجي بالكامل ليتم من خلاله العمل على مايزيد على 10 نسخ احتياطية من ملفات الموقع تم حفظها منذ بدء المشاكل حيث مساحة السيرفر الحالي لا تسمع بذلك كسيرفر سحابي حيث ان الموقع به حالاي ما يقارب التسعين الف ملف مرفوع ، و هذا ليتم مقارنتها و استعادة ما فقد منها حيث تبين ان هناك خطا فى سكريبت الترقية ادي لاخطاء فى تسجيل المرفقات فى قواعد البيانات و آخر أدي لاعادة التسمية لبعض الملفات ، و عند الاصلاح تم تنفيذ سكريبتات لم تعمل بصورة مثالية مما اداي لحذف بيانات اخري و دخلنا فى دوامات متتالية مثلت ضغطاً كبيراً لحرصنا على الحفاظ على كل مشاركة اضافها الاخوة و كان من الممكن الترجع و فقدا بعض المشاركات و بداية الترقية من جديد ، و لكن هذا ايضا لم نقبله. النتسيق مع فريق الدعم للشركة فى امريكا لم يكن بالامر السهل لاختلاف التوقيت فكان اغلب نشاطهم فى توقيت النوم لدينا ، الخلاصة ان اللفترة الماضية كانت فترة عصيبة و تعرضنا فيها لمشاكل عديدة و ضغط عصبي كبير ، و اخر ما كنا نفكر فيه هو لون الخط ام ترجمة كلمة او التنسيق و ان كان قد تم الاستجابة مع كل ذلك لاغلب ما وصلنا من ملاحظات. بالتأكيد تشغيل هذه السكريبتات و استعادة و جذف الملفات كان له تأثير على سرعة الموقع فى حينه و قد حدث مرات عديدة مسح للكاش من قاعدة البيانات مما يؤدي لبطء عند التصفح و كون واجهة المستخدم تحتاج لعمل ريفريش لتعمل جيداٌ ، و اخيرا و لله الحمد تم مؤخرا استعادة كافة الملفات و اصلاح قاعدة البيانات و لذلك تم ارسال البريد الاخير طلبنا للمساعدة فى التحقق من المرفقات للتاكد من اكتمال المهمة بنجاح. و يبدو ان الامور حاليا على ما يرام بالنسبة للمرفقات. خلال هذه الفترة كان اسهل الحلول هو العودة للنسخة السابقة و فقدان المشاركات التي اضيفت بعد الترقية ، و لكن هذا بدا لي كمن يشتري حاضره بمستقبله ، و رفضت هذا الخيار شكلا و موضوعا لثقتي بما سيتحقق من فائدة مع مرور الوقت باذن الله تعالى. النسخة الجديدة تحتاج لنتعود عليها و نتعرف على امكانيتها و التي سيتم اكتشافها مع الوقت و هي فى نفس الوقت نقطة الانطلاق لتحديثات مستمرة من الشركة باذن الله سيكون فيها الكثير من الاضافات، فمن عاصر معنا النسخة السابقة فى بدايتها الي ان استقرت، كان التطوير و الاضافات ملموس مع كل ترقية. بينما السابقة هي نقطة نهاية مستقرة لاستخدام ثابت و لكن تعرضها للمشاكل مستقبلا اقرب لتوقف الدعم و التطوير بصورة نهائية. مثلا اي مشكلة تواجه مستخدم نتيجة انتقاله لويندوز 10 او ما سيليه او تحديث لاصدار متصفح مثل الاكسبلورر او جوجل او حتى صدور متصفح جديد مثل ايدج ستكون الشركة ملزمة بحلها لهذه النسخة اما السابقة فقد لا نجد لها حلاً لان تطوير النسخة قد توقف .ايضا عندما طرحنا بعض التعديلات للتغلب علي مشاكل اكتشفناها بالنسخة السابقة كانت الاجابة ببساطة نعتذر فقد توقف تطوير الجيل الثالث. اذا هناك ملاحظات محددة يرجى اضافتها فى الموضوع المخصص لذلك ملاحظات النسخة الجديدة - الاصدار الثاني لنعمل على تعديلها تباعا باذن الله او التواصل مع الشركة بشأن اضافتها فى الترقيات القادمة باذن لله

ابن مصر..أستاذي القدير..بارك الله فيه و في أمثاله

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

أخي الحبيب تفضل أيضا ملف من روائع أستاذنا الكبير / عبد الله باقشير بارك الله فيه وجعل أعماله في ميزان حسناته فورم لحفظ نسخة من الملف.rar

وعليكم السلام ورحمة الله وبركاته نعم يمكن ذلك وجدت لك مثالا بهذا الخصوص فانظر اليه photos.rar