[已解决]修改VBA工作表事件，双击触发事件改为有数据触发事件

yjwdjfqb · 发表于 2012-4-9 12:02

修改VBA工作表事件，双击触发事件改为有数据触发事件

B3：B10双击就会触发事件，请朋友们帮我修改下，改为有数据时即非空单元格才触发事件

VBA工作表事件.rar (11.14 KB, 下载次数: 77)

BAIXINGR · 发表于 2012-4-9 12:19

你加个判断不就行了，

过江龙 · 发表于 2012-4-9 12:51

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I&
'格式设置    ↓第2列开始    　↓第3行开始       ↓第10行终止
If Target.Column = 2 And Target.Row >= 3 And Target.Row <= 10 And Target.Value <> "" Then
      I = Target.Row - 1  '当前行的上一行
      Range("C" & I).AutoFill Destination:=Range("C" & I).Resize(2, 1), Type:=xlFillValues  '不带格式复制公式
      Range("E" & I).AutoFill Destination:=Range("E" & I).Resize(2, 1), Type:=xlFillValues
      Range("F" & I).AutoFill Destination:=Range("F" & I).Resize(2, 1), Type:=xlFillValues
      Range("G" & I).AutoFill Destination:=Range("G" & I).Resize(2, 1), Type:=xlFillValues
   'Range("G" & I).AutoFill Destination:=Range("G" & I).Resize(2, 1)                   '要带格式复制公式
      Cells(I + 1, 1) = I  '自动编号语句,如果不需要编号可直接删除此句
      Range("a" & Target.Row & ":h" & Target.Row).Borders.LineStyle = 1       '表示加表格边框的列范围
      Range("a" & Target.Row & ":h" & Target.Row).Font.Name = "黑体"          '字体
      Range("a" & Target.Row & ":h" & Target.Row).HorizontalAlignment = 3    '水平居中
      Range("a" & Target.Row & ":h" & Target.Row).Font.ColorIndex = 3          '字体颜色红色
      Range("a" & Target.Row & ":h" & Target.Row).VerticalAlignment = xlCenter  '垂直居中
End If
End Sub

yjwdjfqb · 发表于 2012-4-9 13:07

过江龙发表于 2012-4-9 12:51
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I&
'格式设置 ↓第2列开始 ...

谢谢朋友的帮助，你试着删除行看下，会报错。。。

过江龙 · 发表于 2012-4-9 14:08

Private Sub Worksheet_Change(ByVal Target As Range)
Dim I&
If Target.Count > 1 Then Exit Sub
'格式设置    ↓第2列开始    　↓第3行开始       ↓第10行终止
If Target.Column = 2 And Target.Row >= 3 And Target.Row <= 10 And Target.Value <> "" Then
      I = Target.Row - 1  '当前行的上一行
      Range("C" & I).AutoFill Destination:=Range("C" & I).Resize(2, 1), Type:=xlFillValues  '不带格式复制公式
      Range("E" & I).AutoFill Destination:=Range("E" & I).Resize(2, 1), Type:=xlFillValues
      Range("F" & I).AutoFill Destination:=Range("F" & I).Resize(2, 1), Type:=xlFillValues
      Range("G" & I).AutoFill Destination:=Range("G" & I).Resize(2, 1), Type:=xlFillValues
   'Range("G" & I).AutoFill Destination:=Range("G" & I).Resize(2, 1)                   '要带格式复制公式
      Cells(I + 1, 1) = I  '自动编号语句,如果不需要编号可直接删除此句
      Range("a" & Target.Row & ":h" & Target.Row).Borders.LineStyle = 1       '表示加表格边框的列范围
      Range("a" & Target.Row & ":h" & Target.Row).Font.Name = "黑体"          '字体
      Range("a" & Target.Row & ":h" & Target.Row).HorizontalAlignment = 3    '水平居中
      Range("a" & Target.Row & ":h" & Target.Row).Font.ColorIndex = 3          '字体颜色红色
      Range("a" & Target.Row & ":h" & Target.Row).VerticalAlignment = xlCenter  '垂直居中
End If
End Sub

yjwdjfqb · 发表于 2012-4-9 14:38

过江龙发表于 2012-4-9 14:08
Private Sub Worksheet_Change(ByVal Target As Range)
Dim I&
If Target.Count > 1 Then Exit S ...

谢谢朋友的帮助！！！

过江龙 · 发表于 2012-4-9 15:20

只要对你有帮助就好，我也得到过很多朋友的帮助。

javabang · 发表于 2012-4-9 15:23

学习一下，谢谢分享。

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

[已解决]修改VBA工作表事件，双击触发事件改为有数据触发事件

相关帖子

修改VBA工作表事件，双击触发事件改为有数据触发事件