計算した内容が他のセルに適用されない

税抜き価格を表示したいです。

起点のセルを計算してオートフィルしてもそれぞれの日にちに合わせて出力してくれません。

起点セル値がコピーされるのみです。

どこに原因があるかご指摘いただけますと幸いです。

Sub Uriage

    Range("B11").Select
    ActiveCell = Range("B10").Value / 1.1
    Range("B11").AutoFill Destination:=Range("B11:AF11")
    
End Sub

行動規範の内容に同意します

回答2件

他の回答者も言われてる通り、数式を設定します。
Selectする必要はないので、下記の2行でOKです。

vba
1Sub Uriage
2
3    Range("B11").Formula = "=B10/1.1"
4    Range("B11").AutoFill Destination:=Range("B11:AF11")
5
6End Sub

下記の1行でも同じ結果になります。

vba
1Sub Uriage
2
3    Range("B11:AF11").Formula = "=B10/1.1"
4
5End Sub

投稿2021/12/06 07:12

hatena19

総合スコア33731

ベストアンサー

多分以下のようなことかと思います。

VBA
1ActiveCell = Range("B10").Value / 1.1 
2    '288767という数字が入る（Range("B10").Value / 1.1 の計算結果のみが入力される）
3    'これをフィルしても、288767が複製されるだけ
4
5ActiveCell.Formula = "=" & Range("B10").Address(False,False) & " / 1.1"
6    '=B10/1.1という数式が入る
7    'これをフィルすればいい感じになる

投稿2021/12/06 06:14