使用复选框和文本框的 VBA 编辑用户表单列表框（基于 excel 数据库）

Question

我有一个数据库（5 列和行是自适应的）。此数据排序为：姓名、姓氏、出生日期和晋升年份。 我还制作了一个基于列表框的用户表单，可以显示这 4 个信息。

现在我想在用户窗体中使用复选框和文本框来编辑这个数据库。 我已经制作了我的用户表单，但问题仍然存在于将用户表单的数据（复选框：true 或 false 和文本框）传输到相应单元格（正确的人）上的数据库中。

知道我应该如何思考或解决这个问题吗？我已经尝试了一些东西，但我无法显示可以传输和复选框和文本框信息的解决方案。

问候 Userform Layout

Answer 1

假设第 5 列为 A(status)

|状态|姓名|姓氏|出生日期|年|

Checkbx1 数据到 A(status)

Textbx1 数据到 B(Name)

Textbx2 数据转到 C（姓氏）

Textbx3 数据到 D(DOB)

Textbx4 数据到 E(Year)

“您可以将此代码分配给命令按钮”

'数据传输

如果 Form1.checkbox1=TRUE 那么

Shee1.Range("a:a").End(xlDown).Offset(1).Select

Activecell.value="True"

其他

Activecell.value="假"

如果结束

'将名字转移给B

ActiveCell.Offset(0, 1).Value = StrConv(TextBox1, vbProperCase)

'将姓氏转移到C

ActiveCell.Offset(0, 2).Value = StrConv(TextBox2, vbProperCase)

'将DOB转移到D

ActiveCell.Offset(0, 3).Value = StrConv(TextBox3, vbProperCase)

'将年份转移到 E

ActiveCell.Offset(0, 4).Value = StrConv(TextBox4, vbProperCase)

Answer 2

您可以使用此代码填充列表

Private Sub UserForm_Initialize()
    Sheets("Sheet1").Range(Sheets("Sheet1").UsedRange.Address).Name = "MyList"
    ListBox1.ColumnCount = Range("MyList").Columns.Count
    ListBox1.RowSource = "MyList"
End Sub

然后使用下面的代码在Sheet中查找并选择数据行

If ListBox1.ListIndex < 0 Then
MsgBox " Select a row first !"
Exit Sub
Else
Cells.Find(What:=ListBox1.List(ListBox1.ListIndex), After:=ActiveCell, LookIn:= _
    xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:= _
    xlNext, MatchCase:=True, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate

然后使用 Offset 将数据从 UserForm 传输到 Sheet

ActiveCell.Offset(0, 4).Value = UserForm1.TextBox1.Text
ActiveCell.Offset(0, 5).Value = UserForm1.Checkbox1.value
ActiveCell.Offset(0, 6).Value = UserForm1.optionbutton1.value