Заливка ячеек по данным таблицы из другого листа

[Nicolas_46]

Уважаемые форумчане, несколько дней пытаюсь выполнить задачу но пока безуспешно
Пытаюсь построить карту деффектов выявленных при обследовании трубопровода, долго ломал голову и свел проблемму к задаче следующего характера:

На одном листе есть табличка содержащяя данные по месту нахождения и геометрическим размерам деффектного участка. (Количество строк може меняться)

На другом листе из ячеек сформированно поле (карта дефектов), каждая ячейка имеет масштаб 10х10 мм

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

Пожалуйста помогите, заранее спасибо.

[doober]

Проблема в чем заключается?
Ничего сложного нет.
Я понимаю,что положение деффекта задано в полярной системе координат.
Определяете X,Y,единицы переводите в сантиметры.
номер строки=Y+ строк вниз =ширина в сантиметрах-1,номер столбца=X+количество столбцов вправо =(Длина в сантиметрах-1)

[IgorGO]

формулы... но медленно...
метры и милиметры перевел в сантиметры. масштаб 1 см - одна ячейка.

[Nicolas_46]

проблемма в том что не так свободно ориентируюсь в VBA, уровень не тот, могу только пример подправить под собственные нужды, но такового не нашел(

[Nicolas_46]

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

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

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

[Nicolas_46]

я работаю в Excel 2010. Там вроде нет ограничений по количеству столбцов. Пример в виде картинки, почему-то сам файл не заливается, выделенная зеленая область размером 314х1180 ячеек.

[IgorGO]

а теперь с макросом. работает моментально.

[Nicolas_46]

не понимаю как ориентировать диаграмму горизонтально.
пробовал заменить в коде vertical на horizontal но не помогло (

Так понял, что строки отвечают за построение линий границ.

'.Columns(1).Borders(xlEdgeRight).Weight = xlThin
'.Columns(c / 10 + 1).Borders(xlEdgeLeft).Weight = xlThin

[DiemonStar]

не понимаю как ориентировать диаграмму горизонтально.

Я бы не рекомендовал: количество столбцов заметно меньше количества строк. Ваш пример, например, занимает порядка 800 ячеек, что не позволит повернуть изображение в старых версиях Офиса.
Но вот вам вариант для версий от 2007 и выше:

[Nicolas_46]

Господа, появилась неообходимость добавить примечение к выделенному диапозону. Чтобы текст в примечании добавлялся из ячеки (R, 2) то есть ячейки B анализируемой строки.
делал вот таким образом:

Sub закраска_красный()
 On Error Resume Next
  Dim c As Long
  
  With Worksheets(2)
    For R = 4 To Cells(Rows.Count, 3).End(xlUp).Row
      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).Resize(Cells(R, 6) / 10, Cells(R, 5) / 10).Interior.Color = RGB(255, 0, 0)
      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).Resize(Cells(R, 6) / 10, Cells(R, 5) / 10).Borders(xlEdgeBottom).Weight = xlThin
      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).Resize(Cells(R, 6) / 10, Cells(R, 5) / 10).Borders(xlEdgeRight).Weight = xlThin
      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).Resize(Cells(R, 6) / 10, Cells(R, 5) / 10).Borders(xlEdgeTop).Weight = xlThin
      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).Resize(Cells(R, 6) / 10, Cells(R, 5) / 10).Borders(xlEdgeLeft).Weight = xlThin
      
      .Cells(Cells(R, 4) / 10 + 1, Cells(R, 3) * 100 + 1).AddComment(Cells(R, 2).Value).Size = 100
 
    Next
  End With
End Sub

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