-PR-
  • 困ってます
  • 質問No.2828743
解決
済み

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

  • 閲覧数926
  • ありがとう数2
  • 気になる数0
  • 回答数3
  • コメント数0

お礼率 31% (69/218)

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

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

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

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

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

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

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

  • 回答No.1
レベル13

ベストアンサー率 55% (658/1196)

td.Offset(0, 1).Value = Worksheets("入力").Range("b3").Value
でよいかと。
  • ありがとう数0
-PR-
-PR-

その他の回答 (全2件)

  • 回答No.2
レベル14

ベストアンサー率 44% (1383/3079)

Range(td.Address).Offset(0, 1).Value = Worksheets("入力").Range("b3").Value または td.Offset(0, 1).Value = Worksheets("入力").Range("b3").Value ではどうでしょう。 ただし実際にはFind ...続きを読む
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
  • 回答No.3
レベル14

ベストアンサー率 31% (4939/15540)

>Range(td.Address).Offset(0, 1).Select Select したためにエラーになっているのでは? td もセル情報(Range) ですから、Range(td.Address)とするだけ無駄です。 td.Offset(0, 1) = td.Offset(0, 1).Value = などと繋げるだけで良いでしょう。 ...続きを読む
>Range(td.Address).Offset(0, 1).Select

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

td.Offset(0, 1) =
td.Offset(0, 1).Value =
などと繋げるだけで良いでしょう。
お礼コメント
orennji1111

お礼率 31% (69/218)

できました!うれしいです。
ありがとうございました。
投稿日時 - 2007-03-13 15:52:48
  • ありがとう数0
  • 回答数3
  • 気になる数0
このQ&Aで解決しましたか?

関連するQ&A

-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

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

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ