关于RANGE.CELLS(N).SELECT问题

yvhgydn · 发表于 2024-2-2 22:09

本帖最后由 yvhgydn 于 2024-2-2 22:18 编辑

1706882843(1).png

新建 Microsoft Excel 工作表.rar (14.56 KB, 下载次数: 7)

ykcbf1100 · 发表于 2024-2-2 22:25

我觉得你搞复杂，这样就行吧。

半百 · 发表于 2024-2-2 23:08

半百 · 发表于 2024-2-2 23:09

半百 · 发表于 2024-2-2 23:10

发图片也要审核啦？

dragonthree · 发表于 2024-2-3 00:05

感觉要连续的单元格区域才能Cells(4).Select这样

3190496160 · 发表于 2024-2-3 08:35

Private Sub Worksheet_Change(ByVal T As Range)
If Not (Intersect(T, Range("B4, E5, G5, B7, B8, F8, B11")) Is Nothing) Then
If T = "" Then End
rr = Array("B4", "E5", "G5", "B7", "B8", "F8", "B11")
For x = 0 To UBound(rr)
      dz_1 = Range(rr(x)).Address(0, 0)
      If x + 1 <= UBound(rr) Then
         xh = x + 1
      Else
         xh = 0
      End If
      dz_2 = Range(rr(xh)).Address(0, 0)
      If dz_1 = T.Address(0, 0) Then
         Range(dz_2).Select
         Exit For
      End If
Next x
End If

End Sub

3190496160 · 发表于 2024-2-3 08:36

新建 Microsoft Excel 工作表.rar (15.77 KB, 下载次数: 2)

yvhgydn · 发表于 2024-2-3 08:55

3190496160 发表于 2024-2-3 08:36

谢谢老师的指导。。。。。

准提部林 · 发表于 2024-2-3 12:35

指定單元格跳轉//...by.准提部林
1) 清空單元格...不動
2) 最后一格變動, 跳回第一格...循環式

		自动登录	找回密码
密码			免费注册

[求助] 关于RANGE.CELLS(N).SELECT问题

评分

评分