Excel VBA質問箱 IV

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

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


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

45642 / 76732

←次へ　｜　前へ→


	【36080】オブジェクトは、このプロパティまたはメソッドをサポートしていません。

K.K. - 06/3/20(月) 15:35 -


	引用なし

	パスワード

Fund.xlsのPerformanceシートのE3セルの内容をFund unv.xlsシートのファンド PfoシートのC列から検索し→その右隣のセルに入っている値をProject.xlsのFundシートのE7セルへとコピーしようと思っています。
が、以下のWorkbooks("Fund unv.xls").Wosksheets("ファンド Pfo").Activateで「オブジェクトは、このプロパティまたはメソッドをサポートしていません。」のメッセージが出てしまいます。

Sub MC()
Dim i As Integer
Dim Company(99) As String, Lc(99) As Integer
For i = 1 To 1
　　 Company(i) = Workbooks("Fund.xls").Worksheets("Performance").Range("E" & 2 + i).Value
　　Workbooks("Fund unv.xls").Wosksheets("ファンド Pfo").Activate
　　Lc(i) = Application.Match(Company(i), Range("C6:C86"), 0) + 5
　　Workbooks("MC Project.xls").Worksheets("Fund").Range("E" & 6 + i).Value = Workbooks("Fund unv.xls").Wosksheets("ファンド一 Pfo").Range("D" & Lc(i)).Value

2 hits

▼

【36080】オブジェクトは、このプロパティまたはメソッドをサポートしていません。 K.K. 06/3/20(月) 15:35

≪