タイトル : Re: 引数の数を変動できる関数を作る方法について教えてください 投稿日 : 2008/03/24(Mon) 22:39 投稿者 : 戸豚
以下のような書き方でいけると思います。 そのままではSumマクロと同じにはならないので使用目的に会わせて工夫してください。 Function getSumCells(Rows As Long,Cols As Long,Cnts As Long) ' Rows:足し算始めるセルの行位置 ' Cols:足し算始めるセルの桁位置 ' Cnts:セルの数 Dim X As Long getSumCells=0 For X=0 To Cnts - 1 getSumCells = getSumCells + Cells(Rows,Cols + X) Next End Function 間抜けな方法として Cells(1,1)にマクロを書き込むというのも… Sub setFormuraSumMacro(Rows As Long, Cols As Long, Cnts As Long) Dim s As String s = "=Sum( R" & Rows & "C" & Cols & ":R" & Rows & "C" & Cols + Cnts - 1 & ")" Cells(1,1).FormulaR1C1 = s End Sub |