[算表] VBA累加的"+"號

[jojofox90 (~CK~)]

軟體:office EXCEL VBA

版本:2010

        想請問一下
        我在做加總的時候
        可能我要去讀取的格子原來是清空的
        但我想要做累加
           A     B     C
      1    9
      2    99
      3    999

       我想要做出某個格子是會等於9+99+999
       的效果
       我寫的程式碼大約如下
       可是很奇怪會變成0+9+99+999
       沒法子把前面的0+去掉
       請問有什麼比較好的方法可以處理嗎?
       謝謝


Private Sub CommandButton1_Click()
ActiveSheet.Range("H6:H1000").ClearContents
ActiveSheet.Range("L6:L1000").ClearContents
For i = 6 To 1000
  If ActiveSheet.Cells(i, 1).Value = "" Then Exit For



   For j = 13 To 100 Step 2

   If ActiveSheet.Cells(i, j).Value = "" Then Exit For

    ActiveSheet.Cells(i, 12).Value = 0
        For k = 11 To 112


           If ActiveSheet.Cells(i, j).Value = Worksheets("第二工區單價表
").Cells(k, 1).Value Then
           ActiveSheet.Cells(i, 12).Value = ActiveSheet.Cells(i, 12).Value &
"+" & Worksheets("第二工區單價表").Cells(k, 9).Value & "*" &
ActiveSheet.Cells(i, j + 1).Value
           ActiveSheet.Cells(i, 8).Value = ActiveSheet.Cells(i, 8).Value & "、
" & ActiveSheet.Cells(i, j).Value & "*" & ActiveSheet.Cells(i, j + 1).Value
           End If
        Next k



    Next j



Next i
End Sub


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.62.164.208
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1464942200.A.FE5.html
→ soyoso: https://imgur.com/w8NMpcb 類似這樣
→ jojofox90: 謝謝S大~