Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5724 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49364】｢Alt｣&｢↓｣をVBAで出来ませんか Tatu 07/6/2(土) 7:46 質問[未読]
【49365】Re:｢Alt｣&｢↓｣をVBAで出来ませんか Kein 07/6/2(土) 8:18 回答[未読]
【49366】Re:｢Alt｣&｢↓｣をVBAで出来ませんか Tatu 07/6/2(土) 9:15 質問[未読]
【49367】Re:｢Alt｣&｢↓｣をVBAで出来ませんか ウッシ 07/6/2(土) 9:35 発言[未読]
【49368】Re:｢Alt｣&｢↓｣をVBAで出来ませんか awu 07/6/2(土) 10:09 発言[未読]
【49369】Re:｢Alt｣&｢↓｣をVBAで出来ませんか Tatu 07/6/2(土) 10:15 お礼[未読]
【49364】｢Alt｣&｢↓｣をVBAで出来ませんか
質問  Tatu  - 07/6/2(土) 7:46 -
引用なし
パスワード
   データ入力する場合、｢Alt｣&｢↓｣で入力リストを表示できますが、
｢Alt｣&｢↓｣を使わずに、該当列(例えばB列)のセルに移動した時に
自動的に｢Alt｣&｢↓｣のようなリストを表示する事は出来ないので
しょうか。
どなたか教えてもらえませんか。
【49365】Re:｢Alt｣&｢↓｣をVBAで出来ませんか
回答  Kein  - 07/6/2(土) 8:18 -
引用なし
パスワード
   入力規則のリストですか ? ならばこんなイベントマクロでどうかな ?
シートモジュールに入れて下さい。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　 On Error GoTo ELine
　 If Not Intersect(ActiveCell, Cells.SpecialCells(-4174)) Is _
　　Nothing Then
　　　 SendKeys "%{DOWN}"
　 End If
ELine:
End Sub
【49366】Re:｢Alt｣&｢↓｣をVBAで出来ませんか
質問  Tatu  - 07/6/2(土) 9:15 -
引用なし
パスワード
   やりたい事は、
------------------------
　A列　　　B列　　　　C列
　日付　　品名　　　　数量
190105　　パソコンH　　20
190110　　パソコンN　　15
190115　　プリンタE　　30
190120　《ココでリスト表示》

と入力している場合に、B列移動した時に品名リスト(重複なし）
を表示、リストにない場合は直接入力。
｢Alt｣&｢↓｣を押せば表示されるリストを ｢Alt｣&｢↓｣キーを
押さずに表示したいのです。　
【49367】Re:｢Alt｣&｢↓｣をVBAで出来ませんか
発言  ウッシ  - 07/6/2(土) 9:35 -
引用なし
パスワード
   こんにちは

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　If Target.Count > 1 Then Exit Sub
　　If Not Intersect(Target, Me.Range("B:B")) Is Nothing Then
　　　　SendKeys "%{DOWN}"
　　End If
End Sub

シートタブ右クリックして「コードの表示」でシートモジュール出して貼り付けて下さい。

｢Alt｣&｢↓｣キーの機能知らなかったです。m(_ _)m
【49368】Re:｢Alt｣&｢↓｣をVBAで出来ませんか
発言  awu  - 07/6/2(土) 10:09 -
引用なし
パスワード
   空白セルのときだけ機能させるとすると、操作性を考慮するとこんな感じでどうでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target.Cells(1)
　　If .Row > 1 Then
　　　　If .Column = 2 And .Value = "" And .Offset(-1).Value <> "" Then
　　　　　　SendKeys "%{DOWN}"
　　　　End If
　　End If
End With
End Sub
【49369】Re:｢Alt｣&｢↓｣をVBAで出来ませんか
お礼  Tatu  - 07/6/2(土) 10:15 -
引用なし
パスワード
   ウッシさん、awu さん
ありがとうございました。
思っていた通りの事が出来ました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5724 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free