همه چیز را همگان دانند

اشتراک دانش
همه چیز را همگان دانند
با سلام و عرض احترام خدمت شما
در صورتی که هر کدوم از مطالب به کارتون میاد اطلاع بدید تا راهنمایی کامل تر براتوم ارسال کنم و یا برنامه ای برای مسئله شما بنویسم

۱ مطلب با کلمه‌ی کلیدی «حذف ستون در اکسل» ثبت شده است

پنجشنبه, ۱۷ دی ۱۳۹۴، ۰۹:۰۶ ب.ظ

تکه کد حذف برخی از ستون های اکسل

سلام با این تکه کد می توانید هر دسته از ستون های فایل اکسل را حدف نمایید.

Sub delete()
For i = 2076 To 1 Step -1
If Cells(48, i) = 0 Then ' در صورت صفر بودن '
Columns(i).delete Shift:=xlToLeft
End If
Next i
End Sub

نکته مهم در این تکه کد پیمایش از انتها به ابتدا است . کشف علت این امر را به خواننده واگذار میکنم

۰ نظر موافقین ۰ مخالفین ۰ ۱۷ دی ۹۴ ، ۲۱:۰۶
وبلاگ نویس