Конвертор

[SAS888]

Осмелюсь несколько поправить код от Abrakadabra.
Вот Ваша функция:

Public Function funString(ByVal s As String, NumWord As Long) As String
    On Error Resume Next
    s = Trim(fio)
    If Len(fio) = 0 Then
        funString = ""
        Exit Function
    Else
        funString = Split(s, " ")(NumWord)
    End If
End Function

1) Что такое "fio"? (функция работать не будет).
2) Вместо Trim(...), нужно использовать Application.Trim(...), для предотвращения ошибки в случае двух (и более) пробелов подряд.
3) Функция Split(...) возвращает массив нумерованный с 0. Поэтому номер слова в предложении будет отличаться от заданного на 1.
4) Т.к. используем On Error, то можно еще короче.
Если Вы не против, я бы сделал так:

Public Function funString(ByVal s As String, NumWord As Long) As String
    On Error Resume Next
    s = Application.Trim(s)
    funString = Split(s, " ")(NumWord - 1)
End Function

[ZORRO2005]

Abrakadabra
Функция была действительно глючная.
Первое и последнее слово не хотела вытаскивать.
SAS888
Большое спасибо!
Еще бы превратить код дмидми в функцию.

[Abrakadabra]

Сообщение от SAS888

Осмелюсь несколько поправить код от Abrakadabra.
Вот Ваша функция:

Public Function funString(ByVal s As String, NumWord As Long) As String
    On Error Resume Next
    s = Trim(fio)
    If Len(fio) = 0 Then
        funString = ""
        Exit Function
    Else
        funString = Split(s, " ")(NumWord)
    End If
End Function

1) Что такое "fio"? (функция работать не будет).
2) Вместо Trim(...), нужно использовать Application.Trim(...), для предотвращения ошибки в случае двух (и более) пробелов подряд.
3) Функция Split(...) возвращает массив нумерованный с 0. Поэтому номер слова в предложении будет отличаться от заданного на 1.
4) Т.к. используем On Error, то можно еще короче.
Если Вы не против, я бы сделал так:

Public Function funString(ByVal s As String, NumWord As Long) As String
    On Error Resume Next
    s = Application.Trim(s)
    funString = Split(s, " ")(NumWord - 1)
End Function

не против, ничуть..
вырезку недорезал, вот и остались лишние (или не те) строчки..
Спешил донести идею "в массы"..

[ZORRO2005]

Друзья, помогите превратить макрос в функцию.
Данные будут браться из ячейки.
Пример:
A1=SUM(B1:B100)
B1=CONVERTOR(A1) ---> =СУММ(B1:B100)

[IgorGO]

Вот такой еще вариант.
В ячейку А3 пишем формулу, в ячейке В2 получаем перевод.

В колонках В и С пишем наименования функций, формулу из первой колонки размножаем вниз по мере добавления новых пар.



а макрос, как функцию я запускал так:
1.жму fx (значек левее строки формул)
2.в категориях выбираю "определенные пользователем"
3.из списка выбираю нужный макрос
4.... дальше понятно...

[SAS888]

Пример:
A1=SUM(B1:B100)
B1=CONVERTOR(A1) ---> =СУММ(B1:B100)

Не понятно следующее:
Если, например, установлен "русский" Excel, то как в ячейке "A1" хранится то, что приведено в примере? Если как формула, то будет ошибка. Если как текст, то тогда еще вопрос: какой формат ячейки - либо текстовый (тогда имеем текст в "чистом" виде), либо "общий" (с наличием лидирующего апострофа)?
И наоборот. Если установлен "английский" Excel, то какой нужен результат? При попытке вставить "русскую" формулу, будет выдана ошибка. Просто, получить текстовую строку?

[ZORRO2005]

Извиняюсь не подумал.

Сообщение от SAS888

Не понятно следующее:
Если, например, установлен "русский" Excel, то как в ячейке "A1" хранится то, что приведено в примере? Если как формула, то будет ошибка. Если как текст, то тогда еще вопрос: какой формат ячейки - либо текстовый (тогда имеем текст в "чистом" виде), либо "общий" (с наличием лидирующего апострофа)?

формат ячейки - текстовый.(равно(=) не буду писать)

И наоборот. Если установлен "английский" Excel, то какой нужен результат? При попытке вставить "русскую" формулу, будет выдана ошибка. Просто, получить текстовую строку?

да.(без равно(=))