[[20180502154800]]　『関連した限定選択』（sonson）　ページの最後に飛ぶ

『関連した限定選択』（sonson）

部署１で選択した部門のみを部署２で選択可能にしたいのですが、
ご教示願えませんでしょうか。

　　　　部署１　　　部署２
１行目　開発１部　　開発１１課 or 開発１２課
２行目　開発２部　　開発２１課 or 開発２２課
３行目　開発３部　　開発３１課 or 開発３２課

＜使用 Excel：Excel2016、使用 OS：Windows7 ＞

sonsonさん。

もう少し動作を伴った説明を記述して頂けるとよろしいかと思います。
例えば、オートフィルターで「部署１」の「開発２部」を選択すると、
その行のみ表示されますが、そういったことなのでしょうか
（x11euser） 2018/05/02(水) 18:03

Private Sub Worksheet_Change(ByVal Target As Range) 'Sheet1のシートモジュール
'Sheet2に課名の一覧がある
'Sheet1のA列に部名、B列に課名の候補が表示

    Dim c As Range, temp As String, vd As String
    If Target.Column <> 1 Or Target.Count <> 1 Then Exit Sub
    If Target.Value = "" Then Exit Sub
    For Each c In Sheets("Sheet2").Cells.SpecialCells(xlCellTypeConstants)
        temp = Replace(Target.Value, "部", "")
        If Left(c.Value, Len(temp)) = temp Then vd = vd & c.Value & ","
    Next c
    With Target.Offset(, 1).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Left(vd, Len(vd) - 1)
    End With
End Sub

（mm） 2018/05/02(水) 18:16

もしかしてこちらが参考になりますか?
http://www4.synapse.ne.jp/yone/excel2010/excel2010_nyukisoku3.html
（もこな２） 2018/05/02(水) 19:09

コメント返信：

[ 一覧(最新更新順) ]

[[20180502154800]] 『関連した限定選択』（sonson） ページの最後に飛ぶ

[[20180502154800]]　『関連した限定選択』（sonson）　ページの最後に飛ぶ