| |
|
|
| | Dim FullTxt As String
Dim ArStr() As String
ArStr = Split(FullTxt, " ")
Как теперь узнать сколько элементов получилось в массиве?
Сори. в VBA раньше не работал | |
| |
| |
| |
|
|
| |
Dim iText As String, iArray() As String, iCount As Long
iText = "Как теперь узнать сколько элементов получилось в массиве?"
iArray = Split(iText)
iCount = UBound(iArray) + 1 ' LBound()
MsgBox "Количество элементов = " & iCount, , ""
|
| |
| |
| |
