PTT消費區 / Chat82gether (轉讓合購)

[討論] Excel購買明細公式設定已回收

看板Chat82gether (轉讓合購)作者 (晞★)時間11年前 (2014/11/19 01:15), 11年前編輯推噓19(19推 0噓 19→)
留言38則, 17人參與, 最新討論串1/2 (看更多)
接續上篇推文提到的如何用公式直接拉團員的文字購買明細 要先謝謝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
推
11/19 01:48, , 1F
想請問這樣是不是這個公式都只能在設定的
11/19 01:48, 1F
→
11/19 01:49, , 2F
excel用 沒辦法說像sum/round那類每excel
11/19 01:49, 2F
→
11/19 01:50, , 3F
都可以隨打隨用~~?
11/19 01:50, 3F
→
11/19 01:54, , 4F
對唷，都要重新設定
11/19 01:54, 4F
推
11/19 02:20, , 5F
好棒！明天試試，謝謝兩位超棒主購！
11/19 02:20, 5F
推
11/19 02:34, , 6F
不須重新設定，只要把該使用過模組[匯出]
11/19 02:34, 6F
→
11/19 02:35, , 7F
另存.bas檔，以後創新EXCEL時對該工作表
11/19 02:35, 7F
→
11/19 02:37, , 8F
右鍵[檢視程式碼]點下，左上角[檔案]點[
11/19 02:37, 8F
→
11/19 02:37, , 9F
匯出]，選擇之前存過的模組，就可以使用
11/19 02:37, 9F
謝謝e大，昨天沒摸索出來後續就先睡了><
推
11/19 02:47, , 10F
有了有了 摸索出來了 謝謝羊毛大 !!
11/19 02:47, 10F
→
11/19 02:49, , 11F
這樣我就不用擔心原檔案不見了 T_T
11/19 02:49, 11F
推
11/19 02:52, , 12F
我想推條件公式 做明細超好用 XDD
11/19 02:52, 12F
→
11/19 02:55, , 13F
11/19 02:55, 13F
→
11/19 03:08, , 14F
真是聰明滴羊毛~~
11/19 03:08, 14F
推
11/19 07:49, , 15F
謝謝教學 晚點試試
11/19 07:49, 15F
推
11/19 09:11, , 16F
天啊我都跟我同學吹噓我學會合購後
11/19 09:11, 16F
→
11/19 09:11, , 17F
整個變成excel小天后，現在發現我
11/19 09:11, 17F
→
11/19 09:11, , 18F
不過是個小宮女而已，版上神人輩出
11/19 09:11, 18F
→
11/19 09:11, , 19F
啊@@
11/19 09:11, 19F
推
11/19 10:28, , 20F
實用推，我也都自己拉~
11/19 10:28, 20F
推
11/19 10:31, , 21F
我一定要跪拜啊@@
11/19 10:31, 21F
推
11/19 11:09, , 22F
想請問2003版要怎麼匯入模組呢?
11/19 11:09, 22F
推
11/19 11:19, , 23F
這下不用每次對到眼花了,謝謝分享
11/19 11:19, 23F
推
11/19 12:30, , 24F
完全看不懂.....(已哭
11/19 12:30, 24F
推
11/19 12:52, , 25F
如果有0的選單,可以先用取代把0移除,這樣
11/19 12:52, 25F
→
11/19 12:52, , 26F
也可以用這個模組
11/19 12:52, 26F
→
11/19 13:03, , 27F
要排除0，可將If Rng <> "" then這列
11/19 13:03, 27F
→
11/19 13:03, , 28F
改為If Rng <> "" And Rng <> 0 Then
11/19 13:03, 28F
謝謝s大，已更新
推
11/19 15:25, , 29F
改過程式,有0也可以用.謝S大
11/19 15:25, 29F
推
11/19 16:53, , 30F
使用成功XD 感謝分享
11/19 16:53, 30F
推
11/19 17:00, , 31F
感謝s大修改板
11/19 17:00, 31F
推
11/19 18:45, , 32F
主購們辛苦了，開團勞心勞力還要會
11/19 18:45, 32F
→
11/19 18:45, , 33F
excel技巧，不過excel真的很好用啊
11/19 18:45, 33F
推
11/19 21:14, , 34F
非常感謝 soyoso 大 !!!!!!!!!
11/19 21:14, 34F
→
11/19 21:18, , 35F
這個檔案就是 s 大給我的
11/19 21:18, 35F
→
11/19 21:18, , 36F
請在受我一拜 <(_ _)>
11/19 21:18, 36F
※ 編輯: insie (114.43.8.2), 11/19/2014 21:34:16
→
11/20 00:18, , 37F
plnceto大，真的是不敢當^^
11/20 00:18, 37F
推
11/22 02:45, , 38F
好猛喔!!!! 果然高手在民間(朝聖)
11/22 02:45, 38F
‣ 更多 insie 的文章
文章代碼(AID): #1KQtwil4 (Chat82gether)
Chat82gether 近期熱門文章
更多 近期熱門文章 >>
PTT消費區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 insie 的文章
文章代碼(AID): #1KQtwil4 (Chat82gether)