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

[بسولي]

السلام عليكم

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

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

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

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

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

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

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

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

ودمتم

[محمد حجازي]

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

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

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

تم تعديل يناير 25, 2005 بواسطه محمد حجازي

[بسولي]

اخوي محمد

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

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

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

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

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

ودمتم