VBA通过有效性改变数据，下拉不起作用点击才有结果？

czr0373 · 发表于 2013-1-13 13:55

840205910 · 发表于 2013-1-13 14:21

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 4 Then
If Target.Value = "测井队" Then
Sheets("表头").Rows(1).Copy [a1]
ElseIf Target.Value = "射孔队" Then
Sheets("表头").Rows(2).Copy [a1]
End If
End If
End Sub

czr0373 · 发表于 2013-1-13 14:32

840205910 发表于 2013-1-13 14:21
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 4 Then
I ...

真快，，好人真多，，，

czr0373 · 发表于 2013-1-13 14:45

840205910 发表于 2013-1-13 14:21
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 1 And Target.Column = 4 Then
I ...

当D1选取射孔队时，如何只保留D列所在单元格数值为TM123的行，并且隐藏1-28列表头为空的列。
当D1选取测井队时，如何隐藏D列所在单元格数值为TM123的行。

840205910 · 发表于 2013-1-13 15:38

筛选吧，不太明白你意思

		自动登录	找回密码
密码			免费注册