ドットコム・パソコン塾のブログ -16ページ目

Excelのお話　Part26　畑の管理

こんにちは～

ドットコムパソコン塾の徳丸です

教室に通っておられる生徒さん方は農家の方が多いです。

以前、畑の管理をしたいけど、どこに何を植えたかわかりやすく

色をつけたいと言っておられました。

丁度、ヤフーの知恵袋にも同じような質問があって解答し、BAをもらっていたので

ちょっと応用をして作成しました。

皆さんの参考になるといいな～と思います。

下図をご覧ください。

これはsheet1に記載してあります。

下図はsheet2に畑を作成しています。

コードは下記のとおりです。

標準モジュールに記述します。

Sub sample1()
Dim c As Range
Dim cnt As Long

        Worksheets("畑の場所").Activate
        With Worksheets("作物")
            For Each c In Range("C4:G14")
                If c <> "" Then
                    cnt = WorksheetFunction.Match(c, .Columns(1), 0)
                    c.Interior.Color = .Cells(cnt, 1).Interior.Color
                End If
            Next c
        End With

End Sub

こんな感じ～～

実行すると～～～～～～