Excel VBA質問箱 IV

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

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


7917 / 13644 ツリー ←次へ | 前へ→

【36080】オブジェクトは、このプロパティまたはメソッドをサポートしていません。 K.K. 06/3/20(月) 15:35 質問[未読]
【36082】Re:オブジェクトは、このプロパティまたは... Kein 06/3/20(月) 15:56 回答[未読]
【36083】Re:オブジェクトは、このプロパティまたは... NECRO 06/3/20(月) 16:04 回答[未読]
【36094】Re:オブジェクトは、このプロパティまたは... K.K. 06/3/20(月) 17:40 お礼[未読]

【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

【36082】Re:オブジェクトは、このプロパティまた...
回答  Kein  - 06/3/20(月) 15:56 -

引用なし
パスワード
   >Fund.xlsのPerformanceシートのE3セルの内容をFund unv.xlsシートの
>ファンド PfoシートのC列から検索し→その右隣のセルに入っている値を
>Project.xlsのFundシートのE7セルへとコピー

Dim F_Data As Variant
Dim FR As Range

F_Data = Workboooks("Fund.xls") _
.Worksheets("Performance").Range("E3").Value
Set FR = Workbooks("Fund unv.xls").Wosksheets("ファンド Pfo") _
.Range("C:C").Find(F_Data, , xlValues)
If FR Is Nothing Then
  MsgBox F_Data & vbLf & "は見つかりませんでした", 48
  Exit Sub
End If
Workbooks("MC Project.xls").Worksheets("Fund").Range("E7").Value = _
FR.Offset(, 1).Value
Set FR = Nothing

基本的にこんなコードになります。
エラーの原因は、現在開いているブックが Fund unv.xls でないのに、その中の
ファンド PfoシートをActiveにしようとしたからでしょう。VBAプログラミングに
慣れてくると、上のように一度も Active や Select しないでコードが作成できる
ようになります。そうしないと処理効率が悪くなるし画面がちらついて見苦しいので、
早くなくすように努力して下さい。

【36083】Re:オブジェクトは、このプロパティまた...
回答  NECRO  - 06/3/20(月) 16:04 -

引用なし
パスワード
   こんにちは

> 以下のWorkbooks("Fund unv.xls").Wosksheets("ファンド Pfo").Activateで・・・
Wosk → Work
でしょうか?

はずしてたらすいません。。。

【36094】Re:オブジェクトは、このプロパティまた...
お礼  K.K.  - 06/3/20(月) 17:40 -

引用なし
パスワード
   Keinさん、NECROさん、レスありがとうございました。
できました。

NECRO さん:
>こんにちは
>
>> 以下のWorkbooks("Fund unv.xls").Wosksheets("ファンド Pfo").Activateで・・・
>Wosk → Work
>でしょうか?
>
>はずしてたらすいません。。。
まったくもって、ご指摘のとおりです。ケアレスミスですみません。

7917 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free