如何创建一个按照文件名不变的链接
摘要：
如何创建一个按照文件名不变的链接 阅读全文
posted @ 2025-01-28 09:17 zhanglei1371 阅读(2) 评论(0) 推荐(0) 编辑
在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 阅读(624) 评论(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 阅读(145) 评论(0) 推荐(0) 编辑
VBA改写VBA代码
摘要：
问题源自：Excel 一个困扰我很长时间的代码转换问题-Word-ExcelHome技术论坛 - http://club.excelhome.net/thread-1334942-1-1.html 阅读全文
posted @ 2017-04-24 20:30 zhanglei1371 阅读(688) 评论(0) 推荐(0) 编辑
【转载】robocopy的用法
摘要：
经常进行文件管理操作的朋友们，不满意于Windows系统内置的复制功能，因为它太龟速了。于是大家就使用FastCopy、TeraCopy之类的软件来加速复制，但是你是否知道Windows 7已经内置快速复制的功能？ 这项功能就是RoboCopy，它是一个命令行的目录复制命令，自从Windows NT 阅读全文
posted @ 2017-04-17 18:19 zhanglei1371 阅读(31767) 评论(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 阅读(868) 评论(0) 推荐(0) 编辑
一键调节音量
摘要：
一键调节音量 Ctrl+→：增大音量并显示当前音量； Ctrl＋←：减小音量并显示当前音量。 Ctrl＋小键盘*：静音 阅读全文
posted @ 2017-04-04 13:58 zhanglei1371 阅读(1514) 评论(0) 推荐(0) 编辑
合并文档时让第一页为奇数
摘要：
目的：实现打印时自动将第一页排在奇数页，以防出现两份资料不独立的情况。</pre><pre name="code" class="vb">因为是双面打印,故必须让文档的第一页位于奇数页,可以获取页码,插入空白页,可以插入奇数页分页符 阅读全文
posted @ 2017-04-04 13:57 zhanglei1371 阅读(330) 评论(0) 推荐(0) 编辑
智能跳转---TC资源管理器
摘要：
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;作者：天甜；QQ：105224583 ;一花一世界，一叶一枯荣，心无挂碍,无挂碍故,无有恐怖,远离颠倒梦想,究竟涅盘。 ;更新于：2016-10-10-20-36 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;... 阅读全文
posted @ 2017-04-04 13:56 zhanglei1371 阅读(1002) 评论(0) 推荐(0) 编辑
win7一键拖动生成快速启动栏
摘要：
一键拖动生成快速启动工具栏 阅读全文
posted @ 2017-04-04 13:56 zhanglei1371 阅读(526) 评论(0) 推荐(0) 编辑
