اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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