Rupert

摘要： 1、如何复制按平时的操作习惯可以知道，只需定位第1个位置即可。 '如果想通过复制/粘贴方式呢,只需指定第1个单元格即可. With Workbooks("验证Range.xls").Sheets(2) .Range("A1").CurrentRegion.Copy Destination:=Workbooks("book2.xls").Sheets(3).Range("A1") End With当然也可以通过直接赋值的方法来实现复制，但此时就要注意了，必须保证两块区域的大小是相同的。这点可以通过resize 阅读全文

摘要： 本示例为设置密码窗口 (1)If Application.InputBox("请输入密码：") = 1234 Then [A1] = 1 '密码正确时执行Else MsgBox "密码错误，即将退出！" '此行与第2行共同设置密码End If'本示例为设置密码窗口 (1)X = MsgBox("是否真的要结帐？", vbYesNo)If X = vbYes Then Close'本示例为设置工作表密码ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密 阅读全文