All Forums
 Категория Visio
 Форум Вопросы и ответы
 Formula -> Value
Author Previous Topic Topic Next Topic  

Евгений

88 Posts
Posted - 02/14/2005 :  18:38:36
Добрый вам вечер!

Вроде нетрудный вопрос, но затрудняюсь найти ответ. Ячейке присвоена формула, нечто вроде 
"=LOWER(LEFT(Prop.Hld,4)&"x"&Prop.Job_name&"_parmecs_")&UPPER(Prop.Table_name)"

Мне нужно в коде получить значение ячейки, а не саму формулу.
Как это сделать?

Спасибо.

immortal

Russia
391 Posts
Posted - 02/15/2005 :  09:58:32  Visit immortal's Homepage
в коде бейсика?
в VB так:
public vis as object

set vis = getobject(, "Visio.application") ' ссылка на объект визио
dim vsoSelect as visio.selection 'определяем выделенные шейпы
set vsoSelect = vis.activewindow.selection

for i = 1 to vsoSelect.count
str = vsoSelect.item(i).cellsrc(visSectionUser, 3 , visUserValue).result(vsoSelect.item(i).cellsrc(visSectionUser, 3 , visUserValue).formulaU)
next i

вместо result можно rsultstr
возможео код можно сократить
если надо только первого выделенного то вместо цикла пишем str = vsoSelect.item(1).cellsrc...
в VBA также только удалите сторки:
public vis as object
set vis = getobject(, "Visio.application") ' ссылка на объект визио
и вместо set vsoSelect = vis.activewindow.selection надо set vsoSelect = activewindow.selection



визио 2003 форэвер

...а вобще-то я белый и пушистый.
Edited by - immortal on 02/15/2005 10:02:08
Go to Top of Page

Евгений

88 Posts
Posted - 02/17/2005 :  13:15:28
immortal, Вы мне подсказали метод ResultStr(), а далее все просто:
strValue = shp.Cells("Prop.Some_prop").ResultStr(0)

И все!
Go to Top of Page

zhuravsky

Russia
115 Posts
Posted - 04/20/2007 :  11:44:47
А есть ли надежный способ определить в коде VBA что записано в ячейке - просто значение (допустим строка или целое или вещественное) или формула?
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)