أ/حكيم قام بنشر مارس 5, 2020 مشاركة قام بنشر مارس 5, 2020 المطلوب كود مسح محنوبات نطاق محدد من الخلايا متغير النطاق مسح.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 5, 2020 مشاركة قام بنشر مارس 5, 2020 جرب هذا الكود Option Explicit Sub del_data() Dim Cel_1$, Cel_2$, x%, y% Cel_1 = Range("B4"): Cel_2 = Range("C4") x = Cel_1 Like "[A-Za-z]*#*" y = Cel_2 Like "[A-Za-z]*#*" If x * y <> 0 Then _ Range(Cel_1 & ":" & Cel_2).Delete Shift:=xlUp End Sub رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر مارس 5, 2020 الكاتب مشاركة قام بنشر مارس 5, 2020 أريد الكود بهذا الشكل ولكن يعمل بشكل صحيح أرجو أن أكون وضحت المطلوب Sub del_data() Range(Range("G" & [B4]) & ":" & Range("G" & [C4])).ClearContents End Sub رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 5, 2020 مشاركة قام بنشر مارس 5, 2020 في نفس الكود ضع مكان .Delete Shift:=xlUp العبارة التالية ClearContents رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر مارس 5, 2020 الكاتب مشاركة قام بنشر مارس 5, 2020 أقصد أن لا أكتب في الخلية النطاق يعني يكون في الكود العمود G ويكتب في الخلية نطاق الصفوف مثالا أكتب في الخلية B4 رقم 1 و الخلية C4 رقم 30 فيتم مسح النطاق G1:G30 رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر مارس 5, 2020 أفضل إجابة مشاركة قام بنشر مارس 5, 2020 تم التعديل Option Explicit Sub del_data() Dim Cel_1, Cel_2, x%, y% Cel_1 = Range("B4"): Cel_2 = Range("C4") x = Cel_1 Like "#*" y = Cel_2 Like "#*" If x * y <> 0 Then Cel_1 = "G" & Cel_1 Cel_2 = "G" & Cel_2 Range(Cel_1 & ":" & Cel_2).ClearContents End If End Sub 1 رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر مارس 6, 2020 الكاتب مشاركة قام بنشر مارس 6, 2020 هذا هو المطلوب شكرا جزيلا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان