Excel VBA質問箱 IV

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

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


8133 / 76736 ←次へ | 前へ→

【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("選択その1"), Sh.Range("選択その2"), Sh.Range("選択その3"), Sh.Range("選択その4"))
  If Intersect(Target, myR) Is Nothing Then Exit Sub
  If WorksheetFunction.CountA(myR) = 4 Then
    Sh.Range("選択その1").Activate
    Exit Sub
  End If
  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
      ListShow Sh.Range("選択その1")
  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 お礼

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