| |
▼トキノハジメ さん：
>B1の答えがI1で、C１画の答えがJ1に、以下同じで表の中の1・2・3・4・5・6の答えが右側にI,J,K,L,M,N に出しているのを、A2,A3,A4,A5,A6,A7 と縦に出したいのです。
>表の中の １の答えはA2の1のところで、２の答えはA3の２、のところで、以下同じで表の上三角の計算結果を、下の三角の同じ数字のところに答えをだしたいのです
では、A列だけ 順にR1C1形式で参照式を書いてみましょう。
[A2] Cells(2, 1) = 80 / R1C2
[A3] Cells(3, 1) = 80 / R1C3
[A4] Cells(4, 1) = 80 / R1C4
[A5] Cells(5, 1) = 80 / R1C5
[A6] Cells(6, 1) = 80 / R1C6
[A7] Cells(7, 1) = 80 / R1C7
まとめると、
Cells(n, "A").FormulaR1C1 = "=80/R1Cn"
です。 この R1Cn をExcelが解る書式に直してやります。関節参照です。
Sub Try3()
[A2:A7].FormulaR1C1 = "=80/(indirect(""R1C""&ROW(),0))"
End Sub
|
|
kanabun
- 14/10/4(土) 22:23 -
