السلام عليكم ودعواتنا لحضرتك تكون بخير دائما وترجع بالسلامه .. ننتظر جديدك دائما وياليت يكون بعيد عن موضوع شئون الموظفين وتتحفنا بحاجة جديده مختلفه كرما من حضرتك
شكرا لك قمت بإنشاء برنامج كامل وفقا لكل خطواتك تعلمت منك الكثير واصل استاذي الفاضل فلك كل الاحترام والتقدير على هذه المجهودات والطريقة الأكثر من رائعة في الشرح
شكرا استاذ والله اني بستوعب منك خيرات الله بس والله زعلان من المتابعين لايدعمون حرام اللي يشاهد يدعم من بعد اذنهم الله يجزيكم الخير والله الاستاذ يستاهل والله❤
السلام عليكم و رحمة الله اشكرك و احيك على اسلوبك في الشرح و السرد وفقك الله .... استاذ الحسن سؤال ليه الجزء الاول من الكود مش شغال و بيظهر عندي باللون الاحمر ؟....... مع خالص الشكر و التقدير
مرحبا أستاذ و شكرا على الدروس التي تقدمها عند تابع المراحل لم يتم قبول المتغير Sleep نظرتي و ان الاكسل الذي تشتغل عليه فرنسي ارجوك ما هو المتغير النرادف له و شكرا
شكرا استاذ حسن على هذه الافكار الرائعة . وارجوا ان تساعدني بحل مشكلتي عندما حاولت تطبيق هذه الشاشة الافتتاحية في جهازي حيث لدي نسخة اوفيس 365 وعندما نسخت الكود يظهر باللون الاحمر في الموجل رقم ١ ارجوا مساعدتي للتجاوز هذه المشكلة .
أستاذنا الفاضل ممكن كود الذي نضعه في حالة وضع progressbar الموجود بصندوق ادوات الاكسل والاستغناء عن label2 و label3 وشكرا في انتظار رد حضرتك وفقك الله فيما يرضى وشكرا
ربنا يبارك في حضرتك ياهندسة ممكن استدعاء المكتبة ٣٢ و٦٤ لانى عندي جهاز شغل وجهاز فى البيت عايز اظبط المديول يشتغل مرة واحدة سواء الجهاز ده او الاخر وجزاك اللّٰه خيراً ❤
مشاء الله تبارك الرحمن مبدع ديما عندى سؤال بسيط .متاح عندى اسم مستخدم وكلمة المرور هل ينفع إذا مستخدم محمود دخل شيت اسمة يكتب فى خلية B1. ولو المستخدم محمد دخل شيت اسمة يكتب فى B2 ..
عمل غاية في الابداع .. بارك الله فيك استاذ. اذا سمحت اود ان اطلب مساعدة بسيطه: عندي جدول لموظفين وكل موظف لديه ذوي الحقوق. اريد امكانية لاضافة اي مولود جديد للموظف داخل الجدول من اليوزرفورم دون الاخلال بالجدول.. بمعنى اريد امكانية لاضافة بيانات لموظف معين الامر ااذي يحتاج الى اضافة سطر جديد وازاحه البيانات الاخرى للأسفل فهو تعديل وفي نفس الوقت اضافه لهذا لم اتمكن من ايجاد صيغة مناسبه
السلام عليكم اشكرك على هذه الدروس القيمة لكن عندي مشكلة في انشاء قاعدة البيانات عند ترحيل البيانات تاتي الرسالة تم ترحيل البيانات بنجاح ولكن لا تظهر البيانات على شيت البيانات
السلام عليكم ورحمة الله وبركاته أسلوب حضرتك جميل جداً في الشرح وجزاك الله كل خير لكن عندي الكود لا يعمل ويظهر نصفه باللون الأحمر من بداية الكود من كلمة Private Declare function الى نهاية اخر سطر يحتوي على "User32" بمعنى أن الجزء الذي يظهر بشكل طبيعي هو من بداية كود الاخفاء من RemoveTitleBar الى النهاية أما ما قبله فيظهر باللون الأحمر
جزاك الله خيرا وبارك الله في علمك رغم سرعة الشرح والأداء إلا أنه ممتع ونتمنى من حضرتك شرح كود يرحل طلاب فصل معين من قائمة صف شيت بينات الصف إلى شيت آخر معد له قائمة الفصل بها م الاسم والقيد والديانة للبنون وك>لك البنات بحيت تكون في صفحة واحدة تعلق القائمة في الفصل وشاكرين لحضرتك
سلام عليكم ورحمة الله وبركاته بارك الله لك في هذا المجهود الرائع والدئوب اخي الكريم عندي سؤال لو سمحت ارجو الاجابة لقد قمت مؤخرا بأنشاء قاعدة بيانات حسب شرح وخطواتك عالاكسيل. عندما سجل خروج ومن ثم العودة ذهب كل شيء وبقيت شيت واحد بالأسماء فقط ما هي سبب المشكله شكراً لك
@@alhassanabuelkhair يعني مثلا انا عملت كود بيوفق بيانات مع بعض ولكن عشان البيانات كتير ف بياخد وقت ..اقدر في الوقت دا يكون الفورم دا شغال ويتناسب مع الوقت اللي بيخدو الكود الاول
جهودك عظيمة وأفكار مبدعة فلك جزيل الشكر على كل ما تبذله من جهد ولدي استفسار : اريد تصميم برنامج على الاكسل يحتوي على ورقتين ، الورقة الاولى واجهة رئيسية لإدخال البيانات والورقة الثانية ورقة البيانات عبارة عن جداول وخلايا متفرقة ليست متسلسلة بمعنى انها خلايا في اول الصفحة ووسط الصفحة وآخر الصفحة متباعدة فماهي الطريقة او الكود الذي يستخدم في تعبئة البيانات من الورقة الأولى إلى خلايا متفرقة في الورقة الثانية واتمنى الشرح باللغة العربية واكرر شكري وتقديري
استاذ انا عاوز كود باليوزر فورم عندي مثلا في شاشه ادخال البيانات textbox1 اكتب فيه التاريخ يدويا عندما اكتب هذا التاريخ عاوز يعطيني في textbox2 التاريخ تلقائيا بعد 3 سنوات واقدر انقص اشهر من هذه الثلاث سنوات وعند الضغط على اضافه بيانات ينزل عندي داخل الشيت بالعامود الخاص فيه
يا استاذ صارت عندي مشكلة عند البحث عن اسم غير موجود تجيني رسالة انه فيه خطا في الكود ويتوجه نحو الاكواد مباشرة وهذا خطا بسبب استطاعة اي شخص التغيير في الاكواد والتلاعب ممكن استاذ كوند يجيب رسالة ان هذا الاسم غير موجود دون التوجه الي صفحة الاكواد وكود البحث بالاسم وبرقم التسجيل مثلا
و عليكم السلام ورحمه الله تأكد من كتابة كود الاخفاء فى موديول مستقل و لا يكون فوقه اى كود 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
هذا الكود للانظمة التي تعمل بنظام ال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
السلام عليكم ودعواتنا لحضرتك تكون بخير دائما وترجع بالسلامه .. ننتظر جديدك دائما وياليت يكون بعيد عن موضوع شئون الموظفين وتتحفنا بحاجة جديده مختلفه كرما من حضرتك
شكرا لك قمت بإنشاء برنامج كامل وفقا لكل خطواتك تعلمت منك الكثير واصل استاذي الفاضل فلك كل الاحترام والتقدير على هذه المجهودات والطريقة الأكثر من رائعة في الشرح
ممكن اضافة كود لحماية نسخ او نقل البرنامج إلى جهاز اخر
شكرا استاذ
والله اني بستوعب منك خيرات الله
بس والله زعلان من المتابعين لايدعمون حرام اللي يشاهد يدعم من بعد اذنهم الله يجزيكم الخير والله الاستاذ يستاهل والله❤
شكراً جزيلاً لحضرتك
الله يعطيك ألف عافية
انا ممتن جداً بتعليقك
شكرا جزيلا لك اخي على هذه المجهودات الرائعة . أخوك من الجزائر
العفو 🌹🙏🙏
بارك الله فيكم
هذا ماتعودنا عليه من الأستاذ حسن ... ربي يحفظك يااارب
الله يعطيك العافية بارك الله فيكم استاذ عبدالله
ما شاء الله تبارك الرحمن..
درس جميل جدا
جزاك الله كل خير
الله يعطيك العافيه 🌹🙏 و جزاكم الله خيرا
بارك الله فيك ، ادعو لك بالصحة و العافية
بارك الله فيكم
الله يعطيك العافية
الحسن ابو الخير ماشاء الله انت شخص مبدع
وجزاك الله كل الخير
شكرا جزيلا لك استاذ أسامة
السلام عليكم ورحمة الله
شرح بسيط وسهل
نرجو من سيادتكم شرح طريقة عمل تقرير من اكثر من ورقة عمل داخل الفرم وشكرآ
بارك الله فيك اخي ابو الحسن
و بارك الله فيكم وجزاكم الله خيرا
جميل جدا الله ينور عليك استاذ حسن🌹👍
شكرا جزيلا لك استاذ تامر
من بعض ما عندكم استاذنا الفاضل 🌹🙏🙏
@@alhassanabuelkhair ده تواضع العلماء ربنا يحفظكم جميعا
في انتظار ابداعك يا كبير
شكرا جزيلا لك 🌹🙏🙏
ما شاءالله تبارك الله مجهود مقدر
شكراً جزيلاً لحضرتك بارك الله فيكم
درس قيم وشرح ممتاز جدا ، ربنا يزيدك من فضله ، الف الف شكر لحضرتك
شكرا جزيلا لك 🌹🙏🙏
اللهم آمين نحن و اياكم 🤲
الله ينور عليك يا باشمهندس الحسن ابو الخير .. يا ريت بعد اذنك بعد كل فيدو يا ريت ترفق ملف العمل حتى يتثنى للجميع الاستفادة منه . وجزاك الله كل خير
الله يعطيك العافيه 🌹🙏
بارك الله فيك
و بارك الله فيكم
ممتاز جدا ما تقدمه استاذ
نرجو ان لا تتغيب عنا كثيرا
شكراً جزيلاً لحضرتك استاذ محمد
حاضر من عنيا
مبدع الأستاذ الحسن. جزاك الله عنا كل خير
الله يعطيك العافية
شكرا جزيلا على هذه المجهودات اخي الكريم
العفو بارك الله فيكم
منتظرينك بكل الحب باشمهندس حسن
شكرا جزيلا لك 🌹🙏🙏
جزاك الله خير اخي الحسن ونفعنا بك
و جزاكم الله خيرا
السلام عليكم و رحمة الله
اشكرك و احيك على اسلوبك في الشرح و السرد وفقك الله .... استاذ الحسن
سؤال
ليه الجزء الاول من الكود مش شغال و بيظهر عندي باللون الاحمر ؟....... مع خالص الشكر و التقدير
و عليكم السلام ورحمه الله وبركاته
اى جزء من فضلك
تقصد كود اخفاء الإطار
@@alhassanabuelkhair بالظبط كود اخفاء الاطار
نفس المشكلة تظهر عندي في النصف الأول من الكود
@@صحالصح-ط6ث (فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج
شكراً يا استاذ
العفو 🌹🙏🙏
ماشاءالله يا بشمهندس ممكن تعمل فيديو لبرنامج محل موبايلات
تسلم إيدك ممتااااز
الله يعطيك العافيه 🌹🙏🙏
ممتاز أخي الحبيب
الله يعطيك العافية
رائع جدا.
الرب يوفقك
شكرا جزيلا لك 🌹🙏🙏
اللهم آمين نحن و اياكم 🤲
ابداع فكري خطير
تمكين الأفكار في جميع التصاميم الجميلة
بارك الله فيك
شكراً جزيلا لك اتساذ عبدالله
بارك الله فيكم
ماشاء الله ربنا يزيدك يارب ❤️
الله يعطيك العافية شكراً جزيلاً لحضرتك
جزاك الله خير شرح جميل جداً
و جزاكم الله خيرا على هذا الكلام الطيب
مرحبا أستاذ و شكرا على الدروس التي تقدمها
عند تابع المراحل لم يتم قبول المتغير Sleep نظرتي و ان الاكسل الذي تشتغل عليه فرنسي
ارجوك ما هو المتغير النرادف له و شكرا
استغني عن Sleep
وجرب هيك فقط قم بتغيير القيمة "0.05"
Me.Label3.Width = Me.Label3.Width + 0.05
ابداع يا استاذ حسن
الله يعطيك العافيه 🌹🙏🙏
شكرا على كل فيديواستفدنا منه
العفو 🌹🙏🙏
بارك الله فيكم وجزاكم الله خيرا
جزاك الله خيرا
ربي يحفظك أخي
منتظرين
شكرا جزيلا لك 🌹🙏🙏
مميز دائما
😇
الله يعطيك العافيه 🌹🙏🙏
احسنت ، ممتاز
👍👍
شكراً جزيلاً لحضرتك بارك الله فيكم
شكرا لك
العفو 🌹🙏🙏
بارك الله فيكم
الله يبارك فيك ياغالي
الله يعطيك العافيه 🌹🙏🙏
شرح جميل جزاك الله خيرا
المرجوا الإجابة على الاستفسار
حل مشكلة عدم ظهور الدالة match في Excel مع العلم لدي اوفيس 2019 و نفس المشكلة في اوفيس 2007
Match=equiv
ممكن عمل كيفية عمل الحساب اليدوي في الاقساط
عمل ممتاز
شكراً جزيلاً لحضرتك
ممكن كود استخدام لوحة المفاتيح في تشغيل امر معين
ممكن توضيح اكثر المطلوب
شكرا استاذ حسن على هذه الافكار الرائعة . وارجوا ان تساعدني بحل مشكلتي عندما حاولت تطبيق هذه الشاشة الافتتاحية في جهازي حيث لدي نسخة اوفيس 365 وعندما نسخت الكود يظهر باللون الاحمر في الموجل رقم ١ ارجوا مساعدتي للتجاوز هذه المشكلة .
نفس مشكلتي اوفس 2021
شكرٱ جزيلٱ أستاذنا الفاضل
العفو بارك الله فيكم
أستاذنا الفاضل ممكن كود الذي نضعه في حالة وضع progressbar الموجود بصندوق ادوات الاكسل والاستغناء عن label2 و label3 وشكرا
في انتظار رد حضرتك وفقك الله فيما يرضى وشكرا
شكرا جزيلا لك 🌹🙏
سوف نعمل شرح له فى فيديو قادم باذن الله تعالى
ربنا يبارك في حضرتك ياهندسة
ممكن استدعاء المكتبة ٣٢ و٦٤ لانى عندي جهاز شغل وجهاز فى البيت عايز اظبط المديول يشتغل مرة واحدة سواء الجهاز ده او الاخر وجزاك اللّٰه خيراً ❤
بارك الله فيكم
للاسف لا يمكن استدعاء المكتبتين معاً
@@alhassanabuelkhair تمام شكراً يااستاذنا
اذا لم يعمل معاك كود اخفاء الايطار عليك بما يلي (فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج
الله يرحم والديك و يفرح قلبك
لكن في حالة يطرأخطأ من نوع appcrach كيف تتعامل معه؟.
و شكرا
نجحت شكرا😘🤩😍😄😄😄
شكرا لك اشتغل الكود
مشاء الله تبارك الرحمن مبدع ديما
عندى سؤال بسيط .متاح عندى اسم مستخدم وكلمة المرور
هل ينفع إذا مستخدم محمود دخل شيت اسمة يكتب فى خلية B1. ولو المستخدم محمد دخل شيت
اسمة يكتب فى B2 ..
السلام عليكم جزاك الله خيرا اخي
هل يمكن لك شرح برنامج لتتبعه للتمكن من vba
او كتب شاملة مع تطبيقات في هذا المجال
و عليكم السلام
تقصد برنامج كاتب اكواد اكسل
بارك الله فيك كيف نستعمل الايقونة الدائرية التي تظهر في الشاشة عند التحميل وشكرا
بارك الله فيكم
تقصد أيقونة التحميل ؟!
@@alhassanabuelkhair
نعم بارك الله فيك وشكرا
السلام عليكم استاذ
ممكن كيفية طريقة حساب الوزن من خلال العمر والطول في الاكسل ( دالة )
السلام عليكم ورحمه الله وبركاته
استاذنا مافيش كود بدلا عن موديل SLeep
استاذ حسن اتمنى اتواصل معك إذا سمحت إذا سمحت اخوك من العراق
اتفضل بالطبع تواصل معنا عبر الواتساب التالى 👇
201114315018
كيف نظيف الأدوات في الاكسل مثلا progress bar و web browser وشكرا
إن شاء الله تعالى نعمل عنها شرح فى الفدييوهات القادمة
كيف يمكن لت لبحث عن بيانات محددة بين تاريخين باستخدام vb code في فورم
شاهد هذا الفيديو و سوف تعرف الطريقة اخى
ruclips.net/video/bWZRikolm5k/видео.html
استاذنا ي ليت لو تعلمنا كيف نقدر نحرك النافذه اذا كانت بدون شريط اعلى
اكتب الكود الخاص بتحريك الفورم بدون كود تحريل الشريط
فيه طريقه للتواصل معاك بحاول ارحل بيانات في أكثر من شيت ولكن بيحصل خطأ في الكود ومش عارف ايه سببه
أجدت و أفدت. جزاك الله خيرا.
لدى تشغيل كود إخفاء الإطار، يكتب لى رسالة
"error 53" الملف غير موجود
تأكد من وجود موديول اخفاء الإطار
و إن يكون متوافق مع نسخة الويندوز لديك
@@alhassanabuelkhair نسخة الويندوز عندى 11
عمل غاية في الابداع .. بارك الله فيك استاذ.
اذا سمحت اود ان اطلب مساعدة بسيطه:
عندي جدول لموظفين وكل موظف لديه ذوي الحقوق.
اريد امكانية لاضافة اي مولود جديد للموظف داخل الجدول من اليوزرفورم دون الاخلال بالجدول.. بمعنى اريد امكانية لاضافة بيانات لموظف معين الامر ااذي يحتاج الى اضافة سطر جديد وازاحه البيانات الاخرى للأسفل فهو تعديل وفي نفس الوقت اضافه لهذا لم اتمكن من ايجاد صيغة مناسبه
السلام عليكم اشكرك على هذه الدروس القيمة لكن عندي مشكلة في انشاء قاعدة البيانات عند ترحيل البيانات تاتي الرسالة تم ترحيل البيانات بنجاح ولكن لا تظهر البيانات على شيت البيانات
السلام عليكم كيف اتواصل معك أبوالخير
و عليكم السلام ورحمه الله
اتفضل تواصل معنا عبر الواتساب التالى 👇
00201114315018
السلام عليكم اخي الكريم اريد تصميم برنامج اكسل هل ممكن حضرتك تنفذ العمل ؟
و عليكم السلام ورحمه الله
اتفضل تواصل معنا عبر الواتساب التالى
00201114315018
لو سمحت يا أستاذ ممكن أشيل الإطار الخارجي لليوزرفورم اللى خلف الشاشة الإفتتاحية وهى تمثل قائمة ترحيل البيانات وجزاك الله خيرا🤲👏👏👏
السلام عليكم ورحمة الله وبركاته
أسلوب حضرتك جميل جداً في الشرح وجزاك الله كل خير
لكن عندي الكود لا يعمل ويظهر نصفه باللون الأحمر من بداية الكود من كلمة Private Declare function الى نهاية اخر سطر يحتوي على "User32" بمعنى أن الجزء الذي يظهر بشكل طبيعي هو من بداية كود الاخفاء من RemoveTitleBar الى النهاية أما ما قبله فيظهر باللون الأحمر
و عليكم السلام ورحمه الله
ممكن اعرف نسخة الاوفيس لدىك 32 ام 64 بت
@@alhassanabuelkhair
64
الجواب من فضلك أستاذ ؟؟؟
جزاك الله خير يا ريت الكود إخفاء الشريط
و جزاكم الله خيرا
تم ارفاق الملف فى صندوق الوصف تحت الفيديو
الملف المرفق لنسخه ٣٢ فقط
يعطيك الف عافية يا رب كيف فيني اتواصل معك
الله يعطيك العافية
تواصل معنا عبر الواتساب التالى
201114315018
جزاك الله خيرا وبارك الله في علمك رغم سرعة الشرح والأداء إلا أنه ممتع ونتمنى من حضرتك شرح كود يرحل طلاب فصل معين من قائمة صف شيت بينات الصف إلى شيت آخر معد له قائمة الفصل بها م الاسم والقيد والديانة للبنون وك>لك البنات بحيت تكون في صفحة واحدة تعلق القائمة في الفصل وشاكرين لحضرتك
الا ممكن اضافة كيف نحمي البرنامج من النقل او النسخ من طرف أشخاص اخرين
استاذ خرج اعمل ملاحظة مثل
كل ما اكتب اسم عمر يكتب لحالو ملاحظة عن الاسم بخانة جنبا مستعجل كتيير ويسلمو
سلام عليكم ورحمة الله وبركاته
بارك الله لك في هذا المجهود الرائع والدئوب اخي الكريم عندي سؤال لو سمحت ارجو الاجابة لقد قمت مؤخرا بأنشاء قاعدة بيانات حسب شرح وخطواتك عالاكسيل. عندما سجل خروج ومن ثم العودة ذهب كل شيء وبقيت شيت واحد بالأسماء فقط ما هي سبب المشكله شكراً لك
عندي نسخة 64 غيرة اليوزر الى 64 ولاكن المعادلة غير صحيحية يقول هل في تغغير في المعادلة اذا كان اليوزر 64
🌹💝
شكراً جزيلاً لحضرتك
@@alhassanabuelkhair الشكر ليك ياطيب 💝
المكتبة sleep غير موجودة عندي كيف احملها
جربت كود الأخفاء لم يتمشى معى مع ان الويندوز 10 والأوفيس 2016 64 بت ارجو المساعدة
🙏🙏♥️
طيب بعد اذنك ازاي اعمل الفورم دا أثناء عمل كود في الشيت
يعنى أيه اثناء عمل كود فى الشيت ؟!
@@alhassanabuelkhair يعني مثلا انا عملت كود بيوفق بيانات مع بعض ولكن عشان البيانات كتير ف بياخد وقت ..اقدر في الوقت دا يكون الفورم دا شغال ويتناسب مع الوقت اللي بيخدو الكود الاول
تقصد تحويل الفورم هذا الى فورم تحميل كالبرامج الـ exe
@@alhassanabuelkhair
اه مظبوط كدا...
جزاك الله خيرا أستاذي دائما متالق ، لكن فيما يخص الكود ، فالجهاز عندي لا يقبله و يقول لي أن أعمل الأبديت . Option explicite
(فتش على كل كلمة function)و (اجعلهاPtrSafe Function )باذن الله يعمل معك البرنامج
يالغالي استبدلت الكلمه .. ولحد الان م يعمل معي المرجو مساعدتنا.. وشكراً❤
هل هذا الكود ينفع مع فيجوال بيسك ٦
لم اجربه على فيجوال بيست6
جهودك عظيمة وأفكار مبدعة فلك جزيل الشكر على كل ما تبذله من جهد
ولدي استفسار : اريد تصميم برنامج على الاكسل يحتوي على ورقتين ، الورقة الاولى واجهة رئيسية لإدخال البيانات
والورقة الثانية ورقة البيانات عبارة عن جداول وخلايا متفرقة ليست متسلسلة بمعنى انها خلايا في اول الصفحة ووسط الصفحة
وآخر الصفحة متباعدة فماهي الطريقة او الكود الذي يستخدم في تعبئة البيانات من الورقة الأولى إلى خلايا متفرقة في الورقة الثانية
واتمنى الشرح باللغة العربية واكرر شكري وتقديري
استاذ انا عاوز كود باليوزر فورم عندي مثلا في شاشه ادخال البيانات textbox1 اكتب فيه التاريخ يدويا عندما اكتب هذا التاريخ عاوز يعطيني في textbox2 التاريخ تلقائيا بعد 3 سنوات واقدر انقص اشهر من هذه الثلاث سنوات وعند الضغط على اضافه بيانات ينزل عندي داخل الشيت بالعامود الخاص فيه
عندى نسخه 64
نص الكود يظهر باللون الاحمر ولا يعمل وكاتبة بطريقه صحيحة
ممكن نتواصل معنا واتساب لتغيير الكود بما يتلائم مع نسخة الاوفيس لديك
@@alhassanabuelkhair ممكن رقم الواتساب
؟
كنت محتاجه اتواصل مع حضرتك يا فندم ..اقدر اتواصل ازاى ؟؟
اتفضل تواصل معنا عبر الواتساب التالى 👇
00201114315018
يا استاذ صارت عندي مشكلة عند البحث عن اسم غير موجود تجيني رسالة انه فيه خطا في الكود ويتوجه نحو الاكواد مباشرة وهذا خطا بسبب استطاعة اي شخص التغيير في الاكواد والتلاعب
ممكن استاذ كوند يجيب رسالة ان هذا الاسم غير موجود دون التوجه الي صفحة الاكواد
وكود البحث بالاسم وبرقم التسجيل مثلا
اتفضل استاذنا الفاضل شاهد هذا الفيديو
وسوف تحل المشكلة إن شاء الله تعالى
ruclips.net/video/7mCxum1clFg/видео.html
@@alhassanabuelkhair ماقدرت احل المشكلة لاني عملت البرنامج ب textbox وليست نفس الكواد
هناك خطا يظهر ويحدد كلمه function
السلام عليكم استاذي الفاضل
انا نسخة الويندوز عندي 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 للاسف الكود لايعمل مع ان الشرح ممتاز 😢
عندي كلمه sleep مش قابله خالص كل شويه تدي خطأ والصفحه مش راضيه تشتغل علما بأن شغال بنسخه ٢٠١٠ عربي
استغني عن Sleep
وجرب هيك فقط قم بتغيير القيمة "0.05"
Me.Label3.Width = Me.Label3.Width + 0.05
ازاي اكتب كلمة سر ثابته
اعطاني خطأ 64 BIT مالمقصود
كيف احل المشكلة
ممكن اعرف ما نواة اصدار الاوفيس لديك 32 ام 64 بت
@@alhassanabuelkhair ماعندي علم والله بس كيف اعرف ؟
هذا الكود للانظمة التي تعمل بنظام ال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
جزاكم الله خيرا.
و جزاكم الله خيرأً استاذ وائل
شكرا لحضرتك
العفو 🌹🙏🙏
شكرا أخي
العفو اخى الكريم
جزاك الله خيرا
و جزاكم الله كل خير