Excel VBA質問箱 IV

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

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


28315 / 76732 ←次へ | 前へ→

【53717】Re:ユーザーフォームからシートのデータを検索して表示
質問  みさ  - 08/2/4(月) 16:58 -

引用なし
パスワード
   返信ありがとうございます。
質問の内容が足りなくてごめんなさい。
下記の内容が質問です。

エクセルShee1の4行目からデータが入力されるようになっていて
ユーザーフォーム(ボタンで表示されます)から新規登録・編集などができるようになっています。
今回質問させていただきたいのは、
このユーザーフォームに新たに【検索】ボタンを追加作成したいのです。

個人データなので フリカナ(Sheet1のB列)で検索をし、検索した結果をフォームに表示させたいのです。

下記のように、検索用のコードを考えてみたのですがエラーになってしまい、うまく作動しません。

Private Sub cmd検索_Click()

Dim myF As String

Dim myRange As Range

Dim Rw As Integer

myF = Application.InputBox( _

"フリカナを入力してください")

If myF = "false" Then

Exit Sub


End If


Set myRange = Range("b:b").Find(myF)

If myRange Is Nothing Then

MsgBox "該当するデータはありません"

Else

myF = Cells(Rw, "B").Value

Rw = scr切り替え.Value 

Call スクロールバー更新

End If

End Sub


どうにかしたいので是非アドバイスをください。宜しくお願い致します。


▼Jaka さん:
>カード型データベースですか、ファイルメーカーみたいですね。
>さわったことないけど...。
>クラリスワークスがカード型だったので多分。
>
>で、検索ですが、
>マクロ記録で基本となるコードは出来ると思います。
>まずはマクロ記録をしてみてください。
>
>注意事項として、
>Find メソッドの引数は省略しないこと、ですが、エクセルバージョンによってコンパイルエラーになるものもあるので、適度に省略しないぐらい?
>また、日本語検索時は、ルビ?で検索しているような気がします。
>未だによく解らない。
>もう少し具体的に質問された方が良いと思います。
>
>検索機能だけだったら、Find メソッドを使用されたらいいとしか....。
0 hits

【53707】ユーザーフォームからシートのデータを検索して表示 みさ 08/2/4(月) 11:21 質問
【53715】Re:ユーザーフォームからシートのデータを... Jaka 08/2/4(月) 16:23 発言
【53717】Re:ユーザーフォームからシートのデータを... みさ 08/2/4(月) 16:58 質問
【53720】Re:ユーザーフォームからシートのデータを... neptune 08/2/4(月) 17:10 発言
【53721】Re:ユーザーフォームからシートのデータを... みさ 08/2/4(月) 17:22 質問
【53722】Re:ユーザーフォームからシートのデータを... neptune 08/2/4(月) 18:53 回答
【53733】Re:ユーザーフォームからシートのデータを... みさ 08/2/5(火) 12:19 質問
【53735】Re:ユーザーフォームからシートのデータを... さかな 08/2/5(火) 12:29 発言
【53737】Re:ユーザーフォームからシートのデータを... みさ 08/2/5(火) 13:06 発言
【53727】Re:ユーザーフォームからシートのデータを... Jaka 08/2/5(火) 10:33 発言
【53734】Re:ユーザーフォームからシートのデータを... みさ 08/2/5(火) 12:21 発言
【53736】Re:ユーザーフォームからシートのデータを... Jaka 08/2/5(火) 13:00 発言
【53738】Re:ユーザーフォームからシートのデータを... みさ 08/2/5(火) 13:22 お礼
【53741】Re:ユーザーフォームからシートのデータを... VBWASURETA 08/2/5(火) 14:34 発言
【53743】Re:ユーザーフォームからシートのデータを... neptune 08/2/5(火) 16:04 発言
【53745】Re:ユーザーフォームからシートのデータを... VBWASURETA 08/2/5(火) 16:36 発言
【53750】Re:ユーザーフォームからシートのデータを... みさ 08/2/5(火) 18:00 お礼
【53753】Re:ユーザーフォームからシートのデータを... VBWASURETA 08/2/5(火) 20:27 発言
【53766】Re:ユーザーフォームからシートのデータを... みさ 08/2/6(水) 9:44 お礼

28315 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free