VBA値| Excel VBA値プロパティを使用するにはどうすればよいですか？（例）

ExcelVBA値プロパティ

ValueはVBAのプロパティであり、特定の範囲に値を割り当てるためにrangeメソッドで主に使用されます。たとえば、range（ "B3"）。value = 3を使用すると、VBAに組み込まれている式になります。セルB3の値は3です。必ずしも、valueプロパティがrangeメソッドでのみ使用されるとは限りません。他の関数でも使用できます。

VBAを使用した学習の早い段階で、データをセルに保存する方法について知りたいと思っています。興味があれば、「Value」プロパティを理解する必要があります。この記事では、「Value」プロパティ、値を挿入または設定する方法、セルから値を取得する方法、およびその他の多くのことについて説明します。

以前の記事の1つで、「VBA範囲セル」について説明しました。Rangeオブジェクトは、単一のセルと複数のセルを参照するのに役立ちます。最初にRANGEオブジェクトを使用するには、値を挿入する必要のあるセルと、挿入する値を決定する必要があります。

VBAでValueプロパティを使用するにはどうすればよいですか？

このVBA値関数Excelテンプレートはここからダウンロードできます–VBA値関数Excelテンプレート

例1-セルに値を割り当てる範囲オブジェクト

  • たとえば、セルA1に値を挿入する場合は、次のようにセルA1を参照する必要があります。Range（ "A1"）

コード：

 Sub Value（）Range（ "A1"）End Sub

  • RANGEオブジェクトを使用してセルを参照した後、ドット（。）を入力して、このオブジェクトに関連付けられているすべてのプロパティとメソッドのIntelliSenseリストを表示します。

コード：

サブ値（）範囲（ "A1"）。エンドサブ

  • このさまざまなオプションから、プロパティ「VALUE」を選択します。

コード：

 Sub Value（）Range（ "A1"）。Value End Sub

  • 「VALUE」プロパティを選択したら、値を等号にしてセルA1に値を設定する必要があります。

コード：

 Sub Value（）Range（ "A1"）。Value = "Welcome to VBA" End Sub

  • わかりました。これにより、セルA1に「WelcometoVBA」という値が挿入されます。

  • 複数のセルに同じ値を挿入する場合は、以下のコードのようにセルを参照してください。

コード：

 Sub Value（）Range（ "A1：A5"）。Value = "Welcome to VBA" End Sub
  • これにより、セルA1からA5に値が挿入されます。

  • 一連のセルではなく異なるセルに値を挿入する場合は、以下のように別々の引数でコードとセルアドレスを使用する必要があります。

コード：

 Sub Value（）Range（ "A1、A5、B4、C2"）。Value = "Welcome to VBA" End Sub
  • これにより、セルA1、A5、B4、およびC2セルに「WelcometoVBA」というテキストが挿入されます。

例2–CELLSプロパティを使用して値を挿入する

RANGEオブジェクトを介さずに、VBA CELLSプロパティを使用して、値を挿入できます。ただし、CELLSオブジェクトの問題の1つは、RANGEオブジェクトの場合とは異なり、IntelliSenseリストにアクセスできないことです。

ここで、値を挿入する必要がある行番号と列番号について言及する必要があります。たとえば、セルA1に値を挿入する場合、コードはCELLS（1,1）です。セルB5に値を挿入する場合、コードはCELLS（5,2）、つまりB5に等しくなります。細胞。

CELLSプロパティを使用して複数のセルに値を挿入することはできません。これは、RANGEオブジェクトとは異なります。

例3–セル値を取得する

セルに値を挿入する方法を見てきました。次に、セルから値を取得する方法を見ていきます。

ステップ1：変数を文字列として定義します。

コード：

 Sub Value（）Dim K As String End Sub

ステップ2：この変数「k」にセルA1の値を割り当てます。セルA1に、「WelcometoVBA」という値を入力しました。

したがって、コードはk = Range（“ A1”）。Valueになります。

コード：

 Sub Value（）Dim K As String K = Range（ "A1"）。Value End Sub

手順3：変数「k」の結果をVBAメッセージボックスに表示します。

コード：

 Sub Value（）Dim K As String K = Range（ "A1"）。Value MsgBox K End Sub

コードを実行すると、メッセージボックスのセルA1値の結果が表示されます。

RANGEオブジェクトを使用してセルA1のデータを取得することもできます。以下のコードは、同じことを示しています。

コード：

 Sub Value（）Dim K As String Set CellValue = Range（ "A1"）MsgBox CellValue End Sub

これにより、メッセージボックスのセルA1の値も取得されます。

例4–複数のセル値が必要な場合のエラー値

例については、以下のコードを見てください。

コード：

 Sub Value（）Dim K As Range Set CellValue = Range（ "A1：A5"）MsgBox CellValue End Sub

上記のコードを実行すると、「TypeMismatch」エラーが発生します。

オブジェクト変数が複数のセルの「値」プロパティに設定されている場合、どのセル値を指定するかが実際には理解されないため、一度に1つのセル値を取得できるため、このエラーが発生する理由。