程序自动取英文名称的首字

tmtony

写了如何取首字，更新代码你自己再写写

Private Sub Command0_Click()
  MsgBox GetFirstChar("wang xiao ming")

End Sub
Public Function GetFirstChar(ByVal eName As String) As String
     Dim strTmp As String
     Dim varName As Variant
     
     Dim i As Integer
     varName = Split(eName, " ")
     strTmp = ""

     For i = 0 To UBound(varName)
         strTmp = strTmp & Left(varName(i), 1)
     Next
     GetFirstChar = strTmp

End Function