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

看板Office作者jojofox90 (~CK~)時間9年前 (2016/06/03 16:23)推噓0(0推 0噓 2→)

留言2則, 2人參與討論串1/1

軟體: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