C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

【ExcelVBA】Rangeメソッドのエラー

分類:[Microsoft Office 全般]　

Win10
結合セルの値の取得がしたくて、

For i = 1 to 最終行
If Range("A" & i).MergeArea.Item(1) = "hogehoge" then
…
End If

って感じを使ったんですど
Rangeメソッドのエラーと出ました。
指定セルでやるとうまくいくんですけど、解決策ってありますか？

■No97094 (工場プログラマーさん) に返信
> If Range("A" & i).MergeArea.Item(1) = "hogehoge" then

単に Range("A1") だけで済ませると、曖昧さが出てしまいます。
どのシートの Range を操作しているのかを明確にしましょう。Cells 等も同様です。

たとえば
　If ThisWorkbook.Worksheets("Sheet1").Range("A" & i).MergeArea(1).Value = "hogehoge" Then
などのようにします。

Range("A1") というコードをシートモジュール上に書いた場合には、
Me.Range("A1") の意味となり、そのシート上のセルであることが明確になるのですが、
ThisWorkbook モジュールや標準モジュール上に記述していた場合には、
どのシートを操作しているのかが曖昧になります。

> Rangeメソッドのエラーと出ました。
> 指定セルでやるとうまくいくんですけど、解決策ってありますか？

手元の環境ではエラーを再現させられなかったので、
エラー発生時の i の値と、該当セルを含む結合セルのアドレスを教えてください。

また、正確なメッセージの内容は、
　実行時エラー '1004'「'Range' メソッドは失敗しました: '_Global' オブジェクト」
でしょうか。あるいは
　実行時エラー '1004'「'Range' メソッドは失敗しました: '_Worksheet' オブジェクト」
でしょうか。あるいは
　実行時エラー '1004'「Range クラスの MergeArea メソッドが失敗しました。」
でしょうか。それとも…。

■No97095 (魔界の仮面弁士さん) に返信
> ■No97094 (工場プログラマーさん) に返信
>>If Range("A" & i).MergeArea.Item(1) = "hogehoge" then
>
> 単に Range("A1") だけで済ませると、曖昧さが出てしまいます。
> どのシートの Range を操作しているのかを明確にしましょう。Cells 等も同様です。
>
> たとえば
> 　If ThisWorkbook.Worksheets("Sheet1").Range("A" & i).MergeArea(1).Value = "hogehoge" Then
> などのようにします。

コードの書き忘れがあったみたいでした、Value等…
明確にしてCells使ってみたところうまくいきました。

ありがとうございます。

名前 (*必須)
E-Mail (任意)
Web サイト (任意)
投稿モード	通常モード　　図表モード (ソースコードを貼る場合はこちらを使用)
本文　(質問の場合は、開発環境・使用言語のバージョンなどを最初に書いてください) ■No97096 (工場プログラマーさん) に返信 > ■No97095 (魔界の仮面弁士さん) に返信 >>■No97094 (工場プログラマーさん) に返信 > >>If Range("A" & i).MergeArea.Item(1) = "hogehoge" then >> >>単に Range("A1") だけで済ませると、曖昧さが出てしまいます。 >>どのシートの Range を操作しているのかを明確にしましょう。Cells 等も同様です。 >> >>たとえば >>　If ThisWorkbook.Worksheets("Sheet1").Range("A" & i).MergeArea(1).Value = "hogehoge" Then >>などのようにします。 > > コードの書き忘れがあったみたいでした、Value等… > 明確にしてCells使ってみたところうまくいきました。 > > ありがとうございます。 >
編集キー	自分の投稿を編集する時に必要です (半角8文字以内)
解決済み /解決したらチェックしておきましょう。
プレビュー/