Конвертор

[ZORRO2005]

Друзья,
Часто приходится брать длинные формулы (не файлы) с ангоязычных сайтов.
У меня EXCEL2003RUS и EXCEL2007RUS
Приходится вручную подставлять вместо английских функций русские.
Есть ли какие-нибудь автоматические конверторы?
Вот здесь есть формула для вытаскивания слова из предложения:

=MID(MID(MID(SUBSTITUTE(A6," ","^",3),1,256),FIND("^",SUBSTITUTE(A6," ","^",3)),256),2,FIND(" ",MID(MID(SUBSTITUTE(A6," ","^",3),1,256),FIND("^",SUBSTITUTE(A6," ","^",3)),256))-2)

Но что-то она у меня не работает после моих подстановок. Может в ней ошибка.
Если не трудно закиньте в EXCEL2003ENG и выложите файл.

[Abrakadabra]

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

Друзья,
Часто приходится брать длинные формулы (не файлы) с ангоязычных сайтов.
У меня EXCEL2003RUS и EXCEL2007RUS
Приходится вручную подставлять вместо английских функций русские.
Есть ли какие-нибудь автоматические конверторы?
Вот здесь есть формула для вытаскивания слова из предложения:

=MID(MID(MID(SUBSTITUTE(A6," ","^",3),1,256),FIND("^",SUBSTITUTE(A6," ","^",3)),256),2,FIND(" ",MID(MID(SUBSTITUTE(A6," ","^",3),1,256),FIND("^",SUBSTITUTE(A6," ","^",3)),256))-2)

Но что-то она у меня не работает после моих подстановок. Может в ней ошибка.
Если не трудно закиньте в EXCEL2003ENG и выложите файл.

А может вообще сменить подход к решению задач такого типа и писать функции на VBA? В силу их универсальности не нужно будет заниматься решением вышеизложенных проблем, привязывать формулы к конкретным ячейкам, можно напр. указывать ячейку как аргумент функции.. Вот Вам и универсальность применения..

[ZORRO2005]

Abrakadabra
От Вас другого ответа и не ожидал.
Друзья,
Вопрос в силе

[Abrakadabra]

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

Abrakadabra
От Вас другого ответа и не ожидал.

Вы наверное просто не поняли, о чем идет речь..

[дмидми]

=ПСТР(ПОДСТАВИТЬ(R[-1]C;" ";"^";ДЛСТР(R[-1]C)-ДЛСТР(ПОДСТАВИТЬ(R[-1]C;" ";"")));НАЙТИ("^";ПОДСТАВИТЬ(R[-1]C;" ";"^";ДЛСТР(R[-1]C)-ДЛСТР(ПОДСТАВИТЬ(R[-1]C;" ";""))))+1;256)

[ZORRO2005]

дмидми
С этой формулой все в порядке.
Это для вытаскивания последнего слова.
А мне нужна формула,которая здесь ниже.

[ZORRO2005]

Abrakadabra
Если бы меня интесовал код для вытаскивания n-го слова из
ячейки то я бы взял бы его с того же сайта:

Option Compare Text
Function Get_Word(text_string As String, nth_word) As String
Dim lWordCount As Long

        With Application.WorksheetFunction
        lWordCount = Len(text_string) - Len(.Substitute(text_string, " ", "")) + 1
        
        If IsNumeric(nth_word) Then
           nth_word = nth_word - 1
            Get_Word = Mid(Mid(Mid(.Substitute(text_string, " ", "^", nth_word), 1, 256), _
                .Find("^", .Substitute(text_string, " ", "^", nth_word)), 256), 2, _
                .Find(" ", Mid(Mid(.Substitute(text_string, " ", "^", nth_word), 1, 256), _
                .Find("^", .Substitute(text_string, " ", "^", nth_word)), 256)) - 2)
        ElseIf nth_word = "First" Then
            Get_Word = Left(text_string, .Find(" ", text_string) - 1)
        ElseIf nth_word = "Last" Then
            Get_Word = Mid(.Substitute(text_string, " ", "^", Len(text_string) - _
            Len(.Substitute(text_string, " ", ""))), .Find("^", .Substitute(text_string, " ", "^", _
            Len(text_string) - Len(.Substitute(text_string, " ", "")))) + 1, 256)
        End If
    End With
    
End Function

[дмидми]

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

А мне нужна формула...

Да вставляйте (Ctrl+V) в InputBox любую!

Sub Localize_A1_Style()
    Const ibPROMPT = "Enter USA-formula"
    Const ibTTL = "Localize"
    Dim s As String

    s = InputBox(ibPROMPT, ibTTL)
    If Len(s) > 0 Then  ActiveCell.Formula = s
End Sub

Ну вот, хотел было в цикле, и забирать по Ctrl+C из InputBox'а, но - увы! - кодировки не срастаются.

[ZORRO2005]

дмидми
Спасибо большое!
А можно функцией сделать?

[Abrakadabra]

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

Abrakadabra
Если бы меня интесовал код для вытаскивания n-го слова из
ячейки то я бы взял бы его с того же сайта:

Option Compare Text
Function Get_Word(text_string As String, nth_word) As String
Dim lWordCount As Long

        With Application.WorksheetFunction
        lWordCount = Len(text_string) - Len(.Substitute(text_string, " ", "")) + 1
        
        If IsNumeric(nth_word) Then
           nth_word = nth_word - 1
            Get_Word = Mid(Mid(Mid(.Substitute(text_string, " ", "^", nth_word), 1, 256), _
                .Find("^", .Substitute(text_string, " ", "^", nth_word)), 256), 2, _
                .Find(" ", Mid(Mid(.Substitute(text_string, " ", "^", nth_word), 1, 256), _
                .Find("^", .Substitute(text_string, " ", "^", nth_word)), 256)) - 2)
        ElseIf nth_word = "First" Then
            Get_Word = Left(text_string, .Find(" ", text_string) - 1)
        ElseIf nth_word = "Last" Then
            Get_Word = Mid(.Substitute(text_string, " ", "^", Len(text_string) - _
            Len(.Substitute(text_string, " ", ""))), .Find("^", .Substitute(text_string, " ", "^", _
            Len(text_string) - Len(.Substitute(text_string, " ", "")))) + 1, 256)
        End If
    End With
    
End Function

Ну зачем-же так длинно.. И с глюком.
Можно проще.