Excel VBA質問箱 IV

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

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


63518 / 76732 ←次へ | 前へ→

【17810】Re:グループの判別
質問  KAME  - 04/9/8(水) 10:47 -

引用なし
パスワード
   ▼IROC さん:
>どこにでしょうか?
msgboxです。

ちなみに今はこのようなマクロを考えているのですが、もっとうまい方法があればと思い質問しました。

Dim G_cont As Integer
Dim G_Name As String
Dim G_Bank As String
Dim G1 As Integer
Dim G2 As Integer
Dim G3 As Integer
Dim G4 As Integer
Dim G5 As Integer
Dim G6 As Integer
Dim G7 As Integer
Dim G8 As Integer
Dim G9 As Integer
Dim G10 As Integer
Dim G11 As Integer
Dim G12 As Integer
Dim WrngG1 As Integer

G_cont = Worksheets("Sheet12").Range("A65536").End(xlUp).Row

G_Name = Worksheets("Sheet12").Cells(1, 1).Value
G_Bank = Worksheets("Sheet12").Cells(1, 2).Value

For G1 = 2 To G_cont
 If G_Name = Worksheets("Sheet12").Cells(G1, 1).Value Then
  If G_Bank <> Worksheets("Sheet12").Cells(G1, 2).Value Then
   WrngG1 = 1
  End If
 ElseIf G_Name <> Worksheets("Sheet12").Cells(G1, 1).Value Then
  G_Name = Worksheets("Sheet12").Cells(G1, 1).Value
  G_Bank = Worksheets("Sheet12").Cells(G1, 2).Value
  For G2 = G1 To G_cont
   If G_Name = Worksheets("Sheet12").Cells(G2, 1).Value Then
    If G_Bank <> Worksheets("Sheet12").Cells(G2, 2).Value Then
     WrngG1 = 1
    End If
   ElseIf G_Name <> Worksheets("Sheet12").Cells(G2, 1).Value Then
    G_Name = Worksheets("Sheet12").Cells(G2, 1).Value
    G_Bank = Worksheets("Sheet12").Cells(G2, 2).Value
    For G3 = G2 To G_cont
     If G_Name = Worksheets("Sheet12").Cells(G3, 1).Value Then
      If G_Bank <> Worksheets("Sheet12").Cells(G3, 2).Value Then
       WrngG1 = 1
      End If
     ElseIf G_Name <> Worksheets("Sheet12").Cells(G3, 1).Value Then
      G_Name = Worksheets("Sheet12").Cells(G3, 1).Value
      G_Bank = Worksheets("Sheet12").Cells(G3, 2).Value
      For G4 = G3 To G_cont
         ・
         ・
         ・
         ・
         ・
   End If
  Next G2
 End If
Next G1

If WrngB1 = 1 Then
  MsgBox "error"
End If


宜しくお願いいたします。
0 hits

【17806】グループの判別 KAME 04/9/8(水) 10:00 質問
【17807】Re:グループの判別 IROC 04/9/8(水) 10:25 回答
【17810】Re:グループの判別 KAME 04/9/8(水) 10:47 質問
【17811】Re:グループの判別 ちゃっぴ 04/9/8(水) 10:51 発言
【17813】Re:グループの判別 IROC 04/9/8(水) 11:35 回答
【17815】Re:グループの判別 KAME 04/9/8(水) 11:47 質問
【17818】Re:グループの判別 IROC 04/9/8(水) 12:53 回答
【17823】Re:グループの判別 KAME 04/9/8(水) 14:19 お礼

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