帮我写一个EXCEL的代码,简单的

发布网友发布时间：2022-04-30 15:24

共2个回答

热心网友时间：2022-06-26 06:38

代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 6 And Target.Column = 10 Then
        Cells(8, 8).Select
    End If
End Sub

代码不能放在模块中，需要放在工作表中。

追问

不知怎么了，还是不行。

H3:H8，J3：J7，其中H6:H7和J6:J7都是合并单元格，单元格格式里设置不锁定；设置了回车键向右；再设置了保护工作表（可以选中未锁定单元格）。造成的结果是每次按回车键，选中单元格顺序是H3-J3-H4-J4-H5-J5-H6-J6，再然后因为是单元格合并的，按理说应该是H8，可实际上是又在H6-J6来回一遍，才会到H8…有什么办法可以不重复H6-J6？？

追答1、你发的图片，看不到行号，不知道你说的是什么意思；
2、你可以把具体的需求，逐条梳理出来；
3、必要的时候，请提供附件
因为，比如作了保护工作表或者一些其他设置，可能会影响结果。

热心网友时间：2022-06-26 06:38

Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$J$6" Then
Cells(8, "h").Select
End If
End Sub