[[20040317125825]]　『VBA：オブジェクトが必要です』（VBA初心者）　ページの最後に飛ぶ

『VBA：オブジェクトが必要です』（VBA初心者）

Ｂ表.xlsの支店合計シートのＤ5セルにA表.xlsのA営業所シートのF50のセル値を取得したいのですが

Sub 表作成()

    Workbooks.Open "C:\A表.xls"
    Sheets(A営業所).Select
    Workbooks.Open "C:Ｂ表.xls"
    Sheets("支店合計").Select
    Range("D5").Value = Workbooks("A表.xls").Sheets("A営業所").Range("F50")
End Sub
　　
　５行目のところで、"オブジェクトが必要です"というエラーが出るのですが・・・・・

 例えば
 　　　 \マークがない↓
    Workbooks.Open "C:Ｂ表.xls"
                      ↑全角のＢ
 （kazu）

成る程、いろいろ試してみて原因がわかりました。ありがとうございました。（VBA初心者）

 こちら事務局です。
 同じ人で、続きの内容なので、こちらに統合しました。
 （kazu）

『VBA：計算した結果の値を他のセルで参照したい』（VBA初心者）

Range("D7").Value = Workbooks("工業.xls").Sheets("A営業所").Range("G69" - "G73" + "G74")

このようにコードを書くと”型が一致しません”というエラーが出ます。
いかにもエラーの出そうな書きかただとは自分でも思うのですが、どのように
書けば良いのでしょうか？

 > Range("G69" - "G73" + "G74")
 文字列から文字列引いてどうするのですか？
 もう少しVBAの身になって考えてくださーい。

 （kazu）

Range("C1").Value=Range("A1").Value+Range("B1").Value
　が基本形では？
(マーヤ)

ありがとうございました。本当に初心者で申し訳ありません。
以下のように記述すると上手く計算されたのですが、もう少し省略してスマートに書く方法はありますでしょうか？２つのブックを開いて片方のブックで計算した結果を他のブックのＤ7セルに代入しています。

Range("D7").Value = Workbooks("工業.xls").Sheets("A営業所").Range("G69").Value - Workbooks("工業.xls").Sheets("A営業所").Range("G73").Value + Workbooks"工業.xls").Sheets("A営業所").Range("G74").Value

With　～　End With　でくくっては?

(マーヤ)

コメント返信：

[ 一覧(最新更新順) ]

[[20040317125825]] 『VBA：オブジェクトが必要です』（VBA初心者） ページの最後に飛ぶ

[[20040317125825]]　『VBA：オブジェクトが必要です』（VBA初心者）　ページの最後に飛ぶ