Excel VBA質問箱 IV

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

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


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

30343 / 76738

←次へ　｜　前へ→


	【51662】Re:ブックを分けましたが。

neptune - 07/9/28(金) 21:54 -


	引用なし

	パスワード

▼すずさん：
こんにちは

よ～くソースを見ました。Bookを開くのはこれで良いのでは？
Private Sub Workbook_Open()
　　Const cPath1 As String = "C:\Documents and Settings\デスクトップ\hoge.xls"
　　Const cPath2 As String = "C:\Documents and Settings\デスクトップ\hogehoge.xls"

　　Workbooks.Open cPath1 , UpdateLinks:=0
　　Workbooks.Open cPath2 , UpdateLinks:=0
End Sub

>今はインデックスが有効範囲にない、と怒られています
恐らくBook名か、シート名を間違えているだけです。

>Application.WorksheetFunction.SumIf _
　　　　　　　　 (ws2.Range("C7:C441"), ws1.Range("F" & i).Value, ws2.Range("E7:E441"))
というのを使ったことが無いのでなんとも言えませんが、問題ないと思います。
with activesheet
・・・
end with
以外のところは、Book名か、シート名、range 等をまともに書いていれば問題ないです。

0 hits

▼

【51636】ブックを分けましたが。 すず 07/9/27(木) 16:30