[حل شده] حذف محتوای چند سلول با دادن مقدار شروع و پایان

[abo1524]

سلام یه سوال داشتم
من اعداد ۱تا ۱۰ رو در یک سطر دارم
مثلاa1:j1
دو تا سلول هم دارم برای وارد کردن مقدار عددی
سلولa2
سلولb2
در این دو تا سلول مثلا اعداد ۳ را در سلول a2و۸ را در سلول b2 قرار می دهم
الان چیزی که میخواهم اینه که اعداد داخل سلولهای 1c1,d1,e1,f1,g1,h (۳ تا ۸) مقدارشون حذف بشه
یعنی نتیجه بشه 1,2,......9.10
البته در سلولهای a2وb2 هر مقداری ممکنه وارد بشه
ممنون میشم جواب بدین

[Ali Parsaei]

سلام،
اين کار فقط توسط ماکرو نويسي قابل اجرا است. يک ماکرو خالي ضبط کنيد و سپس کد آن را به صورت زير تغيير دهيد سپس هر موقع ماکرو را اجرا کنيد خواسته شما انجام خواهد شد، اگر خواستيد در سطر هاي ديگر اين کار انجام گردد بايد عدد يک در متن کد ماکرو را به عدد سطر مربوطه تغيير دهيد.

Sub Macro1()
Range(Cells(1, Range("A2").Value), Cells(1, Range("B2").Value)).Select
Selection.ClearContents
End Sub