Excel VBA質問箱 IV

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

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


59746 / 76732 ←次へ | 前へ→

【21661】Re:条件付リストのような物は作成できますか?
回答  ぴかる  - 05/1/26(水) 9:14 -

引用なし
パスワード
   まつさん、おはようございます。

こんな感じでどうでしょ?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target.Address(0, 0) = "B1" Then
    With Range("B1").Validation
      .Delete
      If Range("A1").Value = 1 Then
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AA$1:$AA$20"
      ElseIf Range("A1").Value = 2 Then
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AB$1:$AB$20"
      ElseIf Range("A1").Value = 3 Then
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AC$1:$AC$20"
      ElseIf Range("A1").Value = 4 Then
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$AD$1:$AD$20"
      End If
    End With
  End If

End Sub
0 hits

【21635】条件付リストのような物は作成できますか? まつ 05/1/25(火) 16:31 質問
【21647】Re:条件付リストのような物は作成できます... ぴかる 05/1/25(火) 18:14 回答
【21659】Re:条件付リストのような物は作成できます... まつ 05/1/26(水) 8:48 質問
【21661】Re:条件付リストのような物は作成できます... ぴかる 05/1/26(水) 9:14 回答
【21651】Re:条件付リストのような物は作成できます... kobasan 05/1/25(火) 19:38 発言
【21660】Re:条件付リストのような物は作成できます... まつ 05/1/26(水) 8:51 質問
【21664】Re:条件付リストのような物は作成できます... Jaka 05/1/26(水) 9:50 回答
【22330】Re:条件付リストのような物は作成できます... まつ 05/2/16(水) 14:06 お礼
【21683】Re:条件付リストのような物は作成できます... kobasan 05/1/26(水) 18:07 回答
【22331】Re:条件付リストのような物は作成できます... まつ 05/2/16(水) 14:08 お礼
【21700】Re:条件付リストのような物は作成できます... ぴかる 05/1/27(木) 14:53 発言
【22329】Re:条件付リストのような物は作成できます... まつ 05/2/16(水) 14:05 お礼

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