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

解決

---

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に上記の強度画像(白黒の画像)に変換、出力するプログラムを作りたいのですが途中で詰まってしまいました。
どこが悪いのか教えてください。

編集 削除

---

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

http://bbs.wankuma.com/index.cgi?mode=al2&namber=10573

編集 削除

---

ありがとう

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

返信する