« 表計算 | トップページ | 写真整理 »

2018年7月 4日 (水)

表計算(続)

gazo

昨日の続きです。
エクセルにデータを打ち込んで遊んでみました。
VBAでコードを書いて誤りをチェックしてみました。
誤りがあれば赤色でそのセルを表示します。
6ヶ所の誤りが見つかりました。
コードを書くには少々時間を要しますが、一瞬でチェックができます。
一度作れば同じ形式の表のチェックが簡単にできて便利です。
コード(対角の勝敗の数値をチェックしています)
Sub check()
Dim m, n, x1, x2, y1, y2 As Integer
For m = 1 To 11
        For n = m To 11
        x1 = m
        y1 = 2 * n + 1
        x2 = n + 1
        y2 = 2 * m
        If Cells(x1, y1).Value <> Cells(x2, y2).Value Then
            Cells(x1, y1).Interior.ColorIndex = 3
            Cells(x2, y2).Interior.ColorIndex = 3
        End If
    Next
    For n = m To 11
        x1 = m
        y1 = 2 * n + 2
        x2 = n + 1
        y2 = 2 * m - 1
        If Cells(x1, y1).Value <> Cells(x2, y2).Value Then
            Cells(x1, y1).Interior.ColorIndex = 3
            Cells(x2, y2).Interior.ColorIndex = 3
        End If
    Next
Next
End Sub

|

« 表計算 | トップページ | 写真整理 »

パソコン・インターネット」カテゴリの記事

コメント

コメントを書く



(ウェブ上には掲載しません)


コメントは記事投稿者が公開するまで表示されません。



トラックバック

この記事のトラックバックURL:
http://app.cocolog-nifty.com/t/trackback/565852/66901028

この記事へのトラックバック一覧です: 表計算(続):

« 表計算 | トップページ | 写真整理 »