初心者でも安心！Word VBAとExcel VBAでセルの値を取得する方法

こんにちは！今日は、Word VBAとExcel VBAを使って、セルの値を取得する方法について、初心者の方にもわかりやすく解説します。パソコンやスマホの操作に不安がある方でも、安心して学べる内容になっていますので、ぜひ最後までご覧ください。

Word VBAでセルの値を取得する方法
Excel VBAでセルの値を取得する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

Word VBAでセルの値を取得する方法

Wordのイメージ

Word VBAでは、文書内のテキストを取得するために、`Range`オブジェクトや`Selection`オブジェクトを使用します。例えば、カーソルがある位置のテキストを取得するには、以下のようなコードを使います。

vba

Sub GetSelectedText()

    Dim selectedText As String

    selectedText = Selection.Text

    MsgBox selectedText

End Sub

このコードを実行すると、カーソルがある位置のテキストがメッセージボックスに表示されます。

さらに、文書内の特定の位置のテキストを取得するには、`Range`オブジェクトを使います。例えば、文書の先頭から100文字分のテキストを取得するには、以下のようなコードを使います。

vba

Sub GetTextFromStart()

    Dim docRange As Range

    Set docRange = ActiveDocument.Range(0, 100)

    MsgBox docRange.Text

End Sub

このコードを実行すると、文書の先頭から100文字分のテキストがメッセージボックスに表示されます。

Excel VBAでセルの値を取得する方法

次に、Excel VBAを使ってセルの値を取得する方法を見ていきましょう。Excelでは、`Range`オブジェクトや`Cells`メソッドを使ってセルを指定し、`Value`プロパティで値を取得します。

例えば、シート1のセルの値を取得するには、以下のようなコードを使います。

vba

Sub GetCellValue()

    Dim cellValue As Variant

    cellValue = ThisWorkbook.Sheets("Sheet1").Range("").Value

    MsgBox cellValue

End Sub

このコードを実行すると、シート1のセルの値がメッセージボックスに表示されます。

また、複数のセルの値を一度に取得することもできます。例えば、からC3までの範囲の値を取得するには、以下のようなコードを使います。

vba

Sub GetRangeValues()

    Dim rangeValues As Variant

    rangeValues = ThisWorkbook.Sheets("Sheet1").Range("C3").Value

    For i = 1 To 3

        For j = 1 To 3

            MsgBox rangeValues(i, j)

        Next j

    Next i

End Sub

このコードを実行すると、からC3までの各セルの値が順番にメッセージボックスに表示されます。

よくある質問や疑問

Q1: Word VBAで表のセルの値を取得するにはどうすれば良いですか？

Word VBAで表のセルの値を取得するには、`Tables`コレクションと`Cell`メソッドを使用します。例えば、文書内の1番目の表の1行1列目のセルの値を取得するには、以下のようなコードを使います。

vba

Sub GetTableCellValue()

    Dim cellValue As String

    cellValue = ActiveDocument.Tables(1).Cell(1, 1).Range.Text

    MsgBox cellValue

End Sub

このコードを実行すると、1番目の表の1行1列目のセルの値がメッセージボックスに表示されます。

Q2: Excel VBAでセルの値を変更するにはどうすれば良いですか？

Excel VBAでセルの値を変更するには、`Value`プロパティに新しい値を代入します。例えば、シート1のセルの値を”新しい値”に変更するには、以下のようなコードを使います。

vba

Sub SetCellValue()

    ThisWorkbook.Sheets("Sheet1").Range("").Value = "新しい値"

End Sub

このコードを実行すると、シート1のセルの値が”新しい値”に変更されます。

Q3: Word VBAで文書内の特定のスタイルのテキストを取得するにはどうすれば良いですか？

Word VBAで文書内の特定のスタイルのテキストを取得するには、`Find`オブジェクトを使用します。例えば、文書内の”見出し1″スタイルのテキストを取得するには、以下のようなコードを使います。

vba

Sub GetHeading1Text()

    With Selection.Find

        .ClearFormatting

        .Style = wdStyleHeading1

        .Execute

        If .Found Then

            MsgBox Selection.Text

        End If

    End With

End Sub

このコードを実行すると、文書内の”見出し1″スタイルのテキストがメッセージボックスに表示されます。