zhanglei1371

在word中输入任意角度旋转图片

摘要： Sub 图片旋转任意角度() Dim sha As Shape, isa As InlineShape Static s As Integer Application.ScreenUpdating = 0 s = InputBox("请输入要旋转的角度：", "图像旋转", s) If Active 阅读全文

posted @ 2018-07-03 16:01 zhanglei1371 阅读(598) 评论(0) 推荐(0) 编辑

VBA注释临时

摘要： Sub shishi() '按ABCDE为多选题定义答案; 'A．沙利度胺 B．异烟肼 C．利福平 'd.氯法齐明 E.氨苯砜 '46．各型麻风病的首选药物为(D) 'A．沙利度胺 B．异烟肼 C．利福平 'd.氯法齐明 E.氨苯砜 '45．各型麻风病的首选药物为(E) 'A．沙利度胺 B．异烟肼阅读全文

posted @ 2018-06-17 11:23 zhanglei1371 阅读(140) 评论(0) 推荐(0) 编辑

VBA改写VBA代码

摘要：问题源自：Excel 一个困扰我很长时间的代码转换问题-Word-ExcelHome技术论坛 - http://club.excelhome.net/thread-1334942-1-1.html 阅读全文

posted @ 2017-04-24 20:30 zhanglei1371 阅读(674) 评论(0) 推荐(0) 编辑

【转载】robocopy的用法

摘要：经常进行文件管理操作的朋友们，不满意于Windows系统内置的复制功能，因为它太龟速了。于是大家就使用FastCopy、TeraCopy之类的软件来加速复制，但是你是否知道Windows 7已经内置快速复制的功能？这项功能就是RoboCopy，它是一个命令行的目录复制命令，自从Windows NT 阅读全文

posted @ 2017-04-17 18:19 zhanglei1371 阅读(31638) 评论(1) 推荐(3) 编辑

Excel数组排序+图片统一大小

摘要： Sub 图片调整合适大小() ' Debug.Print ActiveWorkbook.Name 图片显示比例 = 0.9 '1为顶满单元格 Dim wb As Workbook, sh As Worksheet, ce As Range, shp As Shape Dim dic As Object, re As Object, shel As Object... 阅读全文

posted @ 2017-04-05 06:53 zhanglei1371 阅读(861) 评论(0) 推荐(0) 编辑

一键调节音量

摘要：一键调节音量 Ctrl+→：增大音量并显示当前音量； Ctrl＋←：减小音量并显示当前音量。 Ctrl＋小键盘*：静音阅读全文

posted @ 2017-04-04 13:58 zhanglei1371 阅读(1485) 评论(0) 推荐(0) 编辑

合并文档时让第一页为奇数

摘要：目的：实现打印时自动将第一页排在奇数页，以防出现两份资料不独立的情况。</pre><pre name="code" class="vb">因为是双面打印,故必须让文档的第一页位于奇数页,可以获取页码,插入空白页,可以插入奇数页分页符阅读全文

posted @ 2017-04-04 13:57 zhanglei1371 阅读(327) 评论(0) 推荐(0) 编辑

摘要： ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;作者：天甜；QQ：105224583 ;一花一世界，一叶一枯荣，心无挂碍,无挂碍故,无有恐怖,远离颠倒梦想,究竟涅盘。 ;更新于：2016-10-10-20-36 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;... 阅读全文

posted @ 2017-04-04 13:56 zhanglei1371 阅读(996) 评论(0) 推荐(0) 编辑

win7一键拖动生成快速启动栏

摘要：一键拖动生成快速启动工具栏阅读全文

posted @ 2017-04-04 13:56 zhanglei1371 阅读(522) 评论(0) 推荐(0) 编辑

不同窗口自动设置输入法

摘要：实现不同窗口设置不同的输入法阅读全文

posted @ 2017-04-04 13:55 zhanglei1371 阅读(1305) 评论(0) 推荐(0) 编辑