Excel VBA質問箱 IV

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

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


27010 / 76732 ←次へ | 前へ→

【55048】ユーザーフォーム上での検索・抽出について
質問  S・T  - 08/4/12(土) 23:16 -

引用なし
パスワード
   以前、質問したのですが解決しません。どなたかアドバイスお願いします。

入力フォーム上でID番号を検索して、そのID番号の入力フォームを表示させたい。
下記はACCESSデータベースを活用したもので問題なく動作しますが、この操作をEXCELのSheet1(A列)にID番号1.2.3・・・をVBEで作成した入力フォーム上で検索してフォーム上で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
1 hits

【55048】ユーザーフォーム上での検索・抽出について S・T 08/4/12(土) 23:16 質問
【55055】Re:ユーザーフォーム上での検索・抽出につ... ponpon 08/4/13(日) 0:54 発言
【55174】Re:ユーザーフォーム上での検索・抽出につ... S・T 08/4/20(日) 8:01 お礼

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