نیازمند نوعی transpose در حالت پیشرفته

Collapse
این تاپیک قفل است.
X
X
 
  • زمان
  • نمایش
حذف همه
new posts
  • yogishiip

    • 2014/12/13
    • 78
    • 43.00

    [حل شده] نیازمند نوعی transpose در حالت پیشرفته

    سلام
    یک سوال دارم یکم بیانش برام سخته !
    چگونه جدول شماره یک رو به جدول شماره 2 تبدیل کنم ؟
    دیتا هام خیلی زیاده وامکان انجام دستی فرایند جایگذاری رو ندارم ؟

    جدول شماره یک
    نام مرکز تعداد نام کالا کد کالا
    واحد 2 406 کالای 1 100001
    واحد 3 417 کالای 1 100001
    واحد 4 30 کالای 1 100001
    واحد 5 8 کالای 1 100001
    واحد 9 15 کالای 2 100002
    واحد 6 67 کالای 3 100003
    واحد 6 300 کالای 4 100005
    واحد 7 10 کالای 4 100005
    واحد 3 700 کالای 5 100006
    واحد 6 600 کالای 5 100006
    واحد 8 1,000 کالای 5 100006
    واحد 1 1,000 کالای 6 100007
    واحد 3 400 کالای 6 100007
    واحد 9 300 کالای 6 100007

    جدول شماره 2
    واحد 1 واحد 9 واحد 8 واحد 7 واحد 6 واحد 9 واحد 2 واحد 3 واحد 4 واحد 5 نام کالا کد کالا
    0 0 0 0 0 0 406 417 30 8 کالای 1 100001
    0 0 0 0 0 15 0 0 0 0 کالای 2 100002
    0 0 0 0 67 0 0 0 0 0 کالای 3 100003
    0 0 0 10 300 0 0 0 0 0 کالای 4 100005
    0 0 1,000 0 600 0 0 700 0 0 کالای 5 100006
    1,000 300 0 0 0 0 0 400 0 0 کالای 6 100007
    فایل اکسل پیوست مطلب شامل همین دیتاهاست
    فایل های پیوست شده
    Last edited by yogishiip; 2017/03/03, 18:28.
  • rahi_feri

    • 2014/08/08
    • 524
    • 94.67

    #2
    سلام
    چک کنید...!
    فایل های پیوست شده
    [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
      تماشا کنید...!
      لینک آموزشی

      راه های دیگه استفاده از فرمول مثل sumif و یا VBA هستش!.
      این ها روش های گزارش گیریه ولی اگه شما می خواهید رکورد های ثبتی فقط جابجا شوند و فرمت دیگه ای داشته باشند قضیه فرق داره!
      فایل های پیوست شده
      [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]

      کامنت

      چند لحظه..