Excel VBA質問箱 IV

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

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


6186 / 76735 ←次へ | 前へ→

【76151】Re:階段状の連続計算
発言  kanabun  - 14/10/4(土) 22:48 -

引用なし
パスワード
   つづいて?

B列は
Cells(3, 2) = 80 / R2C3
Cells(4, 2) = 80 / R2C4
Cells(5, 2) = 80 / R2C5
Cells(6, 2) = 80 / R2C6
Cells(7, 2) = 80 / R2C7

まとめると
Sub Try3b()
  [B3:B7].FormulaR1C1 = "=80/(indirect(""R2C""&ROW(),))"
End Sub

'C列は
' Cells(4, 3) = 80 / R3C4
' Cells(5, 3) = 80 / R3C5
' Cells(6, 3) = 80 / R3C6
' Cells(7, 3) = 80 / R3C7

'まとめると
Sub Try3c()
  [C4:C7].FormulaR1C1 = "=80/(indirect(""R3C""&ROW(),))"
End Sub

'D列は
' Cells(5, 4) = 80 / R4C5
' Cells(6, 4) = 80 / R4C6
' Cells(7, 4) = 80 / R4C7

'まとめると
Sub Try3d()
  [D5:C7].FormulaR1C1 = "=80/(indirect(""R""&COLUMN()&""C""&ROW(),))"
End Sub


'E列は
' Cells(6, 5) = 80 / R5C6
' Cells(7, 5) = 80 / R5C7

'まとめると
Sub Try3e()
  [E6:E7].FormulaR1C1 = "=80/(indirect(""R""&COLUMN()&""C""&ROW(),))"
End Sub


'F列は
' Cells(7, 6) = 80 / R6C7
Sub Try3f()
  [F7].FormulaR1C1 = "=80/(indirect(""R""&COLUMN()&""C""&ROW(),))"
End Sub


'以上Loopで表すと
Sub Try33()
  Dim c&, r&
  For c = 1 To 6
    r = c + 1
    Cells(r, c).Resize(7 - c).FormulaR1C1 = _
      "=80/(indirect(""R""&COLUMN()&""C""&ROW(),))"
  Next
End Sub

0 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 お礼

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