点击指定单元格，把指定单元格里的数字，显示到另一指定单元格的代码，非常感谢！

TTZXX2016

清风竹- 发表于 2020-6-10 20:24
请看附件。

非常感谢老师，怪我没有说的明白，我实际应用时是在J21里获取数字，不是在AB21里获取数字，而且我实际应用时AB21里的数字也是用公式产生的，老师您受累再帮我看看，万分的感激！

LSYYLW

2020-6-11.zip (7.8 KB, 下载次数: 3)

2020-6-11 09:31 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-6-10 20:24
请看附件。

老师您好：又来麻烦您了，22楼附件里的问题有老师您为我写的代码，请老师您在不忙的时候帮我修改代码，来去掉原代码中显示序号的功能，去掉显示序号功能后，不影响K8里显示“单”或“双”后各自显示文字和数字的位置，拜托老师了！

清风竹-

LSYYLW 发表于 2020-6-11 09:42
老师您好：又来麻烦您了，22楼附件里的问题有老师您为我写的代码，请老师您在不忙的时候帮我修改代码，来 ...

不显示序号了。

LSYYLW

清风竹- 发表于 2020-6-11 17:33
不显示序号了。

万万分的感谢老师，代码非常好用，鲜花稍后为您献上。

LSYYLW

2020-6-15.zip (2.92 KB, 下载次数: 9)

2020-6-16 20:33 上传

点击文件名下载附件

LSYYLW

清风竹- 发表于 2020-6-11 17:33
不显示序号了。

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

一把小刀闯天下

'参与一下

'[a34]初始值为5，初始源数据列[ai:ax],否则列会错位，，，

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$A$33" Then Exit Sub
  Dim arr(1 To 48), a, b
  Static n
  If n = 0 And [a34].Value <> 5 Then MsgBox "确认初始值及源数据列位置!": Exit Sub
  If [a34].Value <= 1 Then n = 1
  If [a34].Value >= 5 Then n = -1
  [a34].Value = [a34].Value + n
  If n = -1 Then a = 11: b = 3 Else a = -5: b = 3
  Columns(8 * ([a34].Value - 1) + a).Resize(, 16).Cut Destination:=Columns(8 * ([a34].Value - 1) + b).Resize(, 16)
  Target.Offset(-1).Select
End Sub

一把小刀闯天下

'[a34]初始值为5。按第31行16个单元格为一组移动，如果是16列整体移动修改注释行，，，

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address <> "$A$33" And Target.Address <> "$A$35" Then Exit Sub
  Dim arr(1 To 48), a, b
  Static n
  If n = 0 And [a34].Value <> 5 Then MsgBox "确认初始值及源数据列位置!": Exit Sub
  If Target.Address = "$A$33" Then n = -1 Else n = 1
  If Target.Address = "$A$33" And [a34].Value > 1 Or Target.Address = "$A$35" And [a34].Value < 5 Then
    [a34].Value = [a34].Value + n
    If n = -1 Then a = 11: b = 3 Else a = -5: b = 3
    Cells(31, 8 * ([a34].Value - 1) + a).Resize(, 16).Cut Destination:=Cells(31, 8 * ([a34].Value - 1) + b).Resize(, 16)
    'Columns(8 * ([a34].Value - 1) + a).Resize(, 16).Cut Destination:=Columns(8 * ([a34].Value - 1) + b).Resize(, 16)
  End If
  Target.Offset(-1).Select
End Sub

清风竹-

LSYYLW 发表于 2020-6-15 18:27
老师您好：又来麻烦您了，您有时间的时候帮我看一下26楼附件里的问题，拜托您了！

请看附件。