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

Вход

Регистрация

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

 

= Мир MS Excel/При окрашивании "защитить" ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При окрашивании "защитить" ячейку (Макросы/Sub)
При окрашивании "защитить" ячейку
HoBU4OK Дата: Воскресенье, 28.06.2015, 21:54 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Нужен макрос который бы фиксировал (защищал от изменений) значение в ячейке...
Т.е. (вижу это так!) в таблице имеются плановые данные которые часто расходятся с фактическими. Вбив фактические данные в ручную и ВЫДЕЛИВ ячейку цветом необходимо чтобы значения в ней не менялись, а данные вставляемые (CTRL+V) ЭТУ ячейку игнорировали.
Как то так...
Подробнее в файле
К сообщению приложен файл: 7461997.xlsx (15.7 Kb)

Я думал, ты остроглазый лев, а ты слепая собака :-)

Сообщение отредактировал HoBU4OK - Воскресенье, 28.06.2015, 21:55
 
Ответить
СообщениеДобрый день!
Нужен макрос который бы фиксировал (защищал от изменений) значение в ячейке...
Т.е. (вижу это так!) в таблице имеются плановые данные которые часто расходятся с фактическими. Вбив фактические данные в ручную и ВЫДЕЛИВ ячейку цветом необходимо чтобы значения в ней не менялись, а данные вставляемые (CTRL+V) ЭТУ ячейку игнорировали.
Как то так...
Подробнее в файле
Автор - HoBU4OK
Дата добавления - 28.06.2015 в 21:54
KSV Дата: Понедельник, 29.06.2015, 05:44 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Как вариант (см. вложенный файл)
Попробуйте вставить данные в диапазон G1:J10
К сообщению приложен файл: 7461997.xlsm (23.9 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеКак вариант (см. вложенный файл)
Попробуйте вставить данные в диапазон G1:J10
Автор - KSV
Дата добавления - 29.06.2015 в 05:44
HoBU4OK Дата: Понедельник, 29.06.2015, 08:25 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
KSV, да, то что надо
Так как в макросах несилен уточню... Макрос находится в модуле листа?
При вставке макроса на лист3 выдает ошибку

[vba]
Код
Set Target = Intersect(Target, Range("MyRange"))
[/vba]

???

Мои знания в макросах приблизительно равны 0 ( :) )...

Я думал, ты остроглазый лев, а ты слепая собака :-)

Сообщение отредактировал HoBU4OK - Понедельник, 29.06.2015, 08:32
 
Ответить
СообщениеKSV, да, то что надо
Так как в макросах несилен уточню... Макрос находится в модуле листа?
При вставке макроса на лист3 выдает ошибку

[vba]
Код
Set Target = Intersect(Target, Range("MyRange"))
[/vba]

???

Мои знания в макросах приблизительно равны 0 ( :) )...
Автор - HoBU4OK
Дата добавления - 29.06.2015 в 08:25
Manyasha Дата: Понедельник, 29.06.2015, 13:08 | Сообщение № 4
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
HoBU4OK, диапазон "MyRange" смотрите в диспетчере имен (ctrl+f3). Код KSV вставляете в модуль нужного листа и, либо вместо "MyRange" пишите Ваш диапазон, напр. Range("A1:C10"), либо создаете имя MyRange в Вашей рабочей книге.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеHoBU4OK, диапазон "MyRange" смотрите в диспетчере имен (ctrl+f3). Код KSV вставляете в модуль нужного листа и, либо вместо "MyRange" пишите Ваш диапазон, напр. Range("A1:C10"), либо создаете имя MyRange в Вашей рабочей книге.
Автор - Manyasha
Дата добавления - 29.06.2015 в 13:08
HoBU4OK Дата: Понедельник, 29.06.2015, 13:53 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Спасибо, сейчас буду КОВЫРЯТЬ... :)

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеСпасибо, сейчас буду КОВЫРЯТЬ... :)
Автор - HoBU4OK
Дата добавления - 29.06.2015 в 13:53
HoBU4OK Дата: Вторник, 30.06.2015, 09:49 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Что то делаю не так...?
лист3
К сообщению приложен файл: 000.xlsm (25.4 Kb)

Я думал, ты остроглазый лев, а ты слепая собака :-)

Сообщение отредактировал HoBU4OK - Вторник, 30.06.2015, 09:55
 
Ответить
СообщениеЧто то делаю не так...?
лист3
Автор - HoBU4OK
Дата добавления - 30.06.2015 в 09:49
Manyasha Дата: Вторник, 30.06.2015, 13:07 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
HoBU4OK, у Вас [vba]
Код
Dim v(10, 10)
[/vba]а Ваш диапазон явно больше, поэтому и ругается, поставьте размерность другую, [vba]
Код
Dim v(300, 300)
[/vba]
В код не вникала, но вроде работает.

ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеHoBU4OK, у Вас [vba]
Код
Dim v(10, 10)
[/vba]а Ваш диапазон явно больше, поэтому и ругается, поставьте размерность другую, [vba]
Код
Dim v(300, 300)
[/vba]
В код не вникала, но вроде работает.
Автор - Manyasha
Дата добавления - 30.06.2015 в 13:07
HoBU4OK Дата: Вторник, 30.06.2015, 13:42 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 309
Репутация: 14 ±
Замечаний: 0% ±

Excel 2010
Manyasha, Спасибо, Вам удалось из меня сделать ПРОГРАММИСТА :D

Я думал, ты остроглазый лев, а ты слепая собака :-)
 
Ответить
СообщениеManyasha, Спасибо, Вам удалось из меня сделать ПРОГРАММИСТА :D
Автор - HoBU4OK
Дата добавления - 30.06.2015 в 13:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » При окрашивании "защитить" ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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