Excel VBA質問箱 IV

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

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


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

8217 / 76820

←次へ　｜　前へ→


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

UO3 - 13/4/26(金) 20:19 -


	引用なし

	パスワード

▼ぶんぶんさん：

Workbook_SheetChange　のみ以下と入れ替えて試してみてください。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
　　Dim myR As Range
　　
　　If Not Sh Is Sheets(shn) Then Exit Sub
　　Set myR = Union(Sh.Range("選択その１"), Sh.Range("選択その２"), Sh.Range("選択その３"), Sh.Range("選択その４"))
　　If Intersect(Target, myR) Is Nothing Then Exit Sub
　　If WorksheetFunction.CountA(myR) = 4 Then
　　　　Sh.Range("選択その１").Activate
　　　　Exit Sub
　　End If
　　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

10 hits

▼

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