いつもお世話になります。 VBA初心者で、基本的な質問をしているかもしれませんが、どうかお付き合いください；；たとえば、以下のようなコードがあったとします。例） Function Sample() dim x As Integer dim y As Integer x=10 y=100 If x > sheets("シート2").Range("A1") AND y Range("A1") AND y < Range("A1") Then というように簡単にできますよね？他のFunctionでは、シートの指定はさせたくないので、 End Functionの手前で、「シート指定終了」というのを記述できればベストなのですが…。どうかよろしくお願いいたします。

VBAでのシート選択について

解決済

質問者：kumainu555
質問日時：2013/08/27 18:02
回答数：1件

いつもお世話になります。
VBA初心者で、基本的な質問をしているかもしれませんが、
どうかお付き合いください；；

たとえば、以下のようなコードがあったとします。

例）
Function Sample()

dim x As Integer
dim y As Integer

x=10
y=100

If x > sheets("シート2").Range("A1") AND y < sheets("シート2").Range("A1") Then
処理
End If

End Function

例えば上記のコードのようなものがあったとして、
シート名を省いて文字数を減らす方法はあるでしょうか？

1つのFunction内では「このシート」しか参照しないというような指定が出来ると、

If x > Range("A1") AND y < Range("A1") Then

というように簡単にできますよね？
他のFunctionでは、シートの指定はさせたくないので、
End Functionの手前で、「シート指定終了」というのを
記述できればベストなのですが…。

どうかよろしくお願いいたします。