邮件合并(小数点问题)(3)

邮件合并(小数点问题)

End Sub

Sub wlqPrint() '打印

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True End Sub

10、比方说要求得g在图示区域中所在列号，如何表达？

数组公式，按ctrl+shift+enter结束。

=MAX((A1:F4="g")*COLUMN(A1:F4))

11、勾怎么输入

按住ALT键输入41420后放开ALT键√

12、将单元格中的数全部变成万元表示（？？？）

自定义单元格格式：0"."0,

或：0!.0000

13、自定义名称中的引用范围中可以直接粘贴公式

从编辑栏里Ctrl+C复制，然后Ctrl+V粘贴

14、如果一个单元格中既有数字又有字母，怎么提取其中的数字呢？

Function getnumber(rng As String) As String

'自定义函数作用：提取当前单元格中的数字

Dim mylen As Integer

Dim mystr As String

mylen = Len(rng)

For I = 1 To mylen

mystr = Mid(rng, I, 1)

If Asc(mystr) >= 48 And Asc(mystr) <= 57 Then

getnumber = getnumber & mystr

End If

Next I

End Function

15、用VB制作EXCEL作品封面

本人在论坛上发了一个EXCEL作品封装实例后，有很多人来信询问怎样用VB打开EXCEL，并且带有启动封面，现本人将过程

底细说出来，希望给大家起到一个抛砖引玉的作用。

一、新建一个文件夹，该文件夹主要是用来装EXCEL工作簿、VB编译的可执行文件、图标文件及帮助文件用的。

二、打开VB，新建一个标准EXE。

三、1、对form1的设置：

Borderstyle=0-none 去掉form1的标题栏

Icon 设定图标

StartupPositio=2 将启动封面始终悬挂在屏幕中部

2、添加一个Timer控件，将其Interval设为1000，双击Timer控件出现代码