أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
مالك ماريه Eslam Abdullah-- لا تميز خلال هذه الفترة YasserKhalil مع أكاديمية الصقر اخفي أكوادك وعيش حياتك EvilClippy VBA Project Unviewable Protection اكسيل اسئله واجابات


اعلان هنا
ألعاب فلاش أون لاين
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



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





صندوق الإدخال i*nputBOX في الـ VBA

بسم الله الرحمن الرحيم صندوق الإدخال quot;Input Boxquot; [code]SW5wdXRCb3gocHJvbXB0Wyx0aXRsZV1bLGRlZmF1bHRdWyx4cG9zX ..



19-08-2019 04:11 مساء
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 

بسم الله الرحمن الرحيم
 
صندوق الإدخال "i*nput Box" 

InputBox(prompt[,title][,default][,xpos][,ypos])


HwykQ_123132132 copy
الصورة توضح  البارميترات وترتيبها
ومن الممكن الاستغناء عن بعضهم
ممكن ان تصبح هكذا مختصرة



​result = InputBox("ادخل اي بيان", "عرض بيانات")


مجرد بيانات لتوضيح محتوى i*nputBox
او ممكن ان تكتب هكذا

​result = InputBox("ادخل اي بيان", "عرض بيانات", "ممكن نضع قيمة افتراضية هنا")

اضفنا قيمة افتراضية  الى الـi*nputBox كما في الصورة

اوتكتب هكذا

​result = InputBox("ادخل اي بيان", "عرض بيانات", "ممكن نضع قيمة افتراضية هنا", 10000, 5000)


وهنا اضفنا احداثيات صندوق الادخال
بمعنى اين تريد ان يظهر هذا المربع على الشاشة
الرقم 10000 يشير الى X وهي المسافة بين بداية الشاشة وصندوق الادخال افقيا
الرقم 5000 يشير الى Y وهي المسافة بين بداية الشاشة وصندوق الادخال رأسيا

واليكم الكود كامل لاستخدام صندوق الادخال

وفيه الثلاث احتمالات 
اولا اذا تم التراجع عن الادخال والغاء الادخال يتم وضع كلمة canceled في الخلية A1
ثانيا اذا تم الضغط اوك بدون كتابة اي شئ يتم وضع didn't enter anything! في الخلية A1
ثالثا اذا تم كتابة اي شئ والضغط على اوك يتم عرض المكتوب في الخلية A1
وتستطيع تغيير الكود وتطويعه كما تشاء

الكود

Sub Input_Box()
    Dim result As String
       result = InputBox("ادخل اي بيان", "عرض بيانات", "ممكن نضع قيمة افتراضية هنا", 10000, 5000)
    If StrPtr(result) = 0 Then
        Range("A1") = "canceled"
    ElseIf result = vbNullString Then
        Range("A1") = "didn't enter anything!"
    Else
        Range("A1") = result
    End If
End Sub



اتمنى ان تكون فكرة وطريقة عمل صندوق الادخال وضحت لكم
تحياتي 
ياسرالعربي
81
 
 
 
  Input_Box.zip   تحميل zip مرات التحميل :(10)
الحجم :(12.952) KB


أثارت هذه المشاركة إعجاب: ali mohamed ali، احمد 9598، YasserKhalil،


توقيع :Yasser Elaraby
663013020




19-08-2019 06:03 مساء
مشاهدة مشاركة منفردة [1]
محمود ابو الدهب
menu_open
مشرف على لغات برمجة والاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1238
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 4-7-1990
الدعوات : 59
يتابعهم : 6
يتابعونه : 212
قوة السمعة : 4092
الاعجاب : 476
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif صندوق الإدخال i*nputBOX في الـ VBA
الله يكرمك استاذ ياسر على المعلومات الجميلة والقيمة
الله عليك يا حبيب ولديك
واشكرك لطريقة الشرح وبساطة الالقاء
تحياتى وتقديرى 

أثارت هذه المشاركة إعجاب: Yasser Elaraby،


توقيع :محمود ابو الدهب
لى عظيم الشرف بالانضمام لهذا الصرح العظيم
وكم أتمنى من الله
ان يعيننى ويعلمنى من علمة الواسع فهو ولي ذالك وهو على كل شي قدير

تحياتى وتقدير للجميع  محمود ابوالدهب


20-08-2019 08:15 صباحا
مشاهدة مشاركة منفردة [2]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif صندوق الإدخال i*nputBOX في الـ VBA
حبيبي ابوالدهب انا لاقيت طلبات كتير بخصوص صندوق الادخال قلت احط معلومة للناس
تحياتي لك
81


أثارت هذه المشاركة إعجاب: محمود ابو الدهب، احمد 9598،


توقيع :Yasser Elaraby
663013020



20-08-2019 10:49 صباحا
مشاهدة مشاركة منفردة [3]
ali mohamed ali
menu_open
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1212
الدولة : مصر
الجنس : ذكر
الدعوات : 1
يتابعهم : 0
يتابعونه : 52
قوة السمعة : 5717
الاعجاب : 715
 Online 
look/images/icons/i1.gif صندوق الإدخال i*nputBOX في الـ VBA
أحسنت استاذى الكريم ياسر عمل ممتاز وشرح كافى ووافى جعله الله فى ميزان حسناتك ورحم الله والديك

أثارت هذه المشاركة إعجاب: Yasser Elaraby،


توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله


20-08-2019 11:56 صباحا
مشاهدة مشاركة منفردة [4]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif صندوق الإدخال i*nputBOX في الـ VBA
المشاركة الأصلية كتبت بواسطة: ali mohamed ali
أحسنت استاذى الكريم ياسر عمل ممتاز وشرح كافى ووافى جعله الله فى ميزان حسناتك ورحم الله والديك


890264



توقيع :Yasser Elaraby
663013020



20-08-2019 10:57 مساء
مشاهدة مشاركة منفردة [5]
احمد 9598
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 82
الجنس : ذكر
تاريخ الميلاد : 19-2-1989
يتابعهم : 6
يتابعونه : 1
قوة السمعة : 48
الاعجاب : 13
 offline 
look/images/icons/i1.gif صندوق الإدخال i*nputBOX في الـ VBA
هل يمكن عمل الرساله ك اختصر يتم وضع الكواد في الزر بحيت يتم حفظ قيمة في الزر وكل ماظغط علي الزر يظهر القيه في التكس بوكس من غير تكرر الرساله يعني تظهر مره واحد






21-08-2019 08:15 صباحا
مشاهدة مشاركة منفردة [6]
Yasser Elaraby
menu_open عضوية موثقة
المشرف العام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1194
الجنس : ذكر
الدعوات : 13
مشاركات مكتبة الميديا: 25
يتابعهم : 2
يتابعونه : 600
قوة السمعة : 8656
الاعجاب : 465
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif صندوق الإدخال i*nputBOX في الـ VBA
المشاركة الأصلية كتبت بواسطة: احمد 9598
هل يمكن عمل الرساله ك اختصر يتم وضع الكواد في الزر بحيت يتم حفظ قيمة في الزر وكل ماظغط علي الزر يظهر القيه في التكس بوكس من غير تكرر الرساله يعني تظهر مره واحد

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



توقيع :Yasser Elaraby
663013020



23-08-2019 02:45 مساء
مشاهدة مشاركة منفردة [7]
YasserKhalil
menu_open عضوية موثقة
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 7274
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 19
يتابعهم : 0
يتابعونه : 411
قوة السمعة : 20906
الاعجاب : 1481
 offline 
look/images/icons/i1.gif صندوق الإدخال i*nputBOX في الـ VBA
جزاك الله خيراً أخي وحبيبي ياسر العربي على الموضوع الجميل







الكلمات الدلالية
InputBox ،


 







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



الساعة الآن 08:14 مساء

أعلن هنا
أعلن هنا
أعلن هنا