解決済みの質問

質問No.2828743
困ってます
困ってます
お気に入り投稿に追加する (0人が追加しました)
回答数3
閲覧数722
エクセル VBAで検索したセルアドレスを、VBA内の式に組み込む方法
こんにちは。大変お世話になっています。
あるエクセルシートの中から対象セルをfindを使って検索しました。

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

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

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

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

どうぞよろしくお願いします。
投稿日時 - 2007-03-13 10:53:38

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

回答No.1
td.Offset(0, 1).Value = Worksheets("入力").Range("b3").Value
でよいかと。
投稿日時 - 2007-03-13 11:02:59
この回答を支持する
(現在0人が支持しています)

ベストアンサー以外の回答 (2)

回答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 11:25:13
この回答を支持する
(現在0人が支持しています)
お礼
できました!うれしいです。
ありがとうございました。
投稿日時 - 2007-03-13 15:52:48
回答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
が良いと思います。
投稿日時 - 2007-03-13 11:06:12
この回答を支持する
(現在0人が支持しています)
この質問は役に立ちましたか?
1人が「このQ&Aが役に立った」と投票しています
もっと聞いてみる

関連するQ&A

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

同じカテゴリの人気Q&Aランキング

-PR-
-PR-
-PR-

特集

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

お城、ボート、ツリーハウス、ユニークな物件満載!

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

同じカテゴリの人気Q&Aランキング

-PR-

ピックアップ

-PR-