|
▼との さん:
おはようございます!
>Activesheet.range("J"&i) に =IF(ISERROR(VLOOKUP(C9,[実績.xls]実績結合!D$6:H$65535,5,FALSE)),"0",VLOOKUP(C9,[実績.xls]実績結合!D$6:H$65535,5,FALSE))
>
>を代入したいのですが、""で囲んでもうまくいきません。
>どうすればよろしいでしょうか?
VBA構文でセルに「"」を代入させたい場合、「""」とするかchr(34)を
記述すれば大丈夫です。
ActiveSheet.Range("J" & i) = _
"=IF(ISERROR(VLOOKUP(C9,[実績.xls]実績結合!D$6:H$65535,5,FALSE)),""0"",VLOOKUP(C9,[実績.xls]実績結合!D$6:H$65535,5,FALSE))"
か、
ActiveSheet.Range("J" & i) = _
"=IF(ISERROR(VLOOKUP(C9,[実績.xls]実績結合!D$6:H$65535,5,FALSE))," & Chr(34) _
& "0" & Chr(34) & ",VLOOKUP(C9,[実績.xls]実績結合!D$6:H$65535,5,FALSE))"
ですね。
|
|