• 如何用vba获得word range对象所在的行的文本内容?

    经常在编写word vba 解决方案时会遇到需要获取range对象所在的行的文本内容。

    这时候可以使用如下的代码:

    原理是使用Selection对象的HomeKey和EndKey方法定位到行的开头和结尾,再重新定义Range对象,即可获取行的文本内容。

  • 如何使得word中的金额大写中的繁体萬字变成简体万字?

    当在word中用插入→符号→编号→壹、贰、叁、肆..时,可以将小写数字转换为大写数字。

    比如12345会转换为壹萬贰仟叁佰肆拾伍,但是我们平时要的大写金额一般是壹万贰仟叁佰肆拾伍。

    也就是繁体的萬字要改成简体的万字。

    其实通过插入→符号→编号→壹、贰、叁、肆.. 这个动作是添加了一个域代码,并添加了格式开关。域代码如下:
    [crayon-5b3020ce44b050874286[……]

    阅读全文

  • 如何在vba中遍历word域代码对象?

    word vba 对象模型中可以包含Fields对象的父对象有很多,比如Document、Range、Selection 对象等。

    本文介绍遍历Document对象下的所有Field对象的方法。

    代码如下:

    如果要使某个域代码对象不自动更新,可以设置Locked属性为True,让其锁定。
    如果要设置域代码的结果为其[……]

    阅读全文

  • 如何用vba创建数据透视表?

    用vba创建数据透视表可以使用PivotCaches对象的Create方法先创建一个透视表的缓存对象PivotCache

    然后再用创建的PivotCache对象的CreatePivotTable方法创建PivotTable对象。

    PivotCaches对象的Create方法的语法如下:

    其中SourceType参数可[……]

    阅读全文

  • 如何用vba在屏幕上画圆?

    用api函数Ellipse可以画圆,它的语法如下:

    其中nLeftRect,  nTopRect, nRightRect,  nBottomRect 参数分别表示长方形的左上角和右下角,如果是个正方形,则表示画圆,如果是个长方形则表示画椭圆。

    代码如下:

  • 如何用vba在电脑屏幕的中央倒计时?

    利用gdi函数可以实现在屏幕上写字,结合其它的函数可以做出在电脑屏幕上倒计时的效果,代码如下:

     

  • 如何在vba中定义常量?

    在编写vba代码的过程中对于经常使用的不变的数据,我们可以通过定义常量的形式把使得该数据的含义更加清晰。

    比如要在一段vba代码中要反复使用3000这个数字,它代表的是基础工资,那么可以定义如下的常量:

    一般的,在vba中定义常量使用Const语句,它的语法规则如下:
    [crayon-5b3020ce47e7d37999[……]

    阅读全文

  • 在vba中用lineto函数画线时如何修改线型、大小、颜色?

    如何在vba中用GDI函数LineTo在屏幕上画线?一文中我们介绍了用gdi函数lineto在屏幕上画线。

    如果对所画的线的大小、颜色等不满意,想要调整,这时候可以使用如下的步骤:

    1.用CreatePen函数创建一个画线用的表,设置它的线型、大小、颜色。

    2.用SelectObject函数将该字体添加到DC中,这样凡是与该DC关联的GDI函数都将使用这个笔进行画线。

    3[……]

    阅读全文

  • 如何用vba生成随机的不重复整数?

    如何用vba生成随机数?一文中我们介绍了用vba函数Rnd生成随机的0到1之间的不重复实数。

    如果要生成区间范围更大的随机整数,比如生成4到10之间的随机整数,可以使用如下的代码:

    一般地,如果要生成[a,b]之间的随机整数,可以使用如下的公式:

    以上[……]

    阅读全文

  • 如何用vba生成随机数?

    在vba中可以使用Rnd函数生成一个小于1,大于等于0的随机实数。

    它的语法如下:

    1.如果number参数不提供或者是>0的话,则生成随机数序列中的下一个随机数。

    例如如下的代码将在工作表中生成100个小于1,大于等于0的随机不重复实数:

    [cr[……]

    阅读全文