首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >Worksheet_SelectionChange没有从Selection.Offset开火

Worksheet_SelectionChange没有从Selection.Offset开火
EN

Stack Overflow用户
提问于 2017-05-30 21:25:01
回答 1查看 204关注 0票数 1

我试图使用给定列中单元格的选择作为事件。如果我物理地鼠标单击或箭头到列中的单元格中,则此操作有效。

不过,我想通过使用Selection.Offset或ActiveCell.Offset或其他类似的方法进入本专栏。但是,当通过这个偏移函数选择给定列中的单元格时,它似乎不算为SelectionChange事件,因此不会激活我的下一个宏。

  1. 当数据输入“高度”列时,调用Height_To_Comments()
  2. Height_To_Comments()从同一行的“高度”移到“注释”
  3. 无论是否有数据输入,在“注释”列中,输入调用Comments_To_Weight()
  4. Comments_To_Weight()从“注释”移回“权重”,并向下移动一行 私有子Worksheet_Change(ByVal Target )如果不是相交(目标,范围(“H3:H52”)),那么调用Height_To_Comments End如果子私有子Worksheet_SelectionChange(ByVal Target )x=0对于目标中的每个单元格,如果cell.Column <> 13然后x=1 Application.OnKey "~“Application.OnKey {ENTER}”下一个单元格如果x=0,“Application.OnKey "~","Comments_To_Weight”Application.OnKey "{ENTER}","Comments_To_Weight“结尾Height_To_Comments() Selection.Offset(-1,5).Select End Sub Comments_To_Weight() Selection.Offset(1,-7)Selection.Offset(1,-7)
EN

Stack Overflow用户

发布于 2017-06-22 21:35:37

我解决了。

只有在注释列本身发生了选择更改之后(而不是在curser到达注释列之前,在前面的高度列上),我才更改了"~“和"{ENTER}”的函数。我更改了它,以便当在“高度”列中进行选择更改时,"~“和"{ENTER}”的函数发生变化。因此,一旦数据输入到高度,工作表标签就会转到注释,然后当用户点击ENTER或~它正确地返回到下一行的权重时,而不是只输入到下一行,然后下一次回击,它会转到下一行,剩下7列。

If cell.Column <> 13 Then x = 1改为If cell.Column <> 8 Then x = 1

票数 0
EN
查看全部 1 条回答
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/44272158

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档