logo

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
abdelmoniem ismail لا تميز خلال هذه الفترة-- لا تميز خلال هذه الفترة لا تميز خلال هذه الفترة توزيع المعلمين في جدول الحصص حسب النصاب بشروط اكسيل مشاريع جاهزه



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





19-08-2019 04:11 مساءً
بسم الله الرحمن الرحيم

صندوق الإدخال "Input Box"

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



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



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


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

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

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

اوتكتب هكذا

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


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

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

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

الكود
CODE

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 مرات التحميل :(28)
الحجم :(12.952) KB




توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif صندوق الإدخال INPUTBOX في الـ VBA
  19-08-2019 06:03 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 14
المشاركات : 1309
الدولة : مصر
الجنس :
تاريخ الميلاد : 4-7-1990
الدعوات : 59
قوة السمعة : 4570
الاعجاب : 0
موقعي : زيارة موقعي
الله يكرمك استاذ ياسر على المعلومات الجميلة والقيمة
الله عليك يا حبيب ولديك
واشكرك لطريقة الشرح وبساطة الالقاء
تحياتى وتقديرى



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

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

look/images/icons/i1.gif صندوق الإدخال INPUTBOX في الـ VBA
  20-08-2019 08:15 صباحاً   [2]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
حبيبي ابوالدهب انا لاقيت طلبات كتير بخصوص صندوق الادخال قلت احط معلومة للناس
تحياتي لك
81



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif صندوق الإدخال INPUTBOX في الـ VBA
  20-08-2019 10:49 صباحاً   [3]
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1765
الدولة : مصر
الجنس :
الدعوات : 2
قوة السمعة : 9685
الاعجاب : 25
أحسنت استاذى الكريم ياسر عمل ممتاز وشرح كافى ووافى جعله الله فى ميزان حسناتك ورحم الله والديك



توقيع :ali mohamed ali


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

look/images/icons/i1.gif صندوق الإدخال INPUTBOX في الـ VBA
  20-08-2019 11:56 صباحاً   [4]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: ali mohamed ali أحسنت استاذى الكريم ياسر عمل ممتاز وشرح كافى ووافى جعله الله فى ميزان حسناتك ورحم الله والديك
890264



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif صندوق الإدخال INPUTBOX في الـ VBA
  20-08-2019 10:57 مساءً   [5]
معلومات الكاتب ▼
تاريخ الإنضمام : 14-08-2019
رقم العضوية : 14230
المشاركات : 130
الجنس :
تاريخ الميلاد : 19-2-1989
قوة السمعة : 71
الاعجاب : 0
هل يمكن عمل الرساله ك اختصر يتم وضع الكواد في الزر بحيت يتم حفظ قيمة في الزر وكل ماظغط علي الزر يظهر القيه في التكس بوكس من غير تكرر الرساله يعني تظهر مره واحد




look/images/icons/i1.gif صندوق الإدخال INPUTBOX في الـ VBA
  21-08-2019 08:15 صباحاً   [6]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 1
المشاركات : 1332
الجنس :
الدعوات : 13
قوة السمعة : 10064
الاعجاب : 66
موقعي : زيارة موقعي
المشاركة الأصلية كتبت بواسطة: احمد 9598 هل يمكن عمل الرساله ك اختصر يتم وضع الكواد في الزر بحيت يتم حفظ قيمة في الزر وكل ماظغط علي الزر يظهر القيه في التكس بوكس من غير تكرر الرساله يعني تظهر مره واحد
تحتاج الى تخزين القيم في اي خلية للحفاظ عليها عند غلق الملف وعند الفتح مرة اخرى يتم عرض النتيجة عند الفتح او الضغط ع الزر مرة اخرى بدون تكرار الرسائل
الاهم هو حفظ البيان في خلية معينة



توقيع :Yasser Elaraby
663013020

look/images/icons/i1.gif صندوق الإدخال INPUTBOX في الـ VBA
  23-08-2019 02:45 مساءً   [7]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10529
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36752
الاعجاب : 184
جزاك الله خيراً أخي وحبيبي ياسر العربي على الموضوع الجميل




اضافة رد جديد اضافة موضوع جديد




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









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

الساعة الآن 12:32 PM