返回列表 上一主題 發帖

[發問] 請問這種樞紐格式的百分比要如何快速計算?

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-7-9 09:37 | 只看該作者

[發問] 請問這種樞紐格式的百分比要如何快速計算?

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

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







Book1.rar (27.44 KB)
收藏 分享
字典兩各字 還真難理解

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
8#
發表於 2013-7-15 17:12 | 只看該作者
回復 7# Baracuda
回復 6# diabo

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

輔助欄暫不考慮
因為資料量太多
字典兩各字 還真難理解

TOP

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
7#
發表於 2013-7-15 13:11 | 只看該作者
回復 #4樓 Freeffly ，這是用2010版做的。
另外 #5樓 diabo 的做法，看來也可以解決。你參考看看。

如果動 VBA 應該也可以，但是看來動作不小。

TOP

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
6#
發表於 2013-7-12 20:30 | 只看該作者
回復 5# freeffly

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





Book1_rev1.rar (29.23 KB)
diabo

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
5#
發表於 2013-7-11 11:07 | 只看該作者
回復 4# Baracuda


    雖然表達方式不一樣
   但是結果是一樣
   我是用2003
    所以如果只能用2013去做就只能這樣
   不過我也覺得樞紐本身的功能應該要能做到這各
字典兩各字 還真難理解

TOP

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
4#
發表於 2013-7-10 18:09 | 只看該作者
這個結果請你看看。

Output.zip (43.6 KB)

TOP

Baracuda

帖子
132 
主題
25 
精華
0 
積分
199 
點名
0  
作業系統
window XP 
軟體版本
Excel 2010 
閱讀權限
20 
性別
男 
來自
台灣 新竹 
註冊時間
2010-6-1 
最後登錄
2022-7-14 

2013蛇年全勤獎章論壇榮譽勳章論壇贊助勳章
3#
發表於 2013-7-9 17:08 | 只看該作者
可否惠賜原始的模擬資料，我試著做看看。
這個在新版2013好像不用寫程式。

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
2#
發表於 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
複製代碼
字典兩各字 還真難理解

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題