| Вопрос: Вопрос по VBA | Добавлено: 14.01.08 21:59 |
Автор вопроса:  Milko
|
|
Добрый вечер, друзья! У меня трудности с решением задачки. Необходимо вырезать первое слово из строки. написала ф-ю пользователя,но она не работает,что не так- не знаю.
Public Function F1(Stroka) As String Dim Stroka As String S = Find(" ", Stroka, 1) Name = Left(Stroka, S - 1) F1 = Name End Function Буду признательна всем ,кто откликнется) |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:    Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #1 | Добавлено: 14.01.08 22:53 |
|
Private Sub Worksheet_Activate()
a = GetFirstWord("hello world" 
End Sub Function GetFirstWord(ByVal S As String) As String GetFirstWord = Left$(S, InStr(1, S, " " - 1)
End Function |
||
|
Номер ответа: 2 Автор ответа: HuKeJIb 7C9 Вопросов: 2 Ответов: 24 |
Профиль | | #2 | Добавлено: 15.01.08 14:28 |
|
Public Function F1(Stroka As String)
F1 = Mid$(Stroka, 1, InStr(1, Stroka, " " - 1)
End Function |
||
|
Номер ответа: 3 Автор ответа: night-roll Вопросов: 36 Ответов: 326 |
Профиль | | #3 | Добавлено: 16.01.08 03:31 |
|
Private Sub BrokeString()
Dim strSlovo As String ' объявляем строковую переменную strSlovo = GetAnyWord("hello my world", 1) ' получаем первое слово из строки Debug.Print strSlovo ' печатаем в окно отладки End Sub Function GetAnyWord(ByVal strRow As String, ByVal Nmbr As Long) As String ' функция выдирания слова из строки Dim a As Variant ' объявляем массив Nmbr = IIf(Nmbr > 0, Nmbr - 1, 0) ' натуральное число a = Split(strRow, " " ' получаем члены массива(разделитель пробел)
If UBound  >= Nmbr Then GetAnyWord = a(Nmbr) ' получаем слово, взависимости от порядкого номера
End Function |
||
Страница: 1 |