Excel VB 限制单元格下拉拖拽复制级联清空单元格数据

时间：2014-10-15 12:32:31 阅读：256 评论：0 收藏：0 [点我收藏+]

打开Excel，ALT+F11调出VB窗口

********************************************************

当选择第二列单元格，对应的单元格列清空

********************************************************

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then
Cells(Target.Row, "C") = ""
Cells(Target.Row, "K") = ""
Cells(Target.Row, "N") = ""
Cells(Target.Row, "R") = ""
ElseIf Target.Column = 3 Then
Cells(Target.Row, "K") = ""
Cells(Target.Row, "N") = ""
Cells(Target.Row, "R") = ""
End If
End Sub

********************************************************

限制单元格(K1-N105)下拉拖拽复制

********************************************************

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim oCtrl As Office.CommandBarControl
If Not Intersect(Target, Range("$K$1:$N$105")) Is Nothing Then
Application.CellDragAndDrop = False
Else
Application.CellDragAndDrop = True
End If

End Sub

ALT+F11 打开VB窗口,Ctrl+G 在立即窗口里输入 application.celldraganddrop=true 即可解除限制单元格下拉拖拽复制。

注意：VB代码只有在启用宏的情况下实现效果，所以在做以上代码时要启用宏

Excel VB 限制单元格下拉拖拽复制级联清空单元格数据

原文：http://blog.csdn.net/lanqibaoer/article/details/40107531

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年09月23日 (328)
2021年09月24日 (313)
2021年09月17日 (191)
2021年09月15日 (369)
2021年09月16日 (411)
2021年09月13日 (439)
2021年09月11日 (398)
2021年09月12日 (393)
2021年09月10日 (160)
2021年09月08日 (222)

Excel VB 限制单元格下拉拖拽复制 级联清空单元格数据

Excel VB 限制单元格下拉拖拽复制级联清空单元格数据