ابو طيبه قام بنشر يوليو 31, 2021 مشاركة قام بنشر يوليو 31, 2021 السلام عليكم محتاج التعديل على الكود للاستاذ احمد اضافه رقم ١ الى قيمة خلايا محدده في العمود لكي لا يتم إضافة اي قيمه في حال كانت الخليه فارغه"" او " " وان لا يتم تنفيذ الكود إلا اذا كانت صفحة 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 رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر يوليو 31, 2021 أفضل إجابة مشاركة قام بنشر يوليو 31, 2021 تم إضافة الشرطين شرط اسم الشيت يكون 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 بالتوفيق 1 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر يوليو 31, 2021 الكاتب مشاركة قام بنشر يوليو 31, 2021 مشكور جهودك استاذ العزيز الله يجعلها في ميزان حسناتك تحياتي لحظرتك 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر يوليو 31, 2021 مشاركة قام بنشر يوليو 31, 2021 جميعا بإذن الله 👍🌹😍 رابط هذا التعليق شارك More sharing options...
ابو طيبه قام بنشر أغسطس 1, 2021 الكاتب مشاركة قام بنشر أغسطس 1, 2021 طلع عندي هذا الخطآ ممكن اعرف شنو السبب رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أغسطس 1, 2021 مشاركة قام بنشر أغسطس 1, 2021 ربما لأنك كتبت الشرط على سطرين يجب جعل السطرين باللون الأحمر في سطر واحد 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.