【本週必搶items：LAKH x Topologie 聯乘企劃】
功能融和，重新定義
聯乘的要素就是因應品牌間的特色貫穿相方，融合新的產品，新的定義。
看來，是回由LAKH x Topologie的聯乘企劃就做到了。LAKH 的褲款是一大標誌，Topologie則是袋款，最 後將兩者融和，設計出能夠將用途轉移使用的新版本 LAKH x Topologie Twelve Pockets Cargo Shorts，生活上更添實用。
LAKH 在其標籤 LAKH SIGNATURE 裡頭發表「REMAPPED UTILITY」系列，當中便將品牌定番款式 Ten Pockets Cargo Shorts重塑，依着基調剪裁的軍裝短褲上作延伸，演練出切合生活日常需要的功能感，選用品牌自家研製的高密度尼龍材質製作，褲款一邊保留原來 Twelve Pockets Cargo Shorts 的外觀，有着兩枚 FIDLOCK®️ 磁 扣;另一邊則以 Topologie 定番 Chalk Bumbag 為靈感基調，令穿着者可以將袋置於褲內，並因應着需要將之提取出來，變回平常斜揹袋的設定，呈現全新作品 Twelve Pockets Cargo Shorts。 系列亦同告帶來雙方聯乘的手機保護殼，用上與褲款相呼應的黑色為主，再添加代表着 Topologie 一貫的橙紅色調點綴，令人一眼注目。
企劃中推出了2款產品，分別是：
LAKH x Topologie Twelve Pockets Cargo Shorts with Chalk Bumbag 各$798
LAKH x Topologie iPhone Case with Strap Set 各$380
產品已於LAKH SELECT 有售。
LAKH SELECT
尖沙咀彌敦道 100 號 The ONE 商場 1 樓 L116 號舖
select case 在 [問題] Excel VBA: Select case如何與陣列應用- 看板Office 的推薦與評價
(若是和其他不同軟體互動之問題 請記得一併填寫)
軟體:
Execl VBA
版本:
應該沒差，但我用的是Excel 2010
問題：
如何讓Select Case的條件是一個動態的陣列
參考檔案：
https://drive.google.com/open?id=0B2QcJDcx2jDkbnplbW04amxFNkU&authuser=0
背景：
我希望得到的效果是，寫一個巨集，
使多個PivotTable的某個欄位瞬間只顯示某幾個值，而且這幾個值要是動態的
我的瓶頸：
我無法使PivotTable的某個欄位只顯示某幾個值，除非我把它寫在巨集裡
我資料：
name gender Saving
a m 12
b f 23
c f 25
d m 24
e m 65
f m 32
g f 12
h m 3
我用PivotTable顯示，name= "a" , "b", "c", "d"的人中
各gender的saving各總共有多少如下
(PivotTable Name="樞紐分析表1")：
_________________________
|name |(多重項目) |
|-----------|-------------|
|列標籤 |加總 - Saving|
|f |48 |
|m |36 |
|總計 |84 |
|___________|_____________|
我寫的巨集如下:
Sub 巨集1()
For Each op In ActiveSheet.PivotTables("樞紐分析表1"). _
PivotFields("name").PivotItems
On Error Resume Next
Select Case op.Name
Case "a"
op.Visible = True
Case "b"
op.Visible = True
Case "c"
op.Visible = True
Case "d"
op.Visible = True
Case Else
op.Visible = False
End Select
Next op
End Sub
我的問題：
這樣的寫法條件就一定要是寫在巨集裡面，要改很麻煩
我希望:
我可以把條件改成用陣列輸入
ex: ={"a","b","c","d"}
這樣我只要改陣列的內容就可以改pivottable，很方便
感謝大家撥冗看完我的文題，希望可以不吝指點一下我
我VBA幾乎是自學，很痛苦XD
--
【主功能表】 批踢踢實業坊
φjeans1020 ┼┼ ▂▃▄▄▄▄▃▂ 在那荒茫美麗馬勒戈壁有一群草泥馬
日 ▊ ﹏ ﹏ ▎ 他們活潑又聰明，他們調皮又靈敏
▂▃▂ ┼ ◤ ﹏ ◥ 他們自由自在生活在那草泥馬戈壁
˙˙ ：尸 ▼ ▊ 他們頑強克服艱苦環境
▲！▲ ╯匕 __)(__ ▍ 噢~臥槽的草泥馬
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 111.250.74.78
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1435480628.A.626.html
※ 編輯: gg01 (111.250.74.78), 06/28/2015 16:42:01
... <看更多>