エクセルVBAからグーグルGASへの変換

Question

前提・実現したいこと

エクセルにて使っていたマクロをグーグルスプレッドシートに変換の際にエラーが出ていてわかりません。

エクセルVBA

Sub 毎月１０P増える_Click()

Dim r As Integer
r = Range("J4").Value

   Range("J4：J19").Value = Evaluate("J4:J19+10")

End Sub

こちらで範囲に１０を足していました。

グーグルGAS
function myFunction() {
var r
r = Range("J4").getValues()
Range("J4：J19").getValues() = Evaluate("J4:J19+10")
}

エクセルでのマクロ以外触ったことがなく一日調べながら自分なりに書き直したのですが一向に治りません。

どなたかご助言いただけますと幸いです

Comments

[papinianus]

J4 は何の値ですか?

Answer 1

function myFunction() {
  var sht = SpreadsheetApp.getActiveSheet();
  var vs=sht.getRange("J4:J19").getValues();
  for (var i = 0 ;i<16;i++) {
    vs[i][0] += 5;
  }
  sht.getRange("J4:J19").setValues(vs);
}

足すだけなら、このようにそのまま書けばいいんじゃないですか。

Evaluateみたいに一括計算したければ、forの代わりに

function myFunction() {
  var sht = SpreadsheetApp.getActiveSheet();
  sht.getRange("J4:J19").setValues(sht.getRange("J4:J19").getValues().map(x =>x.map(y=>y+5)));
}

とか書くくらいでしょうか。まぁ。ループと同じですね。

とりあえず、私の知ってる範囲で回答しました。
一括で計算する関数が準備されているかどうかは知らないです。