|
返信ありがとうございます。
質問の内容が足りなくてごめんなさい。
下記の内容が質問です。
エクセル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 メソッドを使用されたらいいとしか....。
|
|