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”的话那么、、、、是这个意思吗?追问
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
如果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
是要这样的结果吗?
追问...
追答我去 您这是什么意思?
温馨提示:答案为网友推荐,仅供参考