输入时逐步提示信息，可选择多列数据

小x白

  
12张表同一位置都需要进行逐步提示，提示的内容可显示多列，我只在C列输入数据，选择后D列会显示对应的AC列数据。
sheet6中代码如果复制到其他表中请问如何改动，第二段Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
总是显示方法和成员未找到，请各位大神指点

蓝桥玄霜

1. Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   
2. Dim r1
   
3.     ActiveCell.Value = ListBox1.Value
   
4.     ActiveCell.Offset(0, 1).Value = d(ListBox1.Value)
   
5.     Me.ListBox1.Clear
   
6.     Me.TextBox1 = ""
   
7.     Me.ListBox1.Visible = False
   
8.     Me.TextBox1.Visible = False
   
9. End Sub
   

复制代码

蓝桥玄霜

你

1. Private Sub Workbook_Open()
   
2. Dim Myr&, i&
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Myr = Sheet35.[AB65536].End(xlUp).Row
   
5. Arr = Sheet35.Range("AB5:Ac" & Myr)
   
6. For i = 2 To UBound(Arr)
   
7.     d(Arr(i, 1)) = Arr(i, 2)
   
8. Next
   
9. End Sub
   
10. 
    
11. Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    
12. If InStr(Sh.Name, "月") Then
    
13.     If Target.Column <> 3 Or Target.Row < 2 Then Exit Sub
    
14.     Target.Offset(0, 1) = d(Target.Value)
    
15. End If
    
16. End Sub
    
17. 
    
18. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    
19. If InStr(Sh.Name, "月") Then
    
20.     If Target.Column <> 3 Or Target.Row < 2 Then Exit Sub
    
21.     With Target.Validation
    
22.         .Delete
    
23.         .Add 3, 1, 1, Join(d.keys, ",")
    
24.     End With
    
25. End If
    
26. End Sub
    

复制代码

的工作簿不需要用文本框方式了，直接用数据有效性即可。

蓝桥玄霜

请见附件。

小x白

蓝桥玄霜 发表于 2013-5-21 16:46
请见附件。

我一列有50条数据呢，没全列出来，而且单列数据不具有唯一性，两列数据组合起来才唯一，不能使用逐步提示吗？

蓝桥玄霜

12个表格都用文本框和列表框就不方便了，每个表格都要有控件和代码。
建议用窗体来解决。

蓝桥玄霜

用窗体解决12个月的表格。
请见附件。

小x白

佩服，佩服

471472156

蓝桥玄霜 发表于 2013-5-21 16:46
请见附件。

蓝版主，关于（输入时高效提示信息），里面相关的代码意思，
盼望可以指教一下。
QQ471472156     
感谢感谢