Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel возвращаемое значение формулы в другую ячейку. / 11 сообщений из 11, страница 1 из 1
11.06.2017, 12:36
    #39470204
m.medvedb
m.medvedb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
Здравствуйте. Как Excel возвращаемое значение формулы поместить в другую ячейку? A1=B1 не подходит! В ячейку будет возвращаться значение типа String, пользователю надо редактировать иногда получаемый результат.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2017, 13:21
    #39470211
Cursky
Cursky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
m.medvedb,

Значение формулы - никак, можно сделать типа такого:

Код: vbnet
1.
2.
3.
4.
5.
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("ввод")) Is Nothing Then
        Range("вывод").Value = Target.Value * 1.12
    End If
End Sub


Здесь в соседнюю ячейку возвращается значение больше введённого на 12%.
Код макроса помещается в модуль листа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2017, 13:22
    #39470212
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
Специальная вставка - Значения
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2017, 18:19
    #39470290
m.medvedb
m.medvedb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
Cursky,
Спасибо! суть понял.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.06.2017, 21:10
    #39470319
m.medvedb
m.medvedb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
m.medvedb,
Кому интересно, нашел вот такое решение.


Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Function КОПИПАСТ(r As Range, t)   
   Application.Volatile   
   With r   
       .Replace IIf(Len(.Value), "*", ""), t   
   End With   
   КОПИПАСТ = ""   
End Function



Пример
=КОПИПАСТ(Номер ячейки куда;Номер ячейки откуда)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.06.2017, 11:29
    #39470422
vborets
vborets
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
m.medvedbm.medvedb,
=КОПИПАСТ(Номер ячейки куда;Номер ячейки откуда)

Чем отличается от A1=B1 ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.06.2017, 05:36
    #39470659
m.medvedb
m.medvedb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
vborets,

В поле куда копируется только текс. Нет формул
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.06.2017, 15:09
    #39471566
vborets
vborets
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
m.medvedbvborets,

В поле куда копируется только текс. Нет формул

а это
"=КОПИПАСТ(Номер ячейки куда;Номер ячейки откуда) "

не формула?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.06.2017, 15:50
    #39471614
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
vborets,

Вы немного не поняли. это формула. Но она вводится в одну ячейку, а значение изменяется в другой при каждом пересчете этой функции.
Т.е. в ячейку Номер ячейки куда можно вводить значения и вручную(в том числе другие формулы) и изменять из при помощи этой функции. Иными словами саму функцию можно спрятать и она магическим образом будет менять значение указанной ячейки на нужное нам.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2017, 08:26
    #39471880
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
Если перетащить любую ячейку на ячейку "откуда", то формула ломается. М.б. более безопасно ссылаться на текстовый адрес ячеек.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Function КОПИПАСТ(r As String, t As String)
   Application.Volatile
   With Range(r)
       .Replace IIf(Len(.Value), "*", ""), Range(t)
   End With
   КОПИПАСТ = ""
End Function


Вызов так =КОПИПАСТ("B1";"A1")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2017, 09:02
    #39471901
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Excel возвращаемое значение формулы в другую ячейку.
sergeyvg,
sergeyvgВызов так =КОПИПАСТ("B1";"A1")
здесь нюанс есть: замена будет происходить всегда на активном листе, независимо от того где расположена функция и на какие ячейки указывает. При открытой книге с функцией КОПИПАСТ: ввели в любой книге в ячейку А1 значение - в B1 оно само продублировалось. Попробовали вернуть значение в В1 - фигушки, сразу меняется на значение в А1...Оно надо в любой-то книге? :)
Указывать имя листа и книги в адресе как параметра на мой взгляд уже далеко не так удобно, но решит проблему
Код: plaintext
=КОПИПАСТ("[Книга1.xlsm]Лист1!B1";"[Книга1.xlsm]Лист2!A1")
Правда, при переименовании книги/листа придется менять и параметр функции.
Можно application.Caller подключить, но не всегда надо заменять данные именно на том листе(той книги), где сама функция.
Так что в каждом из методов есть как плюсы так и минусы, с которыми придется мириться. И конечно, выбирать способ реализации всегда исходя из ситуации. Когда-то один вариант лучше, когда-то второй.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel возвращаемое значение формулы в другую ячейку. / 11 сообщений из 11, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 502ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2172651]:
 0ms
get settings:
 11ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 2ms
others: 337ms
total:  502ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]