Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46718 / 76735

←次へ　｜　前へ→


	【34984】プルダウンリストで

VBAビギナー - 06/2/17(金) 17:14 -


	引用なし

	パスワード

プルダウンリストをシート２に作成しシート１のデータをリストに反映するのに
INDIRECTを使いできたのですが、
シート１の選択範囲をA3からA1000にし
入力されているデータが50個（リストも）であったものをデータを消し10個にしたところ11から50までの分が空白になってしまいました。
リストはdeleteをしたくないのでmodifyで規則を変更させ、シート１のデータが変更されたらシート２のリストが空白のないデータ分だけが表示されるようにするにはどのようにしたらよろしいのでしょうか？
Private Sub Worksheet_Activate()
　Module1.tes
End Sub

sub tes()
With Range("A1").Validation
.Modify Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
　　　　xlBetween, Formula1:="=INDIRECT(""Sheet1!$A$1:$A$1000"",TRUE)"
　　　　 .IgnoreBlank = False
　　　　.InCellDropdown = True
　　　　.InputTitle = ""
　　　　.ErrorTitle = ""
　　　　.InputMessage = ""
　　　　.ErrorMessage = ""
　　　　.IMEMode = xlIMEModeNoControl
　　　　.ShowInput = False
　　　　.ShowError = False
　　End With
End Sub

0 hits

▼

【34984】プルダウンリストで VBAビギナー 06/2/17(金) 17:14

≪