なんかいい関数が見当たらないので、標準モジュールに以下打ち込んで使う Function oVal(aArg) aArg = Replace(aArg, ",", "") oVal = Val(aArg) End Function