разделение строки на число и букву

[kate158]

Есть переменная вида $O$6.(ячейка в экселе). Как разбить ее на буквы и цифры?Чтобы сначала был вывод $O, затем $6..

[Utkin]

Кокрентней - где у Вас хранится это значение? String?

[kate158]

да, действительно.

var 
     FindRange : Variant;

хочу увидеть строку и столбец.
есть такая штука:

showmessage(FindRange.address);

которая показывает вместестолбец и строку , типа $O$6.
как узнать адрес столбца($O) и строки ($6) ?

[Stilet]

Ну функцией copy
строка:=copy(FindRange,1,2);
столбец:=copy(FindRange,3,2);

[kate158]

to Stilet
эмм.. тогда у меня берутся значения из указанной строки, а не адрес строки. а если ячейка $AA..
может, можно как то прилепить к моему коду .rows и .columns?

[Stilet]

не ну я имел ввиду copy(FindRange.address,1,2);

[dr.Chas]

Как я понял, знак $ начало адреса и он же в конце. Вот и определяйте его позицию и потом функция copy.

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

не ну я имел ввиду copy(FindRange.address,1,2);

Не просто в екселе адрес может быть не только такого вида $O$6, но и такого $OA$6, по этому она говорит что это не подходит.

[kate158]

почему не работает код

showmessage(E.Sheets[1].range[''''+FindRange.address+'''']);

?

[dr.Chas]

procedure ad (adres: string; var buk, num: string);
var i: integer;
begin
  i:=1;
  repeat
    inc(i);
    if (s[i]='$') then buk:=copy(s,2,i-2);
  until (s[i]='$');
  num:=copy(s,i+1,length(s)-i);
end;

ad(FindRange.address, {здесь буквы}, {здесь цифры});

Что-то в этом роде.

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

почему не работает код

showmessage(E.Sheets[1].range[''''+FindRange.address+'''']);

?

showmessage(Е.Sheets.Item(1).Range(''''+FindRange.address+''''));

Может быть так?

[Stilet]

dr.Chas

А-а-а. Вон оно че...
Не знал... Ну тогда твой пример предпочтительнее.