依項目名稱統計進銷總額之計算...? - Excelㄧ般區

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2819
主題: 10
精華: 0
積分: 2875
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-6-26

26^# 跳轉到 »

發表於 2023-6-30 15:30 | 只看該作者

回復 25# Andy2483

沒用過這個方法//
FUNCTION應只能傳遞, 無法輸出~~

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1429
主題: 40
精華: 0
積分: 1453
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-5-18

25^#

發表於 2023-6-30 15:11 | 只看該作者

回復 23# 准提部林

請教前輩以下突發奇想的方式,可以有復原功能,但沒看過這樣的方法,請前輩指導有何利弊?
謝謝前輩

執行結果:

20230630_1.zip (16.81 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2819
主題: 10
精華: 0
積分: 2875
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-6-26

24^#

發表於 2023-6-30 14:52 | 只看該作者

回復 15# cypd

"盈虧金額"...不能這樣算吧!!!
銷售金額-成本金額[不是進貨總額] = 毛利
至于"成本金額"的算法又是另一回事!!!

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2819
主題: 10
精華: 0
積分: 2875
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-6-26

23^#

發表於 2023-6-30 14:46 | 只看該作者

回復 17# cypd

利用CHANGE去處理資料的匯算統計...這是初學VBA者的"惡習",
每KEY個儲存格就跑一輪資料表, 這有效益嗎? 何況若資料幾千上萬筆!!!
再說使用者若用粘貼一整區或刪除, CHANG就崩潰了!
而且, 再也用不了"復原"這功能!!!

TOP

星空乂羽翼

中學生 Rank: 2

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 58
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-5-17

2023年全勤獎章

22^#

發表於 2023-6-30 08:39 | 只看該作者

回復 21# cypd

前輩Office是 2013的要做到資料貼上後就自動刪除重複資料比較難@@
好像無法單純用一個函數解決
後學已知的方式都滿複雜的
且有的只有一次性，沒辦法做到連續自動處理
可能要看其他前輩們有無更好的經驗分享了

TOP

cypd

中學生 Rank: 2

帖子: 235
主題: 39
精華: 0
積分: 306
點名: 31
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-6-25

21^#

發表於 2023-6-29 23:22 | 只看該作者

回復 19# 星空乂羽翼

非常感謝前輩  星空乂羽翼  熱心提供解答
建議可使用 Office 2021 excel  UNIQUE函數
後學之Office 2013 版喔…感恩  ^^

TOP

cypd

中學生 Rank: 2

帖子: 235
主題: 39
精華: 0
積分: 306
點名: 31
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-6-25

20^#

發表於 2023-6-29 23:18 | 只看該作者

回復 18# Andy2483

非常感謝前輩 Andy2483 熱心提供解答
觸發學習方案相關公式經實測已正確執行順暢…感恩 ^^

TOP

星空乂羽翼

中學生 Rank: 2

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 58
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-5-17

2023年全勤獎章

19^#

發表於 2023-6-29 10:56 | 只看該作者

建議M欄資料可用函數去抓出C欄名稱的資料
並刪除重複資料。

若版本為2021以上的版本
建議可以用UNIQUE函數

於M3儲存格輸入以下公式
=UNIQUE(C3:C32)

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

帖子: 1429
主題: 40
精華: 0
積分: 1453
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-5-18

18^#

發表於 2023-6-29 08:01 | 只看該作者

回復 17# cypd

謝謝前輩再回復
以下觸發學習方案請前輩參考

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xR As Range
With Target
Set xR = Intersect([A:H], ActiveSheet.UsedRange)
If Not Intersect(.Cells, xR) Is Nothing Then Call TEST
End With
Set xR = Nothing
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

cypd

中學生 Rank: 2

帖子: 235
主題: 39
精華: 0
積分: 306
點名: 31
作業系統: XP
軟體版本: Office2007
閱讀權限: 20
註冊時間: 2015-2-20
最後登錄: 2024-6-25

17^#

發表於 2023-6-28 21:15 | 只看該作者

回復 16# Andy2483

非常感謝前輩 Andy2483 熱心解答
若是不經執行巨集之動作
而是工作表內儲存格D(進貨)E(銷貨)F(單價)H(贈品)等相關欄位輸入數據或異動
觸發事件就會執行VBA…該程式如何修正 ??
Private Sub Worksheet_Change(ByVal Target As Range)

TOP

[發問] 依項目名稱統計進銷總額之計算...?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]