添加文本框的值到它的目的地

Question

情況：我正在與以下控件用戶窗體：

• 組合框：這是用來拉起名稱列表在Sheet2上（欄）並允許用戶選擇將用於表單的名稱。

• TextBox：這是用來添加一個數值。該值將被放置在Sheet2，C列上，並且從組合框中選擇的名稱的兩行之上

• CommandButton：該按鈕用於將輸入到文本框中的數值添加到在Sheet2中的單元格，兩列以上，並且兩行了從細胞匹配一個已經從ComboBox choosen名稱

問題：我有組合框和文本框設置正確，但我有麻煩創建VBA CommandButton將文本框值添加到其目標。

VBA到目前爲止：

Private Sub AddButton_Click() 
Dim WS As Worksheet 
Dim Rng As Range 
Dim Crystal As Long 

Set WS = Worksheets("ParticipantList") 

With WS.Range("a2:c300") 

    FindColumn = Application.WorksheetFunction.Match(Me.Participants.Value, WS.Range("A2:A300"), 1) 

    Crystal = Me.NumberOfCryst.Value 

    If FindColumn <> "" Then 
     With WS.Range("a2:c300") 
      Text = Me.NumberOfCryst.Value 
      WS.Activate 
      FindColumn = Application.WorksheetFunction.Match(Me.Participants.Value, WS.Range("A2:A300"), 0) 
     End With 
    End If 
End With 
End Sub 

現在很明顯，這是所有的地方和我在得到它的工作做出噸的變化和嘗試。

Answer 1

也許你是這樣的事情後：

Private Sub AddButton_Click() 
    Dim Rng As Range 

    Set Rng = Worksheets("ParticipantList").Range("A2:A300").Find(What:=Me.Participants.Value, LookIn:=xlValues, lookat:=xlWhole) 
    If Not Rng Is Nothing Then Rng.Offset(2, 2).Value = Rng.Offset(2, 2).Value + CLng(Me.NumberOfCryst.Text) 
End Sub 

您可能還需要添加一些文本框的文本驗證，並確保用戶輸入一個數值