[已解决]求助VBA代码

ccq000000

在F4中的公式=A4*B4 ,用VBA来做怎么让其相对引用填充满整个有色区域的隔行隔列单元格?不用FOR循环做最好.
代码最好能在SelectionChangeg事件中运行.请求帮助谢谢!(附件已上传)
Book1.rar (5.03 KB, 下载次数: 7)

2013-11-9 19:56 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dongqing1998

2013-11-9 21:32

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Not Application.Intersect(Target, Range("f4:j18")) Is Nothing Then
   
3.         r = Target.Row: c = Target.Column
   
4. '        If c Mod 2 Then Exit Sub
   
5.         If Len(Join(Application.Transpose(Application.Transpose(Range("a" & r & ":d" & r))), "")) Then
   
6.             Range("f" & r).Formula = "=A" & r & "*" & "B" & r
   
7.             Range("h" & r).Formula = "=B" & r & "*" & "C" & r
   
8.             Range("J" & r).Formula = "=C" & r & "*" & "D" & r
   
9.         End If
   
10.     End If
    
11. End Sub

复制代码

楼主可以根据自己的实际需要对上面代码做一些修改

跳转到最佳答案楼层

dongqing1998

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Not Application.Intersect(Target, Range("f4:j18")) Is Nothing Then
   
3.         r = Target.Row: c = Target.Column
   
4. '        If c Mod 2 Then Exit Sub
   
5.         If Len(Join(Application.Transpose(Application.Transpose(Range("a" & r & ":d" & r))), "")) Then
   
6.             Range("f" & r).Formula = "=A" & r & "*" & "B" & r
   
7.             Range("h" & r).Formula = "=B" & r & "*" & "C" & r
   
8.             Range("J" & r).Formula = "=C" & r & "*" & "D" & r
   
9.         End If
   
10.     End If
    
11. End Sub

复制代码

楼主可以根据自己的实际需要对上面代码做一些修改

ccq000000

dongqing1998 发表于 2013-11-9 21:32
楼主可以根据自己的实际需要对上面代码做一些修改

谢谢,我要先看看理解一下.