掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
白黒の強度画像を作るには？ (ID:99762)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
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に上記の強度画像(白黒の画像)に変換、出力するプログラムを作りたいのですが途中で詰まってしまいました。 どこが悪いのか教えてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.