Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автозамена значения ячейки - Страница 2 - Мир MS Excel

  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_, DrMini  
Автозамена значения ячейки
МВТ Дата: Вторник, 22.09.2015, 18:47 | Сообщение № 21
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
YouGreed, понятно, я так понял, проблема в выборе из списка. Тогда на листе Прайс через Worksheet_Change. Не знаю, насколько он будет тормозить на больших массивах
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Value
With Target
If .Count > 1 Then Exit Sub
If .Column <> 1 Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Value = .Value
Application.Undo
Sheets("Себестоимость").Range("A2:A" & Sheets("Себестоимость").Cells(Rows.Count, 1).End(xlUp).Row).Replace _
What:=.Value, Replacement:=Value, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
         :=False, ReplaceFormat:=False
.Value = Value
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
End Sub
[/vba]
 
Ответить
СообщениеYouGreed, понятно, я так понял, проблема в выборе из списка. Тогда на листе Прайс через Worksheet_Change. Не знаю, насколько он будет тормозить на больших массивах
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Value
With Target
If .Count > 1 Then Exit Sub
If .Column <> 1 Then Exit Sub
Application.EnableEvents = False
Application.ScreenUpdating = False
Value = .Value
Application.Undo
Sheets("Себестоимость").Range("A2:A" & Sheets("Себестоимость").Cells(Rows.Count, 1).End(xlUp).Row).Replace _
What:=.Value, Replacement:=Value, LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat _
         :=False, ReplaceFormat:=False
.Value = Value
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
End Sub
[/vba]

Автор - МВТ
Дата добавления - 22.09.2015 в 18:47
YouGreed Дата: Среда, 23.09.2015, 07:42 | Сообщение № 22
Группа: Проверенные
Ранг: Ветеран
Сообщений: 589
Репутация: 123 ±
Замечаний: 0% ±

Excel 2010
МВТ, А вот это, уже решение той проблемы!) + в репу, файл Автору!
К сообщению приложен файл: 2916842.xlsm (21.3 Kb)
 
Ответить
СообщениеМВТ, А вот это, уже решение той проблемы!) + в репу, файл Автору!

Автор - YouGreed
Дата добавления - 23.09.2015 в 07:42
Kipling Дата: Пятница, 25.09.2015, 11:16 | Сообщение № 23
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
YouGreed, С формулой =ЕСЛИОШИБКА(ВПР(A2;Прайс!$A$2:$B$70;2;0);"") если меняется название в прайсе, то на себестоимости ячейка с ценой становится пустой.
 
Ответить
СообщениеYouGreed, С формулой =ЕСЛИОШИБКА(ВПР(A2;Прайс!$A$2:$B$70;2;0);"") если меняется название в прайсе, то на себестоимости ячейка с ценой становится пустой.

Автор - Kipling
Дата добавления - 25.09.2015 в 11:16
YouGreed Дата: Пятница, 25.09.2015, 11:18 | Сообщение № 24
Группа: Проверенные
Ранг: Ветеран
Сообщений: 589
Репутация: 123 ±
Замечаний: 0% ±

Excel 2010
Kipling, А можно файлик с ошибкой, у меня все как нужно? Возможно у Вас отключены макросы или блокируются. Нужно включить поддержку макросов и все должно заработать.
 
Ответить
СообщениеKipling, А можно файлик с ошибкой, у меня все как нужно? Возможно у Вас отключены макросы или блокируются. Нужно включить поддержку макросов и все должно заработать.

Автор - YouGreed
Дата добавления - 25.09.2015 в 11:18
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!