テキストボックスを使用してセルに（プラス）を追加する方法

Question

vbを使用してExcelでセルに使用された特定のアイテムを毎回テキストボックスに追加する必要があります。たとえば、「時間」という単語がコンボボックス1から選択されるたびに、セルB2に1を追加する必要があります。 「時間」を再度選択した場合に発生します。セルB2に1を再度追加する必要があります。

Dim Scrap As String 

     Scrap = ComboBox1.Text 
     Select Case Scrap 
      Case "Aluminium" 
      worksheet2.Cells(4, 3) = +AmountBox.Text 
      worksheet2.Cells(4, 4) = +KiloBox.Text 
      worksheet2.Cells(4, 2) = +1 'adds 1 for each time this type of scrap is used 
end select 

Answer 1

Dim Temp as Integer = CInt(worksheet2.Cells(4, 2).Value) 
Temp += 1 
worksheet2.Cells(4, 2).Value = Temp 

は同様にそれを行うことができます。この

このような何かを試してみてください：次に、セルB2は

IVEはこれを試してみましたが、動作するように見えるdoesntのそれに "2" を持っている必要があります

worksheet2.Cells(4, 2) = (worksheet2.Cells(4, 2).Value + 1)