VBA滚动条控制文本上下滚动

2024-11-07 16:40:09

推荐回答（2个）

回答（1）：

可以使用VBA实现
在工作表中放个文本框控件TextBox，设置Multline属性为True
把下面的代码入到工作表的代码窗口中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = Target.Value
If Target.Column = 1 Then
TextBox1.Visible = True
TextBox1.Text = t
TextBox1.Top = Target.Top
TextBox1.Left = Target.Left + Target.Width
Else
TextBox1.Visible = False
Exit Sub
End If
End Sub

回答（2）：

你应该知道答案了，主要是楼上没回答到点子上。
为方便后来人，特补充下答案

设置textbox的属性，
Multiline = true '//设置textbox可以多行显示
Scrollbars = 2 '// 当textbox里的内容超出，自动出现滚动条，2是上下滚动条，俱体的你可以看下textbox 的scrollbars属性的帮助