如何與VBA宏

的Excel 2013與VBA宏數據傳輸到所希望的片材。 2命令按鈕名爲cmdAddDate和cmdMove。 cmdAddDate允許添加來自ComBoBox1的另一個工作表。 cmdMove允許我將數據從2個文本框傳輸到Excel工作表。如何與VBA宏

我的問題是，我不知道用什麼，所以從2文本框中的數據將移動到所需的表。

目前我使用的定義在哪裏與此代碼發送數據的靜態方式：

With Worksheets("June 1").Range("A65536").End(xlUp)

我有一個截圖：

從我的例子根據截圖，我想給庫爾特被移動到工作表「6月2日」..請任何建議/幫助將不勝感激。

這裏是我到目前爲止的代碼：

Private Sub cmdAddDate_Click() 
    Dim ws As Worksheet 
    Set ws = ThisWorkbook.Sheets.Add(After:= _ 
      ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) 
    ws.Name = ComboBox1.Value 
End Sub 


Private Sub cmdMove_Click() 
    With Worksheets("June 1").Range("A65536").End(xlUp) 
     'With UserForm1.ComboBox1.Value 
     .Offset(1, 0) = UserForm1.txtName.Value 
     .Offset(1, 1) = UserForm1.txtID.Value 
    End With 
End Sub 


Private Sub UserForm_Initialize() 
    ComboBox1.Clear 

    With ComboBox1 
     .AddItem "June 1" 
     .AddItem "June 2" 
     .AddItem "June 3" 
     .AddItem "June 4" 
     .AddItem "June 5" 
    End With 
End Sub

來源

2017-05-09 Frozen Blood

根據自己在ComboBox1選擇的Value，即您的工作表名稱更改

With Worksheets("June 1").Range("A65536").End(xlUp)

到

With Worksheets(ComboBox1.Value).Range("A65536").End(xlUp)

來源

2017-05-09 00:25:51 YowE3K

哇很容易吧。我試着早些時候使用該代碼，但給了我一個錯誤..但現在它正在工作非常感謝你。 –

@FrozenBlood - 我的猜測是，你因爲用戶沒有選擇的值之前有一個錯誤，或者如果選擇的值不是一個現有工作表的名稱。（如果您尚未在您的實際代碼這樣做，你應該考慮使用前將其添加額外的代碼來測試其有效性的用戶輸入。） – YowE3K

非常感謝你爲你的help..I用這個對我的簡單登錄系統..謝謝你這麼多YowE3k –

如何與VBA宏

回答

相關問題