日记首页
|
列表
|
添加日记
|
管理登陆
标题:获取当前所在单元格位置
<p><span id="thread_subject">vba怎么获取当前所在单元格位置</span></p><p><span>Sub a()<br> activecell.address<br> activecell.address()<br> activecell.address(0,0)<br> activecell.address(0,1)<br> activecell.address(1,0)<br> activecell.address(1,1)<br> Sub End</span></p><p><span>activecell.address'这是当前单元格地址<br>selection.offset(1, 0).select'这是向下跳1格<br>selection.offset(-1, 0).select'这是向上跳1格<br>selection.offset(0, -1).select'这是向左跳1格<br>selection.offset(0, 1).select'这是向右跳1格<br> 具体应用可自行修改相应数值!!!</span></p><p><span><br></span></p><p><span>作用:输入(写入)出错时,修改前清除错误内容。</span></p><p><span>Sub 清除当前所在位置的单元格()<br> k = ActiveCell.Address '获取当前所在位置的单元格<br> Range(k).ClearContents '清除所选单元格<br>End Sub<br></span></p>