Excel VBA質問箱 IV

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

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


18 / 13057 ツリー ←次へ | 前へ→

【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 を選択してそのまま3行目の最終データ入力セルまでオートフィルをかけたいのですが、どなたか良い方法をアドバイスお願い致します。

【79453】Re:列方向のオートフィル
発言  マナ  - 17/10/23(月) 21:50 -

引用なし
パスワード
   ▼HNKYOTO さん:

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

何が問題なのですか?

【79454】Re:列方向のオートフィル
発言  HNKYOTO E-MAIL  - 17/10/23(月) 22:24 -

引用なし
パスワード
   普通にC列の始点と終点を指定してオートフィルを掛けるとB列の選択数値を変更してC列に別の数式を入力して同じようにオートフィルを掛けた場合、C列の全ての計算式が書き換わってしまいます。

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

これをB列の1,2,3それぞれの選択時にC列に3種類の計算式を入力したいです。

【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))

行けました!
ありがとうございました。

18 / 13057 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free