VBA常用技巧代码解析

gzy001 · 发表于 2009-9-19 08:53

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

zxueq · 发表于 2009-9-19 09:35

太经典了,收藏学习,

gzy001 · 发表于 2009-9-19 10:08

请教各位大侠，技巧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 · 发表于 2009-9-19 10:44

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

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

gzy001 · 发表于 2009-9-19 19:39

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

gzy001 · 发表于 2009-9-19 19:59

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 · 发表于 2009-9-19 20:28

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 · 发表于 2009-9-19 20:36

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

gutianyue · 发表于 2009-9-20 20:19

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

ghfan · 发表于 2009-9-20 22:56

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

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

VBA常用技巧代码解析

请教各位大侠，技巧107 控件跟随活动单元格

请教各位大侠，技巧107 控件跟随活动单元格

谢谢版主，我去试试

麻烦版主，帮我看一下，为啥它不跟着Q列，而是跟着R列

谢谢版主，问题用是没问题了，下面是代码，帮看一下是否能简化，谢谢了。

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