Excel VBA質問箱 IV

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

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


8132 / 76736 ←次へ | 前へ→

【74181】Re:ドロップボックスリストの自動表示についてい
発言  UO3  - 13/4/26(金) 20:25 -

引用なし
パスワード
   ▼ぶんぶん さん:

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

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

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("選択その1").Address
      ListShow Sh.Range("選択その2")
    Case Sh.Range("選択その2").Address
      ListShow Sh.Range("選択その3")
    Case Sh.Range("選択その3").Address
      ListShow Sh.Range("選択その4")
    Case Sh.Range("選択その4").Address
      If WorksheetFunction.CountA(Union(Sh.Range("選択その1"), Sh.Range("選択その2"), _
                  Sh.Range("選択その3"), Sh.Range("選択その4"))) = 4 Then
        Sh.Range("選択その1").Activate
      Else
        ListShow Sh.Range("選択その1")
      End If
  End Select
End Sub

0 hits

【74162】ドロップボックスリストの自動表示についてい ぶんぶん 13/4/22(月) 18:04 質問
【74163】Re:ドロップボックスリストの自動表示につ... UO3 13/4/23(火) 7:05 発言
【74164】Re:ドロップボックスリストの自動表示につ... UO3 13/4/23(火) 9:31 発言
【74168】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/23(火) 13:40 発言
【74169】Re:ドロップボックスリストの自動表示につ... UO3 13/4/23(火) 14:31 発言
【74173】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 9:23 発言
【74174】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 11:41 発言
【74176】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 13:14 発言
【74177】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 13:42 発言
【74179】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 18:42 発言
【74180】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 20:19 発言
【74181】Re:ドロップボックスリストの自動表示につ... UO3 13/4/26(金) 20:25 発言
【74182】Re:ドロップボックスリストの自動表示につ... ぶんぶん 13/4/26(金) 20:51 お礼

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