向Listbox添加条目的问题，本人新手，急！

hhl1269

在录入表单击B2录入时，医院表中的条目没有添加到Listbox中来，不知道哪儿出错了，求各位大侠帮忙。

cutecpu

您好，

第 23 行:  For i = 2 To Sheet1.Cells(Rows.Count, 1).End(x1Up).Row
修改成 → For i = 1 To Sheet1.Cells(1, 1).End(xlDown).Row

祝順心，南無阿彌陀佛！

sub麻辣君

楞没看懂你是想要干什么，你是想实现要把第一张表的提到你的表单里面？那为啥刚开始要清空

rardge2015

你在代码的顶部加上以下代码，然后测试，电脑就会告诉你错在哪里了。

1. Option Explicit

复制代码

输入错误：

1. x1Up
   
2. xlUp

复制代码

仔细看，应该是英文字母“L”而不是数字“1”

然后，楼上提示也对，i 应该从 1 开始，从 2 开始的话，第一行信息不要么？

hhl1269

cutecpu 发表于 2019-10-29 16:08
您好，

第 23 行:  For i = 2 To Sheet1.Cells(Rows.Count, 1).End(x1Up).Row

谢谢！