Office中国论坛/Access中国论坛

标题: 求助一段代码的含义？？？ [打印本页]

作者: yanyi66 时间: 2009-9-6 13:24
标题: 求助一段代码的含义？？？
求助一段代码的含义？？？经常看到这样的代码：
Dim Erow As Long
Erow = Worksheets("1").Range("A65536").End(xlUp).Row
With Me.ListBox1
      .ColumnCount = 2
      .ColumnHeads = True
      .ColumnWidths = "100,100"
      .RowSource = "sheet1!A2:b" & Erow

上面的代码能将A1、B1作为窗体显示中的列标题，将A2、B2及其下面的单元格作为窗体中列的内容显示
有如下几个问题请教：
1、“RowSource = "sheet1!A2:b" & Erow”中“A2:b”代表什么意思， & Erow起什么作用？
2、我想将A2、C2及其下面的单元格作为窗体中列的内容，列标题为A1、C1，但是将“A2:b”改为“A2:c”是不起作用的，
请问怎么修改能实现这种功能？
如果想将A3、C3及其下面的单元格作为窗体中列的内容，列标题为A1、C1，又该如何改？

敬请各位前辈指教！
不胜感激！！！

作者: liwen 时间: 2009-9-6 17:01
1：Erow是获得的表的行数如获得10行，"sheet1!A2:b" & Erow就表示："sheet1!A2:b10"
2:
With Me.ListBox1
      .ColumnCount = 3       '设三列
      .ColumnHeads = True
      .ColumnWidths = "100,0,100"　'设第二列不显示
      .RowSource = "sheet1!A2:C" & Erow

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)