1

実行後に各セルに数式が表示されますが、数式を非表示にすることはできますか?

VBA コード:

Set rngCell = wbk.Worksheets("TEST1").Range("C1")

  For i = 1 To 81
    rngCell.Offset(i, 0).Value = "=round((COUNTIF('T2'!C[7],RC[-2])/60),2)"
    rngCell.Offset(i, 1).Value = "=round((COUNTIF('T3'!C[6],RC[-3])/60),2)"
    rngCell.Offset(i, 2).Value = "=round((COUNTIF('T4'!C[5],RC[-4])/60),2)"
    rngCell.Offset(i, 3).Value = "=round((COUNTIF('T5'!C[4],RC[-5])/60),2)"
  Next
4

1 に答える 1

2

これを行う方法はたくさんありますが、おそらくループの後にこれを追加するのが最も簡単です:

wbk.Worksheets("TEST1").Range("C2:F82").Value =  wbk.Worksheets("TEST1").Range("C2:F82").Value

また

wbk.Worksheets("TEST1").Range("C2:F" & i).Value =  wbk.Worksheets("TEST1").Range("C2:F" i).Value

...セル参照が正しいといいのですが...

于 2012-11-20T14:41:12.583 に答える