[已解决]点击名称显示名称.zi ...

松儿

求助：点击名称显示名称.zip (8.33 KB, 下载次数: 5)

2013-12-28 10:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

冥王

2013-12-28 10:37

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3.    If Target.Column = 29 Or Target.Column = 36 Or Target.Column = 43 Then
   
4.       If Target.Value Like "《*》" Then
   
5.          Target.Resize(1, 5).Copy Cells(Range("F65536").End(xlUp).Row + 1, 6)
   
6.          Target.Offset(0, 5).Copy Cells(Range("F65536").End(xlUp).Row, 27)
   
7.       End If
   
8.    End If
   
9. End Sub

复制代码

跳转到最佳答案楼层

冥王

出版社跟日期中间为什么要间隔那么多空列？

松儿

冥王 发表于 2013-12-28 10:29
出版社跟日期中间为什么要间隔那么多空列？

之间有其它的数据

yewei113

这个不会，录制宏行不行呀

松儿

yewei113 发表于 2013-12-28 10:35
这个不会，录制宏行不行呀

可以的

冥王

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3.    If Target.Column = 29 Or Target.Column = 36 Or Target.Column = 43 Then
   
4.       If Target.Value Like "《*》" Then
   
5.          Target.Resize(1, 5).Copy Cells(Range("F65536").End(xlUp).Row + 1, 6)
   
6.          Target.Offset(0, 5).Copy Cells(Range("F65536").End(xlUp).Row, 27)
   
7.       End If
   
8.    End If
   
9. End Sub

复制代码

松儿

冥王 发表于 2013-12-28 10:37

所有书名在没有书名号的情况下也可选择（显示）。

冥王

松儿 发表于 2013-12-28 11:22
所有书名在没有书名号的情况下也可选择（显示）。

那就改一下

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. On Error Resume Next
   
3.    If Target.Column = 29 Or Target.Column = 36 Or Target.Column = 43 Then
   
4.       If Target.Value <> "书名" Then
   
5.          Target.Resize(1, 5).Copy Cells(Range("F65536").End(xlUp).Row + 1, 6)
   
6.          Target.Offset(0, 5).Copy Cells(Range("F65536").End(xlUp).Row, 27)
   
7.       End If
   
8.    End If
   
9. End Sub
   

复制代码