Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3652 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【60924】EXCEL 初心者 09/3/25(水) 10:37 質問[未読]
【60925】Re:EXCEL つん 09/3/25(水) 10:49 回答[未読]
【60927】Re:EXCEL 初心者 09/3/25(水) 10:59 お礼[未読]
【60924】EXCEL
質問  初心者  - 09/3/25(水) 10:37 -
引用なし
パスワード
   お疲れ様です。
初心者です。

今、EXCELのセルを可変で取ってこようと考えているのですがうまくいきません。

RANGEを取得できないという旨のエラーが発生します。

どなたかいい方法をご存知の方はいらっしゃいますか？

よろしくお願いします。

■ソース
Public Function makeGraph()
　　Dim a As Double
　　For i = 1 To 8760
　　　　For j = 1 To 24
　　　　　　For k = 1 To 31
　　　　　　　　Sheets("負荷").Select
　　　　　　　　a = Range("B " & "4 + j").value * Range("F " & "4 _
　　　　　　　　+　k ").value * Range("H" & "4 + k").value
　　　　　　　　Sheets("負荷分布").Select
　　　　　　　　Range("B & i").value = a
　　　　　　Next
　　　　Next
　　Next
End Function
【60925】Re:EXCEL
回答  つん  - 09/3/25(水) 10:49 -
引用なし
パスワード
   ▼初心者 さん
おはようございます＾＾

Rangeで変数使って書くなら

　　Dim i As Long
　　
　　i = 2
　　
　　MsgBox Range("B" & 4 + i).Value

こんな感じです。

＞Range("B " & "4 + j")

変数を「””」で囲んだり、"B "　で、余計な空白があったりするから、
エラーになるんだと思います。
【60927】Re:EXCEL
お礼  初心者  - 09/3/25(水) 10:59 -
引用なし
パスワード
   早速の返信ありがとうございます。

おかげでうまくいきました。

ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3652 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free