如何在单元格内设置下拉滑块？

xtn · 发表于 2010-4-12 12:11:34

因某个单元格内的内容有很多，而单元格的行高被限定为≤409，如果内容太多太长，造成了阅读不便，请教有什么办法可以在一个excel单元格内设置下拉滑块？如同浏览IE时最右边的那个滑条......

joshuahuang · 发表于 2010-4-12 14:17:16

点菜单栏数据----数据有效性-----设置选项选择"有效性条件" 允许选"序列" 来源就是写你要下拉的内容,用逗号隔开

牛老师 · 发表于 2010-4-12 19:21:12

原帖由 joshuahuang 于 2010-4-12 14:17 发表
点菜单栏数据----数据有效性-----设置选项选择"有效性条件" 允许选"序列" 来源就是写你要下拉的内容,用逗号隔开

楼上的应该理解错楼主的意思了，楼主说的我不会，期待高手

xtn · 发表于 2010-4-13 12:48:51

我的意思是在单元格内增加一个滚动条，如图所示，期待高人啊~~~~

mjx1982 · 发表于 2010-4-13 16:25:04

在工具栏里用控件试试咯

xutie3 · 发表于 2010-4-15 08:10:10

这样的功能还没见到过，估计还没研究出来呢。

tayoo · 发表于 2010-4-15 12:23:48

可以使用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

网上找的，楼主可以试下

牛老师 · 发表于 2010-4-15 12:38:35

原帖由 tayoo 于 2010-4-15 12:23 发表
可以使用VBA实现
在工作表中放个文本框控件TextBox，设置Multline属性为True
把下面的代码入到工作表的代码窗口中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = Target.Value
If Tar ...

谢谢楼上的分享，我也去测试一下

xtn · 发表于 2010-4-15 13:40:10

原帖由 tayoo 于 2010-4-15 12:23 发表
可以使用VBA实现
在工作表中放个文本框控件TextBox，设置Multline属性为True
把下面的代码入到工作表的代码窗口中

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
t = Target.Value
If Tar ...

试过，不得行~~~~

asalong · 发表于 2010-4-15 19:46:15

VBA不会啊，遗憾！！！

账号		自动登录	找回密码
密码			注册

在线客服

工作时间

热线电话

站长

[讨论] 如何在单元格内设置下拉滑块？