2024年网站制作搜索框 篇1
搜索词智能推荐,这个很成熟的技术。绝大部分搜索场景或者输入场景都存在。最主要分成两个环节,首先是召回,最简单的方式是前缀匹配,扩大的方式包括同义词,核心词,协同推荐等方式 。其次是排序,最常用的算法,pagerank,bm25等,还有很多根据不同场景做的算法,机器学习的很多方法都可以上的
2024年网站制作搜索框 篇2
您好,在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格式的文件。方便下次继续使用。