Единицы измерений из ячейки.

Tim Umix

Есть ли функция , которая возвращает единицы измерений из ячейки? Если нет, можно ли как то выделить из значений только единицы измерений?

Tumanov

Из какой?
Вообще, Visio все считает в дюймах. Это по умолчанию. Но по просьбе может вернуть результат в любых единицах, в каких задано. Для этого есть метод Result, в котором задаются желаемые единицы измерения для результата.

Tumanov

Или речь вот об этих единицах?
Но это в таких как Application.DefaultAngleUnits, то есть для всего приложения.

Tim Umix

Tumanov писал(а):

Или речь вот об этих единицах?
Но это в таких как Application.DefaultAngleUnits, то есть для всего приложения.

Об единицах. Например в данных фигур у меня есть высота она может быть и в м и мм , мне нужно получить только единицу измерения. Например если в окне данных 10 м , то мне нужно получить м, если 100мм , то мм.

Tumanov

Цитата:

Например в данных фигур у меня есть высота она может быть и в м и мм

Так можно ставить вопрос только в том случае, если тип переменной String. Тогда из строки можно выделить единицы измерения. Если тип числовой, то он будет в дюймах.

Tumanov

А, есть еще один вариант. Если читать не значение, а формулу, то в результате можно увидеть единицы измерения, которые установлены в свойствах страницы. Например,
Debug.Print ActivePage.Shapes(1).Cells("Width").FormulaU
выведет 1 m или 1 mm
А Debug.Print Right(ActivePage.Shapes(1).Cells("Width").FormulaU,2) может вывести cm

Tim Umix

Tumanov писал(а):

Цитата:

Например в данных фигур у меня есть высота она может быть и в м и мм

Так можно ставить вопрос только в том случае, если тип переменной String. Тогда из строки можно выделить единицы измерения. Если тип числовой, то он будет в дюймах.

В окне данных фигур если поставить тип число и вести единицы измерений, то в значение появляется подпись "МЕТРЫ" или "МИЛИМЕТРЫ". Но в самом окне данных отображается как м или мм. Я хотел получить единицы измерения используя только таблицу свойств фигуры. Функцией right() можно получить 2 последних символа в случая с мм и см это работает, но если например метры, то функция возвращает вместе с последней цифрой.
Содержимое спрятано под спойлер ↓

Спойлер: ▼

Tumanov

Ну, вот так

Код:

Sub test_Mes()
    Debug.Print Mes("10mm")
    Debug.Print Mes("10 mm")
    Debug.Print Mes("10m")
    Debug.Print Mes("10 m")
End Sub

Private Function Mes(s As String) As String
    s2 = Right(s, 2)
    s1 = Left(s2, 1)
    If s1 = " " Or IsNumeric(s1) Then
        Mes = Right(s2, 1)
    Else
        Mes = s2
    End If
End Function

Tim Umix

Tumanov писал(а):

Ну, вот так

Код:

Sub test_Mes()
    Debug.Print Mes("10mm")
    Debug.Print Mes("10 mm")
    Debug.Print Mes("10m")
    Debug.Print Mes("10 m")
End Sub

Private Function Mes(s As String) As String
    s2 = Right(s, 2)
    s1 = Left(s2, 1)
    If s1 = " " Or IsNumeric(s1) Then
        Mes = Right(s2, 1)
    Else
        Mes = s2
    End If
End Function

Спасибо. Работает. 8-)

Surrogate

Tim Umix писал(а):

Я хотел получить единицы измерения используя только таблицу свойств фигуры.

Если это по прежнему актуально, можно посмотреть что внутри у фигуры 'Измерительная линия' (Controller dimension) из трафарета 'Стены, окна и тп' (Wall_m.vssx). Там целая система :mrgreen:

Tim Umix

Surrogate писал(а):

Tim Umix писал(а):

Я хотел получить единицы измерения используя только таблицу свойств фигуры.

Если это по прежнему актуально, можно посмотреть что внутри у фигуры 'Измерительная линия' (Controller dimension) из трафарета 'Стены, окна и тп' (Wall_m.vssx). Там целая система :mrgreen:

Спасибо посмотрю. Пока ниче не понятно :wall:

, макросом конечно проще))

Tim Umix

Сделал такую конструкцию вроде работает , как мне и нужно. Есть ли какие то подводные камни в такой формуле?

Код:

=RIGHT(FORMAT(Prop.BaseElevation,"0.0 u"),LEN(FORMAT(Prop.BaseElevation,"0.0 u"))-FIND(" ",FORMAT(Prop.BaseElevation,"0.0 u")))

Surrogate

Tim Umix писал(а):

Есть ли какие то подводные камни в такой формуле?

Что такое Prop.BaseElevation? Если, то что пользователь введет с клавиатуры: то если введет только цифры или только буквы, что что-то пойдет не так :mrgreen:

Если пользователь вводит данные в правильном формате, то будет все нормально! Но не все пользователи на это способны

Tim Umix

Surrogate писал(а):

Tim Umix писал(а):

Есть ли какие то подводные камни в такой формуле?

Что такое Prop.BaseElevation? Если, то что пользователь введет с клавиатуры: то если введет только цифры или только буквы, что что-то пойдет не так :mrgreen:

Если пользователь вводит данные в правильном формате, то будет все нормально! Но не все пользователи на это способны

Буквы пользователь не сможет ввести , так как стоит тип число. А вот про только цифры не подумал.

Хотя проверил в окне данных фигур после того , как записать там единицу измерений, после этого просто число не получается ввести, последняя единица измерения сама дописывается 8-)

Содержимое спрятано под спойлер ↓

Спойлер: ▼

Форум пользователей Visio

Правила форума

Единицы измерений из ячейки.

Кто сейчас на конференции