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

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

然后定义变量

Dim full As String, first As String, last As String

接着是调用子过程GetUsername。

Call GetUsername(full)

再调用GetFirst，获得名字的第一个。

first = GetFirst(full)

调用GetLast，获得名字的最后一个。

last = GetLast(full)

最后调用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 Sub

Sub 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 Function

Function GetLast(fullname As String) Dim space As Integer space = InStr(fullname, ) GetLast = Right(fullname, Len(fullname) - space) End FunctionSub DisplayLastFirst(first, last) MsgBox first , last

End Sub

最后运行这个程序。