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