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

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

يا أستاذ ياسر أنا مش فاكر الباسورد ومش عارف هو كبير ولا صغير وأرقام بس ولا أرقام وحروف أنا مش فاكره فعلا بس ساعات باعمله أرقام وحروف وعلى فكرة جربت برنامج EXCEL PASSWORD RECOVERY وقعد حوالي 3 أيام وماوصلش لحاجة والبرنامج بيتم تفعيله بسهولة على ويندوز 10 بس مصطفى كامل الله يرحمه قال ( لا حياة مع اليأس ولا يأس مع من تنادي) وسعد زغلول قال ( مفيش فايدة ) أنا بقى هاقول ( إلحقووووووووووووووووووووووووووووووووني )

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

وده اجتهدت وغيرت فيه بما يتوافق مع احتياجي يمكنك الاستعانة بما يخدم عملك وغير ما يلزم Mov Details Husary.rar

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

أخى عبدالعزيز الحمد لله ان كل شىء تمام أخى ياسر كل الشروحات اللى فى الموضوع ده تعمل على النسخه 2010اللتى تم وضع رابط لها باذن الله هذا والله اعلم اما بالنسبه ل vb.net فانا منزل النسخه 2012 ولم يصادفنى اى اخطاء فى التسطيب وكمان بها بعض التحسينات والاضافات اللتى لم الحظ منها غير شىء بسيط لمتابعة درس بسيط وهو سهولة اعداد البرنامج الذى نعدى ليعمل على اى بيئه سواء 32 او 64 بت جزاكم الله كل خير احبابى فى الله ما هذا الجمال ابانا الغالى ابو يوسف خطك قمه فى الجمال وكلمات فى منتهى الروعه جزاك الله كل خير وبارك الله لنا فيك ولك فى اهلك ومالك وكل من تحب لا تطيل غيابك عنا ابانا الغالى تقبل تحياتى

استبدل الكود بهذا (لا يسمح بتحديد الخلايا التي تحتوي غلى معادلة- لعدم العيث بها عن طريق الخطأ) Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row >= 5 And Target.Column <= 11 And Target.Count = 1 Then _ Target.Offset(0, 1).Select If Target.Column = 9 Then Target.Offset(0, 2).Select If Target.Column = 11 Then Target.Offset(1, -9).Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 10 Then If Target.Row >= 4 Or Target.Row <= 15 Then Target.Offset(0, 1).Select End If End Sub

أخي الغالي ياسر العربي .. مالك قافش ليه .. Take It Easy يا عزيزي لا تلقيح ولا تنقيح .. ولا تأنيب ولا أنابيب .. لا يوجد أي من هذه الأفكار التي تدور برأسك وافر تقديري واحترامي

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

اخي الكريم يرجى توضيح الحماية علي ايه بالتحديد اذا كانت على محرر الاكواد او علي اوراق العمل فدي امرها سهل اما اذا كانت على الملف من الخارج فهتبقي صعبة علينا الا اذا كان الملف بامتداد xls مثلا ممكن افك حمايته ولكن المساحة تشترط ان تكون صغيرة وانت ذكرت 40 ميجا؟!!! وضح المطلوب واي حماية؟؟ وهذه مواضيع فك الحماية لاوراق العمل محرر الاكواد http://www.officena.net/ib/topic/66742-فك-حماية-محرر-الاكواد-وحماية-اوراق-العمل/ http://www.officena.net/ib/topic/66951-فك-حماية-محرر-الاكواد-xlsm-xlsb-بدون-تحويل-الملفات-ل-xls/ دي ثقة كبيرة حبيبي الغالي عبد العزيز اعتز بها ومن الممكن ان نجد من هو افضل مني في مجال تكسير وضرب ملفات الاكسيل تقبل فائق احترامي

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

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

القديم عفا عليه الزمن وإن لم نواكب الجديد الآن فمتى نواكبه ؟! هذا مجرد رأي وننتظر بقية الآراء من إخواننا الكرام

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

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

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

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

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

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

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

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

جزاكم الله خير الجزاء للمتابعه والردود الكريمه فعلا التصميم بيظهر في اختيارات 2007 شكرا جدا

السّلام عليكم و رحمة الله و بركاته هذا ما فهمته .. IF YOU TRUST ...SELECT OK إذا كنت تثق في ....... إضغط على OK لن تخسر شيء أخي الغالي إذا جرّبت الضغط على OK .. لترى ما نتيجة ذلك .. و بعدها يحلها ألف حلاّل إن شاء الله خالص إحتراماتي

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

أخي الحبيب / ياسر بارك الله فيك وجعلني عند حسن ظنكم أعذرني ، بل اعذروني جميعا للإنقطاع أنا متابع خفيف فقط هذه الأيام لانشغالي شبه الدائم لو تيسر وقت أدخل طبعا وأشارك

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

وعليكم السلام و رحمة الله و بركاته ... If DCount("*", "tp") = 0 Or DLast("[id]", "tp") = 11 Then txt1 = 1 Else txt1 = DLast("[id]", "tp") + 2 txt1.Requery End If . . . كرار ...

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

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

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

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

فرجت ياعم تتح وطلع الملف زى ما انت عاوز اشتغل يالا وورينا همتك العاليه ايوه كده وسع وسع ابو اسيل وصل سمع هس الميكرفون معاك ياريس حبيبى يا ابو اسيل

أشكر الجميع على الإهتمام الباسورد على الملف من الخارج يعني باسورد لفتح الملف وليس على الصفحات والمطلوب فك الباسورد على الملف لكي أتمكن من فتحه

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

أرجو إرفاق رسالة الخطأ بالضغط على زر Debug ستجدها مظلله باللون الاصفر

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

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

حياكم الله اخواني اختنا الكريمه جربي انشاء نموذج بإستخدام معالج النماذج في اكسس 2013 ولا حظي التنسيقات التي ستظهر لك جربي ووافينا بالنتيجة .

الثناء والتقدير موصول لكل أعضاء المنتدى الرائع

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

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

هذه مشاركتي اكيد الاخوان افضل مني افترضت العمود من B4 الى B28 اريد ان اقلب النتيجة في العمود C هذا ما جادت به قريحتي Sub Try() Dim xx, dd dd = 28 For xx = 4 To 28 Cells(xx, 3) = Cells(dd, 2) dd = dd - 1 Next End Sub

سيدي الفاضل لما تنقص رقم صغير من رقم كبير ، فلابد وان تكون النتيجة بالسالب ، وهذا ما يظهر لك بإشارة - وجربت المرفق ، ولم يحذف السجل ، ولكني لاحظت ان ترتيب الانتقال من حقل الى آخر غير صحيح ، لاحظ الصورة ، فالارقام الحمراء هي التسلسل ، والحقل m_id مثلا ، بدل ان تكون قيمته 1 ، فانها 3 !! . اذا لم افهم طلبك ، رجاء التوضيح اكثر جعفر

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

السلام عليكم ورحمة الله وبركاته واسعد الله صباحكم جميعا الأخ / rasboten اكرر شكري لك ان كنت اول من رد جزاك الله خيرا الأخ / عبد العزيز أكرر شكري لك أن صبرت علي وردت أكثر من مرة واستفدت منك جزاك الله خيرا الأخ / ابو بسملة شكرا لك ان مررت وسألت السؤال الذي كنت احرج ان اسئلة عن علامة الملاحظة فقد حدث معي مثل ماحدث لك ولم أشأ ان اسئل وكنت كلما اريد أن أضع العلامة ابحث عنها في اي كود وانسخها وتعلمت منك ايضا وضعها من ذر حرف الطاء وشكرا ايضا على نصيحتك بمراجعة اليوزر فورمات المتعددة عندي ومراجعة اكوادها لمعرفة الخطأ وشكرا لحسن ظنك ولكن الواقع غير ذلك فمحتاج مني تفرغ شوية لتعلم اليوزرفورم واكوادها الأخ / أبو البراء جزاك الله خيرا على مرورك واستفادتنا جميعا منك والحمد لله وجدت حل المشكلة وهي انني وضعت في حدث الورقة كود عند الضغط على عمود معين يظهر اليوزر فورم ونسخت كامل الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then On Error GoTo 1 With UFormChang .kh_SetAddrss "دليل الحسابات", "a3:c3" .Show End With 1: If Err Then MsgBox "تاكد من صحة ادخال المتغيرات الاساسية في : " & vbCr & vbCr & "kh_SetAddrss", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "استخدام خاطىء" On Error GoTo 0 End If فعند الضغط على العمود 3 ( c ) لا يعمل الفورم إذا كانت خاصية العمل داخل ورقة العمل اثناء ظهور اليوزر فورم شغالة أما عند إظهار اليوزر فورم بالطريقة العادية يعمل الفورم تمام لا أدري لماذا ؟؟؟؟ مع اني نسخت الكود كله ووضعته في حدث الورقة كما اوضحت الحمد لله وصلنا لهذه النتيجة وان كان أحد عنده تعديل ليعمل الفورم عند الضغط على العمود المحدد فجزاه الله خيرا ولعل غيري يستفاد منه . تقبلوا وافر تقديري واحترامي لكم جميعا

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

أخي الكريم محمد ماهر ضع التاريخ الذي سيتم احتساب تاريخ الميلاد على أساسه في أي خلية وليكن E1 وروح لصندوق الاسم اللي على شمال شريط المعادلات .. وسمي الخلية دي Start_Date واضغط إنتر من لوحة المفاتيح لتأكيد اسم الخلية ضع تاريخ ميلاد الطالب في الخلية A1 مثلاً ثم ضع المعادلة التالية في الخلية B1 لحساب الأيام =IF(A1="","",IF(DAY(Start_Date)<DAY(A1),DAY(Start_Date)+30-DAY(A1),DAY(Start_Date)-DAY(A1))) ثم ضع المعادلة التالية في الخلية C1 لحساب الشهور =IF(A1="","",IF(A1>1,DATEDIF(A1,Start_Date,"ym"),"")) ثم ضع المعادلة التالية في الخلية D1 لحساب السنوات =IF(A1="","",IF(A1>1,DATEDIF(A1,Start_Date,"y"),"")) إذا لم تعمل معك المعادلات استبدل الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

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

أحبائى وأعزائى وإخوانى أعضاء وأساتذة المنتدى العظيم الذى أكن له كل التقدير والإحترام فالفعل هذا المنتدى العظيم إستفدت منه الكثير والكثير وإلى الأن أقدم لكم اليوم كود إدراج نص متحرك داخل الإكسيل ومش عارف إن كان موجود من قبل أم لا ليستفاد الجميع يوضع الكود داخل موديول مرفق مثال Sub Tester1() Dim sp As String Dim sTxt As String Dim x As Integer, y As Integer Dim Start, delay sTxt = "مرحبا بكم فى هذا المنتدى العظيم والمفضل لدى الجميع" For y = 1 To 15 '15 Loops through the scrolling For x = 1 To 30 'Index number of times Start = Timer 'Set start to internal timer delay = Start + 0.15 'Set delay for .15 secs Do While Timer < delay 'Do the display routine [D6] = Space(x) & sTxt 'Show 1 str @ a time DoEvents 'do there things Loop 'Loop until delay is up DoEvents Start = Timer 'and reset the timer delay = Start + 0.15 'and the delay Next x 'Show the next str Next y 'Do this again - 15 [D6] = "" 'Reset End Sub Insert Moving Text.rar