Question

我可以使用vba创建一个宏来计算玩家在赛季中的进球数。我已经有了一个有效的开始，用户首先被要求玩家在哪里添加目标，然后询问目标的数量。但是如果我向同一个玩家添加更多目标，我希望先前的目标数量添加到新的数字示例玩家在第一场比赛中进3球，下周他总共有4个进球，7个进球我想要的数字7显示的不是数字4

Answer 1

我想这就是你想要的：

Sub maalit()

   Dim ws As Worksheet
   Dim lRow As Long
   Dim strSearch As String
   Set ws = Worksheets("Data")

    Dim etsi As String
    etsi = InputBox("Etsi Jäsen", "maalien lisääminen")   'asks the players name


    If Trim(etsi) <> "" Then
         With Sheets("Data").Range("A:A")
             Set Rng = .Find(What:=etsi, _
                             After:=.Cells(.Cells.Count), _
                             LookIn:=xlValues, _
                             LookAt:=xlWhole, _
                             SearchOrder:=xlByRows, _
                             SearchDirection:=xlNext, _
                             MatchCase:=False)
             If Not Rng Is Nothing Then

    tulos = InputBox("Anna pelaajan maalienmäärä", "maalien lisääminen")
    'Rng.Value = tulos        'asks the number of goals but this is the problem place the bacause it adds them to the wrong column i want them to be in column G
    Rng.Offset(0, 1).Value = Rng.Offset(0, 1).Value + tulos


        Else
                MsgBox "Jäsentä ei löytynyt"
            End If
        End With
    End If
End Sub

代码基于您的last question。

Vba计数器用于计算玩家所做的目标数量

1 个答案: