| |
こんにちは ♪Ю―(^O^ )ｵｼﾞｬﾏｼﾏｰｽッ
A B C D E F G
１ １００ ２００ ３００ ４００ ５００ ６００ ７００
２ 丸 丸 丸 丸 丸 丸 丸 ←〇
３
４
A２が丸だったら、A１の値（１００）を変数に入れる。
B２が丸だったら、B１の値（２００）を変数に入れる。
C２が丸だったら、C１の値（３００）を変数に入れる。
D２が丸だったら、D１の値（４００）を変数に入れる。
E２が丸だったら、E１の値（５００）を変数に入れる。
F２が丸だったら、F１の値（６００）を変数にいれる。
G２が丸だったら、G１の値（７００）を変数に入れて、
組合すというものを作ってるんですが、全然出来なくて悩んでます。
教えてください m(._.)m ｵﾈｶﾞｲｼﾏｽ
Option Explicit
Sub test()
Dim A(1 To 7) As Long
Dim kazu As Long
Dim i As Long
Dim j As Long
Dim k As Long
Dim l As Long
Dim m As Long
Dim n As Long
If Range("A3").Value = "○" Then
A(1) = Range("A2").Value
End If
If Range("B3").Value = "○" Then
A(2) = Range("B2").Value
End If
If Range("C3").Value = "○" Then
A(3) = Range("C2").Value
End If
If Range("D3").Value = "○" Then
A(4) = Range("D2").Value
End If
If Range("E3").Value = "○" Then
A(5) = Range("E2").Value
End If
If Range("F3").Value = "○" Then
A(6) = Range("F2").Value
End If
If Range("G3").Value = "○" Then
A(7) = Range("G2").Value
End If
kazu = 5
For i = 1 To 2
For j = i + 1 To 3
For k = j + 1 To 4
For l = k + 1 To 5
For m = l + 1 To 6
For n = m + 1 To 7
kazu = kazu + 1
If kazu < 100 Then
Cells(kazu, 1) = A(i)
Cells(kazu, 2) = A(j)
Cells(kazu, 3) = A(k)
Cells(kazu, 4) = A(l)
Cells(kazu, 5) = A(m)
Cells(kazu, 6) = A(n)
End If
Next
Next
Next
Next
Next
Next
End Sub
|
|
さくら
- 03/5/23(金) 10:50 -
