Excel VBA質問箱 IV

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

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


20145 / 76736 ←次へ | 前へ→

【62014】隣列を条件で自列の履歴をリストに設定するには
質問  めがねチャン  - 09/6/17(水) 1:22 -

引用なし
パスワード
     A    B
1 果物  みかん
2 野菜  白菜
3 菓子  チョコレート
4 果物  いちご
5 野菜  大根

このような入力画面があります。
Bの列に  Bの列の入力履歴を リストとして設定しました。
あと、A列で 果物と入力されたら B列につくるリストは 入力履歴の中からさらに絞り込みリストを
「みかん、いちご」 となるように出来ますでしょうか?
下記をいろいろ触ってみたのですが、わかりません。
よろしくお願いいたします。


'****************************
Public Function GetSummary(RR As Range) As Variant
  '返す配列の添え字下限は0
  Dim r As Range
  Dim Dic As Object
  Dim K As String
  Dim V As Variant
  
  Set Dic = CreateObject("Scripting.Dictionary")
  For Each r In RR.Cells
    K = r.Value
    If K <> "" Then
      Dic(K) = Empty
    End If
  Next
  V = Dic.keys
  Set Dic = Nothing
  
  GetSummary = V
End Function
'****************************************


Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'セルが選択されたとき
:
:

ElseIf 列 = 2 Then   '階の自働リスト
  
  Dim myList As String
 
  myList = Join(GetSummary(Columns(列)), ",")
  With ActiveCell.Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=myList
    .ShowError = False
  End With
:
;

0 hits

【62014】隣列を条件で自列の履歴をリストに設定するには めがねチャン 09/6/17(水) 1:22 質問
【62018】Re:隣列を条件で自列の履歴をリストに設定... もも 09/6/17(水) 11:18 発言
【62027】Re:隣列を条件で自列の履歴をリストに設定... めがねチャン 09/6/17(水) 13:52 お礼
【62029】Re:隣列を条件で自列の履歴をリストに設定... もも 09/6/17(水) 13:57 発言
【62030】Re:隣列を条件で自列の履歴をリストに設定... めがねチャン 09/6/17(水) 14:08 お礼

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