麻辣家族討論版版 » Excel程式區 » vba做自動合計

返回列表下一主題上一主題發帖

[發問] vba做自動合計

中學生 Rank: 2

帖子: 39
主題: 12
精華: 0
積分: 59
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-7-31
最後登錄: 2020-8-13

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-7-31 21:52 | 只看該作者

[發問] vba做自動合計

本帖最後由 tomtracy 於 2015-7-31 21:54 編輯

怎樣設計一個VBA代碼，讓我B列選中或輸入"小計"之後，在小計的右側的 K列自動加總？要注意：“小計”是不固定在娜一行出現的。"小計"之後如有添加追加數時在 "總計" 時能和"小計一起加總 ,目前我試了一組VBA可是仍無法執行請各位高手(老師)幫忙修改完善

建民公司 (VBA置入).rar (21.3 KB)

樓主熱帖

收藏

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2015-8-1 12:23 | 只看該作者

本帖最後由 c_c_lai 於 2015-8-1 12:24 編輯

回復 1# tomtracy
試試看：

Sub Ex()
Dim bt As Single
With Sheet1
bt = .Range("B" & .Rows.Count).End(xlUp).Row
If InStr(.Range("B" & bt - 5), "小計") Then
.Range("K" & bt - 5).Formula = "=SUM(K8:K" & (bt - 6) & ")"
.Range("K" & bt).Formula = "=SUM(K" & (bt - 5) & ":K" & (bt - 1) & ")"
End If
End With
End Sub

複製代碼

中學生 Rank: 2

帖子: 39
主題: 12
精華: 0
積分: 59
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-7-31
最後登錄: 2020-8-13

3^#

發表於 2015-8-1 16:16 | 只看該作者

回復 2# c_c_lai

感謝老師我試試還是先謝謝您人間有温暖:loveliness: :loveliness:

中學生 Rank: 2

帖子: 39
主題: 12
精華: 0
積分: 59
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-7-31
最後登錄: 2020-8-13

4^#

發表於 2015-8-1 16:35 | 只看該作者

回復 2# c_c_lai

我試了但仍沒有動作我把原VAB撤了,再貼上您寫的編程, 結果是沒有引出數據我把改了的附件送上給您看請您再幫忙看看怎麼處理? 勞煩您了謝謝!

建民公司 (Lai 先生).rar (19.08 KB)

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2015-8-1 18:16 | 只看該作者

本帖最後由 c_c_lai 於 2015-8-1 18:22 編輯

回復 4# tomtracy

我是以你上次附上的檔案為舉例，如果你
自訂的格式有所異動，程式碼判斷亦應跟隨
更正，以符事實。

中學生 Rank: 2

帖子: 39
主題: 12
精華: 0
積分: 59
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-7-31
最後登錄: 2020-8-13

6^#

發表於 2015-8-1 21:50 | 只看該作者

回復 5# c_c_lai

對不起我把我電腦的語言改成了簡體了, 剛才我把電腦系統改回繁體了, 文件的文字都轉成繁體了也把代碼修改, 可是也仍沒法運算附上文件再請Lai先生幫忙!

建民公司 (Lai 先生(繁體).rar (18.35 KB)

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2015-8-2 07:19 | 只看該作者

回復 6# tomtracy
先澄清一下，為何你的表單需要連續有四組『小計』，
每組『小計』的定義為何？

原本表單之處裡：

Sub Ex()
Dim bt As Single
With Sheet1
bt = .Range("B" & .Rows.Count).End(xlUp).Row
If InStr(.Range("B" & bt - 5), "小計") Then
.Range("K" & bt - 5).Formula = "=SUM(K8:K" & (bt - 6) & ")"
.Range("K" & bt).Formula = "=SUM(K" & (bt - 5) & ":K" & (bt - 1) & ")"
End If
End With
End Sub

複製代碼

依照之後附上表單之內容，請自行修正為：

Sub Ex()
Dim bt As Single
With Sheet1
bt = .Range("B" & .Rows.Count).End(xlUp).Row
If InStr(.Range("B" & bt - 3), "小計") Then
.Range("K" & bt - 3).Formula = "=SUM(K8:K" & (bt - 4) & ")" ' 小計
.Range("K" & bt).Formula = "=SUM(K" & (bt - 3) & ":K" & (bt - 1) & ")" ' 總計
End If
End With
End Sub

複製代碼

便有數值寫入了。

中學生 Rank: 2

帖子: 39
主題: 12
精華: 0
積分: 59
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-7-31
最後登錄: 2020-8-13

8^#

發表於 2015-8-2 08:37 | 只看該作者

回復 7# c_c_lai

小計數是我在測試往下試往下試就沒看到數值所以就成了很多小計了,您的修改代碼我試試! 在此真非常感謝!

三千年讀史, 不外功名利祿, 九萬里悟道, 終歸詩酒田園

中學生 Rank: 2

帖子: 39
主題: 12
精華: 0
積分: 59
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-7-31
最後登錄: 2020-8-13

9^#

發表於 2015-8-2 09:13 | 只看該作者

回復 7# c_c_lai

我把代碼置入仍沒有結果,可是看您所顯示的應該是測試過的也已完成了,為何到我這里變成了不能執行,請Lai 先生再幫我看 ,是否我在複制時沒有注意到什麼呢? 如果Lai先生方便並且願意的話請幫我把文件寄至我的郵箱[email protected] 謝謝您

建民公司 (Lai 先生(繁體).rar (19.61 KB)

三千年讀史, 不外功名利祿, 九萬里悟道, 終歸詩酒田園

中學生 Rank: 2

帖子: 39
主題: 12
精華: 0
積分: 59
點名: 0
作業系統: win7
軟體版本: office2013
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2015-7-31
最後登錄: 2020-8-13

10^#

發表於 2015-8-2 15:02 | 只看該作者

回復 7# c_c_lai

lai 先生您好不用寄了 , 都是我沒按執行才會沒有數據 , 謝謝您幫我那麼大的忙 . 感謝您

建民公司 (Lai 先生(已完成了).rar (17.87 KB)

三千年讀史, 不外功名利祿, 九萬里悟道, 終歸詩酒田園

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。

返回列表下一主題上一主題