精華區beta Chat82gether 關於我們 聯絡資訊
接續上篇推文提到的如何用公式直接拉團員的文字購買明細 要先謝謝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: 想請問這樣是不是這個公式都只能在設定的111.249.70.218 11/19 01:48
plnceto: excel用 沒辦法說像sum/round那類每excel111.249.70.218 11/19 01:49
plnceto: 都可以隨打隨用~~?111.249.70.218 11/19 01:50
insie: 對唷,都要重新設定 223.143.27.255 11/19 01:54
unben8230u: 好棒!明天試試,謝謝兩位超棒主購!111.248.115.188 11/19 02:20
everyna: 不須重新設定,只要把該使用過模組[匯出]1.162.88.30 11/19 02:34
everyna: 另存.bas檔,以後創新EXCEL時對該工作表1.162.88.30 11/19 02:35
everyna: 右鍵[檢視程式碼]點下,左上角[檔案]點[1.162.88.30 11/19 02:37
everyna: 匯出],選擇之前存過的模組,就可以使用1.162.88.30 11/19 02:37
謝謝e大,昨天沒摸索出來後續就先睡了><
plnceto: 有了有了 摸索出來了 謝謝羊毛大 !!111.249.70.218 11/19 02:47
plnceto: 這樣我就不用擔心原檔案不見了 T_T111.249.70.218 11/19 02:49
alice1013: 我想推條件公式 做明細超好用 XDD1.174.84.216 11/19 02:52
plnceto: http://ppt.cc/aebd 模組111.249.70.218 11/19 02:55
churryrain: 真是聰明滴羊毛~~124.8.227.200 11/19 03:08
djpro: 謝謝教學 晚點試試27.240.0.102 11/19 07:49
poisesunrise: 天啊我都跟我同學吹噓我學會合購後223.137.79.163 11/19 09:11
poisesunrise: 整個變成excel小天后,現在發現我223.137.79.163 11/19 09:11
poisesunrise: 不過是個小宮女而已,版上神人輩出223.137.79.163 11/19 09:11
poisesunrise: 啊@@223.137.79.163 11/19 09:11
ruby40861: 實用推,我也都自己拉~ 140.112.55.35 11/19 10:28
lynn90313: 我一定要跪拜啊@@ 163.25.95.140 11/19 10:31
slim1206: 想請問2003版要怎麼匯入模組呢? 60.249.203.223 11/19 11:09
carasu: 這下不用每次對到眼花了,謝謝分享 220.130.36.2 11/19 11:19
okok4127: 完全看不懂.....(已哭 114.46.205.177 11/19 12:30
carasu: 如果有0的選單,可以先用取代把0移除,這樣 220.130.36.2 11/19 12:52
carasu: 也可以用這個模組 220.130.36.2 11/19 12:52
soyoso: 要排除0,可將If Rng <> "" then這列 1.172.62.50 11/19 13:03
soyoso: 改為If Rng <> "" And Rng <> 0 Then 1.172.62.50 11/19 13:03
謝謝s大,已更新
carasu: 改過程式,有0也可以用.謝S大 220.130.36.2 11/19 15:25
sukidase: 使用成功XD 感謝分享140.129.136.215 11/19 16:53
sukidase: 感謝s大修改板140.129.136.215 11/19 17:00
freshever: 主購們辛苦了,開團勞心勞力還要會 36.234.44.184 11/19 18:45
freshever: excel技巧,不過excel真的很好用啊 36.234.44.184 11/19 18:45
plnceto: 非常感謝 soyoso 大 !!!!!!!!! 111.249.70.218 11/19 21:14
plnceto: 這個檔案就是 s 大給我的 111.249.70.218 11/19 21:18
plnceto: 請在受我一拜 <(_ _)> 111.249.70.218 11/19 21:18
※ 編輯: insie (114.43.8.2), 11/19/2014 21:34:16
soyoso: plnceto大,真的是不敢當^^ 1.172.62.50 11/20 00:18
nadel0922: 好猛喔!!!! 果然高手在民間(朝聖)118.233.152.172 11/22 02:45