Excel VBA質問箱 IV

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

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


45640 / 76732 ←次へ | 前へ→

【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 しないでコードが作成できる
ようになります。そうしないと処理効率が悪くなるし画面がちらついて見苦しいので、
早くなくすように努力して下さい。

0 hits

【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 お礼

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