Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1055 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【76694】アクティブセルの値を読みこんで指定先のセルにコピー さとちぃ 15/2/27(金) 14:19 質問[未読]
【76696】Re:アクティブセルの値を読みこんで指定先... さとちぃ 15/2/27(金) 14:27 質問[未読]
【76697】Re:アクティブセルの値を読みこんで指定先... β 15/2/27(金) 14:40 発言[未読]
【76694】アクティブセルの値を読みこんで指定先の...
質問  さとちぃ  - 15/2/27(金) 14:19 -
引用なし
パスワード
   すみません、基本的なご質問かもしれませんが、どうしてもわからず
こちらの方に投稿させていただきました。

アクティブセルの値を読み込み、コピー先を指定して値を貼り付けたいと思います。

Sub　アクティブセルの値を読みこんでコピー()
Dim d As String
d = ActiveCell.Value

Range("D8:D1200").ActiveCell.Select

Selection.Copy
Range("B3").Select
ActiveSheet.Paste

End Sub

アクティブセルの値の選択について、やり方が分からず困っております。
教えていただけませんでしょうか？
【76696】Re:アクティブセルの値を読みこんで指定...
質問  さとちぃ  - 15/2/27(金) 14:27 -
引用なし
パスワード
   すみません、先ほどの質問に合わせ、以下の件もご質問したく存じます。

アクティブセル及びアクティブセルから右に10個目のセルの値を読み込み、それぞれB3、B4のセルにコピーする。

アクティブセルの値をうまく読み込めず、おそらくはオフセットを使用して設定する
と思うのですが、うまくいきません。

こちらも教えていただけますでしょうか？
【76697】Re:アクティブセルの値を読みこんで指定...
発言  β  - 15/2/27(金) 14:40 -
引用なし
パスワード
   ▼さとちぃ さん：

こんにちは
以下を参考にしてください。
（セルの指定方法は、ほかにもさまざまあります）

Sub Test()
　　'コピペなら
　　ActiveCell.Copy Range("B3")
　　'値の転記のみでよければ
　　Range("B3").Value = ActiveCell.Value
　　
　　'アクティブセルの同一行の右に１０離れたセルを
　　'コピペなら
　　ActiveCell.Offset(, 10).Copy Range("B4")
　　'値の転記のみでよければ
　　Range("B4").Value = ActiveCell.Offset(, 10).Value
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1055 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free