请教关于Excel表使用控件按钮按键查找搜索关键字跳转到单元格的问题

idiocy · 发表于 2023-5-3 18:58

请教关于Excel表使用控件按钮按键查找搜索关键字跳转到单元格的问题 2023-05-03:

高人好,
小弟想请教一下,
关于Excel表使用控件按钮按键查找搜索关键字跳转到单元格的问题.

小弟使用的电脑系统是WIn10-64位系统,
使用的办公软件是Office365.

小弟想要在Excel表里面制作一个控件按钮按键,
在输入框里面输入关键字,
再点一下这个按钮按键,
就可以查找搜索到并跳转到对应的完整内容的单元格位置,
并暂时使用醒目的黄色标记出来,
也不只是显示这一行对应的单元格内容出来.
请问应该要怎么做呢?
如果查找的内容有重复项的话,
是否可以在后面显示出重复的数量呢?
譬如重复项有2个,
后面就显示重复的数量共计2个,
重复项有3个,
后面就显示重复的数量共计3个.

因为直接使用“查找内容”的对话框来操作的话,
每次都要先选中区域,
然后再输入关键字,
然后再点“查找全部”,
有点麻烦,

请高人帮帮忙指教指教啊.

三克油了啊.

2023年05月03日星期三

3190496160 · 发表于 2023-5-3 19:24

Sub 查询()
Dim ar As Variant
Dim rn As Range
With ActiveSheet
r = .Cells(Rows.Count, 1).End(xlUp).Row
zd = .TextBox1.Text
If zd = "" Then MsgBox "请输入关键字！": End
.Range("a1:g" & r).Interior.ColorIndex = 2
ar = .Range("a1:g" & r)
For i = 6 To UBound(ar)
      For j = 1 To UBound(ar, 2)
         If InStr(ar(i, j), zd) > 0 Then
            n = n + 1
            If rn Is Nothing Then
                  Set rn = .Cells(i, j)
            Else
                  Set rn = Union(rn, .Cells(i, j))
            End If
         End If
      Next j
Next i
If Not rn Is Nothing Then
      rn.Interior.ColorIndex = 6
      .TextBox2.Text = n
End If
End With
End Sub

3190496160 · 发表于 2023-5-3 19:25

请教关于Excel表使用控件按钮按键查找搜索关键字跳转到单元格的问题 2023-05-03.rar (41.35 KB, 下载次数: 13)

idiocy · 发表于 2023-5-3 19:57

3190496160 发表于 2023-5-3 19:25

感谢高人的热心指教啊,
高人实在是太太太厉害了,
一下子就写出来了,
帮助了小弟实现了简易操作,
提高了工作效率,
佩服啊```

弱弱地想再请教一下高人,
怎么把键盘的回车键对应到这个“查找”的按钮呢?
可以实现敲击回车键就代替了用鼠标去点击“查找”的按钮,
还有输入框里面的文字内容怎么让它们左右居中和上下居中呢?
这样子排版好看一些.

三克油了高人了啊```

gwjkkkkk · 发表于 2023-5-3 20:26

参与一下。。。

3190496160 · 发表于 2023-5-3 20:35

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Call 查询
End Sub

3190496160 · 发表于 2023-5-3 20:36

增加回车事件

请教关于Excel表使用控件按钮按键查找搜索关键字跳转到单元格的问题 2023-05-03.rar (42 KB, 下载次数: 28)

idiocy · 发表于 2023-5-3 21:16

gwjkkkkk 发表于 2023-5-3 20:26
参与一下。。。

感谢高人的指教啊```

请问高人的控件输入框里面的内容是怎么实现左右居中的?
还可不可以再上下居中?
小弟在“开始”里面想调左右上下居中都是置灰的调不了哦.

idiocy · 发表于 2023-5-3 21:19

3190496160 发表于 2023-5-3 20:36
增加回车事件

感谢高人的再次指教啊```
原来需要在当前表里面再另外写VBA代码才可以实现哦,
小弟还以为要在“模块1”里面的什么位置加写VBA代码写在一起呢.

高人好厉害```

3190496160 · 发表于 2023-5-3 21:40

左右居中，至于上下居中，调整文本框的高度即可

		自动登录	找回密码
密码			免费注册

[求助] 请教关于Excel表使用控件按钮按键查找搜索关键字跳转到单元格的问题