[已解决]求助：三张工作表数据增加，明细数据能到另一工作表

fdxjp · 发表于 2010-11-27 09:40

2eqM3Xgg.rar (3.02 KB, 下载次数: 1)

搁浅2008 · 发表于 2010-11-27 09:55

按什么顺序? 如果没有直接把3个复制过去就行了

白开水的味道 · 发表于 2010-11-27 09:59

看看是不是这样的

T0Fooina.rar (10.13 KB, 下载次数: 27)

fdxjp · 发表于 2010-11-27 11:15

能不能再帮我写个，光标移到哪行，哪行突出显示颜色，谢了。

搁浅2008 · 发表于 2010-11-27 12:06

V7IHCzBm.rar (7.46 KB, 下载次数: 6)

白开水的味道 · 发表于 2010-11-27 18:06

今天出去了，你是要这种效果？

y3sNtfVH.rar (10.58 KB, 下载次数: 10)

fdxjp · 发表于 2010-11-27 18:16

谢谢2008

fdxjp · 发表于 2010-11-27 18:23

是的，要的就是这种效果。你的简单些。请问下你的代码和2008的区别在哪里，想学习下

你的：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim r As Long
    Cells.Interior.ColorIndex = 0
    r = Selection.Row
    Range(Cells(r, 1), Cells(r, "q")).Interior.ColorIndex = 6
End Sub

2008的：

Dim n As Byte
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    n = IIf(Application.CutCopyMode = xlCopy, 0, 1)
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.CutCopyMode = xlCopy And n = 1 Then n = 0: End
    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 6

End Sub

搁浅2008 · 发表于 2010-11-27 18:35

复制粘贴一下就知道效果了

白开水的味道 · 发表于 2010-11-27 18:48

我代码没2008的考虑周到

确实是，复制的时候会出现右键不能粘贴

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

[已解决]求助：三张工作表数据增加，明细数据能到另一工作表

谢谢白开水

谢谢2008

谢谢白开水