下拉菜单,使得Excel输入已经很方便了,让身边的同事羡慕不已。
如果小编说下拉菜单还要打开才能选取,有点慢。你是不是要质问我:难道还有更快的方法?
其实,还真有更快的输入方法,你只需要点即可输入。
这个小框框可以双击H1单元格随时关闭或打开。
这样炫酷的输入方法制作并不复杂,下面就跟小编一起做吧。(Wps表格需要安装VBA For WPS模块,百度有下载)
制作步骤:
1、开发工具 - 插入 - 点击并拖出“列表框”。显示开发工具方法:文件 - 选项 - 自定义工具栏(excel2007在常规 - 显示开发工具) - 开发工具
2、选取列表框 -右键 - 属性 - 修改以下属性:
- BackColor可以改变列表框底色
- ListFillRange把单元格内容显示到列表框中(直接输入单元格地址J1:J6,如果显示字符在另一个表中,需要加工作表名称,如Sheet1!J1:J6)
3、开发工具 -Visual Basic- 在新界面中的工程窗口选取当前的工作表名 - 把下面的代码复制粘贴到右侧的空白窗口中。
下面代码是把列表框中的内容输入到选取的单元格中
Private Sub ListBox1_Click()
ActiveCell = ListBox1.Text
End Sub
'下面代码是实现双击H1单元格时显示/关闭列表框。你可以自定义H1的位置。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$H$1" Then
If Me.ListBox1.Visible = True Then
Me.ListBox1.Visible = False
Else
Me.ListBox1.Visible = True
End If
End If
End Sub
'下面的代码是让列表框的顶部跟随选取的单元格位置变动
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ListBox1.Top = ActiveCell.Top
End Sub
4、文件 - 另存为 - 保存类型选“Excel 启用宏的作簿”(*.xlam),excel2003略过此步。
完工!
注意:可以通过“设计模式“按钮编辑/启用该列表框。
特别声明:以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布,本平台仅提供信息存储服务。
Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.