حذف ستون هایی که مقادیر صفر دارند

[md14511]

سلام

من یک سطر دارم با چند تا ستون

میخوام ستون هایی که مقادیر صفر دارند حذف شوند و در سطر فقط آن ستون هایی که مقادیر بالاتر از صفر هستند بمانند به همراه نام سر ستون

فایل پیوست کاملا مشخص است دنبال چی هستم

ممنون دوستان

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[DOLFIN]

سلام
لطفا فایل زیر را بررسی بفرمایید .

[mokaram]

جواب سوال با استفاده از کدهای VBA

Dim lastColumn As Long
Dim iCntr As Long
lastColumn = 14
For iCntr = lastColumn To 1 Step -1
    If Cells(4, iCntr) = 0 Then
        Columns(iCntr).Delete
    End If
Next 

[md14511]

سلام
لطفا فایل زیر را بررسی بفرمایید .

ممنون خیلی خوب بود فقط یه سوال ؟؟؟؟

اگر من از بالا سطر اضافه کنم (یعنی insert کنم) فرمول میریزه به هم میشه کاری کرد که نریزه به هم؟

یا توضیح بدید کجای فرمول رو تغییر بدم که درست بشه

ممنون

[md14511]

جواب سوال با استفاده از کدهای VBA

Dim lastColumn As Long
Dim iCntr As Long
lastColumn = 14
For iCntr = lastColumn To 1 Step -1
    If Cells(4, iCntr) = 0 Then
        Columns(iCntr).Delete
    End If
Next 

ببخشید ...

چجوری باید این ماکرو رو استفاده کنم.....

نگید این چقد گیجه !!!!!!!....یادم رفته....

[mokaram]

ببخشید ...

چجوری باید این ماکرو رو استفاده کنم.....

نگید این چقد گیجه !!!!!!!....یادم رفته....

به یک شی مثل شیپ یا باتن الصاقش کنید . مثلا یه شیپ روی شیت ایجاد کنید و بعد روی اون راست کلیک کرده assign macro را زده و ماکروی مربوطه را انتخاب کنید و ok را بزنید
در ضمن اگر تعداد ستون های شما بیشتر شد می تونید شماره آخرین ستون را در قطعه کد زیر تغییر بدید

lastColumn = 14 

[shamsololama]

با درود فراوان و سپاس از مدیر انجمن

جهت اینکه با اینسرت به هم نریزه این شماره چهار رو تو سطر پایین یا تغییرش بدی یا متغییرش کنی
If Cells(4, iCntr) = 0 Then

[mokaram]

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

[DOLFIN]

سلام
در جواب سوالتون باید بگم که در سطر چهاردهم فرمولی که نوشته شده مربوط به سطر سوم هستش و شما می بایست در فرمول بعد از address عدد 3 رو به شماره سطر دلخواهتون تغییر بدید.
اما نکته ای که لازم میبینم مطرح کنم این هستش که اگر شما دنبال آموزش اکسل هستید به این صورت پرسش و پاسخ ، مطلب رو به نحو درست دریافت نمی کنید چون همانطور که خودتون در این فایل می بینید از ترکیب چند فرمول جواب شما به دست آمده پس می بایست حداقل با ساختار فرمول ها آشنایی داشته باشیم که بشود تغییری در فرمول ها ایجاد کرد یا با چگونگی رسیدن به جواب آشنا شد.
حتما این نوع یادگیری اکسل به نفع شماست و مطمعنا فواید بسیاری برای شما دارد . علاوه بر پیشرفت شما در استفاده از نرم افزار اکسل موجب لذت بیشتری در هنگام کار نیز می شود.
موفق باشید.

[md14511]

سلام
در جواب سوالتون باید بگم که در سطر چهاردهم فرمولی که نوشته شده مربوط به سطر سوم هستش و شما می بایست در فرمول بعد از address عدد 3 رو به شماره سطر دلخواهتون تغییر بدید.
اما نکته ای که لازم میبینم مطرح کنم این هستش که اگر شما دنبال آموزش اکسل هستید به این صورت پرسش و پاسخ ، مطلب رو به نحو درست دریافت نمی کنید چون همانطور که خودتون در این فایل می بینید از ترکیب چند فرمول جواب شما به دست آمده پس می بایست حداقل با ساختار فرمول ها آشنایی داشته باشیم که بشود تغییری در فرمول ها ایجاد کرد یا با چگونگی رسیدن به جواب آشنا شد.
حتما این نوع یادگیری اکسل به نفع شماست و مطمعنا فواید بسیاری برای شما دارد . علاوه بر پیشرفت شما در استفاده از نرم افزار اکسل موجب لذت بیشتری در هنگام کار نیز می شود.
موفق باشید.

ممنون از راهنمایی خوبتون

من اکسلم بد نیست، فهمیدم هم چی کار کردید ، ولی عدد 3 را به 4 تغییر دادم فرمول دیگه کار نمیکنه

اگه امکان داره فرمول را برام از سطر 4 بنویسید....

چون من میخوام این فرمول را برای جدول پیووت بنویسم و جدولم از سطر 4 شروع میشه

ممنون