excel-VBAbutton另一个代码

我正在做这个excel项目，我想问你关于VBAbutton过程的这一部分。 我完全是VBA的初学者，我刚刚了解variables。 有人可以find任何其他程序这个button像循环程序。 button做得很好，但是我不知道这个程序是否已经很好的build立起来了，或者还有其他类似的循环。

这是我的VBAbutton代码和我的Excel文件

好的，这里是我的代码

Sub Button2_Click() Dim emri As String, nje As Integer, dy As Integer, tre As Integer Dim kater As Integer, pese As Integer, gjashte As Integer Dim shtate As Integer, tete As Integer, nente As Integer emri = Range("B5").Value nje = Range("B6").Value dy = Range("F6").Value tre = Range("F7").Value kater = Range("F8").Value pese = Range("F9").Value gjashte = nje + dy shtate = nje + tre tete = nje + kater nente = nje + pese If UCase(Range("B5").Value) = UCase(Range("D6").Value) Then Range("F6").Value = gjashte ElseIf UCase(Range("B5").Value) = UCase(Range("D7").Value) Then Range("F7").Value = shtate ElseIf UCase(Range("B5").Value) = UCase(Range("D8").Value) Then Range("F8").Value = tete ElseIf UCase(Range("B5").Value) = UCase(Range("D9").Value) Then Range("F9").Value = nente End If Range("A12").Value = emri Range("A13").Value = nje Range("B5", "B6").ClearContents End Sub 

Answer 1

好吧，让我们试试这个代码。 它从第6行到第16行的D列循环。 如果input的值（更改为大写）与列表中的值相匹配，则会使得出售的车辆加上减去剩余的数量（您可能有一个function，所以它只是一个可选的东西）。 其他一切保持几乎相同。

 Sub Button2_Click() Dim emri As String, nje As Integer emri = UCase(Range("B5").Value) nje = Range("B6").Value For i = 6 To 16 'you can also set variable for checking lastrow If emri = Cells(i, 4).Value Then Cells(i, 6).Value = Cells(i, 6).Value + nje 'plus in sold cars column Cells(i, 7).Value = Cells(i, 7).Value - nje 'minus in quantity left Exit For End If Next i Range("A12").Value = emri Range("A13").Value = nje Range("B5", "B6").ClearContents End Sub