热门标签
更多>
搜索结果
查询Tags标签: CellDragAndDrop,共有 2条记录-
禁止EXCEL单元格粘贴和拖放,只允许手动输入
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("F10:M26,D2")) Is Nothing Then MsgBox ("禁止粘贴内容!,请双击后输入内容!") Application.CellDragAndDrop = Fals…
2021/7/30 6:07:44 人评论 次浏览 -
禁止EXCEL单元格粘贴和拖放,只允许手动输入
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("F10:M26,D2")) Is Nothing Then MsgBox ("禁止粘贴内容!,请双击后输入内容!") Application.CellDragAndDrop = Fals…
2021/7/30 6:07:44 人评论 次浏览