Question

我需要在每次使用vb使用excel中的单元格的特定项目时为文本框添加一个数字。例如，每次单词＆＃34; Time＆＃34;从组合框1中选择，它必须在单元格B2中加1。如果＆＃34;时间＆＃34;再次被选中。它必须再次向单元格B2添加1。然后，单元格B2必须具有＆＃34; 2＆＃34;在其中

我试过这个，但它似乎没有用：

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

尝试这样的事情

这也可以做到：

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

如何使用文本框向单元格添加（加号）

1 个答案: