1

RExcelを介してVBAでR関数を使用する場合は、次を使用する必要があります。

RInterface.RRun "..."

次に、独自のR関数を定義したい場合は、単純に次のことができます。

RInterface.RRun "y <- function(x) { ... }"

yが複数のコマンドラインで構成されている場合は;、R環境で行うのと同じように、各行をで区切ることができます。

しかし...あなたのy関数が非常に長い場合はどうなりますか？

20〜30行のR関数をVBAでこのように記述するのは非常に困難です。また、VBA文の長さには制限があります。

だから：どのようにラップできますか？

非常に長いR関数の例を次に示します。RExcelを使用してVBAを挿入する方法を教えてください。

bestIV <- function(dT, IVTS.t, Spot, r) {
  b <- r
  xout <- seq(0, max(T), dT)
  sfm <- matrix(NA, nrow = length(K), ncol = length(xout))
  for(i in 1:length(K)) {
    sfm[i,] <- approx(x = T, y = IVTS.t[i,], xout = xout, rule = 2)$y
  }
  sfm[,1] <- sfm[,1] + sfm[,2] - sfm[,3]
  rownames(sfm) <- K
  colnames(sfm) <- xout
  Option <- matrix(NA, nrow = length(K), ncol = length(xout))
  for(i in 1:length(K)) {
    for(j in 1:length(xout)) {
      TypeFlag <- ifelse(K[i] < Spot, 'p', 'c')
      Option[i,j] <- GBSOption(TypeFlag = TypeFlag, S = Spot, X = K[i], 
                               Time = xout[j] / 365, r = r, b = b, 
                               sigma = sfm[i,j] / 100)@price
    }
  }
  rownames(Option) <- K
  colnames(Option) <- xout
  dP <- (cbind(0, -t(apply(X = Option, MARGIN = 1, FUN = diff))) / Option)[,-(1:2)]
  dV <- dP / dT
  min.V <- which(dV == min(dV), arr.ind = TRUE, useNames = TRUE)
  Strike <- as.numeric(dimnames(min.V)[1])
  Maturity <- as.numeric(unlist(dimnames(dV)[2]))[min.V[2]]
  Days <- dT
  Mat <- c(dV[which(dV == min(dV))], Strike, Maturity, Days)
  names(Mat) <- c('Value', 'Strike', 'Maturity', 'Days')
  return(Mat)
}

ありがとう、

4

2 に答える 2

2

R コードをスプレッドシート (セルの範囲内) に配置し、代わりに次の関数を使用します。

RInterface.RunRCodeFromRange 範囲

ワークシートの範囲内のコマンドを実行します (マクロ コードで実行される R との対話型実行用に準備されたコマンドを使用できます)

于 2012-09-13T21:50:11.363 に答える
1

文字列を引数として VBA 関数に渡しています。したがって、あなたの質問は「VBAで文字列を連結するにはどうすればよいですか」になります。

&答えは、次のように連結演算子を使用することです。

"a" & "b"

R 関数があるとします。

y <- function(x, a, b){
  return(x)
}

次に、VBA でこれを行うことができます。

RInterface.RRun "y <- function(x, a, b) {" &
  "return(x)" &
  "}"
于 2012-09-13T14:41:27.010 に答える