[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『入力規則でリストにエントリーって?』(つのだ☆ぴろ)
入力規則で参照しているリストに該当するものがないときは直接セルに入力しています。 この直接入力したものを逆に参照しているリストに登録することってできますか??? AAAAAAA BBBBBBB CCCCCCC というデータで該当がないので DDDDDDD と直接入力 次回のデータにはDDDDDDDも加わっている状態にしたいのですが???
みやほりんが 未解決ログ解消を目的に 2007/04/01 15:00 ごろ、投稿しました。 トピ主の[つのだ☆ぴろ]さんの投稿は2003/07/02 14:28:14でした。 マクロでリストに追加していくコード例。 【仕様・制限】 入力規則の元の値の範囲には"LIST"という名前が定義されていること。 なお定義名は、Const myList As String = "LIST" でカスタマイズ。 入力規則のリスト入力・元の値として"=LIST"が設定されているかチェック。 入力値を名前定義範囲の最後尾に書き加え、名前定義範囲を再定義しています。 【コード例】 Private Sub Worksheet_Change(ByVal Target As Range) Const myList As String = "LIST" Dim myRng As Range Dim myStr As String If Target.Count > 1 Then Exit Sub If Target.Value = "" Then Exit Sub Set myRng = Cells.SpecialCells(xlCellTypeAllValidation) If Intersect(Target, myRng) Is Nothing Then Exit Sub If Target.Validation.Type = xlValidateList Then If Target.Validation.Formula1 = "=" & myList Then myStr = Target.Value With ThisWorkbook.Names(myList).RefersToRange If .Find(myStr, , xlValues, xlWhole) Is Nothing Then Application.EnableEvents = False .Cells(.Count).Offset(1).Value = Target.Value ActiveWorkbook.Names.Add _ Name:=myList, _ RefersTo:="=" & .Parent.Name & "!" & .Resize(.Count + 1, 1).Address Application.EnableEvents = True End If End With End If End If End Sub 【関連ログ】 [[20041206151442]] 『入力規則のリストに自動で追加したい』(miu) [[20050205112121]] 『vbaで入力規則のリスト・・・。』(miu) [[20050413125946]] 『入力規則 リストに自動追加して保存したい』(らんたろお) [[20050425224445]] 『入力規則』(ポー) [[20050510144918]] 『リストについて』(瑪瑙) [[20060611125307]] 『リストに自動で追加』(sokai) (みやほりん)(-_∂)b
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.