Control 2 Данные в ячейку Excel

[kuznetsovSergey]

ЛЮДИ ПОМОГИТЕ КАК ЭТО СДЕЛАТЬ, уверен вы знаете как сделать это быстро и просто.



Скачать файл .xls

[EducatedFool]

Попробуйте такой вариант: (без удаления контролов, копирование данных в соседнюю ячейку)

уверен вы знаете как сделать это быстро и просто

Да, знаем. А Вы, наверное, задаётесь вопросом, почему Вам не ответили в предыдущей теме?
На самом деле всё просто - задание сформулировано недостаточно ясно...


Вот ещё один вариант (с удалением, то, что Вы просили)

Код: Выделить всё

[color=darkblue]Option[/color] [color=darkblue]Compare[/color] [color=darkblue]Text[/color]

[color=darkblue]Sub[/color] ПереносЗначений()
    [color=darkblue]On[/color] [color=darkblue]Error[/color] [color=darkblue]Resume[/color] Next: Application.ScreenUpdating = [color=darkblue]False[/color]
    [color=darkblue]For[/color] [color=darkblue]Each[/color] HTMLText [color=darkblue]In[/color] ActiveSheet.OLEObjects
        [color=darkblue]If[/color] TypeName(HTMLText.Object) = "HTMLText" [color=darkblue]Then[/color]
            HTMLText.TopLeftCell = HTMLText.Object.Value
            HTMLText.Delete
        [color=darkblue]End[/color] [color=darkblue]If[/color]
    [color=darkblue]Next[/color]
[color=darkblue]End[/color] [color=darkblue]Sub[/color]

[kuznetsovSergey]

АААА мега круто !! ОГРОМНОЕ СПАСИБО !!
работает всё как часы

[Romashka]

Проблема следующая. Веду учет ГСМ в таблице Excel. Таблица прислана с другого предприятия. Там в поле "остаток бензина" забито ограничение и если остаток превышает пределы бака, то эта графа выделяется красным. Скажите, как сделать чтобы красноты не было вообще? Можно ли как то убрать эти ограничения? Заранее спасибо

[Teslenko_EA]

Здравствуйте Romashka.
"сделать чтобы красноты не было..." - в Вашем случае думаю можно изменив Условное форматирование "краснеющих" ячеек (в Excel 2003 меню Формат / Условное форматирование...)

Если Вы действительно хотите получать помощь, создавайте свой вопрос.
Евгений.

[Romashka]

[quote="Teslenko_EA"]Здравствуйте Romashka.
"сделать чтобы красноты не было..." - в Вашем случае думаю можно изменив Условное форматирование "краснеющих" ячеек (в Excel 2003 меню Формат / Условное форматирование...)

Если Вы действительно хотите получать помощь, создавайте свой вопрос.
Евгений.[/QUO

Спасибо огромное! ПОМОГЛО!!!!!