изображение на основе значения ячейки

Question

Кто-нибудь здесь есть идеи, как работать с изображениями в VBA?,
У меня есть эта доска, заполненная нулями и единицами, и я хочу вставить изображение, если значение ячейки равно 1, и оставить его пустым, если нет ... с чего начать?
по другой теме я попробовал этот код, чтобы сделать ячейки с 0 пустыми:

For i = 1 to n '(defined in the code)
    For j = 1 to n 
        If Cells(i, j).Value = 1 Then
            Cells(i, j).Value = ""
        End if
    Next j 
Next i 

Это не сработало ... есть мысли?

Answer 1

Чтобы показать нули как пустые, выберите «Файл»> «Параметры»> «Дополнительно». Прокрутите вниз до «Параметры отображения для этого листа» и снимите флажок «Показывать ноль в ячейках с нулевым значением». Это будет применяться ко всем ячейкам на листе, для которых он установлен.

Если вам нужно показывать нули в некоторых ячейках, а не в других, используйте формат ячейки. Нажмите Формат ячеек> Число> Пользовательский. Введите пользовательский формат, например 0;0; Нулевые значения будут скрыты только для выбранной ячейки.

Как это работает? Формат ячейки, по сути, имеет 4 формата, разделенных точками с запятой. Первая для положительных чисел, вторая для отрицательных, третья для нулей и последняя для текста. Итак, мой пример формата имеет ноль для положительного, ноль для отрицательного, ничего для ноля и текст не определен. В этом формате вы не сможете отображать доллары и центы, потому что центы подавлены. Вы не сможете отличить положительные числа от отрицательных, потому что они отображаются одинаково. Если у вас есть такие потребности, вы можете применить более подходящие форматы для положительного и отрицательного.

В дополнение к вышесказанному, который может быть полезен для того, что вы делаете, формат вроде 1;1;;"1" будет отображать любое число или любой текст, который вы вводите как 1, и показывать пустую ячейку для нуля.