[XL]VBAでRangeオブジェクトを返すユーザー定義関数を作成する際の問題

詳細

現象

Range オブジェクトを返すユーザー定義関数を作成し、返った Range オブジェクトを直接 With ステートメントの引数に指定すると一般保護違反 (モジュールVBADBCS.DLL ) が発生します。
たとえば、次のようなマクロを実行すると問題が発生します。

  Sub RangeSample()
      With GetPrivateRange()
          .Bold = True
          .Itaric = True
      End With
  End Sub
  Function GetPrivateRange() As Range
      Set GetPrivateRange = ThisWorkbook.Worksheets("Sheet1"). _
          Range("A1")
  End Function

回避策

With ステートメントの部分を修正することによって、問題を回避できます。
「現象」で示したマクロ RangeSample の場合は、次のように修正します。

  Sub RangeSample()
      Dim TempRange As Range
      Set TempRange = GetPrivateRange()
      With TempRange
          .Bold = True
          .Itaric = True
      End With
  End Sub