お仕事Tipsトップ >> Excel：「コメント」を使った単語帳を作ろう！

---

　Micosoft Excel（エクセル）で「コメント」機能を使うと、単語帳や暗記カードの代わりに使えます。
　Excelのコメントは、セルにカーソルを乗せるだけで表示されるので、カードめくりと同じ効果が得られるわけです。また、Excelですから、下図のように覚えにくい単語の脇のセルにチェック回数などが記録でき、ちょっとした空き時間でも効率的な記憶ができます。
　受験生の英単語学習のほか、昇任試験や資格試験の最後の追い込みにも使えると思います。おっと、絶対に就業時間中に使っちゃダメですよ。(^_^;)
　ただしこの方法、コメントはいちいち「コメントの挿入」で入力するしかなく、めんどうです。
　そこで、単語と意味を並べて入力しておき、一気にコメント化するマクロを作ってみました。
　ついでに、印刷用にその逆を行う機能と、忘れた回数記録機能も付いています。超小物ですが、意外に重宝します。使ってみてください。

マクロコードの登録方法について

　単語入力用の新たなExcelのファイルを作り、以下のマクロコードをコピーして登録します。

 

• (注意)
  • 　ネット上には、便利なマクロ付きExcelファイルを掲載したサイトがたくさんありますが、ダウンロードして使う場合は、マクロウィルスには十分注意しましょう。開く前にアンチウィルスソフトでチェックだけはしてください。
    　以下の方法では、マクロのコードを見てからコピー登録することができます。その場合でも、必ずコードを見て、危険がないことを確認してください。機能上必要なさそうなコードがあったり必要以上にサイズが大きい場合は要注意です。

1. マクロを登録したいExcelのファイルを開き、次のいずれかの方法でマクロ編集画面（Visual Basic Editor）を開きます。
   �@　 Alt ＋　F11 　（ショートカットキー）
   �A　メニューから、 [ツール]−[マクロ]−[Visual Basic Editor]　を選択 (2003以前)
    
2. Visual Basic Editorの左側のプロジェクト一覧で、標準モジュールがあれば、クリックして編集画面を表示する。
   
   
   
   
   • 標準モジュールが表示されていない場合は、Visual Basic Editorのメニューから[挿入]-[標準モジュール]で、標準モジュールを作成してから、編集画面を表示する。
     
     
     
     
     
3. �@　コードの下の「コードを全選択」ボタンを押して、コードを全選択する
   �A　 マウスを右クリックしてメニューを出し、コピーする。
   �B　標準モジュールの編集エリアにメニューから「貼り付け」して、上書き保存する。
   　　※編集エリアの操作については、詳しくはExcelの解説書をお読みください。
   

   Sub CommentSakusei() ' ' Macro1 Macro ' 範囲指定したセルに、その右隣のセルの内容をコメントとして ' セットするマクロ ' 英単語などの暗記用に便利 Dim n As Integer Dim yaku As String With ActiveSheet Set r = Selection For n = 1 To r.Rows.Count r.Cells(n, 2).Activate yaku = ActiveCell.Text r.Cells(n, 1).Activate If yaku <> "" Then r.Cells(n, 1).Activate If ActiveCell.NoteText = "" Then ActiveCell.AddComment End If ActiveCell.Comment.Text Text:=yaku End If Next n End With End Sub Sub CommentPrint() ' ' Macro2 Macro ' 範囲指定したセルのコメントを、右隣のセルに書き出すマクロ ' Dim n As Integer Dim cellcmt As Object 'コメントのオブジェクト Dim yaku As String With ActiveSheet Set r = Selection For n = 1 To r.Rows.Count r.Cells(n, 1).Activate Set cellcmt = ActiveCell.Comment If cellcmt Is Nothing Then yaku = "" Else yaku = cellcmt.Text End If r.Cells(n, 2).Activate ActiveCell.Value = yaku Next n End With End Sub

   
   
4. 次は、カウンタ用のマクロを登録しますが、登録する場所はThisWorkbookになります。
5. Visual Basic Editorの左側のプロジェクト一覧で、ThisWorkbookをクリックして編集画面を表示します。
   
   
   
   
6. 下のコードをコピーし、同様に編集エリアに貼り付けて、保存します。
7. ThisWorkbookに貼り付けることにより、そのExcelファイル内のどのシートでも作動します。

   Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _ ByVal Target As Range, Cancel As Boolean) ' このコードはThisWorkbook に貼り付ける。 ' 単語をダブルクリックすると二つ右側のセルの数字を＋１する。 Target.Cells(1, 3).Activate ActiveCell.Value = ActiveCell.Value + 1 Cancel = True End Sub

コメント化マクロの使い方

1. あらかじめ、単語を入力するExcelファイルに、上記の「マクロコードの登録方法」に記載した方法でマクロを登録しておきます。
2. 単語と意味を並べて入力していきます。
3. コメント化する単語をマウスで選択します。
4. 以下のいずれかの方法で、マクロ実行ダイアログを開く。
   �@　 Alt ＋　F８ 　（ショートカットキー）
   �A　メニューから、 [ツール]−[マクロ]−[マクロ]　を選択 (2003以前)
5. マクロ実行ダイアログで、CommentSaskuseiを選択し、実行します。
   
6. 意味がコメント化されます。
7. 意味を入力していた右側セルの中身を手動で削除します。（見えたら暗記カードになりませんからね。）
8. あとは、ひたすら暗記していきましょう。(^^;)

コメントを書き出すマクロの使い方

1. 修正や印刷のために、コメントを元のセルに書き出すことができます。
2. コメントをセルに書き出したい単語を選択します。
   このとき、単語の右側のセルは必ず空白にしておいてください。（下図）
3. メニューから、[ツール]-[マクロ]-[マクロ]で、CommentPrintを実行します。
   
4. 単語の右側のセルに、コメントが書き出されます。

セルをクリックするとカウンターが上がるマクロの使い方

1. 使い方は簡単。チェックしたい単語をダブルクリックすると、その２つ右側のセルの数字が＋１されます。忘れた回数を記録できるので、重点的な学習ができるでしょう。
2. 記録は、ファイルを保存しないと消えますので念のため。
   

---

• 2008/10/25 以下のように改良
  　　・意味の列が空白の場合は、コメントを作らない。
  　　・コメントの上書きでエラーが出ないようにした

---

• このマクロはフリーソフトとし、取扱いはGPLに準拠します。
• ただし、他のマクロに組み込んだり、その他の方法で、他に配布する場合は原作著作表示を残していただけるとうれしいです。
• 作者はこのマクロ及び本ドキュメントを使用した結果について何ら責任を負いません。

copyright yoyotei All right Reserved