Excel VBA質問箱 IV

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

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


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

30340 / 76732

←次へ　｜　前へ→


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

neptune - 07/9/28(金) 17:23 -


	引用なし

	パスワード

▼すずさん：

こういう事ですか？

'////////////ThisWorkBookモジュール////////////////
Private Sub Workbook_Open()

　　Dim i As Integer, k As Integer
　　Dim ws3 As Object

　　ChDir "C:\Documents and Settings\デスクトップ"
　　Workbooks.Open Filename:= _
　　　　"C:\Documents and Settings\デスクトップ\hoge.xls", UpdateLinks:=0

　　ChDir "C:\Documents and Settings\デスクトップ"
　　Workbooks.Open Filename:= _
　　　　"C:\Documents and Settings\デスクトップ\hogehoge.xls", UpdateLinks:=0

End Sub

'////////////標準モジュール////////////////
Sub test1()
Dim tBK1 As Workbook
　　Set tBK1 = Workbooks("C:\Documents and Settings\デスクトップ\hoge.xls")
　　Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet, i As Long

　　Set ws1 = ThisWorkbook.Worksheets("マスタ")
　　Set ws2 = tBK1.Worksheets("sheet1")
　　Set ws3 = tBK1.Worksheets("sheet2")
　'変数を作成
　　Dim AB As Long, BA As Long
　'SUMIFで合計する
　　i = 8
　　With ActiveSheet
　　　 Do Until .Cells(i, 6).Value = ""
　　　　　 AB = Application.WorksheetFunction.SumIf _
　　　　　　　　 (ws2.Range("C7:C441"), ws1.Range("F" & i).Value, ws2.Range("E7:E441"))
　　　　　 BA = Application.WorksheetFunction.SumIf _
　　　　　　　　 (ws3.Range("C7:C47"), ws1.Range("F" & i).Value, ws3.Range("F7:F47"))
　　　　　 If AB > BA Then
　　　　　 ws1.Range("G" & i).Value = AB - BA
　　　　　 ElseIf AB < BA Then
　　　　　 ws1.Range("G" & i).Value = BA
　　　　　 End If
　　　　　　i = i + 1
　　　　Loop
　　End With
End Sub

もし、こうならtest1プロシージャを実行する時は絶対確実に目的のシートが
ActiveSheetになっていますか？

>今はインデックスが有効範囲にない、と怒られています
どこでですか？

>Set tBK1 = Workbooks("C:\Documents and Settings\デスクトップ\hoge.xls")
は既に開いているから
Set tBK1 = Workbooks("hoge.xls")
でOKじゃないですか？

1 hits

▼

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