簡易数式設定 

簡単に数式を仕込む version1.0

ホットキーに割り当てると使いやすい。
選択セル数とインデックス数が嚙み合わないとエラーが起きる。
見栄えが悪いから抵触時はポップアップを出すようにしている。
用途に応じて中身を書き換えて利用するのがよい。

'簡易数式設定
Sub setFormula()
    selectCells = Split(Selection.Address(RowAbsolute:=False, ColumnAbsolute:=False), ",")
On Error GoTo ErrHndl
    Debug.Print selectCells(1)
    
    Range(selectCells(0)) = "比較結果"
    Range(selectCells(0)).Font.Bold = True
    Range(selectCells(0)).Interior.Color = 13431551
    Range(selectCells(0)).Font.Color = RGB(255, 0, 0)
    
    Range(selectCells(1)) = "=EXACT(" & selectCells(2) & "," & selectCells(3) & ")"
    Exit Sub
ErrHndl:
MsgBox "セルを4つ選択してから実行してください。"
End Sub
Sub a()
    Debug.Print Selection.Interior.Color
End Sub


コメント