Range(\u0026quot;A1\u0026quot;)=
WorksheetFunction.ROUNDDOWN(YEARFRAC($H$5,$C$2,1),0)\u0026amp;\u0026quot;年\u0026quot;\u0026amp;WorksheetFunction.IF(YEARFRAC($H$5,$C$2,1)\u0026lt;=7,6\u0026amp;\u0026quot;ヶ月\u0026quot;,)
↓
Range(\u0026quot;A1\u0026quot;) = [ROUNDDOWN(YEARFRAC($H$5,$C$2,1),0)] \u0026amp; \u0026quot;年\u0026quot; \u0026amp; IIF(([YEARFRAC($H$5,$C$2,1))] Mod 1) \u0026gt;= 0.5 ,\u0026quot;6ヵ月\u0026quot;,\u0026quot;\u0026quot;)
IF関数やrounddown関数内のworksheet関数にWorksheetfunctionがついてない
worksheetfunctionの関数の引数の参照がRangeオブジェクトになっていません
IF関数をIIF関数に
その他のworksheet関数をEvalute関数に置き換えました
※[~]はWvalute関数を使う際の短縮記法です
動作試験まではしていません