如何从单元格中获取值到userform vba excel中

Question

我想使用活动工作表的值来放入用户表单。这必须是动态的，因为在我的工作表中我有多个值。 如果您使用宏单击按钮，则用户窗体会自行打开。

以下是我想在我的userfrom中自动添加的值的图片以及我的用户表单。

感谢名单

[在此输入图片说明] [2] enter image description here

Answer 1

在您的工作表中（假设您的用户表单名为UserForm1）。 将[您的列]更改为您要自动格式化宏的列号。

Private Sub Worksheet_Change(ByVal Target As Range)
  If UserForm1.Visible And Target.Column = [your column] Then
    call UserForm1.GetCellText(Target.Row)
  End If
End Sub

在您的Userform中（假设您的文本框名为TextBox1，TextBox2 ...）。

Sub GetCellText(xRow As Integer)
  Dim i As Byte
  For i = 1 To 7
    Me.Controls("TextBox" & i).Value = Cells(xRow, i)
  Next
End Sub