Ｐａｇｅ 893 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Excelの検索 KAKE 03/3/18(火) 14:22 ┗Re:Excelの検索 KAKE 03/3/18(火) 14:30 ┗Re:Excelの検索 Jaka 03/3/18(火) 15:54 ─────────────────────────────────────── ■題名 ： Excelの検索 ■名前 ： KAKE ■日付 ： 03/3/18(火) 14:22 -------------------------------------------------------------------------
| りん さんこんにちは。 返事が遅くなって申し訳ないです。 >>Ctrl+F で出てくる検索ダイアログに >>オプションをつけたいのですが > どんなオプションですか？ 検索結果を含む行を別シートに転記ボタンをつけたいのですが、 行単位が２行構成になってます。すみませんが 偶数・奇数のiseven.isodd関数はなぜ使えないのかだけ 教えていただけないでしょうか？ 思考錯誤中なので、具体的に何を聞いていいかわかってないのです。 >>検索する度に、PRGの一時中断が出来ないので。 > ？ 何が出来ないんですか？ Private Sub CommandButton1_Click() Dim myrange As Range Dim fPlace As String, n As String Set myrange = ActiveSheet.UsedRange.Find(TextBox1.Value, , xlValues, xlWhole) If Not myrange Is Nothing Then myrange.Select fPlace = myrange.Address Do Set myrange = _ ActiveSheet.UsedRange.FindNext(after:=myrange) If Not myrange Is Nothing Then myrange.Select End If Loop Until fplace = myrange.address Else MsgBox "検索文字列はありませんでした" End If End Sub で回ります。初歩で申し訳ないです。 |
| すみません。#4352のつづきです。 申し訳ないです。 |
| こんにちは。 全然解っていないので外していると思いますが。 こんな感じで良いと思いますけど。 Private Sub CommandButton1_Click() Dim myrange As Range Dim fPlace As String, n As String Set myrange = ActiveSheet.UsedRange.Find(TextBox1.Value, , xlValues, xlWhole) If Not myrange Is Nothing Then fPlace = myrange.Address Do '１つ目はすでに見つかったからここに入ってくるわけだから、ここでやりたい処理。 myrange.Select '↓ 次を探す。 Set myrange = _ ActiveSheet.UsedRange.FindNext(myrange) Loop Until fPlace = myrange.Address Else MsgBox "検索文字列はありませんでした" End If End Sub |