|
<p>在人事管理系统中,循环添加列表框内容中的循环如下:</p><p>k = 0<br/>Do While Len(mrg.Offset(k , 0)) <> 0<br/>k = k + 1<br/>UserForm2.ListBox2.AddItem mrg.Offset(k, 0)<br/>Loop</p><p>这样添加有一个问题,就是会把最后一个非空单元格下面的一个空单元格添加到列表匡,换成这样是不是更好</p><p>k = 0<br/>Do While Len(mrg.Offset(k<font color="#ff0000"> + 1</font>, 0)) <> 0<br/>k = k + 1<br/>UserForm2.ListBox2.AddItem mrg.Offset(k, 0)<br/>Loop</p> |
|