VBA常用技巧代码解析

gzy001

请教各位大侠，技巧107         控件跟随活动单元格，在这个事件中能否增加一个条件，使这个控件只能跟随指定列中的单元格，谢谢各位了，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1

zxueq

太经典了,收藏学习,

gzy001

请教各位大侠，技巧107         控件跟随活动单元格，在这个事件中能否增加一个条件，使这个控件只能跟随指定列中的单元格，谢谢各位了，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
#001  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
#002      With Me.CommandButton1
#003          .Top = Target.Top
#004          .Left = Target.Left + Target.Width
#005      End With
#006  End Sub

yuanzhuping

原帖由 gzy001 于 2009-9-19 10:08 发表
请教各位大侠，技巧107         控件跟随活动单元格，在这个事件中能否增加一个条件，使这个控件只能跟随指定列中的单元格，谢谢各位了，谢谢!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
#001  Privat ...

指定target参数，请参阅技巧20 工作表事件Target参数的使用方法

gzy001

谢谢版主，我去试试，你对大家的帮助太大了，谢谢了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

gzy001

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 17 Then
On Error Resume Next
Cells.Interior.ColorIndex = 0
Target.Offset(0, -16).Range("$A$1:$Q$1").Interior.ColorIndex = 41
Else: Cells.Interior.ColorIndex = 0
With Me.CommandButton2
        .Top = Target.Top
        .Left = Target.Left + Target.Width
    End With
End If
End Sub
辛苦版主，不好意思，请帮帮忙，谢谢了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

gzy001

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row > 1 And Target.Column = 17 Then
On Error Resume Next
With Me.CommandButton2
        .Top = Target.Top
        .Left = Target.Left + Target.Width
End With
End If
If Target.Row > 1 And Target.Column = 17 Then
Cells.Interior.ColorIndex = 0
Target.Offset(0, -16).Range("$A$1:$Q$1").Interior.ColorIndex = 41
Else: Cells.Interior.ColorIndex = 0
End If
End Sub

gzy001

请教版主，技巧107 控件跟随活动单元格，能否跟随多个控件，或组合

gutianyue

这个网站可能是我见到的学VBA最好的地方了

ghfan

谢谢，正在学习中，受益匪浅