Excel2003代码问题，非常感谢！

LSYYLW · 发表于 2019-4-17 17:19

2019-4-17-----.zip (3.3 KB, 下载次数: 5)

ming0018 · 发表于 2019-4-17 17:52

如图所示：：：：：：

LSYYLW · 发表于 2019-4-17 18:30

本帖最后由 LSYYLW 于 2019-4-17 18:34 编辑

ming0018 发表于 2019-4-17 17:52
如图所示：：：：：：

非常感谢老师，这个代码怎样才能用到单元格中呀，代码我已经敲完了，不会用呀！您能用下面的代码开头为我写代码吗？拜托了！
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

xiangbaoan · 发表于 2019-4-17 18:54

本帖最后由 xiangbaoan 于 2019-4-17 19:00 编辑

Option Explicit
Private Sub Worksheet_Change(ByVal t As Range)
On Error Resume Next
If Not Intersect(Range([c2:g2], [c2:g2].End(xlDown)), t) Is Nothing Then
Dim ar, r&, i&, j%, c%, k&
ar = Range([c2:g2], [c2:g2].End(xlDown))
ReDim br%(1 To 20, 1 To 11)
r = UBound(ar)
For i = IIf(r > 20, r - 19, 1) To IIf(r > 20, r, UBound(ar))
      k = k + 1
      For j = 1 To 5
         br(k, ar(i, j)) = ar(i, j)
      Next
Next
If k Then
      [l2].Resize(20, 22) = ""
      [l2].Resize(k, 11) = br
      [w2].Resize(k, 11) = br
End If
End If
End Sub

一把小刀闯天下 · 发表于 2019-4-17 19:28

上个帖子已作回复，最近事情有点多，，，

http://club.excelhome.net/forum. ... p;page=1#pid9901691

LSYYLW · 发表于 2019-4-17 19:40

xiangbaoan 发表于 2019-4-17 18:54
Option Explicit
Private Sub Worksheet_Change(ByVal t As Range)
On Error Resume Next

好久不见了老师，我记着您呢，非常感谢您，代码非常好用。

LSYYLW · 发表于 2019-4-17 19:41

一把小刀闯天下发表于 2019-4-17 19:28
上个帖子已作回复，最近事情有点多，，，

http://club.excelhome.net/forum.php?mod=viewthread&tid=147 ...

再次感谢老师！

xiangbaoan · 发表于 2019-4-17 20:43

LSYYLW 发表于 2019-4-17 19:40
好久不见了老师，我记着您呢，非常感谢您，代码非常好用。

因故一年多没上，近几月来一直都在论坛学习，偶尔练手。

LSYYLW · 发表于 2019-4-17 20:49

xiangbaoan 发表于 2019-4-17 20:43
因故一年多没上，近几月来一直都在论坛学习，偶尔练手。

再见到老师您很高兴，以后还得仰仗老师多帮忙。

LSYYLW · 发表于 2019-4-29 13:20

xiangbaoan 发表于 2019-4-17 18:54
Option Explicit
Private Sub Worksheet_Change(ByVal t As Range)
On Error Resume Next

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

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

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

评分

评分