Консультация № 140060
15.07.2008, 23:45
0.00 руб.
0 0 0
Здравствуйте.

Дана форма на листе Excel. Все ячейки кроме рабочих защищены от изменений
паролем (и я его не знаю). Рабочие ячейки подсвечены цветом. Я вношу в них формулы для
рассчёта нужных данных. Но у меня постоянно требуют предоставить одну
копию документа только с готовыми числами, без формул (!)

Мне удалось сделать только такой костыль (см. вложение). Это очень
неудобно: я открываю лист с формулами, выделяю нужные ячейки, потом открываю
в другом окне файлик свод_испр.xls с чистой формой и выделяю аналогичный
диапозон там, жму кнопку макроса... Программка через специальную вставку
заполняет поля значениями... Потом я снова переключаюсь между книгами и
выделяю следующую ячейку... Мой макрос ко всему ещё никак не может
работать с несвязанными диапозонами... Что можно сделать?

Приложение:
Public Sub ValueOnly()Set wrkArea = SelectionWith ActiveWorkbook storeSheet = ActiveSheet.Name storePath = CurDir(ActiveWorkbook.Path) + "" For Each curRange In Range(wrkArea.Address) Range(wrkArea.Address).Select‘ curRange.Select strFormula = "" Selection.Copy Windows("свод_испр.xls").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False Next curRange‘ Выделяем рабочий диапазон (чисто для наглядности) Range(wrkArea.Address).SelectEnd WithEnd Sub

Обсуждение

Форма ответа