|
||
|
摘要：
1、如何复制按平时的操作习惯可以知道，只需定位第1个位置即可。 '如果想通过复制/粘贴方式呢,只需指定第1个单元格即可. With Workbooks("验证Range.xls").Sheets(2) .Range("A1").CurrentRegion.Copy Destination:=Workbooks("book2.xls").Sheets(3).Range("A1") End With当然也可以通过直接赋值的方法来实现复制，但此时就要注意了，必须保证两块区域的大小是相同的。这点可以通过resize 阅读全文
posted @ 2012-09-13 16:41 ArRan 阅读(980) 评论(0) 推荐(0) 编辑
摘要：
本示例为设置密码窗口 (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 ' 保护工作表并设置密 阅读全文
posted @ 2012-09-13 16:37 ArRan 阅读(6456) 评论(0) 推荐(0) 编辑
摘要：
Synergy允许你轻松地在你办公桌上多台计算机之间共享你的鼠标和键盘，它免费并且开放源代码。你只要将鼠标（指针）从一台计算机的屏幕边缘移出到另 一个屏幕就行了。甚至可以共享你的剪贴板。你所需要的仅仅是一个网络连接。Synergy是跨平台的（可以运行于Windows，Mac OS X和Linux）。关于软件 使用它，所有的电脑在您的桌面上形成一个单一的虚拟屏幕。您可以使用只有一台电脑的鼠标和键盘，而您使用的显示器上能显示所有计算机。你告诉 Synergy多少屏幕和他们的位置。它然后检测时，移动鼠标到一个屏幕的边缘时，它立即向邻近的屏幕上跳跃。该键盘的作用是进入哪个屏幕便在那个屏幕显 示光标。 阅读全文
posted @ 2012-09-12 20:49 ArRan 阅读(230) 评论(0) 推荐(0) 编辑 |
||