Excel VBA質問箱 IV

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

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


45406 / 76732 ←次へ | 前へ→

【36319】Re:表のインデックス呼び出しに関して
回答  Kein  - 06/3/28(火) 21:29 -

引用なし
パスワード
   Sub Test_検索()
  Dim Ary As Variant
  Dim St As String
  Dim FR As Range
 
  Ary = Array("あ", "い", "う", "え", "お", "か", "き", "く", _
  "け", "こ", "さ", "し", "す", "せ", "そ", "た", "ち", "つ", _
  "て", "と", "な", "に", "ぬ", "ね", "の", "は", "ひ", "ふ", _
  "へ", "ほ", "ま", "み", "む", "め", "も", "や", "ゆ", "よ", _
  "ら", "り", "る", "れ", "ろ", "わ")
  Do
   St = InputBox("{ あ〜わ } のうちの一文字を入力して下さい")
   If St = "" Then Exit Sub
  Loop While IsError(Application.Match(St, Ary, 0))
  Set FR = Worksheets("AAA").Range("A:A") _
  .Find(St, , xlValues, xlWhole, , xlPrevious)
  If FR Is Nothing Then
   MsgBox "「 " & St & " 」は見つかりません", 48
  Else
   Application.GoTo FR, True
   Set FR = Nothing
  End If
End Sub

で、どうでしょーか ?
2 hits

【36317】表のインデックス呼び出しに関して Hirok 06/3/28(火) 20:59 質問
【36319】Re:表のインデックス呼び出しに関して Kein 06/3/28(火) 21:29 回答
【36590】Re:表のインデックス呼び出しに関して Hirok 06/4/4(火) 21:23 お礼
【36591】Re:表のインデックス呼び出しに関して Kein 06/4/4(火) 22:20 回答
【36634】Re:表のインデックス呼び出しに関して Hirok 06/4/5(水) 21:24 質問
【36635】Re:表のインデックス呼び出しに関して Kein 06/4/5(水) 21:28 発言
【36636】Re:表のインデックス呼び出しに関して Hirok 06/4/5(水) 21:51 お礼

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