四季報写経でランダムに入力できるようにする方法 (VBAで実装)

1. この記事について
2. 対象者
3. ソースコードと解説
4. 導入方法
5. その他の方法1
6. その他の方法2
7. おわりに

1. この記事について

四季報写経は捗っていますか？

筆者は四季報写経を通して、日本の全上場企業を頭に入れることを目標に日々邁進しています。

ただ、何せ量が膨大なので、馬鹿正直に1ページ目から順に写経していると、先が長すぎて心が折れそうになります。

そこで、これをランダムに好きなところから打ち込んでゴールを目指した方が、残りのページの厚みを気にせず、楽しく写経できるんじゃないかという考えになりました。

しかし、ランダムに打ち込んでいると4000近い企業を写経するので、どの企業を打ち込んだかわからなくなるかもしれない、という問題が出てきます。

なんとかランダムに写経して、かつ重複を防ぐ方法はないか。(重複しても復習になるのでそれはそれでいいが。。)

そこで、考えた結果以下のようなことを思いつきました。

「証券コードは一意の値(重複がない値)なのでこれを使い、既に写経している場合はそれを教えてくれるプログラムを作ればいい！」

ということで、実際にVBAでプログラムを組んでみました。

※マクロを使わないでも「条件付き書式」の設定で同じことが実現できたので、難しいことをしたくないという方は「5.その他の方法1」を参照してください。

2. 対象者

VBAで実装しているので、「Excelで四季報写経している方」が対象になります。

証券コードの列を変えるだけで、他はそののまま使えるのでぜひ参考にしてみてください。

※Mac版のExcelでしか検証していないので、もしWindows版のExcelで不具合があればコメントで教えていただけると嬉しいです。
また、Excelのバージョンによっても搭載関数が違ったりする可能性があるので、試す前に必ずバックアップを取ることを推奨します。

VBAとは、「Visual Basic for Applications」の略で、ExcelやPowerPointなどのMicrosoft Office系のアプリケーションを、自身がプログラミングして拡張することができる言語のこと

3. ソースコードと解説

ソースコードはこちらになります。

変更するのは赤マーカーの部分で、自身の写経シートの一意な値の列 (証券コードの列)を指定するだけです。

筆者の場合は、証券コードの列が3列目(C列)だったので、「3」と定義しています。

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

    ' 変数宣言
    Dim userDefinedColumn As Integer ' 一意にしたい行を格納する変数
    Dim activeColumn As Integer  ' 現在アクティブな列を格納する変数
    Dim duplicateCount As Integer ' 重複数をカウントを格納する変数
    
     ' 値の代入
    userDefinedColumn = 3 ' 一意にしたい列を格納
    activeColumn = ActiveCell.Column  ' アクティブな列を格納
    
    ' 現在入力している列が一意にしたい列の場合、処理を実行
    If activeColumn = userDefinedColumn Then
        ' 重複数を抽出
        duplicateCount = WorksheetFunction.CountIf(Columns(userDefinedColumn), Target.Value)
        ' 重複数が2つ以上の場合は、メッセージ出力
        If duplicateCount >= 2 Then
            MsgBox " すでに 写経済みです！"
        End If
    End If
    
End Sub

やっていることはごくシンプルで、以下の2ステップです。

１. 現在入力している列が、指定した「証券コード」の列であるかを判定

2. 1がYesの場合は、「証券コード」の重複数を確認して、2つ以上であれば、写経済みである旨のメッセージを表示する