☰

ComboBox 按鍵並將資料從 Excel 使用者表單傳輸到工作表

tag-icon • tag-icon microsoft-excel-2010 vba
ComboBox 按鍵並將資料從 Excel 使用者表單傳輸到工作表

我正在嘗試使用 Excel 建立一個小型庫存系統，並且我想使用巨集來新增記錄。我的表格和使用者表單已就位，但是，我有幾個問題。

首先是我無法「鎖定」我的組合框。我嘗試透過其屬性鎖定它，但是，結果是我現在無法從清單中選擇項目。 （組合框已預先填入）。我的工作表中有一個按鈕（新增記錄），它包含一個代碼：

UserForm1.ComboBox1.List = Array("HO", "SI", "SV", "PTSF")
UserForm1.ComboBox2.List = Array("AP", "FU", "GE", "IT")
UserForm1.Show

在我的組合框中：

Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 8 Or KeyAscii = 127 Then
KeyAscii = 0
Else
End If
end sub

我的組合框上的程式碼不起作用，我想要的是將其鎖定，以便無法輸入或編輯任何內容。

第二個問題是我不知道如何呼叫我的表，並將使用者窗體上的資料插入其中。我之前嘗試過這個：

sheet1.table1.Lastrow = userform1.textbox1.value

但顯然它不起作用:(

我希望有一個人可以幫助我。先致謝！

答案1

我已經用這段程式碼解決了我的問題：

Dim ws As Worksheet
Dim lo As ListObject
Dim lr As ListRow

Set ws = Sheets("HO Database")
Set lo = ws.ListObjects(1)
Set lr = lo.ListRows.Add

lr.Range(1, 1).Value = Me.ComboBox2.Value
lr.Range(1, 2).Value = Me.ComboBox1.Value
lr.Range(1, 3).Value = Me.TextBox9.Value
lr.Range(1, 4).Value = Me.TextBox1.Value
lr.Range(1, 5).Value = Me.TextBox2.Value
lr.Range(1, 6).Value = Me.TextBox3.Value
lr.Range(1, 7).Value = Me.TextBox4.Value
lr.Range(1, 8).Value = Me.TextBox5.Value
lr.Range(1, 9).Value = Me.TextBox6.Value
lr.Range(1, 10).Value = Me.TextBox7.Value
lr.Range(1, 11).Value = Me.TextBox8.Value

希望有人能發現這很有用。

相關內容