Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

3904 / 76734

←次へ　｜　前へ→


	【78459】Re:数字の出てくる確率を変更したいのですが・・・

m - 16/9/24(土) 23:32 -


	引用なし

	パスワード

γ さん

一番大切な系列がループするという条件を書き忘れていて、
本当に申し訳ありませんでした。
伝えないといけないことがたくさんあり、何を伝えたか、伝えられていないかきちんと把握できておらず、軽くパニックになってしまっていました。

ちなみになのですが、
一応以下のようなプログラムを組んでみていました。

ですが、A系列のみ、B系列のみの刺激提示しかできず、
ここで止まってしまっていました。

また、今動かしてみたところ、
どちらも途中で数字が止まってしまっていたので、
どこか間違えているところがあるのかもしれません。

本当にたくさんご足労をおかけしました。
いろいろと丁寧に対応していただき、本当にありがとうございました！

Sub 配列A()

Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer

For i = 1 To 2

j = Int(((4 - 1 + 1) * Rnd) + 1)

If i = 2 Then

Do While Cells(i - 1, 1).Value = j
j = Int(((4 - 1 + 1) * Rnd) + 1)
Loop

End If
Cells(i, 1).Value = j

Next i

For n = 3 To 24

If (Cells(n - 2, 1).Value = 3) And (Cells(n - 1, 1).Value = 2) Then
Cells(n, 1).Value = 4
End If

If (Cells(n - 2, 1).Value = 3) And (Cells(n - 1, 1).Value = 4) Then
Cells(n, 1).Value = 2
End If

If (Cells(n - 2, 1).Value = 4) And (Cells(n - 1, 1).Value = 1) Then
Cells(n, 1).Value = 3
End If

If (Cells(n - 2, 1).Value = 1) And (Cells(n - 1, 1).Value = 2) Then
Cells(n, 1).Value = 1
End If

If (Cells(n - 2, 1).Value = 2) And (Cells(n - 1, 1).Value = 4) Then
Cells(n, 1).Value = 1
End If

If (Cells(n - 2, 1).Value = 4) And (Cells(n - 1, 1).Value = 3) Then
Cells(n, 1).Value = 2
End If

If (Cells(n - 2, 1).Value = 3) And (Cells(n - 1, 1).Value = 1) Then
Cells(n, 1).Value = 2
End If

If (Cells(n - 2, 1).Value = 1) And (Cells(n - 1, 1).Value = 4) Then
Cells(n, 1).Value = 3
End If

If (Cells(n - 2, 1).Value = 4) And (Cells(n - 1, 1).Value = 2) Then
Cells(n, 1).Value = 3
End If

If (Cells(n - 2, 1).Value = 2) And (Cells(n - 1, 1).Value = 1) Then
Cells(n, 1).Value = 4
End If

If (Cells(n - 2, 1).Value = 1) And (Cells(n - 1, 1).Value = 3) Then
Cells(n, 1).Value = 4
End If

Next n

End Sub

Sub 配列B()

Dim i As Integer
Dim j As Integer
Dim n As Integer
Dim m As Integer

For i = 1 To 2

j = Int(((4 - 1 + 1) * Rnd) + 1)

If i = 2 Then

Do While Cells(i - 1, 1).Value = j
j = Int(((4 - 1 + 1) * Rnd) + 1)
Loop

End If
Cells(i, 1).Value = j

Next i

For n = 3 To 24

If (Cells(n - 2, 1).Value = 3) And (Cells(n - 1, 1).Value = 2) Then
Cells(n, 1).Value = 3
End If

If (Cells(n - 2, 1).Value = 3) And (Cells(n - 1, 1).Value = 4) Then
Cells(n, 1).Value = 1
End If

If (Cells(n - 2, 1).Value = 4) And (Cells(n - 1, 1).Value = 1) Then
Cells(n, 1).Value = 2
End If

If (Cells(n - 2, 1).Value = 1) And (Cells(n - 1, 1).Value = 2) Then
Cells(n, 1).Value = 4
End If

If (Cells(n - 2, 1).Value = 2) And (Cells(n - 1, 1).Value = 4) Then
Cells(n, 1).Value = 3
End If

If (Cells(n - 2, 1).Value = 4) And (Cells(n - 1, 1).Value = 3) Then
Cells(n, 1).Value = 1
End If

If (Cells(n - 2, 1).Value = 3) And (Cells(n - 1, 1).Value = 1) Then
Cells(n, 1).Value = 4
End If

If (Cells(n - 2, 1).Value = 1) And (Cells(n - 1, 1).Value = 4) Then
Cells(n, 1).Value = 2
End If

If (Cells(n - 2, 1).Value = 4) And (Cells(n - 1, 1).Value = 2) Then
Cells(n, 1).Value = 1
End If

If (Cells(n - 2, 1).Value = 2) And (Cells(n - 1, 1).Value = 1) Then
Cells(n, 1).Value = 3
End If

If (Cells(n - 2, 1).Value = 2) And (Cells(n - 1, 1).Value = 3) Then
Cells(n, 1).Value = 3
End If

Next n

End Sub

21 hits

▼

【78443】数字の出てくる確立を変更したいのですが・・・ m 16/9/24(土) 11:35