[討論] Excel購買明細公式選取

[insie (晞★)]

接續上篇推文提到的如何用公式直接拉團員的文字購買明細
要先謝謝plnceto大提供的高手檔案
其實我只是把那個檔案裡面的程式碼拉出來建立在其他excel檔案而已> <

一、首先要先啟用所有巨集

Excel 2007以上版本，如不能執行，
請檔案→選項→信任中心→信任中心設定→巨集設定→啟用所有巨集，即可
Excel 2003版本，如不能執行，
請工具→巨集→安全性→安全性層級→低，即可

修改後重新開啟Excel，讀檔


二、巨集設定

1. 檢視→檢視巨集→巨集名稱那邊隨便打一個名字(ex. combinstr)→按建立
將以下這段程式碼全部複製到空白處(蓋掉原本的Sub combinstr() 和 End Sub)


==========================程式碼(下方有此模組下載網址)=========================

(謝謝soyoso大修改版，就算團員數量寫0還是可以用了)

Function CombinStr(rowRng As Range, tRng As Range, dRng As Range)
Dim Rng As Range, w&, Str$
For Each Rng In dRng
    w = w + 1
    If Rng <> "" And Rng <> 0 Then
        Str = Str & "," & tRng.Cells(1, w) & "*" & Rng
    End If
Next
CombinStr = Mid(Str, 2)
End Function

===========================================================================

建立完直接按右上角X離開

2. 公式說明：
CombinStr有設三個參數
1.甲乙丙丁(例如A2)
2.物品列ABCDEF(例如B1:G1)，公式下拉要留意要加$絕對參照
3.數量列(例如B2:G2)


3. 存檔的時候要選擇存檔類型"EXCEL啟用巨集的活頁簿"

*之後給集貨明細可以把文字明細直接複製出來即可，否則集貨還要自行修改巨集設定

4. (為everyna大提供) 若之後要使用此模組，只要把該使用過模組[匯出]
另存.bas檔，以後創新EXCEL時對該工作表，右鍵[檢視程式碼]點下，左上角[檔案]點
[匯出]，選擇之前存過的模組，就可以使用

模組下載(s大更新版新載點)：http://ppt.cc/1CWx

---

可先下載plnceto大提供的檔案會更清楚~
連結：http://goo.gl/D1ZAAy


我還沒正式用在團務處理上
如果大家用的過程中發現有任何問題
歡迎大家推文一起討論:)

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.143.27.255
※ 文章網址: http://www.ptt.cc/bbs/Chat82gether/M.1416330924.A.BC4.html
※ 編輯: insie (223.143.27.255), 11/19/2014 01:24:53
推 plnceto: 想請問這樣是不是這個公式都只能在設定的
→ plnceto: excel用 沒辦法說像sum/round那類每excel
→ plnceto: 都可以隨打隨用~~?
→ insie: 對唷，都要重新設定
推 unben8230u: 好棒！明天試試，謝謝兩位超棒主購！
推 everyna: 不須重新設定，只要把該使用過模組[匯出]
→ everyna: 另存.bas檔，以後創新EXCEL時對該工作表
→ everyna: 右鍵[檢視程式碼]點下，左上角[檔案]點[
→ everyna: 匯出]，選擇之前存過的模組，就可以使用
謝謝e大，昨天沒摸索出來後續就先睡了><

推 plnceto: 有了有了 摸索出來了 謝謝羊毛大 !!
→ plnceto: 這樣我就不用擔心原檔案不見了 T_T
推 alice1013: 我想推條件公式 做明細超好用 XDD
→ plnceto: http://ppt.cc/aebd  模組
→ churryrain: 真是聰明滴羊毛~~
推 djpro: 謝謝教學 晚點試試
推 poisesunrise: 天啊我都跟我同學吹噓我學會合購後
→ poisesunrise: 整個變成excel小天后，現在發現我
→ poisesunrise: 不過是個小宮女而已，版上神人輩出
→ poisesunrise: 啊@@
推 ruby40861: 實用推，我也都自己拉~
推 lynn90313: 我一定要跪拜啊@@
推 slim1206: 想請問2003版要怎麼匯入模組呢?
推 carasu: 這下不用每次對到眼花了,謝謝分享
推 okok4127: 完全看不懂.....(已哭
推 carasu: 如果有0的選單,可以先用取代把0移除,這樣
→ carasu: 也可以用這個模組
→ soyoso: 要排除0，可將If Rng <> "" then這列
→ soyoso: 改為If Rng <> "" And Rng <> 0 Then
謝謝s大，已更新

推 carasu: 改過程式,有0也可以用.謝S大
推 sukidase: 使用成功XD 感謝分享
推 sukidase: 感謝s大修改板
推 freshever: 主購們辛苦了，開團勞心勞力還要會
→ freshever: excel技巧，不過excel真的很好用啊
推 plnceto: 非常感謝 soyoso 大 !!!!!!!!!
→ plnceto: 這個檔案就是 s 大給我的
→ plnceto: 請在受我一拜 <(_ _)>
※ 編輯: insie (114.43.8.2), 11/19/2014 21:34:16
→ soyoso: plnceto大，真的是不敢當^^
推 nadel0922: 好猛喔!!!! 果然高手在民間(朝聖)