この記事では、Excel VBAにおける「処理」について深く探求します。Excel VBAを用いて、ブログやフォーラムからのコメントやフィードバックを収集する方法を中心に、実際のコードとその詳細解説、そして応用例を通じて、読者の皆様がこのテーマに対する理解を深められるように配慮しています。
Excel VBAの基本
Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
Excel VBAと処理の基本
Excel VBA (Visual Basic for Applications) は、Microsoft Excel内で動作するプログラミング言語です。VBAを使うことで、Excelの機能を自動化したり、カスタマイズした処理を追加することが可能になります。
コメントやフィードバックの収集のためのVBAコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub CollectComments() Dim lastRow As Long Dim i As Integer Dim collectedComments As String lastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row For i = 1 To lastRow If InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value, "コメント") > 0 Then collectedComments = collectedComments & ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value & vbCrLf End If Next i ThisWorkbook.Sheets("Sheet2").Cells(1, 1).Value = collectedComments End Sub |
コードの解説
このコードは、Sheet1のA列から”コメント”という文字列を含むすべてのセルを検索し、それをSheet2のA1セルに連結して表示するものです。具体的には、以下の手順で動作します：
1. Sheet1の最後の行を検索します。
2. A列の1行目から最後の行までループします。
3. 各セルの中身が”コメント”を含むかどうかを確認します。
4. “コメント”を含む場合、その内容をcollectedComments変数に追加します。
5. ループが終了したら、収集したコメントをSheet2のA1セルに表示します。
応用例
1. フィードバックの収集
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub CollectFeedback() Dim lastRow As Long Dim i As Integer Dim collectedFeedback As String lastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "B").End(xlUp).Row For i = 1 To lastRow If InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value, "フィードバック") > 0 Then collectedFeedback = collectedFeedback & ThisWorkbook.Sheets("Sheet1").Cells(i, 2).Value & vbCrLf End If Next i ThisWorkbook.Sheets("Sheet2").Cells(2, 1).Value = collectedFeedback End Sub |
解説
上記のコードは、前述のコメントの収集のロジックと似ていますが、B列から”フィードバック”という文字列を検索して収集します。収集したフィードバックはSheet2のA2セルに表示されます。
2. 特定のキーワードに基づくコメントの収集
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
Sub CollectCommentsByKeyword(keyword As String) Dim lastRow As Long Dim i As Integer Dim collectedComments As String lastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row For i = 1 To lastRow If InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value, keyword) > 0 Then collectedComments = collectedComments & ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value & vbCrLf End If Next i ThisWorkbook.Sheets("Sheet2").Cells(3, 1).Value = collectedComments End Sub |
解説
このコードは特定のキーワードに基づいてコメントを収集するものです。キーワードを引数として与えると、そのキーワードを含むコメントだけをSheet2のA3セルに表示します。
3. 日付順にコメントをソートして収集
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 |
Sub CollectAndSortComments() Dim lastRow As Long Dim i As Integer Dim collectedComments As String lastRow = ThisWorkbook.Sheets("Sheet1").Cells(ThisWorkbook.Sheets("Sheet1").Rows.Count, "A").End(xlUp).Row ' コメントを収集 For i = 1 To lastRow If InStr(ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value, "コメント") > 0 Then collectedComments = collectedComments & ThisWorkbook.Sheets("Sheet1").Cells(i, 1).Value & vbCrLf End If Next i ' 収集したコメントを日付順にソート Dim arrComments As Variant arrComments = Split(collectedComments, vbCrLf) QuickSort arrComments, LBound(arrComments), UBound(arrComments) ' ソートしたコメントをSheet2に表示 For i = LBound(arrComments) To UBound(arrComments) ThisWorkbook.Sheets("Sheet2").Cells(i + 4, 1).Value = arrComments(i) Next i End Sub Sub QuickSort(ByRef SortArray As Variant, ByVal first As Long, ByVal last As Long) Dim Low As Long, High As Long, Temp As Variant, List_Separator As Variant Low = first High = last List_Separator = SortArray((first + last) / 2) Do While SortArray(Low) < List_Separator Low = Low + 1 Wend While SortArray(High) > List_Separator High = High - 1 Wend If Low <= High Then Temp = SortArray(Low) SortArray(Low) = SortArray(High) SortArray(High) = Temp Low = Low + 1 High = High - 1 End If Loop While Low <= High If first < High Then QuickSort SortArray, first, High If Low < last Then QuickSort SortArray, Low, last End Sub |
解説
このコードでは、コメントを収集した後、収集したコメントを日付順にソートしてSheet2に表示します。ソートにはクイックソートを使用しています。
まとめ
Excel VBAを使用することで、ブログやフォーラムからのコメントやフィードバックを効率的に収集することが可能です。実際のビジネスシーンでの応用も多いため、この記事で紹介したコードや手法をぜひ参考にしてみてください。
VBAも良いけどパワークエリも良い
VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。
クリックするとパワークエリの全11講座が表示されます。
-
【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)
-
【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)
-
【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)
-
【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)
-
パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)
-
パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）
-
パワークエリで効率的なデータグループ化を実現する方法(7/11)
-
パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)
-
パワークエリで条件別集計をマスターする方法(9/11)
-
Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)
-
Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント