[已解决]不知道代码错在哪里·~~求老师们的解答！

fatdogdog

我在SHEET1里面做个一个列表框，在SHEET2保存了我一些信息~！~~现在我想把sheet2的符合制定条件信息显示在SHEET1的列表框里！！
比如说我想把SHEET2有逃课的学生的名字显示在SHEET1的框里~~我写了个代码~！
但貌似没反应，究竟是什么问题呢？？？
Private Sub workbook_open()
For i = 5 To Sheet2.Range("N65536").End(xlUp).Row
    If Range("N" & i).Value = "是" Then
        Sheet1.ListBox1.AddItem Range("C" & i).Value
    End If
Next
Sheet1.ListBox1.ForeColor = 255
End Sub
Book1.rar (8.97 KB, 下载次数: 3)

2011-9-27 15:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-9-27 15:04

回复 fatdogdog 的帖子

1. 
   
2. Private Sub workbook_open()
   
3.     Sheet1.ListBox1.Clear
   
4.     For i = 5 To Sheet2.Range("N65536").End(xlUp).Row
   
5.         If Sheet2.Range("N" & i).Value = "是" Then
   
6.             Sheet1.ListBox1.AddItem Sheet2.Range("C" & i).Value
   
7.         End If
   
8.     Next
   
9.     Sheet1.ListBox1.ForeColor = 255
   
10. End Sub
    
11. 
    

复制代码

自动添加工作表列表框数据(VBA).rar (10.07 KB, 下载次数: 15)

2011-9-27 15:21 上传

点击文件名下载附件

跳转到最佳答案楼层

那么的帅

回复 fatdogdog 的帖子

1. 
   
2. Private Sub workbook_open()
   
3.     Sheet1.ListBox1.Clear
   
4.     For i = 5 To Sheet2.Range("N65536").End(xlUp).Row
   
5.         If Sheet2.Range("N" & i).Value = "是" Then
   
6.             Sheet1.ListBox1.AddItem Sheet2.Range("C" & i).Value
   
7.         End If
   
8.     Next
   
9.     Sheet1.ListBox1.ForeColor = 255
   
10. End Sub
    
11. 
    

复制代码

自动添加工作表列表框数据(VBA).rar (10.07 KB, 下载次数: 15)

2011-9-27 15:21 上传

点击文件名下载附件

123joki

ookkkkkkkkkkkk