Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
609 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【79451】列方向のオートフィル HNKYOTO 17/10/23(月) 21:32 質問[未読]
【79453】Re:列方向のオートフィル マナ 17/10/23(月) 21:50 発言[未読]
【79454】Re:列方向のオートフィル HNKYOTO 17/10/23(月) 22:24 発言[未読]
【79455】Re:列方向のオートフィル HNKYOTO 17/10/23(月) 22:31 発言[未読]
【79458】Re:列方向のオートフィル マナ 17/10/23(月) 23:16 発言[未読]
【79460】Re:列方向のオートフィル HNKYOTO 17/10/24(火) 8:57 お礼[未読]
【79456】Re:列方向のオートフィル マナ 17/10/23(月) 22:35 発言[未読]
【79451】列方向のオートフィル
質問  HNKYOTO E-MAIL  - 17/10/23(月) 21:32 -
引用なし
パスワード
   　　 A　　　 B　　　C　　　D　　.....
1　=B1+C1　=C1+D1
2　=B1-C1　=C1-D1　
3　　OK　　　NG　　OK　　 NG　　.....
4
5
.
.
.

上記の様なデータがあり、A1:B2 を選択してそのまま３行目の最終データ入力セルまでオートフィルをかけたいのですが、どなたか良い方法をアドバイスお願い致します。
【79453】Re:列方向のオートフィル
発言  マナ  - 17/10/23(月) 21:50 -
引用なし
パスワード
   ▼HNKYOTO さん：

>上記の様なデータがあり、A1:B2 を選択してそのまま３行目の最終データ入力セルまでオートフィルをかけたいのですが、どなたか良い方法をアドバイスお願い致します。

何が問題なのですか？
【79454】Re:列方向のオートフィル
発言  HNKYOTO E-MAIL  - 17/10/23(月) 22:24 -
引用なし
パスワード
   普通にＣ列の始点と終点を指定してオートフィルを掛けるとＢ列の選択数値を変更してＣ列に別の数式を入力して同じようにオートフィルを掛けた場合、Ｃ列の全ての計算式が書き換わってしまいます。

Range("C1").AutoFill Destination:=Range("C1:C" & Range("A5000").End(xlUp).Row)

これをＢ列の１，２，３それぞれの選択時にＣ列に３種類の計算式を入力したいです。
【79455】Re:列方向のオートフィル
発言  HNKYOTO E-MAIL  - 17/10/23(月) 22:31 -
引用なし
パスワード
   すいません。
回答を間違えました。

これも
Range("A1:B2").AutoFill Destination:=Range(("A3"), Range("A3").End(xlToRight)).Offset(1)

でやろうとしたのですが、うまくいきませんでした。
まだまだ初心者です。
アドバイスをお願い致します。
【79456】Re:列方向のオートフィル
発言  マナ  - 17/10/23(月) 22:35 -
引用なし
パスワード
   ▼HNKYOTO さん：

落ち着いて説明してください。
全く理解できません。

最初の質問では、こういうことかと思いましたが…
違いますか。
オートフィルは使っていません。

Sub test()
　　Dim r As Range
'
　　Set r = Range("A3", Range("A3").End(xlToRight))
　　
　　r.Offset(-2).Formula = "=B1+C1"
　　r.Offset(-1).Formula = "=B1-C1"
　　　　　　　
End Sub
【79458】Re:列方向のオートフィル
発言  マナ  - 17/10/23(月) 23:16 -
引用なし
パスワード
   ▼HNKYOTO さん：
>すいません。
>回答を間違えました。


了解です


>Range("A1:B2").AutoFill Destination:=Range(("A3"), Range("A3").End(xlToRight)).Offset(1)
>


最初からコードを提示していただけたら
誤解なく、ピンポイントで回答できます。

こうでしょうか。

Range("A1:A2").AutoFill Destination:=Range("A1", Range("A3").End(xlToRight).Offset(-1))
【79460】Re:列方向のオートフィル
お礼  HNKYOTO E-MAIL  - 17/10/24(火) 8:57 -
引用なし
パスワード
   Range("A1:A2").AutoFill Destination:=Range("A1", Range("A3").End(xlToRight).Offset(-1))

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