|
八家九僧陀 さん、おはようございます。
>P14には、入力規則でリストから選択するように設定しています。そのリストはSheet("平成22年")A列のデータをDictinaryを使って(あるサイトから盗用したものですが)重複しないデータリストとして作成したもので、P14のリストデータとsheet("平成22年")A列のデータは同じだと思い込んでいるのですが!
A列のデータと違うかもしれない(というか違うと思う)ので、何が入っているかを確認してみては。
Sub mykeyの確認()
Dim mykey As Variant 'mykeyは日付データです
'値を参照するだけならSelect(Activate)不要
mykey = ThisWorkbook.Worksheets("賞与メニュー").Range("p14").Value
MsgBox "Type = " & VarType(mykey) & vbCrLf & _
"Value : " & mykey, vbInformation, "TYPE = 7が正当な日付データ"
End Sub
詳細はVarType関数のヘルプで確認してみてください。
あと、コードは標準モジュールに記述してありますか?
|
|