Excel VBA質問箱 IV

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

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


4723 / 13646 ツリー ←次へ | 前へ→

【54951】教えてください S・T 08/4/6(日) 19:01 質問[未読]
【54952】Re:ID番号の検索方法 かみちゃん 08/4/6(日) 19:11 発言[未読]
【54953】Re:教えてください Hirofumi 08/4/6(日) 19:38 回答[未読]
【54954】Re:教えてください S・T 08/4/6(日) 21:00 お礼[未読]
【54958】Re:教えてください 注意 08/4/7(月) 11:34 発言[未読]

【54951】教えてください
質問  S・T  - 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

【54952】Re:ID番号の検索方法
発言  かみちゃん  - 08/4/6(日) 19:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> EXCELのSheet1(A1)にID番号1.2.3・・・をVBAで入力フォーム上で検索してフォ
> ーム上でID番号を検索して、そのID番号の入力フォームを表示させる

シートレイアウトは、どのようなものなのでしょうか?
ID番号は、一定の間隔(1、2、3など)で昇順に並んでいるのでしょうか?
昇順に並んでいる場合は、検索する必要はなく、先頭のID番号がわかれば、行番号
を加算することでわかります。

【54953】Re:教えてください
回答  Hirofumi  - 08/4/6(日) 19:38 -

引用なし
パスワード
   【54786】Re:転記したワークシートのデーターをユーザーフォームで閲覧する 
 
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=54786;id=excel

これが参考に成りませんか?

【54954】Re:教えてください
お礼  S・T  - 08/4/6(日) 21:00 -

引用なし
パスワード
   レス早々に有り難うございました。大変参考になりました。自分なりに何とかできそうです。

【54958】Re:教えてください
発言  注意  - 08/4/7(月) 11:34 -

引用なし
パスワード
   質問者の方へのお願い

タイトルは内容を示すものに
記事のタイトルは、その質問の内容が端的にわかるようなものにしてください。
単に「教えてください」とか「困っています」などといったタイトルでは、回答者があなたの質問をクリックしない可能性が非常に高くなります。すなわち、回答がつかない可能性が高くなる、ということです。

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