Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / присвоить результат строковой переменной / 7 сообщений из 7, страница 1 из 1
24.04.2007, 12:10:22
    #34482958
epss
epss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
присвоить результат строковой переменной
Есть запись
ActiveCell.FormulaR1C1 = "=MID(TRIM(RC[-6]),FIND(""-"",TRIM(RC[-6])),5)"
полученная макросом.

Как сделать, чтобы результат присваивался строковой переменной, а не записывался сразу в ячейку
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2007, 12:28:20
    #34483039
JimOrange
JimOrange
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
присвоить результат строковой переменной
Если я правильно понял, надо взять из строчки первые пять символов, начиная от знака тире?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Get5()
aText = Trim("   пример какого-то текста с  пробелами и тире")
For i =  1  To Len(aText)
    If Mid(aText, i,  1 ) = "-" Then
        aTextReady = Left(Right(aText, Len(aText) - i),  5 )
        Exit For
    End If
Next
Debug.Print aTextReady
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2007, 12:48:16
    #34483136
epss
epss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
присвоить результат строковой переменной
JimOrangeЕсли я правильно понял, надо взять из строчки первые пять символов, начиная от знака тире?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Get5()
aText = Trim("   пример какого-то текста с  пробелами и тире")
For i =  1  To Len(aText)
    If Mid(aText, i,  1 ) = "-" Then
        aTextReady = Left(Right(aText, Len(aText) - i),  5 )
        Exit For
    End If
Next
Debug.Print aTextReady
End Sub


Это частный случай. В общем надо метод Find чем-то заменить, чтобы результат можно было бы присвоить не ячейке, а переменной
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2007, 12:49:31
    #34483141
JimOrange
JimOrange
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
присвоить результат строковой переменной
Пример тогда и что из чего нужно получить...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2007, 13:21:22
    #34483278
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
присвоить результат строковой переменной
epssЕсть запись
ActiveCell.FormulaR1C1 = "=MID(TRIM(RC[-6]),FIND(""-"",TRIM(RC[-6])),5)"
полученная макросом.

Как сделать, чтобы результат присваивался строковой переменной, а не записывался сразу в ячейку
Код: plaintext
1.
2.
Sub test()
    Debug.Print Application.Evaluate("MID(TRIM(RC[-6]),FIND(""-"",TRIM(RC[-6])),5)")
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2007, 13:35:20
    #34483347
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
присвоить результат строковой переменной
Код: plaintext
1.
2.
3.
4.
Sub Macro1()
    With ActiveCell.Offset(, - 6 )
        x = Evaluate("=MID(TRIM(" & .Address(, , , - 1 ) & "),FIND("" - "",TRIM(" & .Address(, , , - 1 ) & ")),5)")
    End With
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.04.2007, 13:44:36
    #34483388
epss
epss
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
присвоить результат строковой переменной
JimOrangeПример тогда и что из чего нужно получить...

Спасибо за помощь. Попробую это переделатью
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / присвоить результат строковой переменной / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 307ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2183086]:
 0ms
get settings:
 6ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 192ms
total:  307ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]