Excel VBA質問箱 IV

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

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


17471 / 76732 ←次へ | 前へ→

【64714】Re:入力規則のリスト表示について
発言  kei  - 10/3/10(水) 2:43 -

引用なし
パスワード
   ぴかるさん、こんばんわ。^^

なかなか難しそーですネ。。
1.「入力規則」のLISTは、1つだけですか?
2.入力箇所は何列もあるのでしょうか?
3.入力セルを選択したときに、表示されるリスト幅をそのLISTの文字数に比例させて、、
  つまり入力するセル幅を広げたり縮めたりする、、ということですか?

それから、あなたのコードを下記のようにしたら、入力時のストレスが少し減るかも。。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim r As Range
  Dim rr As Range
  
  Set rr = Range("C1:C16,D5,E10:E14,E18,G13:G15") '←入力箇所が連続しない複数のとき
  Set r = Intersect(Target, rr)
  If r Is Nothing Then Exit Sub
  Application.EnableEvents = False
  SendKeys "%{DOWN}", True
  Application.EnableEvents = True
End Sub
0 hits

【64703】入力規則のリスト表示について ぴかる 10/3/9(火) 13:39 質問
【64704】Re:入力規則のリスト表示について Jaka 10/3/9(火) 16:22 発言
【64714】Re:入力規則のリスト表示について kei 10/3/10(水) 2:43 発言
【64717】Re:入力規則のリスト表示について ぴかる 10/3/10(水) 11:37 発言
【64724】Re:入力規則のリスト表示について Jaka 10/3/10(水) 14:37 発言
【64725】Re:入力規則のリスト表示について ぴかる 10/3/10(水) 14:52 お礼
【64751】かっちょええです。 ぴかる 10/3/11(木) 18:19 お礼

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