漫画培训班北京:Range对象的End属性

来源:百度文库 编辑:中财网 时间:2024/04/30 04:14:04
Range对象的End属性

  Range对象有一个End属性,也许你在阅读别人的例子里经常会看到如“[A65536].End(xlUp).Row”这样的语句,这就是End属性的利用。
  End属性应用于Range对象,同样也返回一个Range对象。该对象代表包含源区域的区域结尾处的单元格。如果你还是不明白,那请你在工作表里试一试,分别按Ctrl+上、下、左、右方向键,看看得到的是什么?End属性返回的单元格就相当于在源单元格按住Ctrl键+上(或下、左、右)方向键所得到的单元格。它的语句格式简单写为:
  源区域.End(移动方向)
  移动方向可以是:
  xlToLeft :向左移动,相当于在源区域按Ctrl+左方向键。
  xlToRight:向右移动,相当于在源区域按Ctrl+右方向键。
  xlUp:向上移动,相当于在源区域按Ctrl+上方向键。
  xlDown:向下移动,相当于在源区域按Ctrl+下方向键。
  所以在程序设计的过程中,很多人喜欢用“[A65536].End(xlUp).Row”语句来返回A列的最后一个非空单元格的行号。
  如果当前活动工作表的A列填写的是学生的姓名,现在我们想在表中A列最后一个学生的后面增加一个叫“张青”的学生,则代码为:
  复制内容到剪贴板
代码:
  ActiveSheet.Cells([A65536].End(xlUp).Row + 1, 1).Value = "张青"
  
  语句 [A65536].End(xlUp).Row + 1中,行号加1的目的是在最后一个非空单元格的下一个单元格里输入数据。需要注意的是:如果你的A列全为空的话,“[A65536].End(xlUp).Row”这个语句返回的是1。
  
  我们来做一个简易的学生信息录入的例子:
  (1)点工作表中的“录入资料”按钮,弹出“录入”窗体;
  (2)录入信息后,点击“确定”按钮即完成记录追加;
  (3)不考虑录入内容是否规范。

  详细请看附件, 信息录入.rar (11.09 KB) 信息录入.rar (11.09 KB)
下载次数: 737
2009-8-25 12:30附件没有设密码,希望大家尝试过后再看代码!