VBA - 随笔分类 - 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 阅读(678) 评论(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 阅读(153) 评论(0) 推荐(0)

VBA改写VBA代码

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

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

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 阅读(901) 评论(0) 推荐(0)

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

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

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

递归的感悟

摘要：求n阶乘的VB函数过程。 Private Function F( byval n As Integer ) As long If n=1 Then F=1 Else: F=n*F(n－1) End If End Function 让我们来跟踪这个程序的计算过程，令n=4调用这个函数，用下面的形式来表示递归求... 阅读全文

posted @ 2017-04-04 13:47 zhanglei1371 阅读(195) 评论(0) 推荐(0)

随笔分类 - VBA