[發問] VBA請益

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

2^#

發表於 2020-12-14 00:10 | 只看該作者

本帖最後由 n7822123 於 2020-12-14 00:12 編輯

回復 1# jjloiasd

然後依照上面給的抽核%數，抽出至少大於該%數的金額

所以抽核%數是多少?

若摘要中含有"暫估"字樣的不要選

暫估 or 預估?

為什麼你的範例，"租金支出-一般" 有區分"銷售費用" 與 "管理費用"

但是其他科目不用區分?

為什麼你的範例，"保險費" 多了一欄 "Total"，但是其他科目沒有?

我先不管抽核%數，資料都秀出來，你先看看格式、資料是不是你要的

範例-1214.rar (22.68 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

jjloiasd

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: win10
軟體版本: 2019
閱讀權限: 10
註冊時間: 2020-3-13
最後登錄: 2024-8-28

論壇贊助勳章

3^#

發表於 2020-12-15 09:08 | 只看該作者

回復 2# n7822123

N大您好，首先真心感謝您的回覆
您的VBA正好是我想要的結果
也要和您說聲抱歉，小弟第一次發文，有諸多未注意到的地方，感謝N大的指教

針對您的問題，回覆如下：
1.抽核%數並非固定，有時為20%、15%、10%甚或30%均有
故當時沒給出一個特定的比例
但平均而言，20%為多數(若N大需要的話，以20%為主)

2.這點是我的疏忽
主因是填寫的人不一，大部分會要求用"暫估"字樣填寫
但仍有出現N大所提的例如"預估"、"估列"字樣
若N大方便的話，請設定為若摘要中含有"估"字樣的不要選

3."租金支出-一般" 有區分"銷售費用" 與 "管理費用"，但是其他科目不用區分?
當時只是想說用一個科目做說明，後續就簡便形式，已把其他科目一併修正

4.為什麼你的範例，"保險費" 多了一欄 "Total"，但是其他科目沒有?
這欄是不要的，忘記刪除，已修正

再一次感謝N大的指導~~

範例.zip (13.41 KB)

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

4^#

發表於 2020-12-15 12:19 | 只看該作者

回復 3# jjloiasd

N大您好，首先真心感謝您的回覆
您的VBA正好是我想要的結果
也要和您說聲抱歉，小弟第一次發文，有諸多未注意到的地方，感謝N大的指教

沒事，下次發問，記得你的範例與敘述要能符合就好，若問題太多我也不會寫VBA回覆了

1.抽核%數並非固定，有時為20%、15%、10%甚或30%均有
故當時沒給出一個特定的比例
但平均而言，20%為多數(若N大需要的話，以20%為主)

那做個詢問功能給你輸入，並且預設20%，可自己更改(亂輸入會跑不出迴圈)

2.這點是我的疏忽
主因是填寫的人不一，大部分會要求用"暫估"字樣填寫
但仍有出現N大所提的例如"預估"、"估列"字樣
若N大方便的話，請設定為若摘要中含有"估"字樣的不要選

都已排除，檔案如附件

範例-1215.rar (25.86 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

jjloiasd

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 7
點名: 0
作業系統: win10
軟體版本: 2019
閱讀權限: 10
註冊時間: 2020-3-13
最後登錄: 2024-8-28

論壇贊助勳章

5^#

發表於 2020-12-20 14:15 | 只看該作者

本帖最後由 jjloiasd 於 2020-12-20 14:18 編輯

回復 4# n7822123

N大您好，不好意思想請教您一些問題
想請問N大是如何計算"換算全年"的數字?
在研究N大的VBA後，發現N大是先把資料中有"*估*"字樣和負數的值跳過，然後再用"淨額_(I欄)計算"換算全年"的數字(以上是我從結果推論，小弟VBA生手，尚未能了解N大的寫法)
也就是以保險費的銷售費用來說，N大所計算的數字是71406，接著再換算全年比例

這部份是我沒有說明清楚，非常不好意思
其實在計算"換算全年"的數字的時候，會先把所有的資料一併計算(也就是直接把保險費的銷售費用之"淨額"(I欄)的數字全部加起來，所以其總額會是66673，然後再換算全年，假若保險費的銷售費用算出來是負數的話，就不用抓明細)
計算後，在抓資料時，才要避開有"*估*"字樣和負數的值(一樣從"淨額"抓，但只抓正數的部分)
因此這部分能否再麻煩N大調整

另外還想再麻煩N大一事
可否在這一段Brr = Array("銷售", "管理", "研發")，多加入"製造"的分類，並在.Value = Array("日期", "傳票號碼", "DESCRIPTION", "銷售費用", "管理費用", "研發費用", "REMARK")加上"製造費用"
我有試著改寫，但遇到問題，因此想麻煩N大

感謝N大~~~

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

6^#

發表於 2020-12-22 09:08 | 只看該作者

本帖最後由 n7822123 於 2020-12-22 09:11 編輯

回復 5# jjloiasd

這部份是我沒有說明清楚，非常不好意思
其實在計算"換算全年"的數字的時候，會先把所有的資料一併計算(也就是直接把保險費的銷售費用之"淨額"(I欄)的數字全部加起來，所以其總額會是66673，然後再換算全年，假若保險費的銷售費用算出來是負數的話，就不用抓明細)

也就是說，"負值"也要計算到，"換算全年的數字"喔?

我是先挑出來到各個工作表再算總合的，照你這樣說，程式順序要改一下

負值先一樣搬到各個工作表再算總合(換算全年數字)，才能把負值刪除

你先確認我的理解有無問題，我要再找時間改給你

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助

　暱稱: 阿龍

帖子: 406
主題: 8
精華: 0
積分: 453
點名: 0
作業系統: WINDOWS 7
軟體版本: 2007
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2015-2-7
最後登錄: 2021-7-31

7^#

發表於 2020-12-22 11:55 | 只看該作者

本帖最後由 n7822123 於 2020-12-22 12:07 編輯

回復 6# n7822123

另外還想再麻煩N大一事
可否在這一段Brr = Array("銷售", "管理", "研發")，多加入"製造"的分類，並在.Value = Array("日期", "傳票號碼", "DESCRIPTION", "銷售費用", "管理費用", "研發費用", "REMARK")加上"製造費用"
我有試著改寫，但遇到問題，因此想麻煩N大

改好了

這部份是我沒有說明清楚，非常不好意思
其實在計算"換算全年"的數字的時候，會先把所有的資料一併計算(也就是直接把保險費的銷售費用之"淨額"(I欄)的數字全部加起來，所以其總額會是66673，然後再換算全年，假若保險費的銷售費用算出來是負數的話，就不用抓明細)
計算後，在抓資料時，才要避開有"*估*"字樣和負數的值(一樣從"淨額"抓，但只抓正數的部分)
因此這部分能否再麻煩N大調整

我沒照你的順序，我先全部抓出來計算"換算全年"的數字，再用刪去法，刪掉不要的

我把程式拆分成4個部分，你可能比較看得懂，順序如下

Step1 : 依各科目區分成各個工作表分頁，並依部門欄位填入 "淨額"
Step2 : 設定各分頁儲存格格式+公式，並且計算 "換算全年" 的金額
Step3 : 依各分頁C欄，刪除有 '估'字樣、以及負數淨額的資料
Step4 : 各分頁依抽核比例 (分4項目分別計算)，刪減資料

你再試看看有無問題，檔案如下

範例-1222.rar (25.64 KB)

程式是依需求寫的，需求表達不清楚
或者沒有上傳附件，愛莫能助