VBAコードのaddinf情報をセルに追加するには

Question

私は自分のコードの解決策を見つけようとしています。最初にプレイヤーの名前を尋ねられた後、マクロがデータベース内の名前を検索します。名前があれば、マクロはプレーヤーが何回多くのゴールを決めたかを尋ねます。 次に、inputBoxに書き込まれたゴール数がプレーヤーの情報に追加されます。

私の問題は、マクロが検索されたプレーヤーのゴール数を追加しないということです。ここで

は今私のコードです：

Sub goals() 

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") 'asking the player and finding it 


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") 
    Range(Rng).Value = "teksti"   'asks the goals and adds them to the player this is my problem area 


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

Excelは、私が実行したことを知らせる時エラー1004

Answer 1

あなたが同封する必要はありませんので、変数Rngはすでに、範囲オブジェクトを参照そのような：Range(Rng).Value = "teksti"。代わりに、Rng.Value = "teksti"と書いてください。

もちろん、それ以上のコードは、文字どおりRngが指し示すセルに単語「teksti」を書き込むことになります。私はあなたがそこでやりたいことは確かではありませんが、あなたがそれを理解できない場合は私たちに知らせてください。