2010-08-20から1日間の記事一覧
http://q.hatena.ne.jp/1282264337 この質問のコメントで書いた再帰を使った方法を考えてみる。 Sub test() Debug.Print myEval(Range("A2"), Range("B2"), Range("C2"), Worksheets("Sheet2").Range("B1")) End Sub Function myEval(rA As Range, rB As Ran…
http://q.hatena.ne.jp/1282264337 この質問のコメントで書いた再帰を使った方法を考えてみる。 Sub test() Debug.Print myEval(Range("A2"), Range("B2"), Range("C2"), Worksheets("Sheet2").Range("B1")) End Sub Function myEval(rA As Range, rB As Ran…