Excel VBA質問箱 IV

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

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


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

38506 / 76732

←次へ　｜　前へ→


	【43361】検索について

hitosi - 06/10/11(水) 17:23 -


	引用なし

	パスワード

Private Sub CommandButton1_Click()
Dim b As Integer
Dim d
b = 0
On Err GoTo エラー処理
Range("a2").Select
If TextBox1.Value = "" Then
　　MsgBox "入力されていません"
Else
Range("a2:a60000").Value = ""
Range("a2").Select
　　If Len(TextBox1.Value) < 4 Then
　　　 d = MsgBox("桁数が少ないですがこのまま実行してよろしいですか？", vbQuestion + vbOKCancel)
　　　 If d = vbCancel Then
　　　 Else
　　　　　 With Application.FileSearch
　　　　　 .NewSearch
　　　　　 .LookIn = "D:\共有\給水台帳（マスター）"
　　　　　 .SearchSubFolders = True
　　　　　 .Filename = TextBox1.Value
　　　　　 .FileType = msoFileTypeAllFiles
　　　　　 If .Execute() > 0 Then
　　　　　　　 If .Execute() > 10000 Then
　　　　　　　　　　d = MsgBox("検索結果が10000件を超えますが表示してもよろしいですか？ & chr(13) & はい＝全件表示 & chr(13) & いいえ＝ 10000件だけ表示する & chr(13) & キャンセル＝表示しない", vbQuestion + vbYesNoCancel)
　　　　　　　　　　If d = vbCancel Then
　　　　　　　　　　ElseIf d = vbOK Then
　　　　　　　　　　　　MsgBox .FoundFiles.Count & " 個のファイルが見つかりました。"
　　　　　　　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　　　　　　　　　ActiveCell.Value = .FoundFiles(i)
　　　　　　　　　　　　　　ActiveCell.Offset(1, 0).Select
　　　　　　　　　　　　Next i
　　　　　　　　　　　　Beep
　　　　　　　　　　　　UserForm1.Hide
　　　　　　　　　　　　Application.Visible = True
　　　　　　　　　　ElseIf d = vbNo Then
　　　　　　　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　　　　　　　　　ActiveCell.Value = .FoundFiles(i)
　　　　　　　　　　　　　　ActiveCell.Offset(1, 0).Select
　　　　　　　　　　　　Next i
　　　　　　　　　　End If
　　　　　　　 Else
　　　　　　　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　　　　　　　　　ActiveCell.Value = .FoundFiles(i)
　　　　　　　　　　　　　　ActiveCell.Offset(1, 0).Select
　　　　　　　　　　　　Next i
　　　　　　　 End If
　　　　　 Else
　　　　　　　 MsgBox "検索条件を満たすファイルはありません。"
　　　　　 End If
　　　　　 End With
　　　　 End If
　　 Else
　　　　　 With Application.FileSearch
　　　　.NewSearch
　　　　.LookIn = "D:\共有\給水台帳（マスター）"
　　　　.SearchSubFolders = True
　　　　.Filename = TextBox1.Value
　　　　.FileType = msoFileTypeAllFiles
　　　　If .Execute() > 0 Then
　　　　　　MsgBox .FoundFiles.Count & " 個のファイルが見つかりました。"
　　　　　　If .Execute() > 10000 Then
　　　　　　　　c = MsgBox("10000件を超えますが、表示してもよろしいですか？", vbQuestion + vbYesNo)
　　　　　　　　　　If c = vbYes Then
　　　　　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　　　　　　　ActiveCell.Value = .FoundFiles(i)
　　　　　　　　　　　　ActiveCell.Offset(1, 0).Select
　　　　　　　　　　Next i
　　　　　　　　　　　　Beep
　　　　　　　　　　　　UserForm1.Hide
　　　　　　　　　　　　Application.Visible = True
　　　　　　　　　　Else
　　　　　　　　　　End If
　　　　　　Else
　　　　　　　　For i = 1 To .FoundFiles.Count
　　　　　　　　　　ActiveCell.Value = .FoundFiles(i)
　　　　　　　　　　ActiveCell.Offset(1, 0).Select
　　　　　　　　Next i
　　　　　　　　Beep
　　　　　　　　UserForm1.Hide
　　　　　　　　Application.Visible = True
　　　　　　End If
　　　　Else
　　　　　　MsgBox "検索条件を満たすファイルはありません。"
　　　　End If
　　　　End With

End If
End If
Exit Sub
エラー処理:
Dim a
a = MsgBox("エラーが発生しました", vbCritical + vbOKOnly, "エラー")
End Sub
この検索結果が一万件超えたときに”いいえ”ボタンを押したとき一万件だけエクセルに表示させるのってどうすればいいですか？

0 hits

▼

【43361】検索について hitosi 06/10/11(水) 17:23

≪