Добрый день! Прошу подсказать, как можно реализовать следующую задачу: необходимо, чтобы при наличии данных в ячейке на печать выводилась картинка, при отсутствии данных - не выводилась. Во вложении файл, в ячейках А1 и А2 есть данные и нужно, чтобы картинки в ячейках В1 и В2 выводились на печать. В ячейке А3 нет данных и нужно, чтобы картинка в ячейке В3 не выводилась на печать. Каждый раз лезть в свойства и снимать галочку долго.
Добрый день! Прошу подсказать, как можно реализовать следующую задачу: необходимо, чтобы при наличии данных в ячейке на печать выводилась картинка, при отсутствии данных - не выводилась. Во вложении файл, в ячейках А1 и А2 есть данные и нужно, чтобы картинки в ячейках В1 и В2 выводились на печать. В ячейке А3 нет данных и нужно, чтобы картинка в ячейке В3 не выводилась на печать. Каждый раз лезть в свойства и снимать галочку долго.Dion
Здравствуйте. Макрос, чтобы поставить/снять галочки. Проверяется соседняя слева ячейка [vba]
Код
Sub Макрос1() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.TopLeftCell.Offset(, -1) <> "" Then sh.Select Selection.PrintObject = True Else sh.Select Selection.PrintObject = False End If Next sh End Sub
[/vba]
Здравствуйте. Макрос, чтобы поставить/снять галочки. Проверяется соседняя слева ячейка [vba]
Код
Sub Макрос1() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.TopLeftCell.Offset(, -1) <> "" Then sh.Select Selection.PrintObject = True Else sh.Select Selection.PrintObject = False End If Next sh End Sub
Даже не знаю. Можно выделить все рисунки, снять галку, потом выделить с клавишей Ctrl нужные и сразу для всех поставить галку. Или наоборот, смотря каких рисунков больше. Или можно вывести область выделения (Главная -- Найти и выделить -- Область выделения) и просто отключить видимость некоторых рисунков. Но это всё равно вручную.
Даже не знаю. Можно выделить все рисунки, снять галку, потом выделить с клавишей Ctrl нужные и сразу для всех поставить галку. Или наоборот, смотря каких рисунков больше. Или можно вывести область выделения (Главная -- Найти и выделить -- Область выделения) и просто отключить видимость некоторых рисунков. Но это всё равно вручную.Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Pelena, можете скорректировать Ваш макрос для уже конкретной задачи? Необходимо, чтобы при наличии данных в зелёной и синей ячейке справа отображалась картинка (символ рубля). Аналогично жёлтый-оранжевый, красный-фиолетовый, чёрный-серый, розовый-салатовый. Я не смог применить Ваш макрос.
Pelena, можете скорректировать Ваш макрос для уже конкретной задачи? Необходимо, чтобы при наличии данных в зелёной и синей ячейке справа отображалась картинка (символ рубля). Аналогично жёлтый-оранжевый, красный-фиолетовый, чёрный-серый, розовый-салатовый. Я не смог применить Ваш макрос.Dion
Nic70y, да, в новом офисе нормально отображается, но на большинстве компов стоит старый и вместо символа рубля квадратик. Поэтому и приходится каждый раз приклеивать картинку с символом рубля.
Nic70y, да, в новом офисе нормально отображается, но на большинстве компов стоит старый и вместо символа рубля квадратик. Поэтому и приходится каждый раз приклеивать картинку с символом рубля.Dion
Сообщение отредактировал Dion - Понедельник, 28.09.2020, 13:06
Pelena, к сожалению, компов слишком много и не все подключены к интернету, бегать обновлять юникод вручную некому. Поэтому и приходится каждый раз приклеивать картинку с символом рубля.
Pelena, к сожалению, компов слишком много и не все подключены к интернету, бегать обновлять юникод вручную некому. Поэтому и приходится каждый раз приклеивать картинку с символом рубля.Dion