[已解决]自动显示，这个是要VBA 才能解决么？？

dulian168

  我需要的是每一次A8到F8的结果，显示在L列到Q列的数据下面
也就是说，A8到F8 下一次的结果，要按对应的要求显示在L5 到 Q5 的空格里


要求是刷新后的数据自动显示在指定位置！！


求解决

最佳答案

月排行榜 / 总排行榜

dsmch

2015-4-3 05:50

a3:f3全部输入后自动产生结果

跳转到最佳答案楼层

hsl215

附件是点击按钮添加数据的，有点不否，刷新后自动添加不会， 自动专用.zip (333.44 KB, 下载次数: 7)

2015-4-3 00:17 上传

点击文件名下载附件

dulian168

hsl215 发表于 2015-4-3 00:18
附件是点击按钮添加数据的，有点不否，刷新后自动添加不会，

改变A3到F 3的数据后   A8  到 F8  的数据都没相应的改变


能帮忙改下么？？
  

dsmch

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Not Application.Intersect([a3:f3], Target) Is Nothing And Application.WorksheetFunction.CountA([a3:f3]) = 6 Then
   
3.     Call jh
   
4. End If
   
5. End Sub

复制代码

1. Sub jh()
   
2. Dim arr(1 To 1, 1 To 6)
   
3. For i = 1 To 6
   
4.     zf = "'0123456789"
   
5.     For j = 1 To i
   
6.         zf = Replace(zf, Cells(3, j), "")
   
7.     Next
   
8.     arr(1, i) = zf
   
9. Next
   
10. [a3:f3] = ""
    
11. n = Range("l65536").End(xlUp).Row + 1
    
12. Cells(n, "l").Resize(1, 6) = arr
    
13. End Sub

复制代码

dsmch

a3:f3全部输入后自动产生结果

dulian168

dsmch 发表于 2015-4-3 05:50
a3:f3全部输入后自动产生结果

不知道 复制到哪里

dulian168

dsmch 发表于 2015-4-3 05:47

麻烦老师帮忙复制下    谢谢

dulian168

dulian168 发表于 2015-4-4 11:48
不知道 复制到哪里

附件下载了    是原文件啊

dulian168

dulian168 发表于 2015-4-4 12:01
附件下载了    是原文件啊

谢谢老师