1234
返回列表 上一主題 發帖

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

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
26# 跳轉到 »
發表於 2023-6-30 15:30 | 只看該作者
回復 25# Andy2483

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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
25#
發表於 2023-6-30 15:11 | 只看該作者
回復 23# 准提部林


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

執行結果:



20230630_1.zip (16.81 KB)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
24#
發表於 2023-6-30 14:52 | 只看該作者
回復 15# cypd


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

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
23#
發表於 2023-6-30 14:46 | 只看該作者
回復 17# cypd


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

TOP

星空乂羽翼

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

2023年全勤獎章
22#
發表於 2023-6-30 08:39 | 只看該作者
回復 21# cypd

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

TOP

cypd

帖子
240 
主題
41 
精華
0 
積分
313 
點名
50  
作業系統
XP 
軟體版本
Office2007 
閱讀權限
20 
註冊時間
2015-2-20 
最後登錄
2024-11-17 
21#
發表於 2023-6-29 23:22 | 只看該作者
回復 19# 星空乂羽翼

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

TOP

cypd

帖子
240 
主題
41 
精華
0 
積分
313 
點名
50  
作業系統
XP 
軟體版本
Office2007 
閱讀權限
20 
註冊時間
2015-2-20 
最後登錄
2024-11-17 
20#
發表於 2023-6-29 23:18 | 只看該作者
回復 18# Andy2483

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

TOP

星空乂羽翼

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

2023年全勤獎章
19#
發表於 2023-6-29 10:56 | 只看該作者
建議M欄資料可用函數去抓出C欄名稱的資料
並刪除重複資料。

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

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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
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

帖子
240 
主題
41 
精華
0 
積分
313 
點名
50  
作業系統
XP 
軟體版本
Office2007 
閱讀權限
20 
註冊時間
2015-2-20 
最後登錄
2024-11-17 
17#
發表於 2023-6-28 21:15 | 只看該作者
回復 16# Andy2483

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

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
1234
返回列表 上一主題