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

تعديل على كود اضافه رقم الى قيمة خلايا محدده في العمود


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

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

السلام عليكم محتاج التعديل على الكود للاستاذ احمد اضافه رقم ١ الى قيمة خلايا محدده في العمود لكي لا يتم إضافة اي قيمه في حال كانت الخليه فارغه"" او " " وان لا يتم تنفيذ الكود إلا اذا كانت صفحة data نشطه كما هو موضح بالملف المرفق مع جزيلا الشكر 

Sub Add_One()
Dim FR
For FR = 10 To 50
Cells(FR, 3) = Val(Cells(FR, 3)) + 1
Next
MsgBox "plus 1 add to all"

End Sub

كود اضافة رقم الي قيمة الخلية من الخلية الى الخلية.xlsm

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

  • أفضل إجابة

تم إضافة الشرطين

شرط اسم الشيت يكون data

وشرط قيمة الخلية لا تساوي "" أو " "

يفضل فهم الكود أولا قبل تطبيقه في الملف حتى يمكنك تنفيذ هذه الشروط بمفردك بعد هذا

Sub Add()
If ActiveSheet.Name = "data" Then
Dim FR
For FR = 10 To 50
If Cells(FR, 3) <> "" And Cells(FR, 3) <> " " Then
Cells(FR, 3) = Val(Cells(FR, 3)) + 1
End If
Next
MsgBox "plus 1 add to all"
End If
End Sub

بالتوفيق

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

ربما لأنك كتبت الشرط على سطرين 

يجب جعل السطرين باللون الأحمر في سطر واحد 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information