以下是引用xl在2009-12-16 21:03:00的发言:
运用一下,加深印象:
If e.Col.Name = "第一列"
DataTables("表A").AllowClipBoard = False
ElseIf e.Col.Name = "第二列"
DataTables("表A").AllowClipBoard = False
ElseIf e.Col.Name = "第三列"
DataTables("表A").AllowClipBoard = False
Else
DataTables("表A").AllowClipBoard = True
End If
您这样写代码不感到累?
If e.Col.Name = "第一列" OrElse e.Col.Name = "第二列" OrElse e.Col.Name = "第三列"
DataTables("表A").AllowClipBoard = False
Else
DataTables("表A").AllowClipBoard = True
End If