Как сделать сайт:
  HTML
  JavaScript
  PHP
  CMS
Microsoft Office:
  Word
  Excel
  VBA
Просто о сложном
Список форумов on-line-teaching.com on-line-teaching.com
Онлайн курсы MS Office: Word, Excell. Как сделать сайт: HTML, JS, PHP
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Замена формулы на её значение

 
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы
Предыдущая тема :: Следующая тема  
Автор Сообщение
Troxim
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 11.01.2007
Сообщения: 9

СообщениеДобавлено: Чт Янв 11, 2007 9:51 am    Заголовок сообщения: Замена формулы на её значение Ответить с цитатой

Как сделать так что бы при вводе значения в ячейку происходило автоматическое копирование в другую ячейку. Что бы если потом удалить исходную, то в ячейке куда было скопировано значени оно осталось. Помогите пожалуйста... очень надо
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
AsIs
captain
captain


Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб

СообщениеДобавлено: Пт Янв 12, 2007 5:22 pm    Заголовок сообщения: Ответить с цитатой

Никак, только макросами.
Или достаточно утомительной операций.

ЗЫ: без понимания зачем это надо, сложно дать вразумительный ответ...
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Troxim
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 11.01.2007
Сообщения: 9

СообщениеДобавлено: Пн Янв 15, 2007 9:35 am    Заголовок сообщения: Ответить с цитатой

Спасибо я уже разобрался. Если у кого-то есть подобная проблема, может воспользоватся решением которое я нашёл.

Sheets("Заявка").Select
A9 = Range("A9")
Sheets("Заявка 2").Select
Range("A9") = A9

Можно конечно воспользоватся копирование и вставкой, но тогда возникают проблемы с очисткой буфера. И у пользователя будут выскакивать сообщения об ошибке. Так что я считаю что использование переменной самый оптимальный вариант.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
AsIs
captain
captain


Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб

СообщениеДобавлено: Пн Янв 15, 2007 5:20 pm    Заголовок сообщения: Ответить с цитатой

Так это и есть макросы! Smile
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
AsIs
captain
captain


Зарегистрирован: 27.01.2006
Сообщения: 250
Откуда: СПб

СообщениеДобавлено: Пн Янв 15, 2007 5:24 pm    Заголовок сообщения: Ответить с цитатой

Troxim писал(а):
Если у кого-то есть подобная проблема, может воспользоватся решением которое я нашёл.
...

От лица тех, у кого такая проблема может возникнуть: нужно наверное еще уточнить, куда этот код Вы вставили? Просто в обыкновенный макрос или повесили на какое-то событие?

Почему спрашиваю:
Цитата:
при вводе значения в ячейку происходило автоматическое копирование
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Troxim
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 11.01.2007
Сообщения: 9

СообщениеДобавлено: Чт Янв 18, 2007 11:32 am    Заголовок сообщения: Ответить с цитатой

Вот к сожалению повесить это на событие мне не удалось. Поэтому вставил просто в макрос. Если знаете как то буду очень признателен если подскажете.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Филе микроавтобуса
Efrejtor - lance-corporal
Efrejtor - lance-corporal


Зарегистрирован: 16.11.2006
Сообщения: 28
Откуда: Самара

СообщениеДобавлено: Пн Янв 22, 2007 7:20 am    Заголовок сообщения: Ответить с цитатой

Troxim писал(а):
Вот к сожалению повесить это на событие мне не удалось. Поэтому вставил просто в макрос. Если знаете как то буду очень признателен если подскажете.

Код:
Private Sub Worksheet_Change(ByVal Target As Range)

'отключаем события, чтобы случайно не вызвать бесконечный
'цикл - мало ли, какие еще события у тебя будут
    Application.EnableEvents = False

    'если в измененном диапазоне есть хотя бы одно значение,
    'т.е. если это было не удаление, то:
    'все значения перенести с этого листа на второй лист
    If Not Application.WorksheetFunction.CountA(Target) = 0 _
       Then Worksheets(2).Range(Target.Address) = Target

    'снова включаем обработку событий
    Application.EnableEvents = True

End Sub

Вот такое событие надо записать в лист, из которого должны копироваться значения. Будет автоматически копировать значения на второй лист в соответствующие ячейки. Вместо Worksheets(2) подставляй твой лист.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Troxim
Prizivnik - draftee
Prizivnik - draftee


Зарегистрирован: 11.01.2007
Сообщения: 9

СообщениеДобавлено: Пн Янв 22, 2007 9:51 am    Заголовок сообщения: Ответить с цитатой

Спасибо за помощь Very Happy
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов on-line-teaching.com -> Excel: общие вопросы Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group
Русская поддержка phpBB