• Excel Searchable DropDown Context Selection Menu Cover | VIVRE-MOTION
  • Excel Searchable DropDown Context Selection Menu Interface | VIVRE-MOTION
1 2

vivre-motion

Excel 下拉式可搜索菜单

SKU: VM-70019

€ 0,00 EUR
€ 3,00 EUR
€ 0,00 EUR
含税。 运费 在结账时计算。

Excel 现代下拉上下文菜单

可搜索的选择菜单

交互式 VBA 选择菜单用现代界面取代了标准的 DropZone。

现代选择菜单还允许使用 Asterisk 通配符进行实时搜索。

界面操作

  • *星号通配符的新闻空间
  • 按向下箭头选择项目

设置输入源和颜色

按 ALT+F11，打开 CONTEXT_MENU 并将输入数据值更改为您的值。 在顶部的 SELECT_MENU 用户窗体中调整主题颜色。


VBA 源代码

'//////////////////////////////////////////////// /////////////////////////////////// 选项显式 私有常量 COLOR_HOVER_ITEM_FONT = &HFFFFFF 私有常量 COLOR_HOVER_ITEM_BACK = &HEADE47 私人常量 COLOR_DEFAULT_ITEM_FONT = &H412C2B 私人常量 COLOR_SEARCH_FIELD_FONT = &H412C2B 私人常量 COLOR_PLACEHOLDER_FONT = &H968372 私人常量 COLOR_SMILEY_BACK = &H968372 私有常量 COLOR_SLIDER_DEFAULT_BACK = &HEADE47 私有常量 COLOR_SLIDER_HOVER_BACK = &HCAC0BF 私有常量 COLOR_SLIDERAERA_HOVER_BACK = &HCAC0BF 私有常量 COLOR_SLIDERAERA_DEFAULT_BACK = &HFAF5F2 私人常量 COLOR_COUNTER_FONT = &H968372 私人常量 COLOR_SLIDERAERA_PLACEHOLDER_BACK = &HFFFFFF '//////////////////////////////////////////////// /////////////////////////////////// 私有声明 PtrSafe 函数 SendMessage Lib“user32”别名“SendMessageA”（ByVal H_WINDOW As Long，ByVal wMsg As Long，ByVal wParam As Long，lParam As Any） Private Declare PtrSafe Function ReleaseCapture Lib "user32" () As Long 私有声明 PtrSafe 函数 ShellExecute Lib“shell32.dll”别名“ShellExecuteA”（ByVal hWnd As Long，ByVal lpOperation As String，ByVal lpFile As String，ByVal lpParameters As String，ByVal lpDirectory As String，ByVal nshowcmd As Long） 私有声明 PtrSafe 函数 SetWindowLong Lib "user32" 别名 "SetWindowLongA" (ByVal H_WINDOW As Long, ByVal lngWinIdx As Long, ByVal dwNewLong As Long) 私有声明 PtrSafe 函数 GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal H_WINDOW As Long, ByVal lngWinIdx As Long) 私有声明 PtrSafe 函数 SetLayeredWindowAttributes Lib "user32" (ByVal H_WINDOW As Long, ByVal crKey As Integer, ByVal bAlpha As Integer, ByVal dwFlags As Long) Private Declare PtrSafe Function FindWindow Lib "user32" 别名 "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare PtrSafe Function DrawMenuBar Lib "user32" (ByVal H_WINDOW As Long) As Long 私有声明 PtrSafe 函数 GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long 私有声明 PtrSafe 函数 DwmSetWindowAttribute Lib“dwmapi”（ByVal hWnd As Long，ByVal attr As Integer，ByRef attrValue As Integer，ByVal attrSize As Long） 私有声明 PtrSafe 函数 DwmExtendFrameIntoClientArea Lib "dwmapi" (ByVal hWnd As Long, ByRef NEWMARGINS As MARGINS) As Long '//////////////////////////////////////////////// /////////////////////////////////// 私有常数 GWL_STYLE = (-16) Private Const WS_CAPTION = &HC00000 '//// WS_BORDER 或 WS_DLGFRAME 私有常量 WS_BORDER = &H800000 Private Const GWL_EXSTYLE As Long = (-20) '//// 窗口扩展样式的偏移量 Private Const WS_EX_DLGMODALFRAME As Long = &H1 '//// 如果窗口有图标则控制 Private Const SC_CLOSE As Long = &HF060 私有常量 SW_SHOW As Long = 5 私有常量 WS_EX_LAYERED = &H80000 私人常量 LWA_COLORKEY = &H1 私有常数 LWA_ALPHA = &H2 私有常量 WS_EX_TRANSPARENT = &H20& '//////////////////////////////////////////////// /////////////////////////////////// 私有枚举 ESetWindowPosStyles SWP_SHOWWINDOW = &H40 SWP_HIDEWINDOW = &H80 SWP_FRAMECHANGED = &H20 '//// 帧已更改发送 WM_NCCALCSIZE SWP_NOACTIVATE = &H10 SWP_NOCOPYBITS = &H100 SWP_NOMOVE = &H2 SWP_NOOWNERZORDER = &H200 '// 不要进行所有者 Z 排序 SWP_NOREDRAW = &H8 SWP_NOREPOSITION = SWP_NOOWNERZORDER SWP_NOSIZE = &H1 SWP_NOZORDER = &H4 SWP_DRAWFRAME = SWP_FRAMECHANGED HWND_NOTOPMOST = -2 结束枚举 '//////////////////////////////////////////////// /////////////////////////////////// 私有类型保证金 左一样长 TOP 只要 权利只要 底部一样长 结束类型 '//////////////////////////////////////////////// /////////////////////////////////// 私有常量 HTCAPTION = 2 私有XWNDFORM，XWNDFORMEX一样长 私有常量 WM_NCLBUTTONDOWN = &HA1 '//////////////////////////////////////////////// /////////////////////////////////// 调暗 ENV_SLOTS 只要 调暗 SLIDE_LEFT_POS 为长 调暗 SLIDE_TOP_POS 为长 调暗 SELECT_SLIDE_ARRAY 调暗 SELECT_SLIDE_ARRAY_MAX 只要 将 ARROW_SELECT 调暗为字符串 将 I_SELECT 调暗为整数 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 UserForm_Activate() 我.ScrollTop = 700 调用 INIT_STAGE 我.ScrollTop = 0 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 INIT_STAGE() ' ' Me.TOP = ActiveCell.TOP + Application.TOP ' Me.LEFT = ActiveCell.LEFT + Application.LEFT SMILEY.Visible = 假 ENV_SLOTS = 6 我_SELECT = 0 调用 RESET_STAGE SEARCH_FIELD.ForeColor = COLOR_SEARCH_FIELD_FONT SMILEY.ForeColor = COLOR_SMILEY_BACK 颜色 SEARCH_FIELD_PLACEHOLDER.ForeColor = COLOR_PLACEHOLDER_FONT COUNTER.ForeColor = COLOR_COUNTER_FONT 字体 SLIDE_AREA_PLACEHOLDER.BackColor = COLOR_SLIDERAERA_PLACEHOLDER_BACK 昏暗的我一样长 对于 I = 1 到 ENV_SLOTS 控件("HOVER_" & I).BorderStyle = fmBorderStyleNone 接下来我 SEARCH_FIELD.Text = "" SEARCH_FIELD.SetFocus 调用 HYPER_SEARCH(SEARCH_FIELD.Text) 调用 REFRESH_SLIDE(0) SLIDER.TOP = SLIDE_AREA.TOP 调用 SLIDER_RESET(Me.SLIDE_AREA, Me.SLIDER) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub UserForm_MouseDown（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 如果按钮 = 1 那么 释放捕获 SendMessage XWNDFORM、WM_NCLBUTTONDOWN、HTCAPTION、0& 万一 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HOVERME(ByVal ITEM As Long) 控件("BACK_" & ITEM).BackColor = COLOR_HOVER_ITEM_BACK 控件（“BACK_”＆amp; ITEM）.Visible = True 控件("ITEM_" & ITEM).ForeColor = COLOR_HOVER_ITEM_FONT 结束子 私有子 UserForm_Initialize() 昏暗的 ISTYLE，HWNDFORM 一样长 将 btrans 变暗为字节 btrans = 128 将 NEWMARGINS 调暗为边距 HWNDFORM = FindWindow(vbNullString, Me.Caption) '//// 获取窗口 ISTYLE = GetWindowLong(HWNDFORM, GWL_STYLE) '//// 基本窗口 STYLE 窗体标志 ISTYLE = ISTYLE And Not WS_CAPTION '//// 没有标题区域 SetWindowLong HWNDFORM, GWL_STYLE, ISTYLE '//// 设置基本窗口样式 ISTYLE = GetWindowLong(HWNDFORM, GWL_EXSTYLE) '//// 构建扩展窗口样式 ISTYLE = ISTYLE 而不是 WS_EX_DLGMODALFRAME '//// 无边框 SetWindowLong HWNDFORM、GWL_EXSTYLE、ISTYLE XWNDFORM = FindWindow("ThunderDFrame", vbNullString) '//// 获取新窗口 DwmSetWindowAttribute XWNDFORM, 2, 2, 4 '//// DWMAPI 随着NEWMARGINS .BOTTOM = 1 '//// -1 .LEFT = 1 '//// -1 .RIGHT = 1 '//// -1 .TOP = 1 '//// -1 结束于 DwmExtendFrameIntoClientArea XWNDFORM, NEWMARGINS '//// DWMAPI DrawMenuBar HWNDFORM '//// 清理菜单栏 Me.Width = Me.Width - 12 我.身高 = 我.身高 - 19 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub UserForm_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 RESET_STAGE 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub SEARCH_FIELD_KeyDown（ByVal KeyCode As MSForms.ReturnInteger，ByVal Shift As Integer） 如果 KeyCode = 40 然后 SELECT_DOWN 如果 KeyCode = 38 那么 SELECT_UP 如果 KeyCode = 13 那么 选择_NAME = ARROW_SELECT 卸载我 万一 如果 KeyCode = 27 那么 选择名称 = "" 卸载我 万一 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 SELECT_DOWN() 如果 Me.Controls("ITEM_" & 1).Visible = False Then Exit Sub 如果我_SELECT <>; ENV_SLOTS 然后 I_SELECT = I_SELECT + 1 调用 RESET_STAGE If Me.Controls("ITEM_" & I_SELECT).Visible = False 然后 I_SELECT = I_SELECT - 1 调用 HOVERME(I_SELECT) ARROW_SELECT = Me.Controls("ITEM_" & I_SELECT).ControlTipText 万一 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 SELECT_UP() 如果 Me.Controls("ITEM_" & 1).Visible = False Then Exit Sub 如果 I_SELECT >= 2 那么 I_SELECT = I_SELECT - 1 调用 RESET_STAGE 调用 HOVERME(I_SELECT) ARROW_SELECT = Me.Controls("ITEM_" & I_SELECT).ControlTipText 万一 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 SEARCH_FIELD_Change() SEARCH_FIELD.Text = Replace(SEARCH_FIELD.Text, " ", "*") 如果 SEARCH_FIELD.Text = "" 那么 SEARCH_FIELD_PLACEHOLDER.Text = "苏切" 别的 SEARCH_FIELD_PLACEHOLDER.Text = "" 万一 调用 HYPER_SEARCH(SEARCH_FIELD.Text) 调用 REFRESH_SLIDE(0) SLIDER.TOP = SLIDE_AREA.TOP 调用 RESET_STAGE ARROW_SELECT = "" 我_SELECT = 0 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub UserForm_QueryClose（Cancel As Integer，CloseMode As Integer） 如果 CloseMode = 0 则 SELECT_NAME = "" 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 RESET_STAGE() 昏暗的我一样长 调用 SLIDER_RESET(Me.SLIDE_AREA, Me.SLIDER) 对于 I = 1 到 ENV_SLOTS 控件（“BACK_”＆amp;我）.Visible = False 控件("ITEM_" & I).ForeColor = COLOR_DEFAULT_ITEM_FONT 接下来我 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 HOVER_1_Click() SELECT_NAME = ITEM_1.ControlTipText 卸载我 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 HOVER_2_Click() SELECT_NAME = ITEM_2.ControlTipText 卸载我 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 HOVER_3_Click() SELECT_NAME = ITEM_3.ControlTipText 卸载我 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 HOVER_4_Click() SELECT_NAME = ITEM_4.ControlTipText 卸载我 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 HOVER_5_Click() SELECT_NAME = ITEM_5.ControlTipText 卸载我 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 HOVER_6_Click() SELECT_NAME = ITEM_6.ControlTipText 卸载我 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HOVER_1_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 RESET_STAGE 致电HOVERME(1) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HOVER_2_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 RESET_STAGE 调用HOVERME(2) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HOVER_3_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 RESET_STAGE 致电HOVERME(3) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HOVER_4_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 RESET_STAGE 致电HOVERME(4) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HOVER_5_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 RESET_STAGE 致电HOVERME(5) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HOVER_6_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 RESET_STAGE 致电HOVERME(6) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Public Sub SLIDE_AREA_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调用 SLIDE_AREA_MOUSE_MOVE(Me.SLIDE_AREA, Me.SLIDER) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub SLIDER_MouseMove（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调暗 SCROLL_POS 只要 SCROLL_POS = Round((((SELECT_SLIDE_ARRAY_MAX - ENV_SLOTS) * CONTROL_SLIDER(Me.SLIDER, Me.SLIDE_AREA, X, Y, Button)) / 100), 0) 调用 REFRESH_SLIDE(SCROLL_POS) 调用 SLIDER_MOUSE_MOVE(Me.SLIDE_AREA, Me.SLIDER) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub SLIDE_AREA_MouseDown（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 调暗 SCROLL_POS 只要 SCROLL_POS = Round((((SELECT_SLIDE_ARRAY_MAX - ENV_SLOTS) * CONTROL_SLIDE_AREA(Me.SLIDER, Me.SLIDE_AREA, X, Y)) / 100), 0) 调用 REFRESH_SLIDE(SCROLL_POS) 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub SLIDER_MouseDown（ByVal Button As Integer，ByVal Shift As Integer，ByVal X As Single，ByVal Y As Single） 如果按钮 = 1 则 SLIDE_LEFT_POS = X 如果按钮 = 1 则 SLIDE_TOP_POS = Y 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub REFRESH_SLIDE（ByVal SCROLL_POS As Long） 昏暗的我一样长 Me.COUNTER.Caption = SELECT_SLIDE_ARRAY_MAX 如果 SELECT_SLIDE_ARRAY_MAX = 0 那么 SMILEY.Visible = True 别的 SMILEY.Visible = 假 万一 对于 I = 1 To ENV_SLOTS 'MAX_ITEMS 如果我 <= SELECT_SLIDE_ARRAY_MAX 那么 如果 SELECT_SLIDE_ARRAY(SCROLL_POS + I, 1) <> ““ 然后 控件("HOVER_" & I).Visible = True 控件("ITEM_" & I).Caption = SELECT_SLIDE_ARRAY(SCROLL_POS + I, 1) 控件("ITEM_" & I).ControlTipText = SELECT_SLIDE_ARRAY(SCROLL_POS + I, 1) 控件("ITEM_" & I).Visible = True 别的 'Controls("SLOT_" & I).Visible = True 控件("HOVER_" & I).Visible = False 控件("ITEM_" & I).Visible = False 万一 别的 控件("HOVER_" & I).Visible = False 控件("ITEM_" & I).Visible = False 万一 接下来我 如果 SELECT_SLIDE_ARRAY_MAX < ENV_SLOTS 然后 SLIDER.Visible = 假 SLIDE_AREA.Visible = 假 别的 SLIDER.Visible = 真 SLIDE_AREA.Visible = True 万一 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有函数 CONTROL_SLIDER（ByRef SLIDER 作为对象，ByRef SLIDE_AREA 作为对象，ByVal X 作为单个，ByVal Y 作为单个，ByVal BUTTON_HOLD 作为整数）只要 '出错继续下一步 将 SNG_LEFT 调暗为单个 将 SNG_TOP 调暗为单个 将 SCROLL_POS 调暗为单个 将 SCROLL_RANGE 调暗为单个 如果 BUTTON_HOLD = 1 那么 '//// 左侧区域 SNG_LEFT = (SLIDER.LEFT + X) - SLIDE_LEFT_POS 如果 SNG_LEFT < SLIDE_AREA.LEFT 然后 SNG_LEFT = SLIDE_AREA.LEFT 如果 (SNG_LEFT + SLIDER.Width) > (SLIDE_AREA.LEFT + SLIDE_AREA.Width) 然后 SNG_LEFT = SLIDE_AREA.LEFT + SLIDE_AREA.Width - SLIDE.Width 万一 '//// 高度区域 SNG_TOP = (SLIDER.TOP + Y) - SLIDE_TOP_POS 如果 SNG_TOP < SLIDE_AREA.TOP 然后 SNG_TOP = SLIDE_AREA.TOP 如果 (SNG_TOP + SLIDER.Height) > (SLIDE_AREA.TOP + SLIDE_AREA.Height) 然后 SNG_TOP = SLIDE_AREA.TOP + SLIDE_AREA.Height - SLIDE.Height 万一 滑块。将 SNG_LEFT、SNG_TOP 移动 万一 '//// 滑动范围 SCROLL_POS = Round(SLIDER.TOP - SLIDE_AREA.TOP, 0) SCROLL_RANGE = SLIDE_AREA.Height - SLIDER.Height CONTROL_SLIDER = Round(((100 * SCROLL_POS) / SCROLL_RANGE), 0) 'PERCENT 结束功能 '//////////////////////////////////////////////// /////////////////////////////////// 私有函数 CONTROL_SLIDE_AREA（ByRef SLIDER 作为对象，ByRef SLIDE_AREA 作为对象，ByVal X 作为单一，ByVal Y 作为单一）只要 '出错继续下一步 将 SNG_LEFT 调暗为单个 将 SNG_TOP 调暗为单个 将 SCROLL_POS 调暗为单个 将 SCROLL_RANGE 调暗为单个 调暗 SET_POS 只要 SET_POS = Y - SLIDER.Height + SLIDE_AREA.TOP 如果 SET_POS < SLIDE_AREA.TOP 然后 SLIDER.TOP = SLIDE_AREA.TOP 别的 滑块顶部 = SET_POS 万一 如果 ((SLIDE_AREA.TOP + SLIDE_AREA.Height) - (SLIDE.TOP + SLIDER.Height)) < 30 然后 SLIDER.TOP = (SLIDE_AREA.TOP + SLIDE_AREA.Height) - SLIDE.Height 万一 '//// 滑动范围 SCROLL_POS = Round(SLIDER.TOP - SLIDE_AREA.TOP, 0) SCROLL_RANGE = SLIDE_AREA.Height - SLIDER.Height CONTROL_SLIDE_AREA = Round(((100 * SCROLL_POS) / SCROLL_RANGE), 0) 'PERCENT 结束功能 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub SLIDE_AREA_MOUSE_MOVE（ByVal SLIDE_AREA_ITEM 作为对象，ByVal SLIDER_ITEM 作为对象） SLIDE_AREA_ITEM.BackColor = COLOR_SLIDERAERA_HOVER_BACK SLIDER_ITEM.BackColor = COLOR_SLIDER_DEFAULT_BACK 颜色 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 SLIDER_MOUSE_MOVE（ByVal SLIDE_AREA_ITEM 作为对象，ByVal SLIDER_ITEM 作为对象） SLIDE_AREA_ITEM.BackColor = COLOR_SLIDERAERA_DEFAULT_BACK SLIDER_ITEM.BackColor = COLOR_SLIDER_HOVER_BACK 颜色 结束子 '//////////////////////////////////////////////// /////////////////////////////////// 私有子 SLIDER_RESET（ByVal SLIDE_AREA_ITEM 作为对象，ByVal SLIDER_ITEM 作为对象） SLIDE_AREA_ITEM.BackColor = COLOR_SLIDERAERA_DEFAULT_BACK SLIDER_ITEM.BackColor = COLOR_SLIDER_DEFAULT_BACK 颜色 结束子 '//////////////////////////////////////////////// /////////////////////////////////// Private Sub HYPER_SEARCH（ByVal SEARCHTEXT As String） 昏暗的我一样长 昏暗 S 一样长 昏暗的R一样长 昏暗 X 一样长 将 FUSION_STRING 调暗为字符串 将 HYPER_SEARCH(99) 调暗为字符串 调暗 HYPER_SEARCH_MAX 只要 昏暗的 SPLIT_CACHE 将 CONVERSION_CHECK 变暗为布尔值 擦除 HYPER_SEARCH CONVERSION_CHECK = 假 '//// 创建超搜索数组 如果 InStr(SEARCHTEXT, "*") <> 0 然后 SPLIT_CACHE = Split(SEARCHTEXT, "*") 对于 R = 0 到 UBound(SPLIT_CACHE) HYPER_SEARCH(R + 1) = SPLIT_CACHE(R) HYPER_SEARCH_MAX = R + 1 下一个 别的 HYPER_SEARCH(1) = 搜索文本 HYPER_SEARCH_MAX = 1 万一 '//// 创建超搜索数组 小号 = 0 如果 UBound(SELECT_ARRAY) < 6 然后 重新调整 SELECT_SLIDE_ARRAY(6, 1) 别的 ReDim SELECT_SLIDE_ARRAY(UBound(SELECT_ARRAY), 1) 万一 对于 I = 1 到 UBound(SELECT_ARRAY) 如果 SELECT_ARRAY(I, 1) <> ““ 然后 FUSION_STRING = "" FUSION_STRING = FUSION_STRING & SELECT_ARRAY(I, 1) & “|” 对于 R = 1 到 HYPER_SEARCH_MAX 如果 InStr(LCase(FUSION_STRING), LCase(HYPER_SEARCH(R))) <> 0 然后 CONVERSION_CHECK = 真 别的 CONVERSION_CHECK = 假 退出 万一 下一个 如果 CONVERSION_CHECK = True 那么 S = S + 1 对于 X = 1 到 UBound(SELECT_ARRAY, 2) SELECT_SLIDE_ARRAY(S, X) = SELECT_ARRAY(I, X) 下一个 万一 万一 接下来我 SELECT_SLIDE_ARRAY_MAX = S 结束子

Customer Reviews

Be the first to write a review
0%
(0)
0%
(0)
0%
(0)
0%
(0)
0%
(0)