Страница: 1 |
Вопрос: Вопрос по VBA | Добавлено: 14.01.08 21:59 |
Автор вопроса: ![]() |
Добрый вечер, друзья! У меня трудности с решением задачки. Необходимо вырезать первое слово из строки. написала ф-ю пользователя,но она не работает,что не так- не знаю.
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, " " ![]() End Function |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() Вопросов: 2 Ответов: 24 |
Профиль | Цитата | #2 | Добавлено: 15.01.08 14:28 |
Public Function F1(Stroka As String)
F1 = Mid$(Stroka, 1, InStr(1, Stroka, " " ![]() End Function |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 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 ![]() End Function |
Страница: 1 |
|