[[20210715164312]]　『実行時エラー 1004 rangeメソッドは失敗しました』（タム）　ページの最後に飛ぶ

『実行時エラー 1004 rangeメソッドは失敗しました globalオブジェクト』（タム）

連想配列を使用して、セルアドレスを格納使用としたのですが、
標記のエラーがでてしまいました。

大変申し訳ございませが対処の方法をご教示お願いします。

エラー箇所

 myDic.Add Range(sh.Cells(First_Row, i)).Value, Range(sh.Cells(Lost_Row, i)).Value

コード
Dim First_Row As Long
Dim Lost_Row As Long

Set sh = Sheets("data")

Dim myDic As Object
Set myDic = CreateObject("Scripting.Dictionary")

For i = 4 To EndCol

        myDic.Add Range(sh.Cells(First_Row, i)).Value, Range(sh.Cells(Lost_Row, i)).Value

Next i

＜使用 Excel：Office365、使用 OS：Windows10 ＞

EndCol とは何ぞや
（a） 2021/07/15(木) 16:51

失礼しました。

'グラフ作成に必要な最終列を取得
EndCol = sh.Cells(2, Columns.Count).End(xlToLeft).Column

（タム） 2021/07/15(木) 16:58

エラー時、First_Row の値はどうなっていますか？
（tkit） 2021/07/15(木) 17:02

エラー時、First_Row の値はどうなっていますか？

　↑

すみません、確認方法を教えていただけますでしょうか。
（タム） 2021/07/15(木) 17:05

 >Range(sh.Cells(First_Row, i)).Value
 これは、実行時エラーにならないとなる場合の両方があります。

 エラーにならない場合：　sh.Cells(First_Row, i) のセルの値がセルアドレスを表す文字列の場合
 エラーに成場合　　　：　上記以外の場合

 sh.Cells(First_Row, i)のセルの値を調べみてください。
（´・ω・`） 2021/07/15(木) 17:06

（´・ω・`）様
ありがとうございました。

セルの値を確認したところ、アドレスではなく、値が代入されておりました。
（タム） 2021/07/15(木) 17:09

 >値が代入されておりました。
 では、エラーになって当然です。
 何がしたいのか、どういう動作を意図してしているかを書いてないので、
 どう直せばいいのかもこちらではわかりません。
（´・ω・`） 2021/07/15(木) 17:18

以下を実行して可視化セルの先頭行と最終行を一列づつ取得して、連想配列に先頭行と最終行を入れていきたいです。

With sh

    If Not .AutoFilterMode Then Exit Sub
    With Intersect(.AutoFilter.Range.Resize(.AutoFilter.Range.Rows.Count - 1).Offset(1), .Columns("B")).SpecialCells(xlCellTypeVisible)
        First_Row = .Areas(1).Row
        Lost_Row = .Areas(.Areas.Count).Rows(.Areas(.Areas.Count).Rows.Count).Row
    End With
End With

（タム） 2021/07/15(木) 17:44

 >連想配列に先頭行と最終行を入れていきたいです。
 の何を入れるんですか？
 セルの値？　行番号？ アドレスの文字列？ Rangeオブジェクト？

 他のスレッドでも質問してるようですが、部分部分で解決しても全体はおそらく解決しないです。
 たぶん、いいやり方もっと他にあります
（´・ω・`） 2021/07/15(木) 18:07

（´・ω・`）
ありがとうございます。
もう一度見直してみます。
（タム） 2021/07/15(木) 19:13

コメント返信：

[ 一覧(最新更新順) ]

[[20210715164312]] 『実行時エラー 1004 rangeメソッドは失敗しました 』（タム） ページの最後に飛ぶ

[[20210715164312]]　『実行時エラー 1004 rangeメソッドは失敗しました』（タム）　ページの最後に飛ぶ