Exｃel2007 CurrentRegion…

質問

お世話になります
エクセルVBA勉強中のものです。

任意に指定された、データの入っているセル範囲から
全データ範囲を取得するファンクションを
学習のため作ってみたのですが、
実行時にエラーとなります。
(スペル違いや大文字小文字違い、字下げしないなど、即興的にタイプしているのでご容赦下さい)

function　Range_Scope（Sheet_Name1 As String,Range1 As Range) As Range
set Range_Scope = sheets(Sheet_Name1).Range1.currentregion
end function

本当は見出し行分、オフセットしてリサイズとこなのですが、
ポイントがずれると嫌なので、割愛します。

確か
型が違う
的なエラーだったと思います。
何故エラーになるのでしょうか？
ご指南を宜しくお願い致します。

回答No.3

MarcoRossiItaly · ベストアンサー

CurrentRegion の範囲は必ずしも ActiveSheet 上である必要はないと思いますが、呼び出し側で何かしら特定済みの Range1 をそのまま使って、

Set Range_Scope = Range1.CurrentRegion

でよいかと。「.Range("セル番地")」というプロパティはあっても、「.Range1」というのはないので、勝手に作ったらエラー。「.Range(Range1)」というのも、Range1 が文字列ではないので、できないかと。

お礼

Range1はローカルな変数なのでお気になさらなくてよいかと思いますよ
あとレンジオブジェクトの実態を指し示していると思いますから
.Range1,Cu…
とかもありだと思うのですが？…
ダメです？

回答No.5

MarcoRossiItaly

No.4 さん、補足ありがとうございます。

＞.Range1,Cu…　とかもありだと思うのですが？…　ダメです？

ダメですね。説明済み。そういうプロパティはないので。

ドットなしの「Range1」ならプロパティではなく、あなたが定義したオブジェクト変数なので、「Range1.CurrentRegion」と使ってオッケー。

＞レンジ情報からどのシートなのかは知り得ないのですか？

debug.print range1.parent.name

とでも打って実行してみては。

お礼

ありがとうございます。

まだまだヒヨッコですが、
何とかRenge　使えそうかも？　です。

回答No.4

ap_2

オブジェクトがプロパティをサポートしてないとか、そんなエラーだったはず。VBEのエラーはかなり親切なので、ちゃんとチェックしましょうね。。

「オブジェクト . メンバ」は、オブジェクトが提供する機能(メンバ:=プロパティやメソッド)を呼び出します。
.Rangeは、Worksheetオブジェクトのプロパティ。型と同名なので混乱しますが、Rangeプロパティは「Rangeオブジェクト」ではなく、「Rangeオブジェクトを取得する機能」です。
http://msdn.microsoft.com/ja-jp/library/microsoft.office.tools.excel.worksheet_members(v=vs.80).aspx

　Set Range1 = Sheets(Sheet_Name1).Range("A1")
そもそも、等号の左右は同じなので、Range1にシート指定も含まれてます。※Sheet指定省略時はActiveSheet.Rangeとして扱われる。

ということで、ANo.3の指摘通りですよ。

お礼

なるほど！
シート情報がすでに含まれているところに、
別にシートを指定している時点で
ダメダメなのですね。

ところで、
レンジ情報からどのシートなのかは
知り得ないのですか？

回答No.2

K Kazz（@JazzCorp）

CurrentRegionの動作は、理解できないていない上に使ったことがないですが、Sheets(Sheet_Name1)は指定できない？
ActiveSheetがガチの前提ということでは？？

'Option Explicit
Function Range_Scope(Sheet_Name1 As String, Range1 As Range) As Range
'Set Range_Scope = Sheets(Sheet_Name1).UsedRange
'Set Range_Scope = Sheets(Sheet_Name1).CurrentRegion
Set Range_Scope = Range1.CurrentRegion
End Function

Sub xxx()
Set xRange = Range_Scope("Sheet1", Range("a1"))
For Each xCell In xRange
Debug.Print xCell.Value
Next
End Sub

お礼

まずは謝罪します。
お礼が遅れ申し訳ありません。

さて、
幾つか書かれていますが、
どれがどうなのか、
いまいち汲めてません。
どう理解すれば適切でしょうか？

回答No.1

bin-chan

function　Range_Scope（Sheet_Name1 As String, Range1 As String) As Range
set Range_Scope = sheets(Sheet_Name1).Range(Range1).currentregion
end function
じゃないの？

お礼

レンジオブジェクトで受け取れないのですか？

要点としては、
レンジからはシート情報が読み取れない
と、以前聞いた気がするのですが
非参照中のレンジ範囲を
レンジオブジェクトとシート名を受け取って操作したい。
と、言うことなのです。

すでにレンジオブジェクトが取得されているのに
範囲を示す文字列でないと引き渡せないのはないかな？
と、思ったのです。

それとも
レンジオブジェクトは、その指し示す範囲が、
ブック、シートの別も含め、特定されている。
と、言うことでしょうか？

ご指南お願いします。