Форум программистов
 
О проблемах с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail


Ответ
 
Опции темы
Старый 10.04.2009, 13:41   #1
ded-
Новичок
Джуниор
 
Регистрация: 10.04.2009
Сообщений: 2
По умолчанию Ссылка в ячейках друг на друга

Здравствуйте.
Помогите, пожалуйста, новичку.
Имеются ячейки A1(для отображения некоторого значения в миллиметрах) и B1(для отображения того же значения в дюймах).
Собственно, требуется, чтоб при вводе некоторого числа в ячейку A1, в B1 автоматически отображалось значение =A1/25.4 ну и соответственно при вводе какого-то числа в B1, чтоб A1 принимало значение = B1*25.4
Все примитивно, когда вычисления должны производиться только в одной ячейке. пишем формулу и всё. Но в данном случае пересчет нужен в обе стороны.
Помогите, пожалуйста.
ded- вне форума Ответить с цитированием
Старый 10.04.2009, 14:31   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,848
По умолчанию

Можно сделать это при помощи макроса:
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Select Case Target.Address
        Case [a1].Address: [b1] = [a1] / 25.4    ' если данные внесены в ячейку A1
        Case [b1].Address: [a1] = [b1] * 25.4    ' если данные внесены в ячейку B1
    End Select
    Application.EnableEvents = True
End Sub
Для вставки макроса щелкните правой кнопкой на ярлычке листа, и выберите пункт ИСХОДНЫЙ ТЕКСТ.

PS: Формулами не получится - при вводе значения в ячейку содержащаяся в ней формула будет стёрта.

Последний раз редактировалось EducatedFool; 10.04.2009 в 14:54. Причина: Забыл про Application.EnableEvents...
EducatedFool вне форума Ответить с цитированием
Старый 10.04.2009, 14:38   #3
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,367
По умолчанию

или как-то так
Вложения
Тип файла: rar Книга80.rar (7.8 Кб, 17 просмотров)
41001804815208 - Яндекс-деньги благодарности за удачные советы и решения можно отправлять прямо сюда)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO на форуме Ответить с цитированием
Старый 10.04.2009, 14:42   #4
ded-
Новичок
Джуниор
 
Регистрация: 10.04.2009
Сообщений: 2
По умолчанию

Огромное спасибо!
Как все-таки приятно иметь дело с Профессионалами!
ded- вне форума Ответить с цитированием
Ответ
Купить рекламу на форуме от 7000 рублей в месяц



Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как сделать так, что б Float-элементы не уезжали друг под друга (если не влазят в экран) barbiturat HTML и CSS 3 09.12.2008 10:26
Наложения изображения друг на друга rudakop HTML и CSS 1 16.09.2008 02:03
Можно ли выделять ячейки размещенные вдали друг от друга в StringGrid? aslanbek Общие вопросы Delphi 5 14.03.2008 23:31
Найти в массиве квадратные корни наиболее удаленные друг от друга sher_man Помощь студентам 2 05.12.2007 10:15


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS