|
ぴかるさん、こんばんわ。^^
なかなか難しそーですネ。。
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
|
|