2017-11-03 VBA プロシージャ Fnuction VBA VBA スタンダード 資格 VBA 書籍 Sub Sampletax() Dim i As Long For i = 2 To 7 Cells(i, 2).Value = Tax(Cells(i, 1).Value) NextEnd Sub '下で定義したFunction Taxを上のSubプロシージャで呼び出す Function Tax(Num As Long) As Long Tax = Num * 1.08End Function