[已解决]点击名称可在两张表中显示2 ...

松儿

点击名称可在两张表中显示2014.zip (9.71 KB, 下载次数: 8)

2014-4-12 13:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

dsmch

2014-4-12 18:01

………………

跳转到最佳答案楼层

dsmch

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Row > 1 And Cells(1, Target.Column) = "书籍名称" Then
   
3.     If Target.Column = 17 Then
   
4.         y = Sheets("文学").Range("f65536").End(xlUp).Row + 1
   
5.         Target.Offset(0, -1).Resize(1, 5).Copy Sheets("文学").Cells(y, "f")
   
6.     Else
   
7.         x = Sheets("排版").Range("f65536").End(xlUp).Row + 1
   
8.         Target.Offset(0, -1).Resize(1, 5).Copy Sheets("排版").Cells(x, "f")
   
9.     End If
   
10. End If
    
11. End Sub
    

复制代码

dsmch

………………

松儿

dsmch 发表于 2014-4-12 14:11
………………

《文学》一表中想将“名称”在A列显示，怎么修改代码。

dsmch

………………