Excel VBA質問箱 IV

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

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


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

27111 / 76738

←次へ　｜　前へ→


	【54951】教えてください

Ｓ・Ｔ - 08/4/6(日) 19:01 -


	引用なし

	パスワード

入力フォーム上でID番号を検索して、そのID番号の入力フォームを表示させたい。
下記はACCESSデータベースを活用したもので問題なく動作しますが、この操作をEXCELのSheet1(A1)にID番号1.2.3・・・をVBAで入力フォーム上で検索してフォーム上でID番号を検索して、そのID番号の入力フォームを表示させるコードがよくわかりません。どのようにすればよいのですか？
初心者で、うまく説明できませんが、ACCESSデータベースではなくEXCELのWorkSheet上で入力フォームを作成して検察→そのID番号の入力フォームへ移動できればよいのです。宜しくお願いします。

Private Sub mnuEdiFind_Click()
　　　Dim IDNo As String
　　　Dim bmark As Variant
　　　Dim ret As Integer
　　　
　　　bmark = deMain.rscmdMaster.Bookmark
　　　 IDNo = InputBox("ID番号を入力してください", "ID検索")
　　　
　　　 If IDNo = "" Then
　　　 Exit Sub
　End If
　　　deMain.rscmdMaster.MoveFirst
　　　deMain.rscmdMaster.Find "ID = " & CLng(IDNo)
　　　　　　
　　　If deMain.rscmdMaster.EOF Then
　　　Beep
　　　ret = MsgBox("該当するID番号が見つかりません.", vbOKOnly, "ID検索")
　　　deMain.rscmdMaster.Bookmark = bmark
　　　
　End If
　　　
End Sub

0 hits

▼

【54951】教えてください Ｓ・Ｔ 08/4/6(日) 19:01

≪