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

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

يمكن ان يكون ما تريده البحث عن التكرار 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

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

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

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى 1_( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال_ الاستاذ/ حماده عمر 2_اول لعبة اقوم بانجازها على فورم الاكسل_ الاستاذ / عبدالله باقشير 3_لعبة اكسل_ الاستاذ / مجدى يونس 4_لعبة تركيب صورة للاطفال_ الاستاذ / مجدى يونس 5_برنامج بالاكسل لحل لعبة سودوكو_ الاستاذ / عبدالله المجرب 6_لعبة ( الكلمات المتقاطعة )_ الاستاذ / جمال عبد السميع 7_لعبة Snake مبرمجة على الاكسل_ الاستاذ / شوقى ربيع 8_كل مدة لعبة_ الاستاذ / ابو سما 9_لعبة طريفة احببت ان اشارككم اياها_ الاستاذ / عبدالله المجرب 10_كل مدة لعبة 2_ الاستاذ / ابو سما 11_مكتبة الموقع - لعبة تعليمية: تعليم الحروف الأبجدية للأطفال_ الاستاذ / اكرم الغامدى 12_لعبة تخمين الارقام_ الاستاذ / عبدالله باقشير 13_حل لعبة السدوكو عن طريق الاكواد_ الاستاذ / محمد دسوقى 14_لعبة خمن عمري (Guess my Age) بالإكسل_ الاستاذ / اسامه حسانين 15_لعبة ترتيب اجزاء الصورة_ الاستاذ / عبدالله باقشير 16_لعبة ترتيب اجزاء الصورة هدية للاخ مجدي يونس (بامكانية تغيير الصورة في فولدر الملف)_ الاستاذ / عبدالله باقشير 17_سبورة احرف متحركة_ الاستاذ / عبدالله باقشير 18_تحريك حرف اوكلمة الى المكان المطلوب_ الاستاذ / مجدى يونس 19_العاب مسليه المجموعه الثانيهExcel Games_ الاستاذ / احمد غانم 20_بالأكسل....بعض الألعاب المسليه_ الاستاذ / احمد غانم 21_من ألعاب الأكسيل_ الاستاذ / ابو سارة 1973 22_العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !!_ الاستاذ / حماده عمر 23_لعبة تخمين الرقم الذي اخترته_ الاستاذ / محمد صالح 24_لعبة الصورة المستخبية_ الاستاذ / مجدى يونس 25_لعبة الصورة والظل_ الاستاذ / مجدى يونس 26_مع المعادلات انس تعقيدات الكود ( ألعب وتعلم السودوكو ) هديه خاصه جدا لمعلمى الاستاذ // جمال عبد السميع_ الاستاذ / ابو اياد ( الاسيوطى ) 27_لعبتان معمولتان بالاكواد على الاكسل_ الاستاذ / عبدالله باقشير

بسم الله الرحمن الرحيم فكرت كثيرا كيف يمكنني ان اشكر هذا المنتدى الرائع بمشرفيه واعضائه وما السبيل لاعبر عن شكري وامتناني للمهندس احمد (ابن مصر) الذي ساعدني وساعد الكثير في هذا المنتدى دون تردد وعن علم ومعرفة وابداع لما يقدمه فما وجدت سوى ان اكتب له هنا كلمة شكر من القلب حيث ان الرسول صلى الله عليه وسلم يقول «لَا يَشْكُرُ اللَّهَ مَنْ لَا يَشْكُرُ النَّاسَ» شكرا استاذ احمد وبارك الله بعلمك وعملك ادعوا الله ان يجعل ما تقدمه من خير للجميع تطبيق للحديث النبوي الشريف : "إذا مات ابن آدم انقطع عمله إلا من ثلاث صدقة جارية أو علم ينتفع به أو ولد صالح يدعو له"

شكرا لك أخي الكريم ياسر على جهودك و بارك الله فيكم جميعا

وعليكم السلام في الشيت الأخير بأمكانك إظهار العمود E أو إخفاؤه تفضل جرب المرفق بطاقة التخصص1.rar

حد جاب اسمي تفضل سيدي الكريم بس للعلم ، المنتدى فيه الكثير من الشباب اللي فيهم الخير والبركة غيري جعفر 235.الورشة.accdb.zip

والله ليك وحشه يا غالى اتمنى ان تكون بخير وصحه وعافيه وان تكون بيننا فى القريب العاجل

ما شاء الله ، 6 مشاركات وانتوا تتكلموا عني ، وانا مافي الدنيا خلوني اجيب بخور اتبخر فيه وشاكر جميل كلماتك أخي ابوعارف جعفر

شكرا لك عزيزنا المهندس القدير بارك الله فيك ووسع عليك وحفظك واسعدك دنيا وآخرة

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

اخى ياسر شكرا على كل جديد ومفيد .. انت دائما مبدع

أخي الكريم جرب الكود التالي يقوم بقسمة الخلية في العمود H على الخلية في العمود E .. والنتيجة في الخلية في العمود I كما طلبت في المشاركة الأولى Sub MyTest() Dim Cell As Range For Each Cell In Range("I1:I" & Cells(Rows.Count, "E").End(xlUp).Row) Cell.Value = Cell.Offset(, -1) / Cell.Offset(, -4) Next End Sub تعلم.rar

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته الأستاذ طارق ليك الحق تقول up up بس ما فكرتش ليه لحد دلوقتى مفيش ردود ؟! المهم جرب الكود ده ومتنساش ان حماية الملفات قاصرة وأى ناشئ اكسل يدوب لسه بيعرف اكسل يقدر يفقع لك الملف الكود يوضع فى حدث الورقة من خلال هذا الكود تستطيع تعديل البيانات فى النطاقين ("B7:B106,F7:F106") اذا كان التاريخ فى النطاقين ("C7:C106,G7:G106") أكبر أو يساوى تاريخ اليوم واذا كان التاريخ فى النطاقين ("C7:C106,G7:G106") أقل من تاريخ اليوم لن تستطيع التعديل بالا بادخال الرقم السرى الموجود بالكود 123 Private Sub Worksheet_Change(ByVal Target As Range) ' Protect Range from change After specific Date ' By Mokhtar 8/10/2015 Dim pwd As String: pwd = 123 If Not Application.Intersect(Target, Range("B7:B106,F7:F106")) Is Nothing Then If Target.Offset(, 1).Value < CVDate(Date) Then If Application.InputBox("برجاءإدخال كلمةالمرور لتعديل البيانات", "تصريح تعديل بيانات", "***") <> pwd Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True MsgBox "عفواً... ليس لديكم الصلاحية لتعديل البيانات" Else Exit Sub End If End If End If End Sub تحياتى عدم السماح للمستخدم بتعديل ائ بيانات 2 .rar

برجاء الاطلاع على الفيديو المرفق Video_2015-10-04_155307.rar

اخي قلم الاكسيل حل مشكلتك في تحميل الملف الموجود بالموقع الاول وهو ADD in سارفقة لك ومعادلة الجمع LNSUM والضرب LNPRODUCT Karatsuba.rar

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

ألف مبروك يا استاذنا بجد حاجه جميله جدا ؟؟ وحضرتك تستحقها عن جداره وهذا رابط لمن يريد الاطلاع أكثر https://mvp.microsoft.com/en-US/Overview

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

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

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

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