请高手指点《输入时逐步提示信息》

ocean_xiao

我参照《输入是逐步提示信息》的范例自己试着做了一个，但是提示时有时无，不知道问题出在了哪里，望各位前辈高手指点一下。

ocean_xiao

为什么没有人来，是我的问题太低级还是没人看见

yuanzhuping

首先在Private Sub TextBox3_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)事件中的For i = 2 To .Range("G65536").End(xlUp).Row应该改成For i = 2 To .Range("E65536").End(xlUp).Row
其次,在选择单元格显示文本框后注意要选择一下文本框再进行,因为有时输入到单元格中了,可以考虑把文本框的显示位置移到列表框上面,这样就不会错了.
第三,因为是三列单元格同时需要应用输入时逐步提示信息,所以Private Sub Worksheet_SelectionChange(ByVal Target As Range)事件应该改动一下.显示列表框时加载列表项个人认为还是需要的,输入时可以直接选择后输入.

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim i As Integer
   
3.     Me.ListBox1.Clear
   
4.     Me.TextBox1 = ""
   
5.     Me.ListBox1.Visible = False
   
6.     Me.TextBox1.Visible = False
   
7.     Me.ListBox2.Clear
   
8.     Me.TextBox2 = ""
   
9.     Me.ListBox2.Visible = False
   
10.     Me.TextBox2.Visible = False
    
11.     Me.ListBox3.Clear
    
12.     Me.TextBox3 = ""
    
13.     Me.ListBox3.Visible = False
    
14.     Me.TextBox3.Visible = False
    
15. 
    
16.     If Target.Count = 1 And Target.Row > 1 Then
    
17.         If Target.Column = 13 Then
    
18.             Me.ListBox1.Clear
    
19.             Me.TextBox1 = ""
    
20.             Me.ListBox1.Visible = False
    
21.             Me.TextBox1.Visible = False
    
22.             With Me.TextBox1
    
23.                 .Visible = True
    
24.                 .Top = Target.Top
    
25.                 .Left = Target.Left
    
26.                 .Width = Target.Width
    
27.                 .Height = Target.Height
    
28.             End With
    
29.             With Me.ListBox1
    
30.                 .Visible = True
    
31.                 .Top = Target.Top
    
32.                 .Left = Target.Left + Target.Width
    
33.                 .Width = Target.Width
    
34.                 .Height = Target.Height * 8
    
35.                 For i = 2 To Sheet8.Range("A65536").End(xlUp).Row
    
36.                     .AddItem Sheet8.Cells(i, 1).Value
    
37.                 Next
    
38.             End With
    
39.         ElseIf Target.Column = 11 Then
    
40.             Me.ListBox2.Clear
    
41.             Me.TextBox2 = ""
    
42.             Me.ListBox2.Visible = False
    
43.             Me.TextBox2.Visible = False
    
44.             With Me.TextBox2
    
45.                 .Visible = True
    
46.                 .Top = Target.Top
    
47.                 .Left = Target.Left
    
48.                 .Width = Target.Width
    
49.                 .Height = Target.Height
    
50.             End With
    
51.             With Me.ListBox2
    
52.                 .Visible = True
    
53.                 .Top = Target.Top
    
54.                 .Left = Target.Left + Target.Width
    
55.                 .Width = Target.Width + 30
    
56.                 .Height = Target.Height * 8
    
57.                 For i = 2 To Sheet8.Range("C65536").End(xlUp).Row
    
58.                     .AddItem Sheet8.Cells(i, 3).Value
    
59.                 Next
    
60.             End With
    
61.         ElseIf Target.Column = 12 Then
    
62.             Me.ListBox3.Clear
    
63.             Me.TextBox3 = ""
    
64.             Me.ListBox3.Visible = False
    
65.             Me.TextBox3.Visible = False
    
66.             With Me.TextBox3
    
67.                 .Visible = True
    
68.                 .Top = Target.Top
    
69.                 .Left = Target.Left
    
70.                 .Width = Target.Width
    
71.                 .Height = Target.Height
    
72.             End With
    
73.             With Me.ListBox3
    
74.                 .Visible = True
    
75.                 .Top = Target.Top
    
76.                 .Left = Target.Left + Target.Width
    
77.                 .Width = Target.Width + 30
    
78.                 .Height = Target.Height * 8
    
79.                 For i = 2 To Sheet8.Range("E65536").End(xlUp).Row
    
80.                     .AddItem Sheet8.Cells(i, 5).Value
    
81.                 Next
    
82.             End With
    
83.         End If
    
84.     End If
    
85. End Sub
    

复制代码

ocean_xiao

thank you verymuch

miss_Me

高手！书刚买到手，当当网的送货速度有点慢。晚上回去就看