Excel VBAを使用したブログやフォーラムからのコメント・フィードバック収集方法

この記事では、Excel VBAにおける「処理」について深く探求します。Excel VBAを用いて、ブログやフォーラムからのコメントやフィードバックを収集する方法を中心に、実際のコードとその詳細解説、そして応用例を通じて、読者の皆様がこのテーマに対する理解を深められるように配慮しています。

Excel VBAと処理の基本

Excel VBA (Visual Basic for Applications) は、Microsoft Excel内で動作するプログラミング言語です。VBAを使うことで、Excelの機能を自動化したり、カスタマイズした処理を追加することが可能になります。

コメントやフィードバックの収集のためのVBAコード

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. フィードバックの収集

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. 特定のキーワードに基づくコメントの収集

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. 日付順にコメントをソートして収集

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を使用することで、ブログやフォーラムからのコメントやフィードバックを効率的に収集することが可能です。実際のビジネスシーンでの応用も多いため、この記事で紹介したコードや手法をぜひ参考にしてみてください。