Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6212 / 76734 ←次へ | 前へ→

【76124】Re:階段状の連続計算
発言  kanabun  - 14/10/2(木) 14:56 -

引用なし
パスワード
   ▼トキノハジメ さん:

ループで数式入れてくのならできますけど?

最初のほうは、1セルずつ式を書き出してみると
'  [A9].FormulaR1C1 = "=SUM(R2C:R[-2]C)"
'  [B9].FormulaR1C1 = "=SUM(R3C:R[-2]C)"
'  [C9].FormulaR1C1 = "=SUM(R4C:R[-2]C)"
'  [D9].FormulaR1C1 = "=SUM(R5C:R[-2]C)"
'  [E9].FormulaR1C1 = "=SUM(R6C:R[-2]C)"
'  [F9].FormulaR1C1 = "=SUM(R7C:R[-2]C)"
だから、
ループで書き出すのなら、
Sub Try1()
 Dim i&
  For i = 1 To 6
   Cells(9, i).FormulaR1C1 = "=SUM(R" & (i + 1) & "C:R[-2]C"
  Next
End Sub


いっぽう
>(I1:O1).Formura=(80/B1)
>(I2:N2).Formura=(80/C2)
>(I3:L3).Formura=(80/D3)
>・・・
>・・・
>G6まで
のほうは、(7セルでなく 6セルだと思う)

'  [I1:N1].FormulaR1C1 = "=80/RC[-7]"
'  [I2:M2].FormulaR1C1 = "=80/RC[-6]"

だから

Sub Try2()
 Dim i&
  For i = 1 To 6
   Cells(i, "I").Resize(, 7 - i).FormulaR1C1 = "=80/RC[-" & 8 - i & "]"
  Next
End Sub

数式に強い人なら、R1C1式の中に関数式を入れ子にして一行で書けるのかも
知れないけれど?

2 hits

【76116】階段状の連続計算 トキノハジメ 14/9/29(月) 10:12 質問
【76117】Re:階段状の連続計算 独覚 14/9/29(月) 14:23 発言
【76118】Re:階段状の連続計算 トキノハジメ 14/9/29(月) 14:39 質問
【76119】Re:階段状の連続計算 トキノハジメ 14/9/29(月) 14:48 質問
【76121】Re:階段状の連続計算 ど素人 14/9/30(火) 16:40 発言
【76123】Re:階段状の連続計算 トキノハジメ 14/10/2(木) 10:39 お礼
【76124】Re:階段状の連続計算 kanabun 14/10/2(木) 14:56 発言
【76129】Re:階段状の連続計算 kanabun 14/10/2(木) 23:51 発言
【76145】Re:階段状の連続計算 トキノハジメ 14/10/4(土) 17:09 質問
【76146】Re:階段状の連続計算 kanabun 14/10/4(土) 19:50 質問
【76147】Re:階段状の連続計算 トキノハジメ 14/10/4(土) 21:47 質問
【76148】Re:階段状の連続計算 kanabun 14/10/4(土) 22:23 発言
【76149】Re:階段状の連続計算 kanabun 14/10/4(土) 22:25 発言
【76151】Re:階段状の連続計算 kanabun 14/10/4(土) 22:48 発言
【76152】Re:階段状の連続計算 トキノハジメ 14/10/4(土) 23:25 お礼

6212 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free