Excel VBA質問箱 IV

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

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


45144 / 76732 ←次へ | 前へ→

【36591】Re:表のインデックス呼び出しに関して
回答  Kein  - 06/4/4(火) 22:20 -

引用なし
パスワード
   >別シートからクリック(フォームで「あ」「か」…「わ」を作成)だけで
>文字入力するInputBoxを使わず検索できれば
では、入力規則のリスト選択という方法で、どうでしょーか ?
ThisWorkbookモジュールに

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
  Const MyList As String = _
  "あ, い, う, え, お, か, き, く," & _
  "け, こ, さ, し, す, せ, そ, た, ち, つ," & _
  "て, と, な, に, ぬ, ね, の, は, ひ, ふ," & _
  "へ, ほ, ま, み, む, め, も, や, ゆ, よ," & _
  "ら , り, る, れ, ろ, わ"
 
  With Target
   If .Row > 1 Then Exit Sub
   Cancel = True
   .Validation.Add xlValidateList, , , MyList
  End With
End Sub


Private Sub Workbook_SheetChange(ByVal Sh As Object, _
ByVal Target As Range)
  Dim FR As Range

  On Error GoTo ELine
  With Target
   If .Row > 1 Then Exit Sub
   If Not Intersect(Target, Rows(1).SpecialCells(-4174)) Is _
    Nothing Then
     Set FR = Worksheets("AAA").Range("A:A") _
     .Find(.Value, , xlValues, xlWhole, , xlPrevious)
     If FR Is Nothing Then
       MsgBox "「 " & .Value & " 」は見つかりません", 48
     Else
       Application.GoTo FR, True
       Set FR = Nothing
     End If
     .Validation.Delete
   End If
  End With
ELine:
End Sub

の、2つのマクロを入れて、任意のシートの1行目の任意のセルをダブルクリックし、
そこに出てきたプルダウンメニュー(▼をクリック)から五十音を選択してみて下さい。
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 お礼

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