如何将单元格中的值转换为用户表单vba excel

Question

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

这里是我想自动放入我的userfrom和我的用户表单的值的图片。

感谢名单

[在这里输入的形象描述] [2] enter image description here

Answer 1

在工作表（asuming您UserForm UserForm名）。 将[您的列]更改为您想要自动导出宏的列号。

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