Excel VBA質問箱 IV

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

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


75539 / 76738 ←次へ | 前へ→

【5635】値がゼロになってしまってコマッタ
質問  さくら  - 03/5/23(金) 10:50 -

引用なし
パスワード
   こんにちは ♪Ю―(^O^ )オジャマシマースッ

   A     B    C    D    E    F    G
1 100 200 300 400 500 600 700
2  丸    丸   丸   丸   丸   丸   丸 ←〇



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
3 hits

【5635】値がゼロになってしまってコマッタ さくら 03/5/23(金) 10:50 質問
【5639】Re:値がゼロになってしまってコマッタ Jaka 03/5/23(金) 14:03 回答
【5644】Re:値がゼロになってしまってコマッタ さくら 03/5/23(金) 17:00 質問
【5652】Re:値がゼロになってしまってコマッタ ゆと 03/5/23(金) 18:40 回答
【5655】Re:値がゼロになってしまってコマッタ さくら 03/5/23(金) 20:03 質問
【5656】Re:値がゼロになってしまってコマッタ ゆと 03/5/23(金) 20:14 発言
【5658】Re:値がゼロになってしまってコマッタ さくら 03/5/23(金) 20:57 質問
【5659】Re:値がゼロになってしまってコマッタ ゆと 03/5/23(金) 21:13 発言
【5665】Re:値がゼロになってしまってコマッタ さくら 03/5/26(月) 23:01 お礼

75539 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free