ワークシート関数のmatchは↓のページを参考にしたのです ttp://park7.wakwak.com/~efc21/cgi-bin/exqalounge.cgi?print+200706/07060141.txt If (Application.Match(c, b(2, 2), 0) >= 1) Then GoTo fjk でも If (Application.Match(c, b, 0) >= 1) Then GoTo fjk でも型が違うとエラーが出ます。何が悪いのでしょう? ↓できるだけまとめてみました
Option Base 1 Sub a() Dim b(3, 3) For i = 1 To 3 For k = 1 To 3 b(i, k) = 5 Next Next Do c = 5 If (Application.Match(c, b(2, 2), 0) >= 1) Then GoTo fjk Loop fjk: End Sub
