総ありがとう数 累計4,264万(2014年10月2日現在)

毎月4,000万人が利用!Q&Aでみんなで助け合い!

-PR-
  • 困ってます
  • 2007-03-13 10:53:38
  • 質問No.2828743

解決
済み
Q エクセル VBAで検索したセルアドレスを、VBA内の式に組み込む方法

  • 閲覧数731
  • ありがとう数2
  • 気になる数0
  • 回答数3
orennji1111

こんにちは。大変お世話になっています。
あるエクセルシートの中から対象セルをfindを使って検索しました。

Set td = Range("a2:bd35").Find(ymd)

これで出たセル番地 td のひとつ右のセルに,
別のシートからデータを入れたいのですが、どうしてもうまくいきません。

Range(td.Address).Offset(0, 1).Select = Worksheets("入力").Range("b3")

どのようにしたら良いのでしょうか?

どうぞよろしくお願いします。
  • 回答数3
  • 気になる数0

Aみんなの回答(全3件)

質問者が選んだベストアンサー

  • 2007-03-13 11:02:59
  • 回答No.1
td.Offset(0, 1).Value = Worksheets("入力").Range("b3").Value
でよいかと。
  • 同意数0(0-0)
  • ありがとう数0

その他の回答 (全2件)

  • 2007-03-13 11:06:12
  • 回答No.2
Range(td.Address).Offset(0, 1).Value = Worksheets("入力").Range("b3").Value
または
td.Offset(0, 1).Value = Worksheets("入力").Range("b3").Value
ではどうでしょう。

ただし実際にはFindでHitしない可能性もあるので、
If Not td Is Nothng Then
  td.Offset(0, 1).Value = Worksheets("入力").Range("b3").Value
End If
が良いと思います。
通報する
  • 同意数0(0-0)
  • ありがとう数0
  • 2007-03-13 11:25:13
  • 回答No.3
>Range(td.Address).Offset(0, 1).Select

Select したためにエラーになっているのでは?
td もセル情報(Range) ですから、Range(td.Address)とするだけ無駄です。

td.Offset(0, 1) =
td.Offset(0, 1).Value =
などと繋げるだけで良いでしょう。
お礼コメント
できました!うれしいです。
ありがとうございました。
投稿日時 - 2007-03-13 15:52:48
通報する
  • 同意数0(0-0)
  • ありがとう数0
  • 回答数3
  • 気になる数0
  • ありがとう数1
  • ありがとう
  • なるほど、役に立ったなど
    感じた思いを「ありがとう」で
    伝えてください

関連するQ&A

その他の関連するQ&Aをキーワードで探す

別のキーワードで再検索する

あなたの悩みをみんなに解決してもらいましょう

  • 質問する
  • 知りたいこと、悩んでいることを
    投稿してみましょう
-PR-
-PR-
-PR-

特集

試写会に30組60名様をご招待!

親同士が気軽に情報交換できるコミュニティです。

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ