Анализ фото-вставки

[maksim_serg]

так я не понял, ячейки закрашены, или картинка вставлена?

[valerij]

Сообщение от maksim_serg

так я не понял, ячейки закрашены, или картинка вставлена?

Картинка вставлена, прям с фотошопа или ....
Писал же, обычная ч/б фотка.
То как пример. Фотки всегда будут иметь такую разбивку как в примере 12 столбцов и 8 строк, что бы автоматом получить такие цифры.
Эти от примера.

1 1 2 1 1 1 1 1 2 1 1 1
1 1 1 2 1 1 1 2 1 1 1 1
1 1 1 1 2 1 2 1 1 1 1 2
1 1 1 2 2 2 2 1 1 1 1 2
2 3 3 4 4 4 3 2 2 1 1 1
3 4 4 4 3 3 3 3 3 2 2 1
4 4 3 3 3 3 3 3 3 3 2 2
3 3 3 3 2 2 2 2 2 2 1 1

[doober]

Валера, картинку на базу,+часть твоей любимой машинки с пивом,получишь то,что хочешь.
Картинки в папке лежат?
Удобнее с ней с папки работать

[maksim_serg]

Без обработки ошибок (просто лень), не задумываясь о скорости и рациональности для квадратика картинки размером 5х5

Sub Макрос1()
On Error Resume Next

    Dim Col As New Collection
    Dim COLOR As Long
    For r = 1 To 5
        For c = 1 To 5
        COLOR = Cells(r, c).Interior.COLOR \ 256 ^ 0 And 255
            Col.Add COLOR, CStr(COLOR)
        Next
    Next


    Dim temp, n As Integer
    Dim newarr() As Long
    ReDim newarr(Col.Count - 1, 1)
    Dim index As Integer
    For j = 1 To Col.Count
        temp = 0
        For i = 1 To Col.Count
            If temp <= Col(i) Then
                temp = Col(i)
                index = i
            End If
        Next
        newarr(n, 0) = Col(index)
        newarr(n, 1) = n: n = n + 1
        Col.Remove (index)
    Next
    
        For r = 1 To 5
            For c = 1 To 5
                For i = 0 To UBound(newarr, 1)
                    COLOR = Cells(r, c).Interior.COLOR \ 256 ^ 0 And 255
                    If COLOR = newarr(i, 0) Then Cells(r, c).Value = newarr(i, 1)
                Next
            Next
        Next

    
End Sub

[valerij]

Сообщение от doober

Валера, картинку на базу,+часть твоей любимой машинки с пивом,получишь то,что хочешь.
Картинки в папке лежат?
Удобнее с ней с папки работать

Сереж, сами картинки, можно в папку, сам положишь?
Оригинал
В цвете
http://yadi.sk/d/4JCEWSWWGVYg5
он же ч/б
http://yadi.sk/d/OJV_6vftGVZ2W

ну и
---------------
| ^^пиво^^ \\|""\\_,_
|___________||___|__|)
(@)(@)""*|(@)(@)**(@)

[valerij]

Сообщение от maksim_serg

для квадратика картинки размером

Окончательно так должно выглядеть или циферки рядом.

[maksim_serg]

от нуля(самый светлый) до пяти(самый тёмный)
вот это там и получается

[doober]

Разбил я на квадраты,какой цвет для этого фрагмента?
Усреднять?
Машинка проехала мило без остановки

[valerij]

Сообщение от doober

Разбил я на квадраты,какой цвет для этого фрагмента?
Усреднять?
Машинка проехала мило без остановки

Конечно усреднять, фрагмент не открывается, мал очень.

Сообщение от maksim_serg

вот это там и получается

У меня нет.
Под картинкой

0	0	0	0	0
0	0	0	0	0
0	0	0	0	0
0	0	0	0	0
0	0	0	0	0

для квадратика картинки размером 5х5

Что такое 5х5?

[IgorGO]

Сережа, а если по колесам стрельнуть, должны были остановиться

Валера, я тут выкладывал когда-то макрос, который из исходного .BMP читал цвет каждого пикселя и закрашивала ячеку ексель

работало, правда, только с несжатым черно-белым .BMP