Excel VBA質問箱 IV

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

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


55448 / 76738 ←次へ | 前へ→

【26064】Re:同一ブック内シ-ト非表示検索
回答  kobasan  - 05/6/22(水) 18:31 -

引用なし
パスワード
   ▼改造したいな さん:  こんばんは

こんな感じですか

>’idn入力
>Private Sub enter_Click()
>'マクロ記憶部
Dim r As Range
  Set r = Sheets("4").Columns("B:B").Find(What:=idn, LookIn:=xlValues, _
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
>'ユーザーフォーム反映部
i = r.Row
>tid = Sheets("4").Cells(i, 1).Value
>jid = Sheets("4").Cells(i, 2).Value


Set r = のところ、または、

Set r = Sheets("sheet2").Columns("B:B").Find(What:=idn, _
      After:=ActiveCell, LookIn:=xlValues, _
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)

0 hits

【26042】同一ブック内シ-ト非表示検索 改造したいな 05/6/22(水) 14:46 質問
【26064】Re:同一ブック内シ-ト非表示検索 kobasan 05/6/22(水) 18:31 回答
【26069】Re:同一ブック内シ-ト非表示検索 kobasan 05/6/22(水) 19:32 発言
【26151】Re:同一ブック内シ-ト非表示検索 改造したいな 05/6/24(金) 17:06 お礼

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