إنشاء شاشة إفتتاحية متحركة | شريط تقدم و نص متحرك | Splash Screen VBA
HTML-код
- Опубликовано: 24 дек 2022
- لكي تجعل برنامجك علي الاكسيل يبدو إحترافي لابد من تصميم شاشه إفتتاحيه إحترافية تكتب عليها معلوماتك الشخصيه ووسائل التواصل واللوجو الخاص بك و عمل نص متحرك جذاب يجعل الاخرين يعجبون ببرنامجك او تطبيقك.
لذلك انت تحتاج ال Excel VBA Splash Screen احترافية حتي تعطي انطباع بان ما بداخل التطبيق هو احترافي ايضا و يستحق التجربة.
كيف تصمم Splash Screen لتطبيقك على الاكسل
كيفية عمل نص متحرك في اليوزرفورم على الاكسل و تحريك نص على اليوزرفورم. عمل نص متحرك فى الفيجوال بيسك.
Excel VBA - progress bar
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
لطلب البرنامج الموجود بالفيديو 👇
00201114315018
-----------------------------------------------
كود اخفاء الإطار الخارجى لليوزرفورم
www.mediafire.com/file/gc6t8c...
--------------------------------------------------------------
من فضلك ادعمنا بالاشتراك من هنا 👇
القناة الاولى
/ @alhassanabuelkhair
قناتنا الثانية
/ @code7programming
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
برجاء دعمنا بـ
اشتراك فى القناة Subscribe
لايك للفيديو Like
مشاركة الفيديو Share
#شاشة_إفتتاحية
#splash_screen
#الحسن_أبوالخير
#excel_vba
#اكسيل
ابداع فكري خطير
تمكين الأفكار في جميع التصاميم الجميلة
بارك الله فيك
شكراً جزيلا لك اتساذ عبدالله
بارك الله فيكم
ممتاز جدا ما تقدمه استاذ
نرجو ان لا تتغيب عنا كثيرا
شكراً جزيلاً لحضرتك استاذ محمد
حاضر من عنيا
درس قيم وشرح ممتاز جدا ، ربنا يزيدك من فضله ، الف الف شكر لحضرتك
شكرا جزيلا لك 🌹🙏🙏
اللهم آمين نحن و اياكم 🤲
جزاك الله خير اخي الحسن ونفعنا بك
و جزاكم الله خيرا
ما شاء الله تبارك الرحمن..
درس جميل جدا
جزاك الله كل خير
الله يعطيك العافيه 🌹🙏 و جزاكم الله خيرا
مبدع الأستاذ الحسن. جزاك الله عنا كل خير
الله يعطيك العافية
بارك الله فيك ، ادعو لك بالصحة و العافية
بارك الله فيكم
الله يعطيك العافية
هذا ماتعودنا عليه من الأستاذ حسن ... ربي يحفظك يااارب
الله يعطيك العافية بارك الله فيكم استاذ عبدالله
جزاك الله خير شرح جميل جداً
و جزاكم الله خيرا على هذا الكلام الطيب
بارك الله فيك اخي ابو الحسن
و بارك الله فيكم وجزاكم الله خيرا
الحسن ابو الخير ماشاء الله انت شخص مبدع
وجزاك الله كل الخير
شكرا جزيلا لك استاذ أسامة
شكرا جزيلا لك اخي على هذه المجهودات الرائعة . أخوك من الجزائر
العفو 🌹🙏🙏
بارك الله فيكم
شكرا جزيلا على هذه المجهودات اخي الكريم
العفو بارك الله فيكم
جميل جدا الله ينور عليك استاذ حسن🌹👍
شكرا جزيلا لك استاذ تامر
من بعض ما عندكم استاذنا الفاضل 🌹🙏🙏
@@alhassanabuelkhair ده تواضع العلماء ربنا يحفظكم جميعا
جزاك الله خيرا
و جزاكم الله كل خير
رائع جدا.
الرب يوفقك
شكرا جزيلا لك 🌹🙏🙏
اللهم آمين نحن و اياكم 🤲
شكرا على كل فيديواستفدنا منه
العفو 🌹🙏🙏
بارك الله فيكم وجزاكم الله خيرا
جزاكم الله خيرا.
و جزاكم الله خيرأً استاذ وائل
شكرا لك قمت بإنشاء برنامج كامل وفقا لكل خطواتك تعلمت منك الكثير واصل استاذي الفاضل فلك كل الاحترام والتقدير على هذه المجهودات والطريقة الأكثر من رائعة في الشرح
ممكن اضافة كود لحماية نسخ او نقل البرنامج إلى جهاز اخر
السلام عليكم ودعواتنا لحضرتك تكون بخير دائما وترجع بالسلامه .. ننتظر جديدك دائما وياليت يكون بعيد عن موضوع شئون الموظفين وتتحفنا بحاجة جديده مختلفه كرما من حضرتك
بارك الله فيك
و بارك الله فيكم
تسلم إيدك ممتااااز
الله يعطيك العافيه 🌹🙏🙏
عمل ممتاز
شكراً جزيلاً لحضرتك
منتظرينك بكل الحب باشمهندس حسن
شكرا جزيلا لك 🌹🙏🙏
في انتظار ابداعك يا كبير
شكرا جزيلا لك 🌹🙏🙏
مميز دائما
😇
الله يعطيك العافيه 🌹🙏🙏
شكرا لحضرتك
العفو 🌹🙏🙏
ربي يحفظك أخي
ممتاز أخي الحبيب
الله يعطيك العافية
الله يبارك فيك ياغالي
الله يعطيك العافيه 🌹🙏🙏
شكراً يا استاذ
العفو 🌹🙏🙏
ابداع يا استاذ حسن
الله يعطيك العافيه 🌹🙏🙏
الله ينور عليك يا باشمهندس الحسن ابو الخير .. يا ريت بعد اذنك بعد كل فيدو يا ريت ترفق ملف العمل حتى يتثنى للجميع الاستفادة منه . وجزاك الله كل خير
الله يعطيك العافيه 🌹🙏
شكرا أخي
العفو اخى الكريم
السلام عليكم ورحمة الله
شرح بسيط وسهل
نرجو من سيادتكم شرح طريقة عمل تقرير من اكثر من ورقة عمل داخل الفرم وشكرآ
منتظرين
شكرا جزيلا لك 🌹🙏🙏
شكرا استاذ
والله اني بستوعب منك خيرات الله
بس والله زعلان من المتابعين لايدعمون حرام اللي يشاهد يدعم من بعد اذنهم الله يجزيكم الخير والله الاستاذ يستاهل والله❤
شكراً جزيلاً لحضرتك
الله يعطيك ألف عافية
انا ممتن جداً بتعليقك
ماشاءالله يا بشمهندس ممكن تعمل فيديو لبرنامج محل موبايلات
شكرا لك
العفو 🌹🙏🙏
بارك الله فيكم
شرح جميل جزاك الله خيرا
المرجوا الإجابة على الاستفسار
حل مشكلة عدم ظهور الدالة match في Excel مع العلم لدي اوفيس 2019 و نفس المشكلة في اوفيس 2007
Match=equiv
شكرٱ جزيلٱ أستاذنا الفاضل
العفو بارك الله فيكم
السلام عليكم استاذ
ممكن كيفية طريقة حساب الوزن من خلال العمر والطول في الاكسل ( دالة )
مشاء الله تبارك الرحمن مبدع ديما
عندى سؤال بسيط .متاح عندى اسم مستخدم وكلمة المرور
هل ينفع إذا مستخدم محمود دخل شيت اسمة يكتب فى خلية B1. ولو المستخدم محمد دخل شيت
اسمة يكتب فى B2 ..
ممكن عمل كيفية عمل الحساب اليدوي في الاقساط
شكرا استاذ حسن على هذه الافكار الرائعة . وارجوا ان تساعدني بحل مشكلتي عندما حاولت تطبيق هذه الشاشة الافتتاحية في جهازي حيث لدي نسخة اوفيس 365 وعندما نسخت الكود يظهر باللون الاحمر في الموجل رقم ١ ارجوا مساعدتي للتجاوز هذه المشكلة .
نفس مشكلتي اوفس 2021
السلام عليكم و رحمة الله
اشكرك و احيك على اسلوبك في الشرح و السرد وفقك الله .... استاذ الحسن
سؤال
ليه الجزء الاول من الكود مش شغال و بيظهر عندي باللون الاحمر ؟....... مع خالص الشكر و التقدير
و عليكم السلام ورحمه الله وبركاته
اى جزء من فضلك
تقصد كود اخفاء الإطار
@@alhassanabuelkhair بالظبط كود اخفاء الاطار
نفس المشكلة تظهر عندي في النصف الأول من الكود
@@user-di6bw6xg8e (فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج
مرحبا أستاذ و شكرا على الدروس التي تقدمها
عند تابع المراحل لم يتم قبول المتغير Sleep نظرتي و ان الاكسل الذي تشتغل عليه فرنسي
ارجوك ما هو المتغير النرادف له و شكرا
استغني عن Sleep
وجرب هيك فقط قم بتغيير القيمة "0.05"
Me.Label3.Width = Me.Label3.Width + 0.05
جزاك الله خيرا وبارك الله في علمك رغم سرعة الشرح والأداء إلا أنه ممتع ونتمنى من حضرتك شرح كود يرحل طلاب فصل معين من قائمة صف شيت بينات الصف إلى شيت آخر معد له قائمة الفصل بها م الاسم والقيد والديانة للبنون وك>لك البنات بحيت تكون في صفحة واحدة تعلق القائمة في الفصل وشاكرين لحضرتك
الا ممكن اضافة كيف نحمي البرنامج من النقل او النسخ من طرف أشخاص اخرين
عمل غاية في الابداع .. بارك الله فيك استاذ.
اذا سمحت اود ان اطلب مساعدة بسيطه:
عندي جدول لموظفين وكل موظف لديه ذوي الحقوق.
اريد امكانية لاضافة اي مولود جديد للموظف داخل الجدول من اليوزرفورم دون الاخلال بالجدول.. بمعنى اريد امكانية لاضافة بيانات لموظف معين الامر ااذي يحتاج الى اضافة سطر جديد وازاحه البيانات الاخرى للأسفل فهو تعديل وفي نفس الوقت اضافه لهذا لم اتمكن من ايجاد صيغة مناسبه
أستاذنا الفاضل ممكن كود الذي نضعه في حالة وضع progressbar الموجود بصندوق ادوات الاكسل والاستغناء عن label2 و label3 وشكرا
في انتظار رد حضرتك وفقك الله فيما يرضى وشكرا
شكرا جزيلا لك 🌹🙏
سوف نعمل شرح له فى فيديو قادم باذن الله تعالى
استاذنا ي ليت لو تعلمنا كيف نقدر نحرك النافذه اذا كانت بدون شريط اعلى
اكتب الكود الخاص بتحريك الفورم بدون كود تحريل الشريط
ربنا يبارك في حضرتك ياهندسة
ممكن استدعاء المكتبة ٣٢ و٦٤ لانى عندي جهاز شغل وجهاز فى البيت عايز اظبط المديول يشتغل مرة واحدة سواء الجهاز ده او الاخر وجزاك اللّٰه خيراً ❤
بارك الله فيكم
للاسف لا يمكن استدعاء المكتبتين معاً
@@alhassanabuelkhair تمام شكراً يااستاذنا
السلام عليكم جزاك الله خيرا اخي
هل يمكن لك شرح برنامج لتتبعه للتمكن من vba
او كتب شاملة مع تطبيقات في هذا المجال
و عليكم السلام
تقصد برنامج كاتب اكواد اكسل
كيف نظيف الأدوات في الاكسل مثلا progress bar و web browser وشكرا
إن شاء الله تعالى نعمل عنها شرح فى الفدييوهات القادمة
ممكن كود استخدام لوحة المفاتيح في تشغيل امر معين
ممكن توضيح اكثر المطلوب
يعطيك الف عافية يا رب كيف فيني اتواصل معك
الله يعطيك العافية
تواصل معنا عبر الواتساب التالى
201114315018
السلام عليكم ورحمه الله وبركاته
استاذنا مافيش كود بدلا عن موديل SLeep
اذا لم يعمل معاك كود اخفاء الايطار عليك بما يلي (فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج
الله يرحم والديك و يفرح قلبك
لكن في حالة يطرأخطأ من نوع appcrach كيف تتعامل معه؟.
و شكرا
نجحت شكرا😘🤩😍😄😄😄
شكرا لك اشتغل الكود
بارك الله فيك كيف نستعمل الايقونة الدائرية التي تظهر في الشاشة عند التحميل وشكرا
بارك الله فيكم
تقصد أيقونة التحميل ؟!
@@alhassanabuelkhair
نعم بارك الله فيك وشكرا
لو سمحت يا أستاذ ممكن أشيل الإطار الخارجي لليوزرفورم اللى خلف الشاشة الإفتتاحية وهى تمثل قائمة ترحيل البيانات وجزاك الله خيرا🤲👏👏👏
🙏🙏♥️
فيه طريقه للتواصل معاك بحاول ارحل بيانات في أكثر من شيت ولكن بيحصل خطأ في الكود ومش عارف ايه سببه
استاذ حسن اتمنى اتواصل معك إذا سمحت إذا سمحت اخوك من العراق
اتفضل بالطبع تواصل معنا عبر الواتساب التالى 👇
201114315018
أجدت و أفدت. جزاك الله خيرا.
لدى تشغيل كود إخفاء الإطار، يكتب لى رسالة
"error 53" الملف غير موجود
تأكد من وجود موديول اخفاء الإطار
و إن يكون متوافق مع نسخة الويندوز لديك
@@alhassanabuelkhair نسخة الويندوز عندى 11
السلام عليكم اشكرك على هذه الدروس القيمة لكن عندي مشكلة في انشاء قاعدة البيانات عند ترحيل البيانات تاتي الرسالة تم ترحيل البيانات بنجاح ولكن لا تظهر البيانات على شيت البيانات
جهودك عظيمة وأفكار مبدعة فلك جزيل الشكر على كل ما تبذله من جهد
ولدي استفسار : اريد تصميم برنامج على الاكسل يحتوي على ورقتين ، الورقة الاولى واجهة رئيسية لإدخال البيانات
والورقة الثانية ورقة البيانات عبارة عن جداول وخلايا متفرقة ليست متسلسلة بمعنى انها خلايا في اول الصفحة ووسط الصفحة
وآخر الصفحة متباعدة فماهي الطريقة او الكود الذي يستخدم في تعبئة البيانات من الورقة الأولى إلى خلايا متفرقة في الورقة الثانية
واتمنى الشرح باللغة العربية واكرر شكري وتقديري
السلام عليكم ورحمة الله وبركاته
أسلوب حضرتك جميل جداً في الشرح وجزاك الله كل خير
لكن عندي الكود لا يعمل ويظهر نصفه باللون الأحمر من بداية الكود من كلمة Private Declare function الى نهاية اخر سطر يحتوي على "User32" بمعنى أن الجزء الذي يظهر بشكل طبيعي هو من بداية كود الاخفاء من RemoveTitleBar الى النهاية أما ما قبله فيظهر باللون الأحمر
و عليكم السلام ورحمه الله
ممكن اعرف نسخة الاوفيس لدىك 32 ام 64 بت
@@alhassanabuelkhair
64
الجواب من فضلك أستاذ ؟؟؟
سلام عليكم ورحمة الله وبركاته
بارك الله لك في هذا المجهود الرائع والدئوب اخي الكريم عندي سؤال لو سمحت ارجو الاجابة لقد قمت مؤخرا بأنشاء قاعدة بيانات حسب شرح وخطواتك عالاكسيل. عندما سجل خروج ومن ثم العودة ذهب كل شيء وبقيت شيت واحد بالأسماء فقط ما هي سبب المشكله شكراً لك
جزاك الله خير يا ريت الكود إخفاء الشريط
و جزاكم الله خيرا
تم ارفاق الملف فى صندوق الوصف تحت الفيديو
الملف المرفق لنسخه ٣٢ فقط
استاذ خرج اعمل ملاحظة مثل
كل ما اكتب اسم عمر يكتب لحالو ملاحظة عن الاسم بخانة جنبا مستعجل كتيير ويسلمو
المكتبة sleep غير موجودة عندي كيف احملها
السلام عليكم اخي الكريم اريد تصميم برنامج اكسل هل ممكن حضرتك تنفذ العمل ؟
و عليكم السلام ورحمه الله
اتفضل تواصل معنا عبر الواتساب التالى
00201114315018
عندي نسخة 64 غيرة اليوزر الى 64 ولاكن المعادلة غير صحيحية يقول هل في تغغير في المعادلة اذا كان اليوزر 64
كنت محتاجه اتواصل مع حضرتك يا فندم ..اقدر اتواصل ازاى ؟؟
اتفضل تواصل معنا عبر الواتساب التالى 👇
00201114315018
السلام عليكم كيف اتواصل معك أبوالخير
و عليكم السلام ورحمه الله
اتفضل تواصل معنا عبر الواتساب التالى 👇
00201114315018
جربت كود الأخفاء لم يتمشى معى مع ان الويندوز 10 والأوفيس 2016 64 بت ارجو المساعدة
هل هذا الكود ينفع مع فيجوال بيسك ٦
لم اجربه على فيجوال بيست6
استاذ انا عاوز كود باليوزر فورم عندي مثلا في شاشه ادخال البيانات textbox1 اكتب فيه التاريخ يدويا عندما اكتب هذا التاريخ عاوز يعطيني في textbox2 التاريخ تلقائيا بعد 3 سنوات واقدر انقص اشهر من هذه الثلاث سنوات وعند الضغط على اضافه بيانات ينزل عندي داخل الشيت بالعامود الخاص فيه
جزاك الله خيرا أستاذي دائما متالق ، لكن فيما يخص الكود ، فالجهاز عندي لا يقبله و يقول لي أن أعمل الأبديت . Option explicite
(فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج
يالغالي استبدلت الكلمه .. ولحد الان م يعمل معي المرجو مساعدتنا.. وشكراً❤
هناك خطا يظهر ويحدد كلمه function
طيب بعد اذنك ازاي اعمل الفورم دا أثناء عمل كود في الشيت
يعنى أيه اثناء عمل كود فى الشيت ؟!
@@alhassanabuelkhair يعني مثلا انا عملت كود بيوفق بيانات مع بعض ولكن عشان البيانات كتير ف بياخد وقت ..اقدر في الوقت دا يكون الفورم دا شغال ويتناسب مع الوقت اللي بيخدو الكود الاول
تقصد تحويل الفورم هذا الى فورم تحميل كالبرامج الـ exe
@@alhassanabuelkhair
اه مظبوط كدا...
عندي كلمه sleep مش قابله خالص كل شويه تدي خطأ والصفحه مش راضيه تشتغل علما بأن شغال بنسخه ٢٠١٠ عربي
استغني عن Sleep
وجرب هيك فقط قم بتغيير القيمة "0.05"
Me.Label3.Width = Me.Label3.Width + 0.05
ازاي اكتب كلمة سر ثابته
عندى نسخه 64
نص الكود يظهر باللون الاحمر ولا يعمل وكاتبة بطريقه صحيحة
ممكن نتواصل معنا واتساب لتغيير الكود بما يتلائم مع نسخة الاوفيس لديك
@@alhassanabuelkhair ممكن رقم الواتساب
؟
السلام عليكم استاذي الفاضل
انا نسخة الويندوز عندي 64 وكود اخفاء البار لايعمل عندي
و عليكم السلام ورحمه الله
تأكد من كتابة كود الاخفاء فى موديول مستقل و لا يكون فوقه اى كود
Option Explicit
Private Declare Function FindWindow Lib "User32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "User32" _
Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" ( _
ByVal hwnd As Long) As Long
Sub RemoveTitleBar(frm As Object)
Dim lStyle As Long
Dim hMenu As Long
Dim mhWndForm As Long
If Val(Application.Version) < 9 Then
mhWndForm = FindWindow("ThunderXFrame", frm.Caption) 'for Office 97 version
Else
mhWndForm = FindWindow("ThunderDFrame", frm.Caption) 'for office 2000 or above
End If
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
End Sub
@@alhassanabuelkhair للاسف الكود لايعمل مع ان الشرح ممتاز 😢
اعطاني خطأ 64 BIT مالمقصود
كيف احل المشكلة
ممكن اعرف ما نواة اصدار الاوفيس لديك 32 ام 64 بت
@@alhassanabuelkhair ماعندي علم والله بس كيف اعرف ؟
ممكن التواصل مع حضرتك على الواتساب
اتفضل يشرفنا ذلك
201145453230
يا استاذ صارت عندي مشكلة عند البحث عن اسم غير موجود تجيني رسالة انه فيه خطا في الكود ويتوجه نحو الاكواد مباشرة وهذا خطا بسبب استطاعة اي شخص التغيير في الاكواد والتلاعب
ممكن استاذ كوند يجيب رسالة ان هذا الاسم غير موجود دون التوجه الي صفحة الاكواد
وكود البحث بالاسم وبرقم التسجيل مثلا
اتفضل استاذنا الفاضل شاهد هذا الفيديو
وسوف تحل المشكلة إن شاء الله تعالى
ruclips.net/video/7mCxum1clFg/видео.html
@@alhassanabuelkhair ماقدرت احل المشكلة لاني عملت البرنامج ب textbox وليست نفس الكواد
هذا الكود للانظمة التي تعمل بنظام ال32 وليس64
هل ممكن ان نعرف التعديل المناسب حتي تناسب ال64؟
Option Explicit
Private Declare Function FindWindow Lib "User32" _
Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "User32" _
Alias "GetWindowLongA" ( _
ByVal hwnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" _
Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "User32" ( _
ByVal hwnd As Long) As Long
Sub RemoveTitleBar(frm As Object)
Dim lStyle As Long
Dim hMenu As Long
Dim mhWndForm As Long
If Val(Application.Version) < 9 Then
mhWndForm = FindWindow("ThunderXFrame", frm.Caption) 'for Office 97 version
Else
mhWndForm = FindWindow("ThunderDFrame", frm.Caption) 'for office 2000 or above
End If
lStyle = GetWindowLong(mhWndForm, -16)
lStyle = lStyle And Not &HC00000
SetWindowLong mhWndForm, -16, lStyle
DrawMenuBar mhWndForm
End Sub
جزاك الله خيرا