Excel VBA質問箱 IV

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

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


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

63524 / 76738

←次へ　｜　前へ→


	【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