多语言展示
当前在线:393今日阅读:47今日分享:26

在excle中怎样执行主过程和子过程?

在excle中怎样执行主过程和子过程?
方法/步骤
1

打开excle软件,进入VBA的编程界面,打开其中一个模块进行编辑,事先做好了几个子过程和函数,GetUsername,GetFirst,GetLast,DisplayLastFirst

2

接着是设置主过程,也就是程序执行的入口,命名为username

3

然后定义变量Dim full As String, first As String, last As String

4

接着是调用子过程GetUsername。Call GetUsername(full)

5

再调用GetFirst,获得名字的第一个。first = GetFirst(full)

6

调用GetLast,获得名字的最后一个。last = GetLast(full)

7

最后调用DisplayLastFirst,用来输出名字。Call DisplayLastFirst(first, last)完整代码如下:Sub UserName()    Dim full As String, first As String, last As String    Call GetUsername(full)    first = GetFirst(full)    last = GetLast(full)    Call DisplayLastFirst(first, last)    End SubSub GetUsername(fullname As String)        fullname = InputBox('请输入你的第一个名字和最后一个名字')End SubFunction GetFirst(fullname As String)    Dim space As Integer    space = InStr(fullname, ' ')        GetFirst = Left(fullname, space - 1)End FunctionFunction GetLast(fullname As String)    Dim space As Integer    space = InStr(fullname, ' ')    GetLast = Right(fullname, Len(fullname) - space)    End FunctionSub DisplayLastFirst(first, last)    MsgBox first & ',' & lastEnd Sub

8

最后运行这个程序。

推荐信息