Excel VBA質問箱 IV

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

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


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

8128 / 76732

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

▼ぶんぶんさん：

もしかして「その４」が選択された時のみ、１～４が空欄かどうかを判定したかったのでしょうか。
それなら以下です。

両方試して、イメージに合うのがどちらか（あるいは、どちらでもないか）確認願います。

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
　　
　　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
　　　　　　If WorksheetFunction.CountA(Union(Sh.Range("選択その１"), Sh.Range("選択その２"), _
　　　　　　　　　　　　　　　　　　Sh.Range("選択その３"), Sh.Range("選択その４"))) = 4 Then
　　　　　　　　Sh.Range("選択その１").Activate
　　　　　　Else
　　　　　　　　ListShow Sh.Range("選択その１")
　　　　　　End If
　　End Select
End Sub

0 hits

▼

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