|
こんにちは ♪Ю―(^O^ )オジャマシマースッ
A B C D E F G
1 100 200 300 400 500 600 700
2 丸 丸 丸 丸 丸 丸 丸 ←〇
3
4
A2が丸だったら、A1の値(100)を変数に入れる。
B2が丸だったら、B1の値(200)を変数に入れる。
C2が丸だったら、C1の値(300)を変数に入れる。
D2が丸だったら、D1の値(400)を変数に入れる。
E2が丸だったら、E1の値(500)を変数に入れる。
F2が丸だったら、F1の値(600)を変数にいれる。
G2が丸だったら、G1の値(700)を変数に入れて、
組合すというものを作ってるんですが、全然出来なくて悩んでます。
教えてください 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
|
|