如何设置文本框与命令按钮？实现点击按钮显示活动单元格值

首先，你现有代码里的Range("activecell")是个小错误，应该直接用ActiveCell对象（不用套Range函数）。不过要实现点击「下一个」按钮就能切换单元格并更新文本框，还需要给按钮添加点击事件逻辑，具体步骤如下：

1. 给UserForm添加初始化事件 #

打开你的UserForm1，双击空白区域进入代码编辑窗口，粘贴以下初始化代码：

Private Sub UserForm_Initialize()
    ' 表单弹出时，自动显示当前选中的活动单元格的值
    TextBox1.Text = CStr(ActiveCell.Value)
End Sub

2. 给「下一个」按钮添加点击事件 #

假设你的「下一个」按钮名为CommandButton1，双击这个按钮，粘贴以下代码：

Private Sub CommandButton1_Click()
    ' 切换到当前活动单元格的**下一行**（如果要切换到同一行的下一列，把Offset参数改成(0, 1)）
    ActiveCell.Offset(1, 0).Select
    
    ' 更新文本框内容为新的活动单元格的值
    TextBox1.Text = CStr(ActiveCell.Value)
End Sub

小提示： #

• Offset(row, column)参数说明：第一个数字是行偏移（1=下一行，-1=上一行），第二个是列偏移（1=下一列，-1=上一列），你可以根据自己的需求调整
• 打开表单前，记得先选中你要遍历的单元格区域的第一个单元格，这样初始化时就能显示正确的起始值
• 如果单元格是空值，CStr()会把它转换成空字符串，不会报错

内容的提问来源于stack exchange，提问作者Ridwan Syihabuddin