takayukisの日記 このページをアンテナに追加 RSSフィード

2018.04.26(木)

[]差の式を入力

セルの左2列の差を求める式をセルに設定します。

Sub 差の式を入力()
    Dim 範囲 As Range
    Set 範囲 = Selection
    Dim1 As Range
    Set1 = 範囲.Offset(0, -1)
    Dim2 As Range
    Set2 = 範囲.Offset(0, -2)
    範囲.Formula = "=" &1.Address(RowAbsolute:=False, ColumnAbsolute:=False, ReferenceStyle:=xlA1) & "-" &2.Address(RowAbsolute:=False, ColumnAbsolute:=False, ReferenceStyle:=xlA1)
End Sub

はてなユーザーのみコメントできます。はてなへログインもしくは新規登録をおこなってください。

トラックバック - http://d.hatena.ne.jp/takayukis/20180426/1524751311