Excel代码问题，非常感谢！

LSYYLW · 发表于 2024-10-6 13:14

2024-10-6-.zip (2.11 KB, 下载次数: 2)

quqiyuan · 发表于 2024-10-6 13:34

本帖最后由 quqiyuan 于 2024-10-6 13:36 编辑

参与一下，仅供参考。。。
可能跟显示器分辨率有关系，请留意下

quqiyuan · 发表于 2024-10-6 13:35

代码如下。。。
这个有可能跟显示器分辨率有点关系，请留意
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$D$1" Then
      Range("a3").Select
      Range("a145").Select
      ActiveWindow.SmallScroll Down:=-16
End If
End Sub

LSYYLW · 发表于 2024-10-6 14:25

quqiyuan 发表于 2024-10-6 13:35
代码如下。。。
这个有可能跟显示器分辨率有点关系，请留意
Private Sub Worksheet_SelectionChange(ByVa ...

万分的感谢老师，代码非常非常好用。

LSYYLW · 发表于 2024-10-10 14:35

2024-10-10.zip (3.98 KB, 下载次数: 5)

LSYYLW · 发表于 2024-10-10 14:36

quqiyuan 发表于 2024-10-6 13:35
代码如下。。。
这个有可能跟显示器分辨率有点关系，请留意
Private Sub Worksheet_SelectionChange(ByVa ...

老师您好：又来麻烦您了，您有时间帮我看一下5楼附件里的问题，拜托您了！

quqiyuan · 发表于 2024-10-10 15:29

LSYYLW 发表于 2024-10-10 14:36
老师您好：又来麻烦您了，您有时间帮我看一下5楼附件里的问题，拜托您了！

参与一下，仅供参考。。。

quqiyuan · 发表于 2024-10-10 15:29

代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Address = "$HW$1" Then
      arr = [hr3:hr82]
      ReDim brr(1 To 10, 1 To 1)
      For i = 1 To 10
         brr(i, 1) = arr(Target.Value * 10 + i, 1)
      Next
End If
[hw23].Resize(10) = brr
Application.EnableEvents = True
End Sub

LSYYLW · 发表于 2024-10-10 16:22

quqiyuan 发表于 2024-10-10 15:29
代码如下。。。
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = ...

万分的感谢老师，代码非常非常好用。

LSYYLW · 发表于 2024-10-10 16:45

2024-10-10-.zip (5.36 KB, 下载次数: 2)

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

[求助] Excel代码问题，非常感谢！

评分

评分

评分

评分