点任意数据，自动显示当前列数据到目标列

PPFL

表格见附件，现在效果是点击E4:H10区域中的任意一个单元格，都会把当前行的数据，显示到13这一行对应的区域，我现在想实现，点击区域任意单元格，把对应列数据显示到“J”这一列，我自己试着去改过，技术不行，搞不定，还望大佬们给看下


PS：表格里的VBA代码也是论坛大佬@ww87725244的代码，在此十分感谢

lsc900707

你自己搞定了就学到了不少的知识，就算多花了一些时间和精力。

hzruziniu

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Intersect(Target, Range("e4:h10")) Is Nothing Then
   
3.         Exit Sub
   
4.     Else
   
5.          Range(Cells(Target.Row, "e"), Cells(Target.Row, "h")).Value = Range("e13:h13").Value
   
6.     End If
   
7. End Sub

复制代码

hzruziniu

后面一句倒过来就行了.

PPFL

hzruziniu 发表于 2018-8-4 15:08
后面一句倒过来就行了.

可能我没说清，大佬没理解，不过还是谢谢，我自己又在网上看看琢磨了一下，这样好像可以实现，也不晓得对不对

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Intersect(Target, Range("e4:h10")) Is Nothing Then
   
3. Exit Sub
   
4. Else
   
5. Range("j4:j10").Value = Range(Cells(4, Target.Column), Cells(10, Target.Column)).Value
   
6. End If
   
7. End Sub

复制代码

jiminyanyan

PPFL 发表于 2018-8-4 19:52
可能我没说清，大佬没理解，不过还是谢谢，我自己又在网上看看琢磨了一下，这样好像可以实现，也不晓得对 ...

可不可以，你自己不清楚么。。。