Добрый день! Подскажите пожалуйста (попроще), как через макрос заставить эксель, в зависимости от цвета листа написать внутри данного листа определённую информацию. Например в выложенном файле заставить эксель в ячейку B2 каждого листа вписать значение A, B, C, D, E, в зависимости от цвета соотвествующего листа (в красном листе значение ячейки B2 будет равно A, в желтом листе значение в ячейке B2 = B, для зеленого - С, голубого - D, феолетового - E).
И есть ли возможность почти обратной операции: есть 1 лист, где в столбик (в примере2 столбик А) расписаны определённые значения (A, B, C, D, E и т.д.) или допустим даже сложнее - у ячеек в столбике заданы разные определённые цвета. Необходимо для каждого значения создать новый лист, с цветом надписи листа = цвету ячейки определённого значения; внутри листа должно быть, допустим в ячейке B2 записано само значение (A, B, C, D, E и т.д.), соответствующее цветовой гамме листа. Например, в файле Пример2 в столбике А 5 разных значений (у каждого из них есть свой цвет), таким образом, необходимо создать 5 новых листов (название не важно) соответствующих цветов, чтобы в каждом из них в ячейке B1 было прописано соответствующее цвету значение. Причем, если в столбике А1 (из того злосчастного примера2) есть повторяющиееся значение, необходимо в соответствующий лист вписать уже в ячейку B2 то же самое значение. Т.Е., судя по примеру, в листе красного цвета в ячейках B1 и B2 должно быть задано значение А, а в листе синего цвета - в яч. B1, B2, B3 должно быть задано значение D. Надеюсь, я не сильно запутал своими описаниями и примерами....)
Добрый день! Подскажите пожалуйста (попроще), как через макрос заставить эксель, в зависимости от цвета листа написать внутри данного листа определённую информацию. Например в выложенном файле заставить эксель в ячейку B2 каждого листа вписать значение A, B, C, D, E, в зависимости от цвета соотвествующего листа (в красном листе значение ячейки B2 будет равно A, в желтом листе значение в ячейке B2 = B, для зеленого - С, голубого - D, феолетового - E).
И есть ли возможность почти обратной операции: есть 1 лист, где в столбик (в примере2 столбик А) расписаны определённые значения (A, B, C, D, E и т.д.) или допустим даже сложнее - у ячеек в столбике заданы разные определённые цвета. Необходимо для каждого значения создать новый лист, с цветом надписи листа = цвету ячейки определённого значения; внутри листа должно быть, допустим в ячейке B2 записано само значение (A, B, C, D, E и т.д.), соответствующее цветовой гамме листа. Например, в файле Пример2 в столбике А 5 разных значений (у каждого из них есть свой цвет), таким образом, необходимо создать 5 новых листов (название не важно) соответствующих цветов, чтобы в каждом из них в ячейке B1 было прописано соответствующее цвету значение. Причем, если в столбике А1 (из того злосчастного примера2) есть повторяющиееся значение, необходимо в соответствующий лист вписать уже в ячейку B2 то же самое значение. Т.Е., судя по примеру, в листе красного цвета в ячейках B1 и B2 должно быть задано значение А, а в листе синего цвета - в яч. B1, B2, B3 должно быть задано значение D. Надеюсь, я не сильно запутал своими описаниями и примерами....)Roman777
С цветами листов Вы можете взаимодействовать, например, так:
[vba]
Код
MsgBox Thisworkbook.Worksheets(1).tab.color 'Если хотим узнать цвет первого листа Thisworkbook.Worksheets(1).tab.color = rgb(255, 0, 0) 'Если хотим покрасить первый лист, например, в красный
[/vba] Чтобы выбрать один путь из нескольких возможных - стоит воспользоваться оператором SELECT CASE.
Roman777, здравствуйте.
С цветами листов Вы можете взаимодействовать, например, так:
[vba]
Код
MsgBox Thisworkbook.Worksheets(1).tab.color 'Если хотим узнать цвет первого листа Thisworkbook.Worksheets(1).tab.color = rgb(255, 0, 0) 'Если хотим покрасить первый лист, например, в красный
[/vba] Чтобы выбрать один путь из нескольких возможных - стоит воспользоваться оператором SELECT CASE.Rioran
Роман, Москва, voronov_rv@mail.ru Яндекс-Деньги: 41001312674279