筛选后, 可见单元格粘贴. 参数要怎么传递?

cgx5871

想做一个, 快捷键Ctrl+v粘贴时.
如果工作表是筛选状态. 且复制的单元格---可见单元格, 非连续性.
一. 快捷键Ctrl+v粘贴时, 弹出粘贴选项菜单---,
     1. 正常粘贴,
     2. 可见单元格粘贴.     (更完美一点, 就是把可见性粘贴, 放在Excel自带的右下角  "+"号 的粘贴选项中
二. 右键菜单时,   自动在右键菜单添加一个....<可见单元格粘贴>.

三. 添加快捷,Alt+v=可见单元格粘贴.
菜单要怎么传递参数?

1. Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
   
2.     Application.CommandBars("cell").Reset '删除所有右键菜单，避免重复添加
   
3.     With Application.CommandBars("cell").Controls.Add(, , , 3, 1)
   
4.       .FaceId = 22    '粘贴图标
   
5.       .OnAction = "'PasteVisible""" & (SelectionVisible) & """'"
   
6.       .Caption = "粘贴(可见单元格)(Alt+V)"
   
7.       .Style = msoButtonIconAndCaption
   
8.     End With
   
9. End Sub

复制代码

1. Public SelectionVisible As Range
   
2. Sub CopyVisible()
   
3.     Selection.Copy
   
4.     If InStr(1, Selection.SpecialCells(xlCellTypeVisible).Address, ",") > 0 Then    '判断是否连续区域
   
5.         Set SelectionVisible = Selection.SpecialCells(xlCellTypeVisible)    '取出可见区域
   
6.     Else
   
7.         Set SelectionVisible = Nothing
   
8.     End If
   
9. End Sub
   
10. Sub PasteVisible()
    
11.     If SelectionVisible Is Nothing Then
    
12.         Selection.Paste
    
13.     Else
    
14.         MsgBox "可见单元格粘贴"
    
15.     End If
    
16. End Sub
    

复制代码

cgx5871

综合所有的可能操作,
大佬出来做出一个完善的 , 复制粘贴工具.