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

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

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

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

السلام عليكم و رحمة الله و بركاته تفضل اخي حسين التعديل حسب ما طلبت ، ممكن تبديل بين كمية و المبلغ من خلال قائمة المنسدلة اوعند ضغط على مربع "المبلغ المدفوع" او ضغط على احد ازرار وجبات برنامج مطعم (4).rar

السلام عليكم أستاذ علي بعد ما اخذت غفوة ، لاحظت ان الكود اللي اعطيتك مشابه للكود اللي انت وضعته وبعد البحث ، اتضح اني في التقرير rpt_Absent_Late ، عملت كود علشان اتصيد هذا الخطأ ، ولكني لم افعّله في نهاية التقرير ، بدلا عن: If Err.Number = 1 Then 'Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If اكتب If Err.Number = 13 Then Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If جعفر

جرب اخ احمد التالي : من خصائص الحقل اثناء عرض تصميم الجدول ومن الخاصية تنسيق "MR0"00000 بالتوفيق

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

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

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

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

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

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

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

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

السلام عليكم و رحمة الله و بركاته اليك التعديل على الكود حسب حقلي اسم المعرف و الجنس 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 ramhan(xinput As String) As String Dim i As Integer, xsum As String, xletter As String xletter = "ابتثجحخدذرزسشصضطظعغفقكلمنهوي" xinput = Replace(xinput, "أ", "ا") xinput = Replace(xinput, "إ", "ا") xinput = Replace(xinput, "ة", "ه") For i = 1 To Len(xinput) xsum = xsum & mid("يوهنملكقفغعظطضصشسزرذدخحجثتبا", InStr(1, xletter, mid(xinput, i, 1)), 1) Next i ramhan = xsum End Function بالتوفيق

مبارك

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

مبروك يا أحب الناس

الف الف مبروك ومن نجاج الى نجاح وتوفيق

الف الف الف مبروك مزيد من التقدم والازدهار . ونفع الله بك الامة ان شاء الله

عرفت هذه المعلومة من زميل ، و لم اكن اعرفها سابقا و يبدو أن الاوفيس مازال يخبىء لنا الكثير فى دهاليزه عند كتابة تاريخ في نهاية السطر قد يأتي منقسما فيأتي اليوم فى سطر و باقي الشهر و السنة فى الشهر التالي ، و هذا و ان كان مقبولا ، الا انه ليس وضعا مثاليا و الحل المعتاد قد يكون التغيير فى المسافات او المحاذاة او حجم الخط او خليط بينها و لكن الحل السليم هو اختيار المسافة التالية لمحل الفصل ( بعد ال 28 فى هذه الحالة) ثم ضغط مايلي Ctr+Shift+Space فيصبح الوضع كالتالي:

الاخوه الاعزاء الموضوع الذي اتقدم به اليوم هو كيفية عمل نسخه احتياطيه للملف في اكثر من درايفر( c,d f,e) الرجاء قراءة الشرح قبل تحميل المرفق اولا: يوجد بالمرفق فولدرين تحت اسم (ahmad 1,ahmad 2) بالاضافه للملف الاصلي نظرا لانه عند تنزيل الويندوز في بعض الاحيان تختلف تقسيمات الدرايفرز فانني اخترت تنفيذ النسخه الاحتياطه في درايفر c , d اما من لديه اربع درايفرات فيمكنه عمل نسخ احتياطيه اخرى في درايفر f , e بسهوله ثانيا: الية عمل النسخه كلاتي 1 حفظ الملف الاصلي 2 عمل نسخه احتياطيه في كل من درايفر c ,d وهذا طبعا عند اختيار yes اما عند اختيار no فانه سيعمل فقط على حفظ الملف الاصلي فقط دون عمل تحديث للنسخ الاحتياطيه ثالثا: المطلوب حتى يتم تنفيذ العمل بالشكل الصحيح 1 نقل فولدر ahmad 1 الى درايفر c 2 نقل فولدر ahmad 2 الى درايفر d 3 نقل الملف الاصلي الى اي مكان ترغب به رابعا: طريقة التنفيذ 1 فتح الملف الاصلي المرفق 2 النقر على زر النسخه الاحتياطيه والانتظار قليلا حتي يتم التنفيذ ويتم غلق الملف تلقائيا 3 الذهاب الى فولدر ahmad 1,ahmad 2 ستجد الملف موجود هناك 4 العوده الى الملف الاصلي ومحاولة كتاب اي شئ به ومن ثم النقر على الزر مره اخرى ( اختياري) 5 الذهاب الى فولدر ahmad 1,ahmad 2 ستجد التغيرات التي تمت في الملف الاصلي هي نفسها الموجوده في النسخ الاحتياطيه خامسا : محظورات الاستخدام 1 يجب دائما استخدام الملف الاصلي ولا يمكن باي حال استخدام ملفات النسخ الاحتياطيه كملف اصلي الا في الحالات التاليه: أ في حالة فقدان الملف الاصلي واردت ان تستخدم النسخ الاحتياطيه فقم بفتح ملف النسخه وقم بعمل حفظ باسم الى اي مكان تريده وفي هذه الحاله يعتبر الملف الذي قمت بعمل حفظ باسم له هو الملف الاصلي الذي ستعمل به ب كما يمكن ايضا استخدام ملف النسخ كملف رئيسي ولكن دون استخدام زر الامر (نسخه احتياطيه)والاكتفاء فقط بحفظ الملف لانه بطبيعة الحال لا يمكن عمل نسخه احتياطيه لملف النسخه نفسها سادسا : التغييرات المسموح بها 1 يمكنك تغيير اسماء الفولدرز الى اي اسم تريده ولكن بشرط ان تغير الاسم الموجود بالكود نفسه 2 وحتى ان اردت ان تضع الفولدر داخل فولدر فيمكن هذا ولكن ايضا بشرط ان يتم نقل path ووضعه كما هو بالكود بين علامات التنصيص سابعا : مبروك عليكم حلول عيد الفطر السعيد( وكل عام وانتم بخير) نسخه احتياطيه.rar

بسم الله الرحمن الرحيم مرفق لكم بفضل الله تعالى برنامج شؤون الطلاب والعاملين والكنترول ) برنامج الشؤون 4 ( فى برنامج واحد ولجميع الصفوف وعلى أى قرار وزارى أيا كان رقمه سواء كان القرار 460 أو القرار 313 أو أى قرار سيصدر مستقبلا لأن هناك خاصية يمكن من خلالها التعديل على القرار الوزارى جديد الاصدار 1) شؤون الكنترول لجميع الصفوف فى برنامج واحد بحجم صغير بسبب الاعتماد على المعادلات لا الماكرو أو الأكواد ويحتوى الاصدار على هذه المشتملات : * كشف أعمال السنة * كشف الناجحين والراسبين من خلال الاختيار من القائمة المنسدلة * صفحة الأوائل على مستوى الصف على حسب المجموع والسن * صفحة الضعاف العشرين على مستوى الصف لمعالجتهم * صفحة المتفوقين والضعاف فى جميع المواد الدراسية لجميع الصفوف * كشف النسبة والترتيب العام وعلى كل مادة لجميع المواد * شهادات بتصميمات مختلفة * إحصاء عام وشامل لكل من المدرسة والادارة * كشوف اللجان والمنادة 2) شؤون الطلاب لجميع الصفوف بأشكال مختلفة عن الاصدارات السابقة شاملة الاتى : * قاعدة بيانات تفصيلية الية المدخلات شاملة الاسم / والنوع / الرقم القومى / تاريخ الميلاد / السن / الفصل / حالة القيد ...............ز * كشف أعمال السنة قابل للتعديل * قوائم الفصل من خلال اختيار الفصل من القائمة المنسدلة * بيان حالة قيد تلميذ 3 ) شؤون إدارية شاملة الاتى : * قاعدة بيانات تفصيلية لجميع العاملين * إحصاء العاملين على حسب الدرجة والمواد * إحصاء عام وشامل لكل من التلاميذ والعاملين والفصول * نماذج غدارية هامة كالغياب اليومى والرواد ........... لتحميل البرنامج اضغط هنا أسأل الله تعالى أن يكون هذا العمل خالصا لوجهه تعالى وأن يغفر لنا ولكم إنه هو الغفور الرحيم

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

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