Отображения значения в ячейке - Страница 2

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_, DrMini

Отображения значения в ячейке (Формулы/Formulas)

Отображения значения в ячейке

sarasom

Дата: Понедельник, 21.07.2014, 12:45 | Сообщение № 21

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 60% ±

Excel 2010

Hugo, макросы разрешены. прилагаю файл где прописываю как надо чтоб работало.

К сообщению приложен файл: 7341937.xlsx (13.3 Kb)

Ответить

Pelena

Дата: Понедельник, 21.07.2014, 12:46 | Сообщение № 22

Группа: Админы

Ранг: Местный житель

Сообщений: 19528

Репутация: 4637 ±

Замечаний: ±

Excel 365 & Mac Excel

А не подойдёт Отобразить в формулах вместо ссылок на ячейки значения ячеек

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

sarasom

Дата: Понедельник, 21.07.2014, 12:52 | Сообщение № 23

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 60% ±

Excel 2010

_Boroda_, добрый день. что такое ТС? и действительно фрмулы везде будут одинаковые
то есть значение из столбца с будет помножено на значение ячейки В2 (то есть курс) так скажем.

Ответить

Hugo

Дата: Понедельник, 21.07.2014, 12:54 | Сообщение № 24

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3857

Репутация: 814 ±

Замечаний: 0% ±

365

Я про примечания тоже подумал - но там пропишутся константы, а не ссылки на текущие значения, и это может привести к ошибке - вдруг исходные данные уже изменились, а примечание не обновили? Сложно всё... Надёжнее показать текущие данные каждый раз заново по каждому запросу.
Но в общем конечно можно код Дмитрия использовать.
А если как по условиям задачи интересует только результат одного умножения - то код может быть совсем простой.

Вот где-то так например (код в модуль листа, срабатывает на правый клик в первом столбце по ячейке с формулой):
[vba]

Код

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
       Dim s$, a
       With ActiveSheet
           If Not Intersect(Target.EntireColumn, ActiveSheet.UsedRange.Columns(1)) Is Nothing Then
               s = Mid(Target.Formula, 2)
               If Len(s) Then
                   On Error Resume Next
                   a = Split(s, "*")
                   MsgBox Range(a(0)).Value & "*" & Range(a(1)).Value
                   Cancel = True
                   On Error GoTo 0
               End If
           End If
       End With
End Sub

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD

Ответить

sarasom

Дата: Понедельник, 21.07.2014, 14:13 | Сообщение № 25

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 60% ±

Excel 2010

Hugo, вот сделала на основании вашей ссылки
вроде тоже получилось
сейчас попробую вставить код как вы пишите

К сообщению приложен файл: Table_for_revie.xlsx (20.3 Kb)

Ответить

_Boroda_

Дата: Понедельник, 21.07.2014, 14:16 | Сообщение № 26

Группа: Админы

Ранг: Местный житель

Сообщений: 16913

Репутация: 6617 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Еще вариант. Показывает прямо в ячейке

К сообщению приложен файл: Excel_worksheet.xlsm (17.9 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

sarasom

Дата: Понедельник, 21.07.2014, 14:32 | Сообщение № 27

Группа: Пользователи

Ранг: Новичок

Сообщений: 22

Репутация: 0 ±

Замечаний: 60% ±

Excel 2010

_Boroda_, спасибо вам большое! есть маленький вопрос - когда выбираю в форматировании ячейки определённую валюту - в данном случае мне нужно чтоб ячейка показывала доллар - то при переходе на другую ячейку программа не фиксирует мой выбор и возвращает опять только цифровые значения. можно ли это как то поправить?