fpbl.net
当前位置:首页 >> ExCEl/vBA,如何制作双击单元格后会出现一个列表框... >>

ExCEl/vBA,如何制作双击单元格后会出现一个列表框...

你表格的内容大吗?如果大的话,我的方法会很卡.直接用表格双击命令,生成一个窗体,然后双击窗体里面的某个数值,数值会自动生成在你双击的单元格中.如果数据量大,需要双击的单元格不固定或者数量很多的话.表格会很卡的.

你是想在哪儿弹出列表框,哪种类表框呀,这个必须说清楚,才能给你回答.用户窗体里还是? excel表格里,用户窗体里很简单,我给你excel表格里弹出列表框的代码,其实你自己可以通过录制宏来得到.Sub addList() ActiveSheet.ListBoxes.

双击Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Target.Count = 1 Then UserForm1.TextBox1.Text = Target.ValueEnd Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Column = 2 ThenIf Target.Row > 4 Or Target.Row < r Then vb = True Else vb = FalseElsevb = FalseEnd If'XXXTextBox1 = ""ListBox1.ClearTextBox1.Visible = vbListBox1.Visible = vbEnd Sub

请用工作表的 BeforeDoubleClick 事件: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Address = Range("A1") Then userfomr1.Show End IfEnd Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Select Case Target.Value Case "" Target.Value = "√" Case "√" Target.Value = "*" Case "*" Target.Value = "" End SelectEnd Sub在sheet的代码中复制即可

显示窗体时使用参数vbmodeless,可以在窗体显示时还可以操作工作表.userform1.show vbmodeless Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True UserForm1.TextBox1.Value = ActiveCell.ValueEnd Sub

"数据"->"有效性"->"输入信息"中设置,在"标题"框和"输入信息"框中的内容就是提示的内容,可修改或删除.

要实现此功能有三个方法:1. 使用数据透视表,关于Excel数据透视表怎么做,请参考百度经验,链接奉上:http://jingyan.baidu.com/article/a24b33cd524cb919fe002bc2.html2. 使用超链接,关于如何使用超链接,请参考百度经验,http://jingyan.

数据有效性---序列----直接输入内容之间用英文的,隔开.或提前写在某区域单元格内,序列选择这个区域即可. 请问ws_pc 2003有快照功能吗?在哪里找?还望赐教,谢谢!

网站首页 | 网站地图
All rights reserved Powered by www.fpbl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com