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

时间：2014-10-15 12:51:20 阅读：177 评论：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 限制单元格下拉拖拽复制级联清空单元格数据

标签：excel 宏

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

踩

(0)

评论一句话评论（0）

分享档案

更多>

2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)

周排行

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

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