[發問] vba做自動合計

tomtracy

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

c_c_lai

回復 1# tomtracy
試試看：

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

複製代碼

tomtracy

回復 2# c_c_lai

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

tomtracy

回復 2# c_c_lai


   我試了 但仍沒有動作 我把原VAB撤了,再貼上您寫的編程, 結果是沒有引出數據  我把改了的附件送上給您看 請您再幫忙看看怎麼處理? 勞煩您了 謝謝! 建民公司 (Lai 先生).rar (19.08 KB)

下載次數: 6

2015-8-1 16:34

c_c_lai

回復 4# tomtracy

下載 (34.44 KB)

2015-8-1 18:16

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

tomtracy

回復 5# c_c_lai

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

下載次數: 2

2015-8-1 21:49

c_c_lai

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

下載 (39.71 KB)

2015-8-2 07:14

原本表單之處裡：

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

複製代碼

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

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

複製代碼

便有數值寫入了。

tomtracy

回復 7# c_c_lai


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

tomtracy

回復 7# c_c_lai

我把代碼置入仍沒有結果,可是看您所顯示的應該是測試過的也已完成了,為何到我這里變成了不能執行,請Lai 先生再幫我看 ,是否我在複制時沒有注意到什麼呢?  如果Lai先生方便並且願意的話請幫我把文件寄至我的郵箱tomtracygo@hotmail.com  謝謝您 建民公司 (Lai 先生(繁體).rar (19.61 KB)

改過的代碼置入
下載次數: 2

2015-8-2 09:12

tomtracy

回復 7# c_c_lai


    lai 先生您好  不用寄了 , 都是我沒按執行才會沒有數據 , 謝謝您幫我那麼大的忙 . 感謝您
建民公司 (Lai 先生(已完成了).rar (17.87 KB)

下載次數: 22

2015-8-2 15:02