اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

إدراج قيمة لخلية معينة عن طريق بعض الرسائل


الردود الموصى بها

السلام عليكم

عندي سؤال اذا تكرمتك

اريد عمل كود يقوم بالآتي :

1 ـ اظهار رسالة ادخال يطلب ادخال رقم الصف

2 ـ اظهار رسالة ادخال ثانية يطلب ادخال رقم العمود

3 ـ اظهار رسالة ادخال ثالثة يطلب ادخال قيمة معينة يكتبها المستخدم

4 ـ وضع هذه القيمة في الخلية الناتجة من تقاطع الصف المدخل ( 1 اعلاه) مع العمود (2اعلاه)

للأهمية ( اريد ان تكون جميع المخلات ارقام )

اتمنى ان يكون السؤال واضح

ودمتم :fff:

رابط هذا التعليق
شارك

السلام عليكم ...

هذا كود ، ولكن انتبه إلى أنه إذا كانت قيمة الخلية صفراً فستعتبر قيمة فارغة :

Sub ValueCells()
Dim NemberRow As Long
Dim NemberCoulmn As Integer
Dim ValueCell As Double
 NemberRow = Application.InputBox(prompt:="أدخل رقم صف الخلية", Title:="رقم الصف", Default:=1, Type:=1)
 NemberCoulmn = Application.InputBox(prompt:="أدخل رقم عامود الخلية", Title:="رقم العامود", Default:=1, Type:=1)
 ValueCell = Application.InputBox(prompt:="أدخل القيمة المراد إضافتها", Title:="القيمة", Default:=0, Type:=1)
 If NemberRow = 0 Or NemberCoulmn = 0 Or ValueCell = 0 Then
   Exit Sub
 Else
   ActiveSheet.Cells(NemberRow, NemberCoulmn).Value = ValueCell
 End If
End Sub

ValueCells.zip

تم تعديل بواسطه محمد حجازي
رابط هذا التعليق
شارك

اخوي محمد

الكود يعمل معي بشكل صحيح

شاكر وممتن ومقدر ومدين لك بهذه الإبداعات

كلمات الشكر عاجزة عن التعبير.................... ولكن

اسأل الله الكريم رب العرش العظيم ان يزيدك علما الى علمك :fff: ويفرج جميع كربك

:fff: ويرزقك المال الحلال والزوجة الحنون والذرية الصالحة

ودمتم

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information