[[20200812173035]]　『ランダムな足し算の計算結果を、計算結果ごとに10』（ミエ）　ページの最後に飛ぶ

『ランダムな足し算の計算結果を、計算結果ごとに10回保存』（ミエ）

よろしくお願いします。

例えば、rnd()で3つの数字を2種類発生させ値を足し算し、その結果を保存します。
これを、10回繰り返した場合、1～10回のそれぞれの足算結果を保存していく事はできるでしょうか？

(例)

計算式を作り「F9」で再計算していく。

111+222=333
222+333=555
333+444=777
.
.
.
.
.
.
↑それぞれの計算結果を↓の「結果表」に保存していきたい。

結果表
1-333
2-555
3-777
.
.
.
.
.
以上、よろしくお願いします

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 こんばんは　＾＾
こんな感じでせうか。。。＾＾；。。。でわ。m(_ _)m
Option Explicit
Sub OneInstanceMain()
    Dim a As Long
    Dim b As Long
    Dim c As Long
    Dim i As Long
    Dim v() As Variant
    Dim vv() As Variant
    v = Array(111, 222, 333, 444, 555)
    Randomize
    ReDim vv(1 To 10, 1 To 1)
    For i = LBound(vv, 1) To UBound(vv, 1)
        a = v(Int((4 - 0 + 1) * Rnd + 0))
        b = v(Int((3 - 0 + 1) * Rnd + 0))
        c = a + b
        vv(i, 1) = CStr(i) & "-" & CStr(c)
    Next
    With Worksheets("Sheet1")
        .UsedRange.Clear
        .Cells(1).Resize(10, 1) = vv
    End With
    Erase v, vv
End Sub
（隠居じーさん） 2020/08/12(水) 19:28

 こんばんは！
ちょっと私も書いてみました。。。
どうかな？？？

 Option Explicit
Sub kk()
Dim v As Variant
Dim i As Long
Randomize
For i = 0 To 9
    てすと v, i
Next
Range("A1").Resize(UBound(v) + 1).Value = Application.Transpose(v)
Erase v
End Sub
Sub てすと(ByRef v As Variant, ByRef n As Long)
Dim v1  As Double
Dim v2 As Double
Static MyAns() As Variant
v1 = Application.Rept(Int(Rnd() * (10 - 0) + 1), 3)
v2 = Application.Rept(Int(Rnd() * (10 - 0) + 1), 3)
ReDim Preserve MyAns(n)
MyAns(n) = "'" & n + 1 & "-" & v1 + v2
v = MyAns
End Sub
（SoulMan） 2020/08/12(水) 20:19

 こんばんは！
よく読んだら全然ちがいますね？？？？
Sheet1に↓と入力して

 =REPT(INT(RAND()*(10-0)+1),3)
 333	666	1-999　=ROW() & "-"& A1+B1
444	333	2-777
444	222	3-666
444	333	4-777
444	666	5-1110
777	999	6-1776
777	333	7-1110
222	666	8-888
999	111	9-1110
444	444	10-888

 標準モジュールに↓と入力して
F8で　てすと　実行させると
Option Explicit
Sub てすと()
Dim v As Variant
v = Sheets("Sheet1").Range("a1:c10").Value
Sheets("結果").Range("A" & Rows.Count).End(xlUp).Offset(2).Resize(UBound(v, 1), UBound(v, 2)).Value = v
End Sub

 結果シートに↓みたいになりました。。
333	666	1-999
444	333	2-777
444	222	3-666
444	333	4-777
444	666	5-1110
777	999	6-1776
777	333	7-1110
222	666	8-888
999	111	9-1110
444	444	10-888

 222	333	1-555
444	444	2-888
222	444	3-666
999	777	4-1776
101010	999	5-102009
555	555	6-1110
666	101010	7-101676
111	555	8-666
999	101010	9-102009
111	222	10-333
（SoulMan） 2020/08/12(水) 21:50

コメント返信：

[ 一覧(最新更新順) ]

[[20200812173035]] 『ランダムな足し算の計算結果を、計算結果ごとに10』（ミエ） ページの最後に飛ぶ

[[20200812173035]]　『ランダムな足し算の計算結果を、計算結果ごとに10』（ミエ）　ページの最後に飛ぶ