Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как формулой вытащить то, что возвращает "пользовательский формат"?
 
#1
20.03.2015 09:36:48
Всем доброго времени суток!
Друзья, такая интересная ситуация..
прислали файл, в котором куча "пользовательских форматов"
то есть в ячейке, например, хранится 9946445, а видимое отображение 9946445CF/W12
(таких примеров куча и все "форматы" разные)

вопрос: как в ячейку вытащить то, что отображается, а не то, что храниться?...
 
 
 
#2
20.03.2015 09:41:53
вот файлик для примера
 
 
 
#3
20.03.2015 09:43:12
Проще всего с помощью UDF
Код
Function CellText(c As Range)
CellText = c.Cells(1).Text
End Function
 
 
 
#4
20.03.2015 09:51:46
без макросов точно никак?
 
 
 
#5
20.03.2015 10:07:49
за UDF огромное спасибо!!
если будет решение без макросов, то тоже очень и очень хорошо!
 
 
 
#6
20.03.2015 10:14:23
Цитата
Zhukov_K написал: если будет решение без макросов,
наврятли. :)
единственное что может быть это через макрофункцию и то не лучший выход.
для общего развития нужная вам макрофункция.
 
 
 
#7
20.03.2015 10:17:42
за ссылку на "получить.ячейку" спасибо! очень интересная штука! )
 
 
 
#8
20.03.2015 10:40:43
Цитата
Zhukov_K написал: очень интересная штука!
Которая без макросов тоже не будет работать :-) Именно на смену этим функциям пришли UDF.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#9
01.04.2015 10:34:04
А какой отступ установлен в ячейке, макрофункция "ПОЛУЧИТЬ.ЯЧЕЙКУ()" случайно не определяет?
В описании, на которое дана ссылочка, вроде бы, об этом ничего нет..

Если не определяет, прошу тех, кто знает макросы помочь пользовательской функцией, которая для указанной ячейки определяет отступ слева (не знаю, в каких он там единицах измерения, но обычно там целое число от 1 до ...)
 
 
 
#10
01.04.2015 10:51:24
Код
Function CellIndent(c As Range)
Application.Volatile 'даже с этим функция не обновляется автоматически - нажимайте F9!
CellIndent = c.Cells(1).IndentLevel
End Function
 
 
 
#11
01.04.2015 11:14:09
Казанский, спасибо огромное! то что надо! ) ура!
Изменено: Zhukov_K - 01.04.2015 11:14:26
 
 
 
Страницы: 1
Наверх