Ексель-вопрос

kazak878

как сохранить файл оставив только значения?
т.е. есть формулы, чтобы от них избавится пока делаю как выделить все-копировать-специальная вставка-значения-ок
но если листов много несколько гемеоройно получается, может есть уже функция или скриптик, поделитесь плз

timtaller

Я думаю
пора создавать альт-раздел "Гуру.Учсуд"

SergZ495

Без макросов никак

  Sub макрос1

    Range("A1").Select

    Range(Selection, Selection.End(xlDown.Select

    Range(Selection, Selection.End(xlToRight.Select

    Selection.Copy

    Range("A1").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

        :=False, Transpose:=False

End Sub

Вот так можно на активном листе значениями функции заменить.
Дальше по вкусу либо к кнопочке на панели задач привинтить, либо дописать так чтоб ко всем листам применялся если надо.

kazak878

как заботать макросы в екселе?

Lenchans

Мне помогло забатывание хелпа

SergZ495

как заботать макросы в екселе?

Скачай какое нить пособие по VBA. На самом деле макрос для большинства задач простых можно изготовить при помощи сервис->макрос->записать просто записав последовательность действий. Ну и дальше в коде можно малость поковыряться, спрашивая у гугла про непонятные функции.

timtaller

записать просто записав последовательность действий. Ну и дальше в коде можно малость поковыряться

+1? так мной было написано 98% моих макросов

12345

Да, только вот все задачи с циклами отпадают

SergZ495

Да, только вот все задачи с циклами отпадают

Че эт они отпадают. Зачастую проще все равно записать последовательность действий а цикл потом дорисовать.

timtaller

Присоединюсь к вышесказанному, я записывал последовательность действий и окружал ее циклом.

kazak878

теперь напишите как цикл сделать и счетчик

остальное вроде как понял

Usmanova72

все просто
Sub test
For Each l In ActiveWorkbook.Worksheets
For Each c In l.Cells
temp = c.Value
c.Value = Null
c.Value = temp
Next c
Next l
End Sub
будет невьебенно долго, зато все затрет.
можно так
Sub test
For Each l In ActiveWorkbook.Worksheets
For Each c In l.range("диапазон")
temp = c.Value
c.Value = Null
c.Value = temp
Next c
Next l
End Sub
Типа задать ограниченный диапазон на листе в виде А1:B2 и тогда все быстро пройдет

glare

Оч. просто. И быстро.
> Выделить все листы (контекстное меню по правой кнопке мыши на любом ярлычке листа)
> ctrl-a
> ctrl-a
> ctrl-c
> кнопка "вставить как значения" (например, по контестному меню по правой кнопке мыши на поле любого листа)
всё...
можно соответственно и макрос из 4 действий написать. Работает тоже оч. быстро.

glare

два раза нажимать ctrl-a (именно не один и не три!) принципиально важно.

alex211151

Сорри, а нафига? на глаз разница незаметна. Куда смотреть?

Оставить комментарий