Excel VBA質問箱 IV

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

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


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

64900 / 76733

←次へ　｜　前へ→


	【16410】Re:Asaki さん、よろしく

ichinose - 04/7/27(火) 7:33 -


	引用なし

	パスワード

▼VBA初心クマ娘さん：
おはようございます。

>検索のダイアログボックスか゜、表示されたまま次に進みません。
>まったく動かないのです。セルが移動しないのです。
>エクセル2000だから、動かないのでしょうか?
>全くの初心者ですので、よろしくお願いします。
本当ですね・・・、検索セル範囲を選択してから実行してみて下さい。

'=================================================================
Sub main()
　 Dim ans
　 Cells.Select
　 ans = Application.Dialogs(xlDialogFormulaFind).Show
'　ans true---閉じるボタンがクリックされた　false-Ｘボタンがクリック
　 If ans = True Then
　　　MsgBox ActiveCell.Address
　　　End If
End Sub

RangeのFindメソッドのお手軽版みたいなものなので、
ある意味　忠実だったりして・・・。

0 hits

▼

【16394】ichinoseサンありがとです VBA初心クマ娘 04/7/26(月) 23:11