Excel VBA質問箱 IV

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

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


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

48183 / 76732

←次へ　｜　前へ→


	【33486】Re:セルに入力制限を設定したい

mono - 06/1/12(木) 17:52 -


	引用なし

	パスワード

▼Jaka さん：
>>　　　　 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
>>　　　　 xlBetween, Formula1:="=ListSource"
>　　　　　　　　　　　　　　　　　↑
>　　　　　　　　　　　　これって、エクセル関数と同じで、
>　　　　　　　　　　　　結局は文字が入るんですよ。
>　　　　　　　　　　　　ここに
>　　　　　　　　　　　　 "=INDIRECT(" & "Sheet1!A1:A10" & ")"
>　　　　　　　　　　　　って事でしょうか？
>　　　　　　　　　　　　 "Sheet1!A1:A10"は、変数でも良いし...。

うーん・・・・。

過去掲示板の記事も参考にさせていただいたのですが、以下のコードを試して
「アプリケーションの定義エラー」
となります。

Err.Descriptionを見ても、
「アプリケーション定義またはオブジェクト定義のエラーです。」
となります・・。
※WORKはシート名です。

Sub test()
　　With ThisWorkbook.Worksheets("メンテナンス")　
　　　 Range("D11:D40").Select
　　　 Application.CutCopyMode = False
　　　 With Selection.Validation
　　　　 .Delete
　　　　 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
　　　　xlBetween, Formula1:="=INDIRECT(" & "WORK!A1:A10" & ")"

　　　　 .IgnoreBlank = True
　　　　 .InCellDropdown = True
　　　　 .ErrorMessage = "入力する値をドロップダウンリストから選択してください。"
　　　　 .IMEMode = xlIMEModeNoControl
　　　　 .ShowInput = True
　　　　 .ShowError = True
　　　　End With
　　End With
End Sub

1 hits

▼

【33475】セルに入力制限を設定したい mono 06/1/12(木) 16:49