Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8136 / 76736

←次へ　｜　前へ→


	【74177】Re:ドロップボックスリストの自動表示についてい

UO3 - 13/4/26(金) 13:42 -


	引用なし

	パスワード

▼ぶんぶんさん：

要件がよく呑み込めていません。
ところで、もしかして大きな勘違いをしていたかもしれません。
ドロップボックスというのは入力規則のリスト型だと思っていたのですが
そうではなく、フォームツール等のコンボボックスのことでしたか？

もし、入力規則のことでしたら、たたき台として新規ブックのSheet1に
選択その１　～選択その４　まで定義し、それぞれに入力規則のリストを設定したうえで
ThisWorkbookモジュールに以下を貼り付け、いったん保存して閉じてから
もう一度、開いてみてください。

こんな動きなんでしょうか？

Option Explicit

Const shn As String = "Sheet1"　'対象シート名

Private Sub Workbook_Open()
　　If ActiveSheet Is Sheets(shn) Then ListShow ActiveSheet.Range("選択その１")
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
　　If Sh Is Sheets(shn) Then ListShow Sh.Range("選択その１")
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　If Not Sh Is Sheets(shn) Then Exit Sub
　　
　　Select Case Target.Address
　　　　Case Sh.Range("選択その１").Address
　　　　　　ListShow Sh.Range("選択その２")
　　　　Case Sh.Range("選択その２").Address
　　　　　　ListShow Sh.Range("選択その３")
　　　　Case Sh.Range("選択その３").Address
　　　　　　ListShow Sh.Range("選択その４")
　　　　Case Sh.Range("選択その４").Address
　　　　　　ListShow Sh.Range("選択その１")
　　End Select
End Sub

Private Sub ListShow(r As Range)
　　SendKeys "%{Down}"
　　r.Activate
End Sub

0 hits

▼

【74162】ドロップボックスリストの自動表示についてい ぶんぶん 13/4/22(月) 18:04