エクセル関数の入力 (ID:147596)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 魔界の仮面弁士さん いつも有難う御座います。 ご教示頂いた３つの内容を対応すると 以下のような感じになりますでしょうか。 Dim xlCells As Excel.Range = oSheet.Cells Dim xlRange As Excel.Range With oSheet xlRange = DirectCast(xlCells(7, 18), Excel.Range) xlRange.Formula = "=IF('1'!R7="""","""",'1'!R7)" MRComObject(xlRange1) xlRange = DirectCast(xlCells(7, 20), Excel.Range) xlRange.Formula = "=IF('1'!R8="""","""",'1'!R8)" MRComObject(xlRange1) …… MRComObject(xlCells) End With