请高人帮忙写段ExcelVBA代码

J6:J200区域是数据有效性序列"AA,AB1,AB2,AB3"。
例如:在J6单元格选入序列的是"AA",在L6单元格输入"200"数量,请用VBA代码在输入数量的L6单元格变成公式"=200*2"。如果在J6单元格选入序列的是"AB2"或是"AB3",请用VBA代码实现J6单元格的左边区域"A6:I6和右边区域"K6:L6"填充相对应的上一行"A5:I5,K5:L5"单元格内容。
备注:J6:J200区域(不是J列而是要求识别区域),"A5:I5与K5:L5"单元格(不是整行而是要求识别区域)
谢谢您!
J6:J200区域是数据有效性序列"AA,,AB2,AB3"分别是三个产品要加工的名字

在J6单元格选入序列的是“AA”这句话看不明白。 就是J6单元格是“AA”的话那么、、、、是这个意思吗?追问

如果J6单元格选入序列的是"AA",那么就把L6单元格输入的数量例如"200"变成公式"=200*2"。这个VBA代码应该是编辑J6单元格的时候首先判断J6单元格选入的内容是不是"AB2"或"AB3"如果是则执行左边区域与右边区域填充命令,然后当编辑L6单元格的时候在判断J6单元格选入的内容是不是"AA"如果是则执行L6单元格输入的数量变成公式例如L6"=200*2"

追答Sub try()
Dim i As Integer
    For i = 6 To 200
        If Cells(i, 10) = "AA" Then
        Cells(i, 12) = "=200*2"
        ElseIf Cells(i, 10) = "AB2" Or Cells(i, 10) = "AB3" Then
        Range("a" & i - 1 & ":" & "i" & i - 1).Copy Range("a" & i)
        Range("k" & i - 1 & ":" & "l" & i - 1).Copy Range("k" & i)
        End If
    Next
End Sub

是要这样的结果吗?

追问

...

追答

我去 您这是什么意思?

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网