[已解决]组合框显示文件名问题求助

HP2009

组合框应用.rar (89.07 KB, 下载次数: 16)

2011-12-25 15:51 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-25 18:48

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Application.CutCopyMode <> 0 Then Exit Sub
   
3. On Error Resume Next
   
4. If Target.Address = "$J$3" Then
   
5. With ComboBox1
   
6. .Visible = True
   
7. .Left = Target.Left
   
8. .Top = ActiveCell.Top
   
9. .Width = ActiveCell.Width * 1
   
10. .Height = ActiveCell.Height
    
11. .Text = ""
    
12. Dim a$, k As Byte, Arr() As String, t$
    
13. a = Dir(ThisWorkbook.Path & "\data\*.xls")
    
14. If Len(a) Then
    
15.     t = a
    
16.     Do
    
17.         k = k + 1: ReDim Preserve Arr(1 To k)
    
18.         Arr(k) = a
    
19.         a = Dir()
    
20.     Loop Until a = t Or Len(a) = 0
    
21. .List() = Arr
    
22. End If
    
23. End With
    
24. Else
    
25. Me.ComboBox1.Visible = False
    
26. End If
    
27. 
    
28. End Sub

复制代码

在事件中添加返回代码就可以了。

跳转到最佳答案楼层

liuguansky

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Application.CutCopyMode <> 0 Then Exit Sub
   
3. On Error Resume Next
   
4. If Target.Address = "$J$3" Then
   
5. With ComboBox1
   
6. .Visible = True
   
7. .Left = Target.Left
   
8. .Top = ActiveCell.Top
   
9. .Width = ActiveCell.Width * 1
   
10. .Height = ActiveCell.Height
    
11. .Text = ""
    
12. Dim a$, k As Byte, Arr() As String, t$
    
13. a = Dir(ThisWorkbook.Path & "\data\*.xls")
    
14. If Len(a) Then
    
15.     t = a
    
16.     Do
    
17.         k = k + 1: ReDim Preserve Arr(1 To k)
    
18.         Arr(k) = a
    
19.         a = Dir()
    
20.     Loop Until a = t Or Len(a) = 0
    
21. .List() = Arr
    
22. End If
    
23. End With
    
24. Else
    
25. Me.ComboBox1.Visible = False
    
26. End If
    
27. 
    
28. End Sub

复制代码

在事件中添加返回代码就可以了。

HP2009

liuguansky 发表于 2011-12-25 18:48
在事件中添加返回代码就可以了。

版主老师最后一个问题，请版主帮忙！{:24:}

请移驾：http://www.excelpx.com/thread-216048-1-1.html