スポンサーサイト
    Kapok の資産運用スポンサー広告
    上記の広告は1ヶ月以上更新のないブログに表示されています。
    新しい記事を書く事で広告が消せます。
    --.--.-- / コメント:: - / トラックバック:: - / PageTop↑

    Excel方眼用紙とVBAでドット絵の模様を作成してみました
    Kapok の資産運用PCExcel VBA
    なぜこのような事をしようと思ったのか分かりませんが、Excelのセルを方眼用紙の様に正方形にして、セルの色を変更する事で、絵をかいてみました。

    VBAマクロを使い、色を「周りの色の関数」として置いていく事で、複雑な模様ができました。


    1. できた模様


    excelvbadotpic.png
    ※クリックで拡大します


    2. マクロソース



    Sub oekaki()

    Dim a(200, 200) As Integer
    Dim b(200, 200) As Integer
    Dim tt As Integer
    Dim ii As Integer
    Dim jj As Integer

    '配列初期化
    Erase a
    Erase b

    '種
    a(100, 100) = 1
    a(90, 90) = 1
    a(90, 110) = 1
    a(110, 90) = 1
    a(110, 110) = 1


    For tt = 1 To 30
    For ii = 3 To 198
    For jj = 3 To 198
    '周りの数を足す
    b(ii, jj) = a(ii, jj - 1) + a(ii, jj + 1) + a(ii + 1, jj) + a(ii - 1, jj) _
    + a(ii - 1, jj - 1) + a(ii - 1, jj + 1) + a(ii + 1, jj - 1) + a(ii + 1, jj + 1)


    '色を付ける
    Select Case b(ii, jj)
    Case 0:
    Cells(ii, jj).Interior.Color = RGB(255, 255, 255)
    Case 1:
    Cells(ii, jj).Interior.Color = RGB(255, 255, 0)
    Case 2:
    Cells(ii, jj).Interior.Color = RGB(255, 0, 255)
    Case 3:
    Cells(ii, jj).Interior.Color = RGB(255, 128, 255)
    Case 4:
    Cells(ii, jj).Interior.Color = RGB(255, 128, 128)
    Case Else:
    Cells(ii, jj).Interior.Color = RGB(0, 255, 255)
    b(ii, jj) = 0
    End Select
    Next jj
    Next ii

    For ii = 3 To 198
    For jj = 3 To 198
    a(ii, jj) = b(ii, jj)
    Next jj
    Next ii

    Sleep 1
    MsgBox "tt=" & tt
    Next tt
    End Sub





    Excelで実行するのには時間がかかりますが、いろいろな模様を作成できそうです。




    関連記事
    2014.01.12 / コメント:: 0 / トラックバック:: 0 / PageTop↑




    コメント:

    Secret


    Pagetop↑
    トラックバック:
    Pagetop↑
    Pagetop↑
    ブログ内検索
    プロフィール

    Kapok

    Author:Kapok


    個人投資家。1986年生まれのサラリーマンです。将来、資産運用で財産を築き、自由に暮らす事を夢見ています。

    ブログについて
    「資産運用について調べた事・考えたこと」をブログのメイン記事にしています。

    記事の情報の正確さには注意を払っていますが、保証はしません。投資判断は自己責任でお願いします。

    Kapok
    資産運用の方針
    資産運用は、下記の規定の範囲内で行っています。私Kapokが、どのような個人投資家であるかがよく分かるファイルになっています。

    Kapok の資産運用規定

    最近の記事・コメント

    アクセスカウンター
    ↑ポインタを合わせると、1週間のアクセス数推移が確認できます。

    Since Mar.17/2011
    Twitter
    おすすめ書籍
    ウォール街のランダム・ウォーカー 株式投資の不滅の真理
    Kapokの投資哲学に大きな影響を与えた1冊。個人投資家必読の書。

    スポンサー
    相互リンク
    資産運用全般

    株式個別銘柄投資 etc.

    投資信託 etc.

    債券・預貯金

    FX・派生商品 etc.

    その他 有価証券

    資産運用以外
    上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。