.Value, .Formula, .FormulaR1C1 - Excelマクロ・VBA

昨日の続きです。

「式」と「戻り値」、「値」 - Excelマクロ・VBA
.Valueで値を設定したあと、参照元セルの値を変更すると？ - Excelマクロ・VBA

今日は、.Valueの親戚をご紹介。以下の2つです。

.Formula
.FormulaR1C1

ちなみに、今日のブログ記事のネタは、あなたがマクロを書く際にはほとんど役に立ちません。
なぜなら、先にオチを書いておくと、 .Formula とか .FormulaR1C1 とかを使ってセルの値を設定することなんて、まあまずないから。
自動記録でマクロを作っているときに、ちょっとうれしくなるくらいです。

でも、エクセルの挙動についての知識を確固たるものにするとか、ITリテラシーを高めるとか、そういうことを望む人には、なんか深く入るかな、と思って書いてみました。

それでは、行ってみましょう。

.FormulaR1C1 は、自動記録をするときなど、よく登場するものです。

以下、自動記録をしながら、セルB2に「3」という値を書き込んでみました。

Sub Macro3()  
  Range("B2").Select  
  ActiveCell.FormulaR1C1 = "3"  
  Range("B3").Select  
End Sub

「FormulaR1C1」とは何ぞや？という話をしたいのですが。
そのために、もっと簡単な、 .Formula のお話をしておきます。

.Formula は、そのセルに入っている「式」を取ってきます。

例えば、セルA1に、「=5+3」という式が入っていたとしましょう。
昨日までに解説しているとおり、この式の「戻り値」は「8」です。
従って、このセルの「値」は「8」。

で、このとき、以下のマクロを実行してみます。

Sub uni()  
  Debug.Print Range("A1").Value  
  Debug.Print Range("A1").Formula  
End Sub

結果は、以下のようになったはずです。

8
=5+3

ということ。

この性質は、あるセルから、そのセルの「値」を取ってきたいのか、「式」を取ってきたいのか、というような使い分けをしたいとき有効です。

このことについて学ぶため、以下の2つのマクロを実行して、その結果を比べてみてください。

Sub uni2()  
  Range("C1").Value = Range("A1").Value  
  Range("C2").Value = Range("A1").Formula  
End Sub

上記のマクロを実行すると、セル「C1」には、「8」という式が入り、その結果、「8」という値が表示されます。
セル「C1」には、「=5+3」という式が入り、その結果、「8」という値が表示されます。

.Value を使ってセルに何かを書き込むときは、「.Value」を使っても、「.Formula」を使っても、違いは生じません。
が、セルに入っているものを取ってくるときには、違いが生じるんですね。

以下、左辺も.Formulaで書いてみました。ただし、起こる出来事は、上のサンプルと同じです。

Sub uni3()  
  Range("D1").Formula = Range("A1").Value  
  Range("D2").Formula = Range("A1").Formula  
End Sub

次に、 .Formula と .FormulaR1C1 の違いについて。
いろいろマクロを実行して、確認してみましょう。

まずは、簡単にこんなところから↓

Sub uniuni1()  
  Debug.Print Range("A1").Formula  
  Debug.Print Range("A1").FormulaR1C1  
End Sub

どちらも、 =5+3 という式を返します。

では、ちょっとひねって。
セル「A5」に、「=A1+5」という式を入れます。
その状態で、以下のマクロを実行してみましょう。

Sub uniuni2()  
  Debug.Print Range("A5").Formula  
  Debug.Print Range("A5").FormulaR1C1  
End Sub

すると、以下のように出力されます。

=A1+5
=R[-4]C+5

「=A1+5」については解説不要でしょう。
「=R[-4]C+5」について言うと。

これは、「そのセルの4つ上、0つ右のセルの値 + 5」という意味の式になります。

要は、.Formulaは、式を「絶対参照」で取ってきて、
.FormulaR1C1は、式を「相対参照」で取ってくる、というところが違いになります。

なんのこっちゃ、と思うあなた。
以下に示すちょっと準備をしてから、マクロを実行してみてください。
その準備とは...。以下の2つです。

セル「A7」に「1」と記入する。
セル「B9」に「=A1+5」と記入する。

そして、以下のマクロを実行してみてください。

Sub uniuni3()  
  Dim c As Long  
  For c = 7 To 16  
  Range("D" & c).Formula = Range("B9").Formula  
  Range("E" & c).FormulaR1C1 = Range("B9").FormulaR1C1  
  Next  
End Sub

すると、以下のようになったはずです。 2301