C# と VB.NET の質問掲示板

■No10573 (エデン さん) に返信
> Sheet1に45×45のセルにランダムに色を付けて、
> その後、Sheet2に上記の画像(?)を強度画像(各セルのRGBの値のうち最も高い値の白黒色に変換)に変換、
> 出力するプログラムを作りたいのですが、実行するとSheet2のセルの色が全て同じになってしまいます。
> どこが悪いのか教えてください。よろしくおねがいします
> 
えと、ExcelVBAでいいデスね？
色々おかしいので回答例を書くべきかちょっと考えましたが、書いちゃいマス。
参考までに修正してみた下のコードと見比べてみて下さい。

MAX関数のしたいことは、WorksheetFunction.max()に変えて、ループもシート別にせず、
シート１のカラー表示もカラフルに♪変数も整理したデス。
２重ループをわざわざシート単位に２回してるので、１回目でセル単位に計算してても、そのループ結果の最後の結果で
シート２はループしてるので、何回ループしても同じ色しか出ないのが一番悪いとこデス。
Private変数も使ってないのもあるケド、最大値の求め方が関数で自力でしなければならないのなら
引数に渡す方が私は好きデス。

Sub nodame()
    Dim color(2) As Integer
    Dim i As Integer, j As Integer, max As Integer

    For i = 1 To 45
        For j = 1 To 45
            color(0) = Int((Rnd * 25.5)) * 10
            color(1) = Int((Rnd * 25.5)) * 10
            color(2) = Int((Rnd * 25.5)) * 10
            Sheet1.Cells(i, j).Interior.color = RGB(color(0), color(1), color(2))
            max = WorksheetFunction.max(color)
            Sheet2.Cells(i, j).Interior.color = RGB(max, max, max)
        Next j
    Next i
End Sub