2024年网页设计搜索框样 篇1
您好,在Excel中实现实时输入提示的效果并不难,废话不多说,直入主题,请按下面步骤操作,不费吹灰之力,即可达到您想要的效果。
1、在需要实时输入提示的工作表(以名为“效果演示”的工作表为例)中插入两个ActiveX控件,一个是文本框,一个是列表框,具体操作参见如上动图。
2、在名为“效果演示”的工作表上右击鼠标点击【查看代码】进入VBE编辑器,将下列代码粘贴进去。具体操作参见如上动图。
相关代码如下:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With TextBox1
If Target.Count = 1 Then
If Target.Column = 3 Then
.Visible = True
.Height = Target.Height
.Width = Target.Width
.Top = Target.Top
.Left = Target.Left
.Activate
.Value = ""
ListBox1.Visible = False
ListBox1.Top = Target.Top
ListBox1.Left = Target.Left + Target.Width
ListBox1.Clear
Else
.Visible = False
ListBox1.Visible = False
End If
End If
End With
End Sub
Private Sub ListBox1_Click()
ActiveCell = ListBox1.Value
ListBox1.Visible = False
TextBox1.Visible = False
End Sub
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim cell As Range, rng As Range
With ListBox1
Set cell = Sheets("商品清单").[a2:a40]
.Visible = True
.Clear
For Each rng In cell
If InStr(rng, TextBox1.Value) Then .AddItem rng.Value
.Font.Size = 10
.Font.Name = "微软雅黑"
.Height = .Font.Size * .ListCount + 30
Next
End With
End Sub
3、将上图红色框中的代码改成提示内容所在的工作表和单元格区域,格式为:工作表.单元格区域,本例中为【商品清单】表中的【A2:A40】单元格。
4、根据需要更改上图绿色框中的代码列号,3表示C列,即实时录入提醒只在C列起作用。
5、具体演示效果参见如上动图。
6、最后务必将文件保存成启动宏的工作簿,即后缀名为.xlsm格式的文件。方便下次继续使用。