白黒の強度画像を作るには？

解決

エデン 2007-11-21 07:06:29 No: 99762

Private a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer _
, g As Integer, x As Integer
Sub hw11()

For a = 1 To 45
For b = 1 To 45

c = Int((Rnd * 25.5)) * 10
d = Int((Rnd * 25.5)) * 10
e = Int((Rnd * 25.5)) * 10

Sheet1.Cells(a, b).Interior.Color = RGB(c, c, c)

Next b

Next a

For a = 1 To 45
For b = 1 To 45

Sheet2.Cells(a, b).Interior.Color = RGB(g, g, g)
f = MAX(c, d, e)

Next b
Next a

End Sub

Function MAX(ByVal a As Integer, b As Integer, c As Integer)

If c > d Then
   If c > e Then
     g = c
   Else
     g = e
   End If

Else
g = d
End If

End Function

まず、Sheet1に45×45のセルにランダムに色を付けて、
その後、Sheet2に上記の強度画像(白黒の画像)に変換、出力するプログラムを作りたいのですが途中で詰まってしまいました。
どこが悪いのか教えてください。

(報告) 2007-11-21 18:37:45 No: 99763

[マルチポストについて]
http://www.ippo.ne.jp/g/53.html

エデン 2007-11-22 03:39:06 No: 99764

ありがとう