Question

EXCEL中的LISTBOX如何显示最后一条记录

Sheets("aaa").ListBox1.ListIndex = Sheets("aaa").ListBox1.Items.Count - 1

报错，对象不支持该属性或方法

要一直显示LISTBOX里最后一条记录该怎么写

Answer 1

ListBox控件没有Items这个属性
其列表数量是ListCount属性
所以，上句应改为：
Sheets("aaa").ListBox1.ListIndex = Sheets("aaa").ListBox1.ListCount - 1

追问

这句话可以执行，但是他没有显示出来，把LISTBOX拉长，发现的确最后一行是兰色，但是无法显示

意思就是LISTBOX滚动条无法拉到最底，导致最后一行无法显示，这个是这么回事啊？

追答

那么试试设置 TopIndex 为 ListCount -1 ？
在窗体中，设置ListIndex就会将相应列表项显示出来
你的控件直接添加在工作表上，是否需要刷新显示？没试过，呵呵
……
刚刚试了一下，我这里工作表上也是正常的，不知你那边怎么会不行？
我的EXCEL是2003版

追问

设置LISTBOX属性TOPINDEX不能设置为LISTCOUNT-1报错为类型不匹配

我的控件是直接添加在工作表上的

我设置的添加的时候我是把LISTBOX清空，然后再添加全部

目前就是滚动条无法拉到底，导致最后一条记录无法显示

追答

不会啊，我两种方法都测试过了
topindex和listindex都能接受listcount-1
而且都能显示最后一条记录
二者的区别在于
topindex是改变listbox的显示内容，不改变选定内容
而listindex则同时改变显示内容与选定内容
补充：测试时，listbox中的列表项是用listfillrange指定的，但这应该与问题无关