掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
エクセル関数の入力 (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
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.