Excel VBA質問箱 IV

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

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


38102 / 76732 ←次へ | 前へ→

【43773】Re:入力規則
発言  ぱっせんじゃー  - 06/10/25(水) 12:36 -

引用なし
パスワード
   いちいち起動するのでうざったいですが、セルに入力規則が設定されて
いたらドロップダウンさせる、という方法もあります。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim MyRng As Range
 Set MyRng = Intersect(ActiveCell, Cells.SpecialCells(xlCellTypeAllValidation))
  If MyRng Is Nothing Then
   Exit Sub
  Else
   Application.SendKeys "%{down}"
  End If
End Sub

0 hits

【43765】入力規則 ゆう 06/10/25(水) 10:15 質問
【43770】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:14 発言
【43771】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:15 発言
【43772】Re:入力規則 Jaka 06/10/25(水) 12:17 発言
【43773】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:36 発言
【43774】Re:入力規則 ぱっせんじゃー 06/10/25(水) 12:38 発言
【43775】Re:入力規則 ゆう 06/10/25(水) 13:02 お礼
【43776】Re:入力規則 Jaka 06/10/25(水) 13:32 発言
【43777】Re:入力規則 ゆう 06/10/25(水) 14:12 お礼

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