Excel VBA質問箱 IV

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

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


3022 / 13644 ツリー ←次へ | 前へ→

【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 お礼[未読]

【64703】入力規則のリスト表示について
質問  ぴかる  - 10/3/9(火) 13:39 -

引用なし
パスワード
   入力規則のリストを使って入力しているシートがあります。
以下のイベントを使って、セレクト時点でリスト表示させています。
この時のリスト表示幅にばらつきがあります。(日によって幅が広い時あり)
通常はセル幅に連動しています。これを常に広い幅表示に出来ないかと
思っています。よろしくお願い致します。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
  SendKeys "%{DOWN}", True
  
End Sub

【64704】Re:入力規則のリスト表示について
発言  Jaka  - 10/3/9(火) 16:22 -

引用なし
パスワード
   たぶん制御できないと思います。
諦めるしかなさそうな予感。

【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

【64717】Re:入力規則のリスト表示について
発言  ぴかる  - 10/3/10(水) 11:37 -

引用なし
パスワード
   Jakaさん、keiさん、こんにちは。

色々とコメントありがとうございます。同僚が入力規則のリストを使って特定セルの入力の簡素化を図っています。そのリストの文字数が多い為、リスト表示の際すべての文字が表示されないという状況です。自分が以前に作成したファイルは、何故かそのリスト幅が広くなったりします。今、確認したところセル幅に連動していました。やっぱ、無理なんでしょうね・・・

【64724】Re:入力規則のリスト表示について
発言  Jaka  - 10/3/10(水) 14:37 -

引用なし
パスワード
   これとか?
ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=60620;id=excel

【64725】Re:入力規則のリスト表示について
お礼  ぴかる  - 10/3/10(水) 14:52 -

引用なし
パスワード
   理解出来るかどうか?ですが、同僚と共に解析しようと思います。
ありがとうございました。

>これとか?
>ht tp://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=60620;id=excel

【64751】かっちょええです。
お礼  ぴかる  - 10/3/11(木) 18:19 -

引用なし
パスワード
   Jakaさん、どうもです。

同僚がサンプルを参考にトライしてくれました。めちゃ、かっちょええですね。感動しました。初めて見る表示形式で、使い易そうに感じました。自分もどこかで使ってみようと思います。
今回もすんごく助かりました。ありがとうございました。

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