如何用VBA代码做到在G列输入大于0的数据后,在A列,D列,E列自动输入数据
Excel表格中,如何用VBA代码做到在G列输入大于0的数据后,在A列,D列,E列自动输入数据。同时具备以下几个条件:1、如果A列G列E列原来的单元格内有数据,无论在G列...
Excel表格中,如何用VBA代码做到在G列输入大于0的数据后,在A列,D列,E列自动输入数据。同时具备以下几个条件:
1、如果A列G列E列原来的单元格内有数据,无论在G列输入什么,他们都保持不变(维持原来的数据)
2、如果原来的单元格内没有数据,在对应的G列中输入大于0的数据时,他们将自动等于上面一个单元格的数据
3、A列、D列、E列中的单元格分别和G列有关,他们之间没有关系
请问高手该代码应当如何写
原来的图片不清楚,换一张。
在实际使用中,客户名称、铜管规格、和管型一般情况下 下面的单元格等于上面的单元格的内容,所以我想在G列输入数据时,让他们自动输入(这就是第2条)。
客户每次报单结束,就要换新的客户,我当然要输入新的客户名称,有时还要换铜管规格或管型,这样我肯定要在相应的单元格内输入数据,所以在G列输入数据时,他们当然不能更改,除非手工更改(这就是第1条) 展开
1、如果A列G列E列原来的单元格内有数据,无论在G列输入什么,他们都保持不变(维持原来的数据)
2、如果原来的单元格内没有数据,在对应的G列中输入大于0的数据时,他们将自动等于上面一个单元格的数据
3、A列、D列、E列中的单元格分别和G列有关,他们之间没有关系
请问高手该代码应当如何写
原来的图片不清楚,换一张。
在实际使用中,客户名称、铜管规格、和管型一般情况下 下面的单元格等于上面的单元格的内容,所以我想在G列输入数据时,让他们自动输入(这就是第2条)。
客户每次报单结束,就要换新的客户,我当然要输入新的客户名称,有时还要换铜管规格或管型,这样我肯定要在相应的单元格内输入数据,所以在G列输入数据时,他们当然不能更改,除非手工更改(这就是第1条) 展开
2个回答
展开全部
感觉你第一点是写错了
应该是
1、如果A列D列E列原来的单元格内有数据,无论在G列输入什么,他们都保持不变(维持原来的数据)
用单元格事件呀
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R&
If Target.Row > 1 And Target.Column = 7 And Target.Count = 1 Then
R = Target.Row
If Target.Value > 0 Then
If Cells(R, 1) = "" Then
Cells(R, 1) = Cells(R - 1, 1)
End If
If Cells(R, 4) = "" Then
Cells(R, 4) = Cells(R - 1, 4)
End If
If Cells(R, 5) = "" Then
Cells(R, 5) = Cells(R - 1, 5)
End If
End If
End If
End Sub
这代码只要A,D,E有数据,则不变,注意是分开的,A有,D没有,则D=上一行,A不变
如果是有一个数据就不变的话,你把判断修改一下即可
应该是
1、如果A列D列E列原来的单元格内有数据,无论在G列输入什么,他们都保持不变(维持原来的数据)
用单元格事件呀
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R&
If Target.Row > 1 And Target.Column = 7 And Target.Count = 1 Then
R = Target.Row
If Target.Value > 0 Then
If Cells(R, 1) = "" Then
Cells(R, 1) = Cells(R - 1, 1)
End If
If Cells(R, 4) = "" Then
Cells(R, 4) = Cells(R - 1, 4)
End If
If Cells(R, 5) = "" Then
Cells(R, 5) = Cells(R - 1, 5)
End If
End If
End If
End Sub
这代码只要A,D,E有数据,则不变,注意是分开的,A有,D没有,则D=上一行,A不变
如果是有一个数据就不变的话,你把判断修改一下即可
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询