Board logo

標題: [發問] 請問這種樞紐格式的百分比要如何快速計算? [打印本頁]
作者: freeffly    時間: 2013-7-9 09:37     標題: 請問這種樞紐格式的百分比要如何快速計算?

我想要計算每一個簡稱在那一個族群裡面的百分比
副檔中有針對第一個棧版跟PE膜計算

我有想過用迴圈方式，但是要判斷每一族群的總計
目前我還沒想到好方式







[attach]15387[/attach]
作者: freeffly    時間: 2013-7-9 11:13

下面是我試出來的
應該還有更有效率的方式
  1. Sub 品名百分比()
  2.     Application.ScreenUpdating = False
  3.     For r = 7 To Range("C65536").End(xlUp).Row + 2 Step 2
  4.     n = Cells(r - 1, 1).End(xlDown).Row
  5.     If r < n And Cells(r - 1, 2) <> "" Then
  6.         For c = 4 To 8
  7.         If Cells(r - 1, c) <> "" Then
  8.         Cells(r, c) = Cells(r - 1, c) / Cells(n, c)
  9.         End If
  10.         Next
  11.     End If
  12.     If Left(Cells(r, 1), 3) = "百分比" Or Right(Cells(r, 1), 3) = "百分比" Then
  13.         For x = 4 To 8
  14.         Cells(r, x) = 1
  15.         Next
  16.     End If
  17.         
  18.     Next

  20. End Sub
複製代碼
作者: Baracuda    時間: 2013-7-9 17:08

可否惠賜原始的模擬資料，我試著做看看。
這個在新版2013好像不用寫程式。
作者: Baracuda    時間: 2013-7-10 18:09

這個結果請你看看。
作者: freeffly    時間: 2013-7-11 11:07

回復 4# Baracuda


    雖然表達方式不一樣
   但是結果是一樣
   我是用2003
    所以如果只能用2013去做就只能這樣
   不過我也覺得樞紐本身的功能應該要能做到這各
作者: diabo    時間: 2013-7-12 20:30

回復 5# freeffly

另外想法，增加輔助欄位，統計品名年度淨額，再利用樞紐分析的新增計算欄位，計算個年度之簡稱佔品名的比率。

[attach]15405[/attach]

[attach]15406[/attach]

[attach]15407[/attach]
作者: Baracuda    時間: 2013-7-15 13:11

回復 #4樓 Freeffly ，這是用2010版做的。
另外 #5樓 diabo 的做法，看來也可以解決。你參考看看。

如果動 VBA 應該也可以，但是看來動作不小。
作者: freeffly    時間: 2013-7-15 17:12

回復 7# Baracuda
回復 6# diabo

謝謝各位大大回覆
目前我使用上面的vba是ok
雖然判斷上不是以嚴謹的方式

輔助欄暫不考慮
因為資料量太多



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)