投稿日 | : 2005/08/05(Fri) 16:23 |
投稿者 | : 黒影 |
Eメール | : |
URL | : |
タイトル | : Re^5: エラー表示 |
全部載せる必要は無かったんですけどね(^^;)
未読込=リストボックスにデータが無いという前提であればですが...
読込ファイルの中が空の場合は、メッセージの意味が違ってしまいますね。
> Private Sub Top_Click()
>
> On Error GoTo ErrHandler '---エラーを表示する
>
> Dim i As Variant 'カウンタ変数
> Dim j As Variant 'カウンタ変数
If List1.ListCount = 0 Then
MsgBox "読込ボタンを押してください。",VbInformation,""
Exit Sub
End If
> Form2.Result.Clear '結果表示場所をクリアする