VBA滚动条控制文本上下滚动
2个回答
展开全部
可以使用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
在工作表中放个文本框控件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
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
你应该知道答案了，主要是楼上没回答到点子上。
为方便后来人，特补充下答案
设置textbox的属性，
Multiline = true '//设置textbox可以多行显示
Scrollbars = 2 '// 当textbox里的内容超出，自动出现滚动条，2是上下滚动条，俱体的你可以看下textbox 的scrollbars属性的帮助
为方便后来人，特补充下答案
设置textbox的属性，
Multiline = true '//设置textbox可以多行显示
Scrollbars = 2 '// 当textbox里的内容超出，自动出现滚动条，2是上下滚动条，俱体的你可以看下textbox 的scrollbars属性的帮助
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
