Excelでのドロップダウンの処理

ワークシートをドロップダウンからユーザー入力とやりとりしたい。基本的には、ドロップダウンボタンを使用して、入力に応じてデータの列をコピーして貼り付ける必要があります。Excelでのドロップダウンの処理

これは、私がメッセージ

"ワークシートのクラスのドロップダウンのプロパティを取得できませんランタイムエラー1004、"

助けてくださいを受け取る私のコード

Sub DropDown84_Change() 


If ActiveSheet.DropDowns("Drop Down 84").Value = 1 Then 
Sheets("data").Range("N28:N30").Value = Sheets("data").Range("E48:B50").Value 
ElseIf ActiveSheet.DropDowns("Drop Down 84").Value = 2 Then 
Sheets("data").Range("N28:N30").Value = Sheets("data").Range("F48:F50").Value 
ElseIf ActiveSheet.DropDowns("Drop Down 84").Value = 3 Then 
Sheets("data").Range("N28:N30").Value = Sheets("data").Range("G48:G50").Value 
ElseIf ActiveSheet.DropDowns("Drop Down 84").Value = 4 Then 
Sheets("data").Range("N28:N30").Value = Sheets("data").Range("H48:H50").Value 
Else: Sheets("data").Range("N28:N30").Value = Sheets("data").Range("J48:J50").Value 

End If 


End Sub

ある

出典

2016-07-07 Saeed Bomba

名前付きドロップダウンのいずれかが存在しない場合、そのエラーが発生します。http://stackoverflow.com/q/4633829/4996248 –

名前付きドロップダウンは存在しません。 –

DropDownsの名前を変更したか、名前がDropDown84である可能性があります。とにかく、 'Select Case'を使ってこのコードを書くべきです：' Select Case ActiveSheet.DropDown（ "DropDown84"）。Value'。これを使用したい場合：https://msdn.microsoft.com/en-gb/library/cy37t14y.aspx –

私はこのためにActiveXを使用したいと思います：

Sub ComboBox84_Change() 

Select Case ActiveSheet.ComboBox84.Value 
    Case 1 
     Sheets("data").Range("N28:N30").Value = Sheets("data").Range("E48:B50").Value 
    Case 2 
     Sheets("data").Range("N28:N30").Value = Sheets("data").Range("F48:F50").Value 
    Case 3 
     '-- do for all of your cases-- 
End Select 

End Sub

出典

2016-07-07 15:40:56

ComboBox84が修正されましたか、それとも変更できますか？ –

はい、ActiveXコンボボックスを使用している限り： –

ActiveXドロップボックスを使用していませんでした –

Excelでのドロップダウンの処理

答えて

関連する問題