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

LSYYLW · 发表于 2024-5-13 15:04

本帖最后由 LSYYLW 于 2024-5-13 15:07 编辑

cidanji 发表于 2024-5-13 13:18

万分的感谢老师，您写的代码和您修改的代码非常好用，鲜花明天为您献上。

Qs18 · 发表于 2024-5-13 15:41

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$M$1" Then
      If Target.Value = 1 Then
      Dim arr, lstrow
      lstrow = Sheet1.Range("b65536").End(xlUp).Row
      arr = Range("a1:k1")
      For i = 1 To UBound(arr, 2)
         If arr(1, i) = 1 Then
            k = i
            Exit For
         End If
      Next
      Range(Cells(2, "m"), Cells(lstrow, "m")).Value = Range(Cells(2, k), Cells(lstrow, k)).Value
      End If
End If
End Sub

LSYYLW · 发表于 2024-5-18 11:20

cidanji 发表于 2024-5-13 13:18

老师您好：又来麻烦您了，您有时间帮我看一下链接上的问题，拜托了！
https://club.excelhome.net/thread-1692604-1-1.html

cidanji · 发表于 2024-5-18 12:47

LSYYLW · 发表于 2024-5-19 09:00

cidanji 发表于 2024-5-18 12:47

老师您好：又来麻烦您了，您有时间帮我看一下链接上的问题，拜托了！
https://club.excelhome.net/threa ... tml?_dsign=6b32779d

LSYYLW · 发表于 2024-6-8 14:54

本帖最后由 LSYYLW 于 2024-6-8 15:10 编辑

cidanji 发表于 2024-5-8 09:29

老师您好：又来麻烦您了，您有时间帮我看一下27楼附件里有颜色的文字，帮我解决一下，拜托了！

LSYYLW · 发表于 2024-6-8 15:08

2024-6-9---.zip (10.42 KB, 下载次数: 3)

cidanji · 发表于 2024-6-8 17:04

LSYYLW 发表于 2024-6-8 15:08

LSYYLW · 发表于 2024-6-8 18:55

cidanji 发表于 2024-6-8 17:04

是的老师，非常感谢，代码非常好用，鲜花明天为您献上。

LSYYLW · 发表于 2024-9-8 16:08

2024-9-9.zip (45.65 KB, 下载次数: 2)

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

[求助] 敬请老师帮忙修改代码，非常感谢！

评分

评分

评分