[已解决]请hwc2ycy师帮忙看下什么地方出错了？

c888

二级筛选1.rar (19.66 KB, 下载次数: 11)

2012-12-4 11:44 上传

点击文件名下载附件
表2D列的内容改为中文后，为何姓名的下拉框队员姓名无法引用。谢谢！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-5 12:55

二级筛选1.rar (21.76 KB, 下载次数: 12)

2012-12-5 12:55 上传

点击文件名下载附件

跳转到最佳答案楼层

无聊的疯子

ComboBox1.RowSource = Range("队名").Address

按Ctrl + F3 可以看到 队名的地址是  ='1'!$N$2:$N$3  
也就是说,队名是存放在 1 表的 N2:N3 单元格的,

如果你是激活的 表2 ,再运行代码,那么  队名 返回的是  "N2:N3"
组合起来就是   Range("N2:N3").Address
到这里,由于 range 前面没有指定工作表,所以他只提取 当前激活工作表的 N2:N3 里的数据,
由于你 表2 的 N2:N3 中没有数据,所以下拉里面是空的


修改代码为
ComboBox1.RowSource = Sheets("1").Range("队名").Address

就可以了
至于时间显示问题添加一个判断
If Y = 5 Then arrData(i, Y) = Format(arrData(i, Y), "hh:mm:ss")

就可以了

无聊的疯子

直接修改后的代码

1. 
   
2. Private Sub UserForm_Initialize()
   
3.    Debug.Print "init"
   
4.    ComboBox1.RowSource = Sheets("1").Range("队名").Address    '修改的代码'
   
5.    ComboBox2.Enabled = False
   
6.    ComboBox2.BackColor = &H8000000F
   
7.   On Error Resume Next
   
8.    Dim i As Integer, X As Integer, Y As Integer
   
9.    With ListView1
   
10.        .Sorted = False
    
11.        .ColumnHeaders.Clear
    
12.        .ListItems.Clear
    
13.        .Gridlines = True
    
14.        .HideColumnHeaders = False
    
15.        .View = lvwReport
    
16.        .SortKey = 0
    
17.    End With
    
18.    For i = 4 To 13
    
19.        ListView1.ColumnHeaders.Add , , Sheet2.Cells(1, i), Width:=Sheet2.Cells(1, i).Width
    
20.    Next i
    
21.    With Sheet2
    
22.        X = .Range("d65536").End(xlUp).Row
    
23.        arrData = .Range("d2:m" & X)
    
24.    End With
    
25.    Set dsD = CreateObject("Scripting.Dictionary")
    
26.    For i = 1 To UBound(arrData)
    
27.        dsD.Add arrData(i, 4), i        '1
    
28.        With ListView1.ListItems.Add(, , arrData(i, 1))
    
29.            For Y = 2 To UBound(arrData, 2)
    
30.               If Y = 5 Then arrData(i, Y) = Format(arrData(i, Y), "hh:mm:ss")     '添加的代码
    
31.               .SubItems(Y - 1) = arrData(i, Y)
    
32.            Next Y
    
33.        End With
    
34.        Debug.Print i
    
35.    Next i
    
36.    ComboBox2.List = dsD.keys
    
37. End Sub
    

复制代码

c888

无聊的疯子 发表于 2012-12-4 13:00
直接修改后的代码

谢谢疯子师，代码修改后还是无法实现效果 。谢谢指教！

hwc2ycy

二级筛选1.rar (21.76 KB, 下载次数: 12)

2012-12-5 12:55 上传

点击文件名下载附件

hwc2ycy

你的需求变了，代码也得变才行啊。