|
▼Jaka さん:
ご教授有り難う御座います。
どこの部分でA列5000行のデータを配列にしているのでしょうか?
お恥ずかしい話ですが↓と言う事なのです。
>>ココを参考にしたのですが私には(全く)判りませんでした。
>>http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=7121;id=excel
>こんにちは。
>全角の数字だけって状態でなければ、これで良いと思いますけど...。
>
>Private Sub CommandButton1_Click()
> Dim texb As Variant, Mat As Variant
> If IsNumeric(TextBox1.Text) Then
> texb = Val(TextBox1.Value)
> Else
> texb = TextBox1.Value
> End If
> Mat = Application.Match(texb, Columns(1), 0)
> If IsError(Mat) Then
> MsgBox "無い。"
> Else
> MsgBox Mat & "行目"
> End If
>End Sub
|
|