عمل نموذج ادخال بيانات من الشيت
HTML-код
- Опубликовано: 14 окт 2024
- تحميل كاتب اكواد الاكسل
/ @yassermunir
===================
فى هذا الجزء نشرح طريقة عمل نموذج لادخال البيانات و كذلك وضع زرين فقط احدهم لحفظ البيانات فى شيت اخر (ترحيل البيانات) ام الزر الاخر فقط لازالة البيانات من النموذج و عمل استعاده للوضع الاصلى للنموذج
تم تسمية الزر الاول cmdSave
الكود الخاص به
Private Sub cmdSave_Click()
Application.ScreenUpdating = False
Dim iRow As Long
iRow = Sheets(2).Range("A1048576").End(xlUp).Row + 1
With ThisWorkbook.Sheets(2)
.Range("A" & iRow).Value = iRow - 1
.Range("B" & iRow).Value = txtName.Value
.Range("C" & iRow).Value = IIf(optMale.Value = True, "ذكر", "انثى")
.Range("D" & iRow).Value = cmbQualification.Text
.Range("E" & iRow).Value = txtCity.Value
End With
Call Reset
Application.ScreenUpdating = True
End Sub
الزر الاخر يسمى cmdReset
و الكود الخاص به
Private Sub cmdReset_Click()
Dim i As Integer
i = MsgBox("Do you want to reset this form?", vbQuestion + vbYesNo + vbDefaultButton2, "Form Reset")
If i = vbYes Then
Call Reset
End If
End Sub
مع وضع داله فى الاول لعمل مسح لما بداخل النموذج
Function Reset()
Application.ScreenUpdating = False
txtName.Value = ""
txtName.BackColor = vbWhite
optMale.Value = False
optFemale.Value = False
cmbQualification.Text = ""
cmbQualification.BackColor = vbWhite
txtCity.Value = ""
txtCity.BackColor = vbWhite
Application.ScreenUpdating = True
End Function
تحميل ملف العمل
الجزء الاول
www.mediafire....
الجزء الثانى
www.mediafire....
الجزء الثانى من الشرح
• Video
![VENEZUELA vs. ARGENTINA [1-1] | RESUMEN | ELIMINATORIAS SUDAMERICANAS | FECHA 9](http://i.ytimg.com/vi/SJfoPdeOPCQ/mqdefault.jpg)
تعلم الاكسل و برمجة الاكسل
arexcel.com/
================
اقسم بالله شرحك جميل ربنا يوفقك وارجوك عاوزين شرح زى كدة بسيط وسريع و مؤثر ويخللى الواحد ايدية تأخد على الاكسيل و الاعضاء اللى موافقنى يا ريت يعلقوا واحترامى لاستاذ/ ياسر منير وكل الاعضاء الكرام
بارك الله فيك
شكرا جزيلا لك على الافكار الجميلة والشرح السهل الممتع
بارك الله فيك
استاذنا العزيز ياسر.. بارك الله فيك.. جهدك رائع.. جعله الله في ميزان حسناتك، وصدقة جارية (علمٌ يُنتفع به)
شكرا لك و بارك الله فيك
مجهودات تذكر فتشكر .. سلمت اياديك ياهيك الشرح والا بلاش واصل ربي يحفظك اخي
شكرا لك و بارك الله فيك
المفروض كنت شرحت visual basic functions بتتعمل ازاي
عموما مشكووور وعمل مقدر
بالتوفيق
على فكرة يا باشمهندس حضرتك بافكارك و تصميماتك و اكوادك و برامجك المبتكرة اعتقد انك عملت طفرة في عالم البرمجة حضرتك سابق عصرك بكتير تحياتي لحضرتك
ربنا يبارك فى حضرتك و الله كلام حضرتك و امثالك من الناس المحترمه بتشجعنى على الاستمرار
ممتاز شرحك جميل جدا
حضرتك مش متوفر كورس اتعمل برمجه الاكسل من البدايه
محتوى مفيد، بارك الله فيك وفي أهل مصر
انا بتعلم من حضرتك جدا وشرحك ممتاز.
بس انا عندي اكسيل ٢٠١٠ ف مفيهوش الحاجات دي معظمها المفروض يبقى عندي اكسيل الفين وكام؟؟
ما شاء الله , ما شاء الله , الله أكبر عليك و الله
تحية خاصة لحضرتك , شرح مبدع وفوق جدا و ممتاذ
هام جدا
البرنامج مش عايز يدخل البينات لما بدوس " حفظ" أكيد في حاجه غلط
Private Sub EnterData_Click()
Application.ScreenUpdating = False
Dim iRow As Long
iRow = Sheets(2).Range("A1000").End(xlUp).Row + 1
With ThisWorkbook.Sheets(2)
.Range("A" & iRow).Value = iRow - 1
.Range("C" & iRow).Value = PerfText.Value
.Range("D" & iRow).Value = IIf(GenderMale.Value = True, "Male", "Fmaile")
.Range("B" & iRow).Value = BrandList.Text
.Range("E" & iRow).Value = WholesaleText.Value
End With
Call Reset
Application.ScreenUpdating = True
End Sub
ملحوظة انا مغير أسم Sheets2 الى Writes
حل المشكله
الفكرة كلها في أسم الشيت Sheet(2)
أولا : البرنامج بيتجاهل تماما أسم الشيت اللى انت بتكتبة سواء كان Sheets2 او Writes , عشان دي حاجه ظاهريه ليك
ثانيا و الأهم هو بينظر على العدد التنازلي للشيتات اللى عندك بالملف و بيخدهم بالترتيب كا كميات وبيتجاهل تماما أي أسم
شكرا جدا و الشرح ممتع والى الأمام
بارك الله فيك.. و جزا حضرتك كل خير.. فيديو رائع رائع.. معلومات قيمة في وقت صغير و بمنتهي الوضوح والسهولة فالشرح .. شكرا جزيلا لك
شكرا لك و بارك الله فيك
يالغالي مشكور على الشرح بس عندي استفسار ،، بخصوص اسماء الازار اكتب نفس ما أنت كاتب وله انا كتب من عندي 10:03
ممتاز. الله ينور عليك يااستاذنا 👍
بارك الله فيك ا / ياسر شرح ممتاز ورائع مشكور على هذا الجهد
شكرا اخي العزير علي هذا الدرس
كلو كان تمام لحد مادخلنا عالفيجوال والكودات
ساعتها راح كل تعبي عالمشاهدة والتطبيق
لانو الفيجوال وكتابة الكودات صعب كتير علي
بارك الله فيك شكرا لك من اليمن بس اكسيل اللي بتعمل عليه اكسل 2007 ام 2000 ام ماذا
شكرا جزيلا بــــــــــــــــــــــــــارك الله فيك .
و لا أروع استاذي شكرا جزيلا
بارك الله فيك اخى
شكرا
بارك الله فيك
مجهود ممتاز
بس ممكن توضح للناس انت جبت قايمة ديفولبر منين عشان دوخت عقبال ما عرفت اجيبها
احيانا مابتكون developer ظاهرة على الشاشة انت بتروح على اشارة الوندوز اللي فوق في الصفحة وبتضغط عليها وبتروح على الاعدادات ومن هناك بتلاقي قايمة بتغضط على developer عشان تظهر
مبدع جدا و مشكورة جهودك
اتمنى تعمل شرح عن الطريقة الصحيحة للبرمجة داخل الفيجوال و شكرا
مجهود ممتاز يا غالى
ماشاء الله عليك شغل عالي واتقان شديد
انا كنت ماشي معاك تمام لكن اخر كم دقيقة مش ظابطه معايا اللي مرتبطه بالاكواد
بالتوفيق لك استاذنا الفاضل
جزاك الله خيرا استاذ ياسر على هذا الشرح المفيد في سؤال لما بكتب في خانة properties الحروف العربي تظهر على شكل علامات استفهام ممكن الحل
بارك الله فيك يا باشمهندس
السلام عليكم بارك الله فىك استاذ ياسر على المجهود الرائع والفيديو باس عندي استفسار من حضرتك معرفة طريقة نسخ البيانات اخرا خطوة فى الفيديو ارجو الافادة
بارك الله فيك اخي العزيز علي هذه الجهود
شكراً على مجهودك الرائع ولول سمحت عند سؤال ازاى اخلى التنقل من مربع نص الى الاخر عن طريق مفتاح الادخال او مفتاح التاب لادخال البيانات بدل من استخدام الموس
احسنت يا بشمهندس جزاك الله خير
لاظهار المطور ( Developer ) = تبويب ملف - خيارات - تخصيص الشريط - حدد خانة اختيار المطور - موافق
أبوأحمد-أمين المليكي شكراً
شكرا جزيلا على مجهودك الرائع ولى سؤال - ال option box ما يقبل الكاتبة بالعربى فىcaption يا انجلش يا حروف غريبة واذا عملت copy paste يطلع لى ؟؟؟
حتى عندي انا كمان
تحياتي لشرح حضرتك الممتاز ...بس اسمحلي اسألك سؤال ازاي اكتب الكود مش كل مره انا هكون بكتب فيها البيانات دي اكيد هتتغير...... اتعلم بقي اكتب الكود ازاي ؟ ده سؤالي وشكرا جزيلا لحضرتك
اخرجتها .. احسنت يامبدع
جزاكم الله خيرا
انت قفلت فجأة ليه ؟ شكلك كنت ..... ؟
معلوماتك قيمة جدا .. انا مستخدم قديم و محترف أكسيل و برضوا استفدت كتير من قناتك
شكرا جزيلا
السلام عليكم
ممكن يابشمهندس تعمل فديو عن الاوامر البرمجية الي عملتها
شغل مرتب
لكن الواحد لازم يكون عنده خلفيه بالبرمجه
مشكووووووووووووووووووووووووور
شكرا و بارك الله فيك
بارك الله في الذين لا يكتمون علماً .. شكراً جدا يا فندم واستأذنك لو تقولي ازاي اضيف البيانات من الفورم لجدول موجود بالفعل في شييت تاني بدلاً من ادراجها في خلايا مستقلة
عمل رائع حبذا لو يعطي المصطلحات عربي وانجليزي
مجهود يشكر عليه
شكرا لك
جزاك الله خير . مبدع
مشكور جدا شرحك وافي لكن عاوزة اعرف فين الملف اللى فيه كود الفيجوال بيزك
الله يعطيك الف عافية صراحة الشرح واضح وممتاز
لكن انا بتواجهني مشكلة مجرد اغلاق الاكسل ينحذف جميع الاكواد ولازم ارجع ادخلها من جديد ما ادري اذا انا سويت شي غلط او في شي ممكن تدعمني فيه الله يعطيك العافية
شكرا لك ارجو من حضرتك التواصل لتعديل بعض البيانات حتي يتوافق مع العمل الخاص بي
السلام عليكم ورحمة الله وبركاته
شكراً جداً على الفيديو الرائع دا ..
أرجوا من حضرتك عمل فيديو بنفس الطريقة لعملية البحث عن الأسم أو الصنف ( بمعني أني عايز أعمل جدول بعُهدة زملائي في العمل وعند البحث بالأسم يظهر العُهدة الكامله له ، وإذا حبيت أعمل بحث بنوع عُهده يظهر الاسماء اللي عندها العًهده دي )
أكون شاكر جداً لحضرتك ..
حاضر اخى
@@YasserMunir تسلم يارب
ممتاز ربنا يبارك في جهدك
بارك الله فيك ربنا يجعله في ميزان حسناتك
شرح ممتاز بارك الله بك
جزاك الله عنا كل خير..الله يبارك فيك ويوفقك ويرزقك..
بارك الله فيك
استاذ ياسر عاشت ايدك اريد برمجة نفس الموضوع بس من اليميين الى اليسار عندي مجموعة عقود واريد على اسم العقد اضيف الاجراءات المطولة اله من اليمين الى اليسار بلاضافة الى اضافة البقية من الاعلى الى الاسفل
تسلم
ربنا يكرمك ويوفقك يا زعيم
شكرا جزيلاً
السلام عليكم ورحمة الله وبركاته ...........لله ايوفقك شرح في قمة الروعه بارك الله بجهودك ممكن التواصل مع حضرتك عن طريق الواتساب او الفايبر ؟؟؟
بارك الله فيك
حفضكم الله تحياتي الغالية
كيف يمكن التواصل مع حضرتك بخصوص هاد الفيديو في كم سؤال ضروري
شرحك ممتاز استمر احنا وراك وهندعمك يا بطل
لو سمحت عاوز اعمل قائمة منسدلة وابحث عن طريق كتابة جزء من الكلمة بدون عمل بحث.
شكرا
مش فاهم حاجه من الجزء الأخير هل ممكن فيه دوال ثابته تتحفظ تسهل العمل شويه بدل النسخ واللصق
بارك الله فيك موضوع رائع ، ممكن عمل موذج ادخال بيانات اكسل جاهز من 70 عمود وانا اعدل عليه ؟
مفيد جداً..
شكرا لكم.
جزاك الله خير
لماذا لا تشرح على اكسل واجهته بالعربي حتى نستفيد أكثر؟
أولا مشكور جدا على المجهود
انا عندي استفسار مهم جدا .. الخانات اللي عملتها انا عايز اضيف خانات زيادة باسماء تانية أزاي اقدر اضيف كود الخانة و ازاي اربط ال sheets ببعض بالخانات الجديدة
يعني انا عملت الخانات بالترتيب ده
رقم الملف - الاسم-الجنس - السن - رقم التليفون - الطبيب المعالج - الحالة الصحية
وعرفت اضيف sheet 1 الخانات بس أزاي أقدر أربط بين الsheets بالاكواد
بارك الله فيكم
تحية طيبة الأخ ياسر منير
لدي سؤال عن ترحيل بيانات فاتورة مبيعات وهو: هل يمكن كتابة كود ترحيل بيانات فاتورة وجمع الأصناف المتشابهة منها في جدول المبيعات تلقائيا دون تكرارها, أي جمع السعر النهائي والعدد المباع مثلا لصنف ما تلقائيا خلال الترحيل دون تكرار اسم الصنف أسفل بعضها.
هل لديك فيديو على قناتك يقوم بشرح ذلك..
السلام عليكم استاذ ارقام listfillRange الخاص بالموهلات تنحذف من properties..
Thank you very much indeed i ask you one question how to add arabic language into developer properties for example when you wrte " ذكر او انثي" in the developer properties.
بارك الله فيك
شرح ممتاز ومفيد
الاوفيس اللي مستخدم في الشرح كام ....؟
عمل ممتاز لكن للأسف لم يعمل على نسخة الماك! هل لديك أية نصائح لإمكانية تشغيله على نظام الماك؟
بارك الله فيك اخي شجعتني ارجع ادرس الفجوال بيسك وابداع الاكسيل واني محتاج اعمل ال GUI للداتا موديفيكيشن..تحية لحضرتك من العراق
بارك الله فيك
Python Noobies ممكن مساعدة سويت استمارة وكلشي كمل بس من ضفة خاصية الحذف كام يضيف البيانات بس بصف واحد
شرح جميل لكن نامل تعليمنا الفيجوال في الاكسل من الصفر للاحتراف ،،، جزاك الله خير
اي office تستعمل 2019؟
يالغالي في دقيقة 21:25 اكتب نفس الس كاتبه حق الشيت البرمجه بس مو واضح وايد الكلام
بجد شكرا جدا
بس ارجو من حضرتك تشرحلنا الاكواد
السلام عليكم ممكن طريقه للتواصل معك عاييز اعمل شيت مركزي وربطه باجزه الهاتف وشكرآ
لو سمحت استاذي هل ممكن اعمل نموذج على صيغة اختبار بمعنى احدد الاجابات الصحيحة ويتم التصحيح تلقائي مثل نماذج جوجل وشكرا
تم عمل فيديو و شيت من هنا
ruclips.net/video/UHT736o5TJg/видео.html
تم مشاهدته والفضل لكم 🌹🌹
السلام عليك استاذي العزيز على غرار هذا الجدول اريد ان اعمل زر بحيث عند الضغط عليه يقوم بفتح شيت جديد يحتوي على نفس هذا الجدول ولغاية ١٠٠ شيت او اكثر مع جزيل الشكر
ممكن إرسال الشيت reset الخاص بالبرمجه في إدخال البيانات و تحويل الأيقونات الإدخال فارغه بعد نقل البيانات الي شيت ٢ بالملف
yaser.xyz/vb/showthread.php?t=1
اى كود تريده ممكن بعد تحميل ملف العمل و فتح ما بداخله فى المطور سترى كل الاكواد
@@YasserMunir الف شكر لاهتمامك الكريم
احسنت،وبارك الله فيك
بارك الله فيك والله يوفقك إنشاء الله
حضرتك انا كنت عاوز اعرف هل هذه الخطوات تعمل علي اوفيس ٢٠٠٧ وويندوز ١٠؟ ولا انا هحتاج اوفيس ٢٠١٠؟
ممكن تحطلنا فايل الايكسيل لو سمحت؟
الله يجزاك خير
بارك الله فيك
منين جبتو قائمة الديفلبر معارفه اكمل
احسنت وجزاك الله خيرا.
شرح جيد وممتاز .
فنكش هههههه رهيبة
السلام عليكم ورحمة الله
بارك الله فيك .. الف شكر علي العلم و علي اخلاقك الكريمة.. كان لي طلب .. علي نفس الشيت. بحيث في خانة الاسم تبحث في شيت اخر بحيث يجب كل المعلومات علي نفس البرنامج ثم يقوم بترحيل في شيت تاني.. و الف شكر
Aref EL_Menshawy يعني حضرتك عايز بعد ما يعمل بحث يدخل البيانات كلها في شيت اخر ، يعني مثلا كل عمليه بحث يكتب بيانات البحث دي كا history مثلا ولا حضرتك تقصد حاجه ثانيا ؟؟
السلام عليكم
الشرح ممتاز والموضوع اكثر من روعه وجهودك مشكوره ولك تحية من العراق بلد الامجاد
لدية سوال (( انا عندي نسختين من اكسيل 2010 و 2019 بس ما جاي اندل developer ممكن تساعدني ويا ريت الايميل او اي حساب للتواصل معاك ولك كل الشكر والتقدير
اهلا بك اخى العزيز
1 - اظهار تبويب المطور ruclips.net/video/w2pPr8VXy10/видео.html
لو عايز اعمل فايل علي الاكسيل و اربطه باكتر من جهاز علي الشبكة الداخلية بحث امنع اللخبطة في رقم التسلسل اعملها ازاي
انا مش فاهم المطلوب ممكن ملف لمعرفة المطلوب
شكرا على شرح استاذي لكن لم اجد ملفات العمل
السلام عليكم اخي العزيز
بوركت جهودكم.. عندي استفسار
اريد ان اعمل جدول للراتب بنفس هذه الطريقة، ويكون الراتب مرتبط بالشهادة،
ويكون: ت - الاسم - مكان العمل - الشهادة - الراتب - المباشرة - مدة الخدمة.
ممكن ترد عليه حتى وان ترسل رابط اكون ممنون
حاااضر شكرا لك
جزاك الله خير
كيف يمكن اعمل تعديل على بيانات النموذج
بحيث تتغير في الجدول
شكرا الك بس شو نسخة الاوفيس يلي عندك لانو مافي عندي دوفلبير
yaser.xyz/vb/showthread.php?t=14
شكراً يا محترم جزاك الله خيرا طب لو عايز اعمل بيانات لتجارة او بيانات اخرى نفس الكود
yaser.xyz/vb/showthread.php?t=1
طب بعد ازنك عايز اعمل تصميم ليا انا شخصي لبيانات لتجارة اعمل الكود الكبير دا ازاي صعب اعملة ازاي !؟
بحيث اني اصمم ييانات خاصة كيف اكتب كود البرمجة عرفنا ازاي نكتب وطريقة الكود فهمنا جزاك الله خيراً
مافينا نفعل زر الحفظ والازالة الا حصرا عن طريق الكودات والفيجوال بيسك
لو في طريقة تانية وأسهل ياريت تنزلها
محتاج كورس تصيم برنامح
السلام عليكم
ممكن اتواصل مع حضرتك yasser Munir
ايميلي usaabd@gmail.com
مشكور وبارك الله تعالى بك ... شرح ممتاز ... معادلة التسلسل ماتضبط معي يكون خطا وهي : ("",if(B3"",A2+1= ارجو من حضرتك توضيح وشكرا