[已解决]如何实现双击单元格后自动填充上一单元格内容

yxw2111

求助:如何在B列至H列中,双击单元格后实现自动填充上一单元格内容

最佳答案

月排行榜 / 总排行榜

zsx720629

2011-12-17 12:57

再看一下这个，行不行

跳转到最佳答案楼层

lisachen

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   
2. If Target.Row > 1 And Target.Column > 1 And Target.Column < 9 Then
   
3. Cells(Target.Row, Target.Column) = Cells(Target.Row - 1, Target.Column)
   
4. End If
   
5. End Sub

复制代码

zsx720629

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim hh As Single
Dim lh As Single
hh = Target.Row
lh = Target.Column
If lh = 2 Or lh = 8 Then
    ActiveCell.Value = ActiveSheet.Cells(hh - 1, lh)
End If
End Sub
如果问题得以解决，请设置最佳！！！

yxw2111

zsx720629 发表于 2011-12-17 09:36
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim hh As Single
...

不能实现我说的效果,能否做一个工作表发来,谢谢!

zsx720629

yxw2111 发表于 2011-12-17 11:45
不能实现我说的效果,能否做一个工作表发来,谢谢!

就是这种效果嘛！！！

yxw2111

zsx720629 发表于 2011-12-17 11:53
就是这种效果嘛！！！

你做的是B列和H列,我要的效果是B列至H列这一个范围

zsx720629

再看一下这个，行不行