
如上图,表格中有好多内容。
①第三列内容都非常接近。
②有时列数太多,没法一页显示。
来回拖动页面,很容易导致看错行和内容。如何才能防止这个问题呢,下面有一个使用文本框来解决的方法,希望能帮到你,快来看看吧!
首先制作文本框。
以WPS为例,打开工作表,依次点击【开发工具】,【设计模式】,选择文本框,点击工作表空白区域即可插入2个文本框,默认名称Textbox1和Textbox2。


一 、先学一下以下一行代码,它可以将某一单元格内容赋值到文本框中显示。
TextBox1.Text = Range("C2")
文本框1(TextBox1)中所显示的内容固定为C2单元格内容
二、如果要让内容随单元格变化需要加入变量
以下4行代码让文本框2(TextBox2)中所显示的内容随所选单元格变化:
TextBox2.Text = "" '①首先清空上次所选单元格对应的内容
Dim 当前行号 As Integer '②然后需要定义变量“当前行号”,表示当前选中单元格所在 行号
当前行号 = Selection.Row '③表示所选单元格所在行号
TextBox2.Text = Cells(当前行号, "C") '④文本框2 的内容显示为 当前行号、c列所对应的单元格即C4的内容
完整代码如下图。
注意:
以上用到的是工作表事件代码,该类代码需要保存到工作表中,就是在VBE窗口,双击对应的工作表名称,复制代码到弹出的空白区域里。本次代码不是保存在模块中。

