敬请老师帮我修改代码，非常感谢！

LSYYLW

2024-2-3.zip (9.5 KB, 下载次数: 6)

2024-2-3 10:06 上传

点击文件名下载附件

大灰狼1976

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address = "$D$7" Then
   
3.        arr = [row(1:6)-1]
   
4.        Range("m9").Resize(6) = ""
   
5.        Range("m9").Resize(Target) = arr
   
6.     End If
   
7. End Sub

复制代码

3190496160

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then
       arr = Array(0, 1, 2, 3, 4, 5)
       Range("m9").Resize(6, 1) = ""
       Range("m9").Resize(Target, 1) = Application.Transpose(arr)
    End If
End Sub

3190496160

cjc209

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$7" Then
       arr = Array(0, 1, 2, 3, 4, 5)
       Range("m9").Resize(6, 1) = ""
       Range("m9").Resize(Target, 1) = Application.Transpose(arr)
    End If
End Sub

cjc209

那么简单都不会修改 等于说你根本没有理解每一句代码的意思 所以你束手无策

LSYYLW

2024-2-3---.zip (8.53 KB, 下载次数: 2)

2024-2-3 11:16 上传

点击文件名下载附件

LSYYLW

3190496160 发表于 2024-2-3 10:17

非常感谢老师，您修改的代码非常成功，修改后非常好用。抱歉老师还得麻烦您一下，还有一个代码需要修改，我参考您修改代码的模式，修改了4楼附件里的代码，可是没有成功，还仰仗老师您出手相助，帮我解决一下，拜托您了！

gwjkkkkk

1. Range("m9").Resize(, Target.Value) = arr

复制代码

2324104030

在论坛怎么久时间，你怎么还没有学会啊，靠别人不如靠自己啊！