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

Т.е. например в ячейке образце делаем формат "Денежный" и выбираем рубли и тут бац нужный ряд ячеек становится "рублевым". Далее ячейку образец переделываем на тугрики и ряд становится тугриковым.

Гугление не помогло((

ЕвгеничЪ, нет чтоб тему про мебеля поднять... какой-то фигней по утрам занимаешься))

ПрапорЪ
Давно это было)))

а выделить группу ячеек и назначить им нужный формат не але?

seregaZ
а если много и на разных листах? ну и если регулярно?
хотелось бы максимум автоматизации...

Два раза кликаешь на кнопку скопировать формат и после этого данный формат появляется во всех ячейках, куда ты ткнёшь, включая выделенные диапазоны. Чтобы отключить функцию, надо ещё раз ткнуть в скопировать формат

Ёхан Палыч
да это я знаю

Тут, похоже, Visual basic изучать придётся.

написать макрос, выполнять после изменения ячейки образца.

"Условное форматирование", кмк тут не поможет. Но попробуй погугли.

макросы писать не умею... эхх, спасибо, товарищи, походу вручную придется))

Прочитай справку, да сделай макрос с кнопкой.
Альтернатива VBA excel изучать.

Знатоки и все остальные, привет! Давно тут не был... давно чтоль оформление поменяли, пока не залогинился даже не понял где нахожусь))))

По макросам есть спецы? Подозреваю, что делов там ерунда, но сам далек от этого и разбираться буду неделю

Думаю врдуг кто подскажет))

Добавлено спустя 2 минуты 49 секунд:

Суть. Есть таблица. Количество столбцов всегда постоянное, от A до G. Количество строк произвольное каждую неделю. Пытался понять как написать макрос, чтобы горячими клавишами заставлять эксель корректировать область печати, захватывая область с данными и не более того, но и не менее того. Столбец А всегда заполнен полностью, остальные произвольно. Т.е. я так понимаю надо найти последнее значение в столбце А (допустим ячейка А100) и задать область печати А1-G100.
Реально?

Вот до чего дошел:

Dim X1 As Integer
Dim X2 As Long

X1 = 1
X2 = Cells(1, 1).CurrentRegion.Rows.Count
MsgBox X2
ActiveSheet.PageSetup.PrintArea = "$A$" & X1 & ":$G$" & X2
ActiveWindow.View = xlPageBreakPreview

End Sub

но если по пути проверки попадается пустая ячейка, то далее проверка останавливается. Хз, пока не знаю как дальше.