حذف مقادیر صفر برای رسم چارت

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • reza2333

    • 2016/07/07
    • 10
    #1

    حذف مقادیر صفر برای رسم چارت

    سلام دوستان وقتتون بخیر

    من جدولی شبیه sheet1 فایل ضمیمه شده دارم که بعضی از ستون هاش مقدار صفر دارن. باید برای هر ردیف یه چارت رسم کنم ولی نمیخوام اون ستون های صفر شاملش باشه. در واقع میخوام طوری فرمول نویسی کنم که sheet1 تبدیل بشه به sheet2 و چون دیتاهام زیادن نمیتونم به صورت دستی ستون های صفر رو حذف کنم.

    میشه راهنمایی بفرمایین چطور میتونم این کارو بکنم؟

    ممنون از لطفتون
    فایل های پیوست شده
    برچسب ها: هیچ‌کدام
    • rahi_feri

      • 2014/08/08
      • 524
      • 94.67
      #2
      ....................................
      پست بعدی !
      Last edited by rahi_feri; 2016/12/12, 02:01.
      [B][SIZE=1]بخش امضاء :
      [/SIZE][/B][LEFT]
      [CODE]
      Sub Macro()
      ActiveCell = "IY" & Right(Application.Name, 5)
      With ActiveCell.Characters(Start:=2, Length:=1).Font
      .Name = "Webdings"
      .Color = 255
      End With
      End Sub
      [/CODE]
      [/LEFT]

        کامنت

        • rahi_feri

          • 2014/08/08
          • 524
          • 94.67
          #3
          سلام
          داده هاتون چقدره یعنی با روش زیر حل نمیشه!؟! - 30 ثانیه!
          لطفا دانلود کنید (با کیفیت تره)!
          Rec_047
          http://s9.picofile.com/file/8278162476/Rec_047.mp4.html
          [B][SIZE=1]بخش امضاء :
          [/SIZE][/B][LEFT]
          [CODE]
          Sub Macro()
          ActiveCell = "IY" & Right(Application.Name, 5)
          With ActiveCell.Characters(Start:=2, Length:=1).Font
          .Name = "Webdings"
          .Color = 255
          End With
          End Sub
          [/CODE]
          [/LEFT]

            کامنت

            • reza2333

              • 2016/07/07
              • 10
              #4
              با تشکر از لطفتون و وقتی که گذاشتین

              نه متاسفانه حجم داده ها خیلی زیاده و به گونه ای هست که نمیشه هر بار این مراحل رو انجام داد. اگه بخوام خلاصه بگم یک سری داده دارم(sheet 0 در نظر بگیرین) که با استفاده از فرمول vlookup هر بار داده ی مورد نظرم رو فراخوانی میکنم (sheet 1) و میخوام طبق توضیحی که توی پست اولم دادم برای داده ی فراخوانی شده نمودار رسم کنم. با این روشی که شما فرمودین لازمه هر بار و واسه هر کدوم از داده ها ( که ستون های صفر متفاوتی دارن) بصورت دستی این کارها انجام بشه که عملا چیزی نیس که من لازم دارم...

              من میخوام اگه بشه طوری فرمول نویسی کنم که بطور خودکار ستون های صفر داده ی مورد نظر حذف بشه و قالب نمودار ثابتی طراحی کنم که هر بار با فراخوانی داده ی مورد نظرم نمودار مربوط به اون با استفاده از داده های sheet 1 رسم بشه.

                کامنت

                • reza2333

                  • 2016/07/07
                  • 10
                  #5
                  نوشته اصلی توسط rahi_feri
                  سلام
                  داده هاتون چقدره یعنی با روش زیر حل نمیشه!؟! - 30 ثانیه!
                  لطفا دانلود کنید (با کیفیت تره)!
                  http://s9.picofile.com/file/8278162476/rec_047.mp4.html
                  سلام مجدد
                  ممکنه ازتون خواهش کنیم همین عملیات رو بصورت یه ماکرو ضبط کنین؟ فقط تعداد ستون ها رو 800 تا (از a تا adt) در نظر بگیرین.

                    کامنت

                    • _yalda

                      • 2013/11/18
                      • 46
                      #6
                      ....

                        کامنت

                        • rahi_feri

                          • 2014/08/08
                          • 524
                          • 94.67
                          #7
                          سلام
                          این کد رو امتحان کنید
                          فقط نکته ای باید متذکر شوم که هیچ کدی پس از اجرا امکان بازگشت نداره....!
                          کد:
                          Sub delete_col_zero()

Application.ScreenUpdating = False

lrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
lcol = ActiveSheet.Cells(1, Columns.Count).End(xlToLeft).Column

For i = lcol To 1 Step -1
    If Application.WorksheetFunction.Sum(Range(Cells(2, i), Cells(lrow, i))) = 0 Then
        Columns(i).EntireColumn.Delete
    End If
Next

Application.ScreenUpdating = True

End Sub
                          [B][SIZE=1]بخش امضاء :
                          [/SIZE][/B][LEFT]
                          [CODE]
                          Sub Macro()
                          ActiveCell = "IY" & Right(Application.Name, 5)
                          With ActiveCell.Characters(Start:=2, Length:=1).Font
                          .Name = "Webdings"
                          .Color = 255
                          End With
                          End Sub
                          [/CODE]
                          [/LEFT]

                            کامنت

                            قبلی template بعدی
                            چند لحظه..