请教：如何实现我这种单元格输入逐步提示？？

寒暖 · 发表于 2013-1-15 15:17

{:soso_e100:}大家好，有个问题想请教一下，麻烦哪位大虾帮帮忙！

想实现的功能：

1.在sheet1 中W2,W3,W4,W5…的每个单元格输入内容时，实现逐步提示内容，sheet2中B6-B93是提示内容的所有源数据。

2.在sheet1 中Y2,Y3,Y4,Y5…的每个单元格输入内容时，实现逐步提示内容，sheet2中D6-D11是提示内容的所有源数据。

3.在sheet1 中AA2,AA3,AA4,AA5…的每个单元格输入内容时，实现逐步提示内容，sheet2中F6-F11是提示内容的所有源数据。

4.在sheet1 每个单元格中，只要输入一个或者两个连续的英文词，如can't、cant detect等，就可以从sheet2 中对应的源数据中自动检索相关的内容逐步提示，输入的内容匹配性越高，供选择的内容就越精确。

5.sheet1 & sheet2中请不要增加列，不改动原始内容！谢谢！

规范模板.rar (24.37 KB, 下载次数: 68)

寒暖 · 发表于 2013-1-15 15:24

{:soso_e121:}各位哥哥姐姐帮帮忙哦，非常感谢哈~

龙蒙山 · 发表于 2013-1-16 17:51

蓝桥玄霜发表于 2013-1-16 10:34

正好需要，学习收藏了。谢谢！

寒暖 · 发表于 2013-1-17 13:27

蓝桥玄霜发表于 2013-1-16 18:36
我的代码是根据1楼你的要求：逐步提示选择输入，没有涉及最后的筛选。

蓝老师，能再帮我一下吗，问题2和问题3的数据透视表异常问题和双击才出现输入提示的可以改进吗？谢谢啦~！！

蓝桥玄霜 · 发表于 2013-1-16 10:34

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Integer
col = Target.Column
If Target.Count = 1 Then
If (Target.Column = 23 Or Target.Column = 25 Or Target.Column = 27) And Target.Row > 1 Then
With Me.TextBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
.Height = Target.Height * 1.5
.Activate
End With
With Me.ListBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left + Target.Width
.Width = Target.Width * 1.5
.Height = Target.Height * 5
End With
Else
Me.ListBox1.Clear
Me.TextBox1 = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
End If
End If
End Sub

复制代码

蓝桥玄霜 · 发表于 2013-1-16 10:36

请见附件。

寒暖 · 发表于 2013-1-18 17:20

蓝桥玄霜发表于 2013-1-18 16:38
请见附件。

谢谢蓝老师！！{:soso_e100:}{:soso_e100:}功能太强大了{:soso_e121:}

蓝桥玄霜 · 发表于 2013-1-18 16:38

请见附件。

蓝桥玄霜 · 发表于 2013-1-18 16:37

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i As Integer
col = Target.Column
If Target.Count = 1 Then
If (Target.Column = 23 Or Target.Column = 25 Or Target.Column = 27) And Target.Row > 1 Then
With Me.TextBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
.Height = Target.Height * 1.5
.Activate
End With
With Me.ListBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left + Target.Width
.Width = Target.Width * 1.5
.Height = Target.Height * 10
End With
Else
Cancel = True
Me.ListBox1.Clear
Me.TextBox1 = ""
Me.ListBox1.Visible = False
Me.TextBox1.Visible = False
End If
End If
End Sub

复制代码

寒暖 · 发表于 2013-1-16 13:47

本帖最后由寒暖于 2013-1-16 13:48 编辑

蓝桥玄霜发表于 2013-1-16 10:36
请见附件。

谢谢蓝老师帮忙！刚才仔细看了一下，很实用！非常感谢{:soso_e121:}！

蓝老师，能否帮忙改进3个问题（详见附件）：

1.W列的单元格，W2单元格无输入内容、第Wm(m>=3)单元格有输入内容时，W列无法筛选；但如果W2,W3,W4...单元格都有输入内容时，W列才可筛选，不知道可否改进？Y列、AA列一样。

2.因备选项可能会很多，备选框高度可否设计高点？

3.W,Y,AA列单元格输入时可否不分大小写，如输入odd时，备选中的ODD相关项也会出现？

规范模板0116.rar (48.47 KB, 下载次数: 33)

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

[求助] 请教：如何实现我这种单元格输入逐步提示？？