Question

UserForm1.TextBox1.Text = CStr(Range("activecell").Value)
UserForm1.Show

我想显示范围的活动单元格的值。我与命令（下一个）按钮结合使用。所以每当我点击（命令（下一个）按钮，我希望文本框显示活动单元格的值。

非常感谢任何帮助。提前谢谢。

Ridwan

Answer 1

请试一试......

将以下代码行放在标准模块上，例如Module1。

Module1代码：

Public Rng As Range

UserForm模块上的代码：

'Assuming the name of CommndButton is cmdNext and name of TextBox is TextBox1
Private Sub cmdNext_Click()
If Rng Is Nothing Then
    Set Rng = ActiveCell
Else
    Set Rng = Rng.Offset(1)
End If
Me.TextBox1.Value = Rng.Value
End Sub

根据您的要求在代码中更改CommandButton和TextBox的名称。

Answer 2

正如Shai Radi告诉你的那样，你的代码应该是：

With UserForm1
    .TextBox1.Text = ActiveCell.Value
    .Show
End With

关于“下一步”，您的命令按钮点击事件可能是

Private Sub CommandButton1_Click()
    ActiveCell.Offset(1).Select
    Me.TextBox1.Value = ActiveCell.Value
End Sub

如何设置文本框和命令按钮？

2 个答案: