摘要： 如何创建一个按照文件名不变的链接 阅读全文

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

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

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

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

摘要： 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... 阅读全文

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

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

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

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