Как макросом вычленить из ячейки 3 символа слева?

[OOKapitan]

      Здравствуйте, уважаемые форумчане.
      Что-то давно меня не было на форуме, поскольку сам справлялся с формулами и макросами в Open Office. Но сейчас снова возник вопрос, решить который без Вашей помощи у меня пока не получается.
      Скажите, пожалуйста, как макросом вычленить из ячейки B2 3 символа слева? То есть как сделать макросом тоже самое, что делает формула ЛЕВСИМВ(B2;3)?

[JohnSUN]

Привет! Действительно, давно не заглядывал...
Ты,наверное, ищешь функцию Left()?

Код Выделить Развернуть

Function Left3(sOldString As String, Optional countChars As Variant ) As String
If IsMissing(countChars) Then countChars = 3
Left3 = Left(sOldString , countChars)
End Function


[OOKapitan]

Ты,наверное, ищешь функцию Left()?

Мне надо, чтобы не я здавал в функции диапазон, а чтобы макрос сам обрабатывал, то есть типа так:

Код Выделить Развернуть

For I=1 t0 50 (столько столбцов в таблице)
    IF LEFT(Bi;3)=5 Then 1
Next i
Вопрос в том, как заменить LEFT(Bi;3)=5, чтобы макрос это понял? Подскажите, пожалуйста.

[JohnSUN]

Гм... что-то твой пример выглядит странно...
Ну, прежде всего "точку с запятой" замени на "просто запятую" - в бэйсике функции пишутся не совсем так, как в самом Calc'е

И кто такой Bi ? Элемент массива, что ли? Тогда, наверное, B(i)?
И зачем вырезать целых три символа, если сравнивать будешь с ЧИСЛОМ 5?
А про "Then 1" я даже не спрашиваю...

[OOKapitan]

Мне надо в макросе прописать так:

Код Выделить Развернуть

IF LEFT(B1,1)=5 Then A1 =1
Как это сделать?

[JohnSUN]

Ну как... Открыть редактор макросов и написать... В чём проблема-то? Твой последний образец выглядит вполне пристойно, должен работать. Хоть и непонятно, кто такие B1 и A1 - это ты не про адреса ячеек пишешь, нет же? И тема называется "3 символа", а ты вырезаешь только один... и сравниваешь его с цифрой 5, а не со строкой "5"

[bigor]

Как это сделать?

В соседнем посте ты же сам код приводишь как обратиться к ячейке

Код Выделить Развернуть

oSheet.getCellByPosition (i, j) добавь чтение текстового содержимого

Код Выделить Развернуть

.getString
соедини его с этим

Код Выделить Развернуть

IF LEFT(B1,1)=5 Then A1 =1
и должно получиться

[OOKapitan]

Открыть редактор макросов. и написать...

Просто я не думал, что так работает. Но возникла новая проблема:
В ячейке E1 написано: 52 мес. В макросе LEFT(oSheet.getCellByPosition (5, 1).String,1) не равно 5. В формуле можно было бы сделать так: =ЛЕВСИМВ(E1;1)*1, и тогда результат формулы был бы равен 5. А как сделать в макросе? Подскажите, пожалуйста.

[JohnSUN]

Ну, здесь, наверное, нужно начать с того, что getCellByPosition (5, 1) указывает не совсем на Е1, а немного дальше и ниже, на F2

[bigor]

есть функция val, работает примерно так как и *1

[OOKapitan]

есть функция val

Пример можно, пожалуйста?

[bigor]

Код Выделить Развернуть

msgbox VAL(thiscomponent.sheets().getbyindex(1).getcellbyposition(0,0).getstring)*2

[OOKapitan]

getbyindex(1).

Это всегда так? Или цифра 1 от чего-то зависит?
И как в VAL засунуть LEFT? С этим разобрался.

[bigor]

Это всегда так? Или цифра 1 от чего-то зависит?

это номер листа, 2-ой, т.к. пример привел для вывода ячейки a1 на 2-м листе

Как ты без нас полгода обходился

[OOKapitan]

Как ты без нас полгода обходился

В начале когда прописываю:

Код Выделить Развернуть

oDoc=Thiscomponent
oSheet=oDocSheets(i)
И далее остальной код.