Вопрос : переустановите клетку к первоначально значению

В прикрепленном workbook я имею мастерское еженедельное Pahting для orerator и что I'n теперь пытаться сделать когда Interior.color 9 retured первоначально, котор значение клетки и intlerior.colour как устанавливают к 15

I могли установить цвет но пчела бедного человек I способная для того чтобы установить значение клетки к первоначально. значением examlpe BG12

For должно теперь быть HP1_01 после этого когда BK14 будет пробелом, котор будет первоначально значением будет HP1_02

This для того чтобы случиться когда Interior.colour 9 только, и только враг HP1 и HP2 class= " lastRow
>Attachments " имени " class= class= " значение "
>
class= " fileInfo "
title= " " filename class= " contract-path-test.xls (214 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
первоначально значение test
клетки
class=
>
class=

Ответ : переустановите клетку к первоначально значению

Общественное myValue, mAddress как шнур

Приватное Sub Worksheet_Change (цель ByVal как ряд)
Если MsgBox («щелчок да, котор нужно revert к первоначально значению», vbYesNo) = vbYes после этого
    Если Target.Address = mAddress после этого
        Application.EnableEvents = ложно
        Target.Value = myValue
        Application.EnableEvents = True
    Закончитесь если
Закончитесь если
Закончите подводную лодку

Приватное Sub Worksheet_SelectionChange (цель ByVal как ряд)
mAddress = Target.Address
myValue = Target.Value
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us